--- loncom/interface/spreadsheet/lonspreadsheet.pm 2003/05/27 20:05:46 1.6 +++ loncom/interface/spreadsheet/lonspreadsheet.pm 2003/06/18 15:32:37 1.10 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.6 2003/05/27 20:05:46 matthew Exp $ +# $Id: lonspreadsheet.pm,v 1.10 2003/06/18 15:32:37 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -126,34 +126,36 @@ sub file_dialogs { ## ## Create the save and load dialogs my $filename = $spreadsheet->filename(); - $filename = '' if ($filename =~ /^default\.$sheettype/i); - $filename =~ s/_$sheettype$//; + my $truefilename = $filename; + if ($spreadsheet->is_default()) { + $filename = 'Default'; + } my $save_dialog = ''. ' '. ''. + $truefilename.'" />'. ''; my $makedefault_dialog = ''; # my $link = 'Browse"; + "('sheet','loadfilename','spreadsheet')\">Select Spreadsheet File"; my $load_dialog = < - + $link - Default END + my $default_filename_set = 0; foreach my $sheetfilename ($spreadsheet->othersheets()) { - $sheetfilename =~ s/_$sheettype$//; $load_dialog .= ' \n"; } @@ -322,6 +324,7 @@ ENDSCRIPT # if (exists($ENV{'form.load'}) && exists($ENV{'form.loadfilename'})) { $filename = $ENV{'form.loadfilename'}; + $ENV{'form.workcopy'} = 'no'; } } ## @@ -343,12 +346,15 @@ ENDSCRIPT # error error - run in circles, scream and shout return; } + $spreadsheet->initialize(); # # Output selector - $r->print(''); ## ## Editing/loading/saving if ($allowed_to_edit) { + if ($ENV{'form.makedefault'}) { + $spreadsheet->make_default(); + } $r->print(''.$spreadsheet->html_header().''. ''. &file_dialogs($spreadsheet)."\n"); @@ -358,6 +364,10 @@ ENDSCRIPT "\n"); } # + if (! exists($ENV{'form.not_first_run'}) && $sheettype eq 'classcalc') { + $r->print(''); + } + # # Keep track of the filename $r->print(&hiddenfield('filename',$filename)); # @@ -370,8 +380,6 @@ ENDSCRIPT $r->print($spreadsheet->parent_link()); } $spreadsheet->display($r); - } else { - $r->print("Make your selections and bonk the 'update display' button"); } $r->print('