version 1.5, 2003/05/27 19:17:07
|
version 1.9, 2003/06/16 13:51:46
|
Line 58 use Apache::classcalc();
|
Line 58 use Apache::classcalc();
|
use Apache::studentcalc(); |
use Apache::studentcalc(); |
use Apache::assesscalc(); |
use Apache::assesscalc(); |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::lonmenu(); |
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use HTML::Entities(); |
use HTML::Entities(); |
Line 127 sub file_dialogs {
|
Line 126 sub file_dialogs {
|
## |
## |
## Create the save and load dialogs |
## Create the save and load dialogs |
my $filename = $spreadsheet->filename(); |
my $filename = $spreadsheet->filename(); |
$filename = '' if ($filename =~ /^default\.$sheettype/i); |
$filename = 'Default' if ($filename =~ /^default\.$sheettype/i); |
$filename =~ s/_$sheettype$//; |
$filename =~ s/_$sheettype$//; |
my $save_dialog = '<nobr>'. |
my $save_dialog = '<nobr>'. |
'<input type="submit" name="save" value="Save as" /> '. |
'<input type="submit" name="save" value="Save as" /> '. |
Line 138 sub file_dialogs {
|
Line 137 sub file_dialogs {
|
'value="Make This Sheet the Default"/>'; |
'value="Make This Sheet the Default"/>'; |
# |
# |
my $link = '<a href="javascript:openbrowser'. |
my $link = '<a href="javascript:openbrowser'. |
"('sheet','loadfilename','spreadsheet')\">Browse</a>"; |
"('sheet','loadfilename','spreadsheet')\">Select Spreadsheet File</a>"; |
my $load_dialog = <<END; |
my $load_dialog = <<END; |
<table bgcolor="$bgcolor"> |
<table bgcolor="$bgcolor"> |
<tr><td><input type="submit" name="load" value="Load" /></td> |
<tr><td><input type="submit" name="load" value="Load" /></td> |
Line 148 sub file_dialogs {
|
Line 147 sub file_dialogs {
|
</td></tr> |
</td></tr> |
<tr><td> </td><td> |
<tr><td> </td><td> |
<select name="fileselect" onchange="document.sheet.loadfilename.value=document.sheet.fileselect.value" > |
<select name="fileselect" onchange="document.sheet.loadfilename.value=document.sheet.fileselect.value" > |
<option name="Default">Default</option> |
|
END |
END |
|
my $default_filename_set = 0; |
foreach my $sheetfilename ($spreadsheet->othersheets()) { |
foreach my $sheetfilename ($spreadsheet->othersheets()) { |
$sheetfilename =~ s/_$sheettype$//; |
$sheetfilename =~ s/_$sheettype$//; |
$load_dialog .= ' <option name="'.$sheetfilename.'"'; |
$load_dialog .= ' <option name="'.$sheetfilename.'"'; |
if ($filename eq $sheetfilename) { |
if ($filename eq $sheetfilename) { |
$load_dialog .= ' selected'; |
$load_dialog .= ' selected'; |
|
$default_filename_set = 1; |
} |
} |
$load_dialog .= '>'.$sheetfilename."</option>\n"; |
$load_dialog .= '>'.$sheetfilename."</option>\n"; |
} |
} |
|
if ($default_filename_set) { |
|
$load_dialog .= '<option name="Default">Default</option>'."\n"; |
|
} else { |
|
$load_dialog .= '<option name="Default" selected >Default</option>'. |
|
"\n"; |
|
} |
$load_dialog .= "</td><td> </td></tr>\n</table>\n"; |
$load_dialog .= "</td><td> </td></tr>\n</table>\n"; |
# |
# |
$result .=<<END; |
$result .=<<END; |
Line 313 ENDSCRIPT
|
Line 319 ENDSCRIPT
|
'<form action="'.$r->uri.'" name="sheet" method="post">'); |
'<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'}). |
&hiddenfield('usymb' ,$ENV{'form.usymb'}). |
&hiddenfield('usymb' ,$ENV{'form.usymb'})); |
&Apache::lonmenu::regflush()); |
|
$r->rflush(); |
$r->rflush(); |
## |
## |
## Determine the filename to use |
## Determine the filename to use |
Line 324 ENDSCRIPT
|
Line 329 ENDSCRIPT
|
# |
# |
if (exists($ENV{'form.load'}) && exists($ENV{'form.loadfilename'})) { |
if (exists($ENV{'form.load'}) && exists($ENV{'form.loadfilename'})) { |
$filename = $ENV{'form.loadfilename'}; |
$filename = $ENV{'form.loadfilename'}; |
|
$ENV{'form.workcopy'} = 'no'; |
} |
} |
} |
} |
## |
## |
Line 345 ENDSCRIPT
|
Line 351 ENDSCRIPT
|
# error error - run in circles, scream and shout |
# error error - run in circles, scream and shout |
return; |
return; |
} |
} |
|
$spreadsheet->initialize(); |
# |
# |
# Output selector |
# Output selector |
$r->print('<input type="submit" value="Update Display" /><br />'); |
$r->print('<input type="submit" value="Update Display" /><br />'); |