--- loncom/interface/Attic/lonspreadsheet.pm 2001/11/06 11:14:42 1.75 +++ loncom/interface/Attic/lonspreadsheet.pm 2001/12/27 19:37:46 1.77 @@ -7,7 +7,7 @@ # 03/05,03/08,03/10,03/12,03/13,03/15,03/17, # 03/19,03/20,03/21,03/27,04/05,04/09, # 07/09,07/14,07/21,09/01,09/10,9/11,9/12,9/13,9/14,9/17, -# 10/16,10/17,10/20,11/05 Gerd Kortemeyer +# 10/16,10/17,10/20,11/05,11/28,12/27 Gerd Kortemeyer package Apache::lonspreadsheet; @@ -1547,6 +1547,18 @@ sub loadassessment { } # ----------------------------- returnhash now has all stores for this resource +# --------- convert all "_" to "." to be able to use libraries, multiparts, etc + + my @oldkeys=keys %returnhash; + + map { + my $name=$_; + my $value=$returnhash{$_}; + delete $returnhash{$_}; + $name=~s/\_/\./g; + $returnhash{$name}=$value; + } @oldkeys; + # ---------------------------- initialize coursedata and userdata for this user undef %courseopt; undef %useropt; @@ -2066,6 +2078,9 @@ ENDSCRIPT } else { $r->print('
Section/Group: '.&getcsec($asheet)); } + if ($ENV{'form.usymb'}) { + $r->print('
Assessment: '.$ENV{'form.usymb'}.''); + } } # ---------------------------------------------------------------- Course title @@ -2200,8 +2215,21 @@ ENDSCRIPT } else { $r->print('
Show empty rows: '); } - $r->print('print(' checked'); } + + $r->print(&hiddenfield('userselhidden','true'). + 'print(' checked'); + } else { + unless ($ENV{'form.userselhidden'}) { + unless + ($ENV{'course.'.$ENV{'request.course.id'}.'.hideemptyrows'} eq 'yes') { + $r->print(' checked'); + $ENV{'form.showall'}=1; + } + } + } $r->print('>'); if (&gettype($asheet) eq 'classcalc') { $r->print( @@ -2227,3 +2255,7 @@ ENDSCRIPT 1; __END__ + + + +