version 1.6, 2003/05/27 20:05:46
|
version 1.7, 2003/05/28 15:19:34
|
Line 126 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 147 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 322 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'; |
} |
} |
} |
} |
## |
## |