version 1.59, 2011/09/26 12:15:39
|
version 1.65, 2013/07/15 16:13:26
|
Line 107 sub file_dialogs {
|
Line 107 sub file_dialogs {
|
$spreadsheet->filename($env{'form.savefilename'}); |
$spreadsheet->filename($env{'form.savefilename'}); |
my $save_status = $spreadsheet->save(); |
my $save_status = $spreadsheet->save(); |
if ($save_status ne 'ok') { |
if ($save_status ne 'ok') { |
$message .= "An error occurred while saving the spreadsheet". |
$message .= '<span class="LC_error">'. |
"There error is:".$save_status; |
&mt('An error occurred while saving the spreadsheet. The error is: [_1].', |
|
$save_status).'</span>'; |
} else { |
} else { |
$message .= "Spreadsheet saved as ".$spreadsheet->filename(); |
$message .= '<span class="LC_info">'.&mt('Spreadsheet saved as: [_1] .', |
|
'<span class="LC_filename">'.$spreadsheet->filename().'</span>'). |
|
'</span>'; |
} |
} |
} elsif (exists($env{'form.newformula'}) && |
} elsif (exists($env{'form.newformula'}) && |
exists($env{'form.cell'}) && |
exists($env{'form.cell'}) && |
Line 273 sub handler {
|
Line 276 sub handler {
|
$symb = $env{'form.usymb'} if (exists($env{'form.usymb'})); |
$symb = $env{'form.usymb'} if (exists($env{'form.usymb'})); |
my $name = $env{'user.name'}; |
my $name = $env{'user.name'}; |
my $domain = $env{'user.domain'}; |
my $domain = $env{'user.domain'}; |
|
my $warning; |
if (exists($env{'form.sname'}) && $env{'form.sname'} ne '') { |
if (exists($env{'form.sname'}) && $env{'form.sname'} ne '') { |
$name = $env{'form.sname'}; |
if (($env{'form.sname'} ne $env{'user.name'}) || |
$domain = $env{'form.sdomain'}; |
($env{'form.sdomain'} ne $env{'user.domain'})) { |
|
if (($allowed_to_view) || ($allowed_to_edit)) { |
|
if (&Apache::lonnet::homeserver($env{'form.sname'},$env{'form.sdomain'}) ne 'no_host') { |
|
$name = $env{'form.sname'}; |
|
$domain = $env{'form.sdomain'}; |
|
} else { |
|
$warning = &mt('Requested user: "[_1]" does not exist; your own sheet is displayed instead.',$env{'form.sname'}.':'.$env{'form.sdomain'}); |
|
} |
|
} else { |
|
$warning = &mt('Your current role is not permitted to display this sheet for the requested user: "[_1]"; your own sheet is displayed instead.',$env{'form.sname'}.':'.$env{'form.sdomain'}); |
|
} |
|
} |
} |
} |
$env{'form.sname'} = $name; |
$env{'form.sname'} = $name; |
$env{'form.sdomain'} = $domain; |
$env{'form.sdomain'} = $domain; |
Line 330 sub handler {
|
Line 345 sub handler {
|
## |
## |
my $js; |
my $js; |
if ($allowed_to_edit) { |
if ($allowed_to_edit) { |
my %lt=( |
my %lt=&Apache::lonlocal::texthash( |
'ce' => 'Cell', |
'ce' => 'Cell', |
'ac' => 'Accept', |
'ac' => 'Save', |
'dc' => 'Discard Changes' |
'dc' => 'Cancel' |
); |
); |
my $extra_javascript = |
my $extra_javascript = |
&Apache::loncommon::browser_and_searcher_javascript(); |
&Apache::loncommon::browser_and_searcher_javascript(); |
Line 362 sub handler {
|
Line 377 sub handler {
|
// cellformula may contain less-than and greater-than symbols, so |
// cellformula may contain less-than and greater-than symbols, so |
// we need to escape them? |
// we need to escape them? |
edit_text +='$cell_edit_start'; |
edit_text +='$cell_edit_start'; |
edit_text += '<form name="editwinform">'; |
edit_text += '<form name="editwinform" action="">'; |
edit_text += '<center><h3>$lt{'ce'} '+cellname+'</h3>'; |
edit_text += '<center><h3>$lt{'ce'} '+cellname+'</h3>'; |
edit_text += '<textarea id="LC_newformula" name="newformula" '; |
edit_text += '<textarea id="LC_newformula" name="newformula" '; |
edit_text += ' cols="60" rows="12"; wrap="off" style="width:100%">'; |
edit_text += ' cols="60" rows="12"; wrap="off" style="width:100%">'; |
edit_text += cellformula+'</textarea>'; |
edit_text += cellformula+'</textarea>'; |
edit_text += '<div id="LC_aftertextarea"><br />'; |
edit_text += '<div id="LC_aftertextarea"><br />'; |
edit_text += '<input type="button" name="accept" value="$lt{'ac'}"'; |
edit_text += '<input type="button" name="accept" value="$lt{'ac'}"'; |
edit_text += ' onClick=\\\'javascript:'; |
edit_text += ' onclick=\\\'javascript:'; |
edit_text += 'opener.document.sheet.cell.value='; |
edit_text += 'opener.document.sheet.cell.value='; |
edit_text += '"'+cellname+'";'; |
edit_text += '"'+cellname+'";'; |
edit_text += 'opener.document.sheet.newformula.value='; |
edit_text += 'opener.document.sheet.newformula.value='; |
Line 379 sub handler {
|
Line 394 sub handler {
|
edit_text += ' '; |
edit_text += ' '; |
edit_text += '<input type="button" name="abort" '; |
edit_text += '<input type="button" name="abort" '; |
edit_text += 'value="$lt{'dc'}"'; |
edit_text += 'value="$lt{'dc'}"'; |
edit_text += ' onClick="javascript:self.close()" />'; |
edit_text += ' onclick="javascript:self.close()" />'; |
edit_text += '</center></div></form>$cell_edit_end'; |
edit_text += '</center></div></form>$cell_edit_end'; |
|
|
if (editwin != null && !(editwin.closed) ) { |
if (editwin != null && !(editwin.closed) ) { |
Line 413 ENDSCRIPT
|
Line 428 ENDSCRIPT
|
# |
# |
# Open the form |
# Open the form |
# |
# |
|
if ($warning) { |
|
$r->print('<p class="LC_info">'.$warning.'</p>'); |
|
} |
$r->print('<form action="'.$r->uri.'" name="sheet" method="post">'); |
$r->print('<form action="'.$r->uri.'" name="sheet" method="post">'); |
$r->print(&hiddenfield('sname' ,$env{'form.sname'}). |
$r->print(&hiddenfield('sname' ,$env{'form.sname'}). |
&hiddenfield('sdomain',$env{'form.sdomain'}). |
&hiddenfield('sdomain',$env{'form.sdomain'}). |
Line 517 ENDSCRIPT
|
Line 535 ENDSCRIPT
|
'</td>'. |
'</td>'. |
'<td valign="center">'.$html."</td></tr></table>\n"); |
'<td valign="center">'.$html."</td></tr></table>\n"); |
if ($action_message ne '') { |
if ($action_message ne '') { |
$r->print(<<END); |
$r->print( |
<table> |
&Apache::loncommon::confirmwrapper( |
<tr><td valign="top"><b>Last Action:</b></td> |
&mt('Last Action:') |
<td> </td> |
.$action_message) |
<td>$action_message</td> |
); |
</tr> |
|
</table> |
|
END |
|
} |
} |
$r->rflush(); |
$r->rflush(); |
} else { |
} else { |
Line 540 END
|
Line 555 END
|
if ($allowed_to_view) { |
if ($allowed_to_view) { |
$r->print('<td>'. |
$r->print('<td>'. |
&Apache::loncommon::help_open_topic("Spreadsheet_About", |
&Apache::loncommon::help_open_topic("Spreadsheet_About", |
'Spreadsheet Help'). |
&mt('Spreadsheet Help')). |
'</td>'); |
'</td>'); |
} |
} |
if ($allowed_to_edit) { |
if ($allowed_to_edit) { |
$r->print('<td>'. |
$r->print('<td>'. |
&Apache::loncommon::help_open_topic("Spreadsheet_Editing", |
&Apache::loncommon::help_open_topic("Spreadsheet_Editing", |
'Editing Help'). |
&mt('Editing Help')). |
'</td>'); |
'</td>'); |
} |
} |
$r->print('</tr></table>'); |
$r->print('</tr></table>'); |