--- loncom/interface/spreadsheet/lonspreadsheet.pm 2003/05/27 19:17:07 1.5 +++ loncom/interface/spreadsheet/lonspreadsheet.pm 2003/06/18 15:32:37 1.10 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.5 2003/05/27 19:17:07 matthew Exp $ +# $Id: lonspreadsheet.pm,v 1.10 2003/06/18 15:32:37 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -58,7 +58,6 @@ use Apache::classcalc(); use Apache::studentcalc(); use Apache::assesscalc(); use Apache::Constants qw(:common :http); -use Apache::lonmenu(); use Apache::lonnet; use Apache::lonhtmlcommon; use HTML::Entities(); @@ -127,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"; } @@ -313,8 +314,7 @@ ENDSCRIPT ''); $r->print(&hiddenfield('sname' ,$ENV{'form.sname'}). &hiddenfield('sdomain',$ENV{'form.sdomain'}). - &hiddenfield('usymb' ,$ENV{'form.usymb'}). - &Apache::lonmenu::regflush()); + &hiddenfield('usymb' ,$ENV{'form.usymb'})); $r->rflush(); ## ## Determine the filename to use @@ -324,6 +324,7 @@ ENDSCRIPT # if (exists($ENV{'form.load'}) && exists($ENV{'form.loadfilename'})) { $filename = $ENV{'form.loadfilename'}; + $ENV{'form.workcopy'} = 'no'; } } ## @@ -345,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"); @@ -360,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)); # @@ -372,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('