--- loncom/interface/Attic/lonspreadsheet.pm 2001/07/21 22:45:46 1.56
+++ loncom/interface/Attic/lonspreadsheet.pm 2001/07/21 23:55:31 1.57
@@ -87,9 +87,6 @@ undef %c;
undef %rl;
undef @os;
- undef $nfield;
- undef $nsheet;
-
$maxrow=0;
$sheettype='';
@@ -404,7 +401,7 @@ sub outrowassess {
my @cols=();
if ($n) {
my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{'A'.$n});
- $cols[0]=$rl{$f{'A'.$n}}.'
'.
+ $cols[0]=$f{'A'.$n}.'
'.$rl{$usy}.'
'.
'