--- loncom/interface/Attic/lonspreadsheet.pm	2000/12/18 13:45:40	1.17
+++ loncom/interface/Attic/lonspreadsheet.pm	2000/12/18 17:14:49	1.18
@@ -328,13 +328,32 @@ sub outrowassess {
     return @cols;
 }
 
+sub outrow {
+    my $n=shift;
+    my @cols=();
+    if ($n) {
+       $cols[0]=$rl{$f{'A'.$n}}.' stuff';
+    } else {
+       $cols[0]='<b><font size=+1>Export</font></b>';
+    }
+    map {
+        my $fm=$f{$_.$n};
+        $fm=~s/[\'\"]/\&\#34;/g;
+        $cols[$#cols+1]="'$_$n','$fm'".'___eq___'.$v{$_.$n};
+    } ('A','B','C','D','E','F','G','H','I','J','K','L','M',
+       'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
+       'a','b','c','d','e','f','g','h','i','j','k','l','m',
+       'n','o','p','q','r','s','t','u','v','w','x','y','z');
+    return @cols;
+}
+
 sub exportrowa {
     my $rowa='';
     map {
-	$rowa.=$v{$_.'0'}."','";
+	$rowa.=$v{$_.'0'}."___;___";
     } ('A','B','C','D','E','F','G','H','I','J','K','L','M',
        'N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
-    $rowa=~s/\'\,\'$//;
+    $rowa=~s/\_\_\_\;\_\_\_$//;
     return $rowa;
 }
 
@@ -446,18 +465,21 @@ sub rown {
     my $rowdata="\n<tr><td><b><font size=+1>$n</font></b></td>";
     my $showf=0;
     my $proc;
+    my $maxred;
     if (&gettype($safeeval) eq 'assesscalc') {
         $proc='&outrowassess';
+        $maxred=1;
     } else {
         $proc='&outrow';
+        $maxred=26;
     }
     map {
        my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');
        my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);
        if ($showf==0) { $vl=$_; }
-       if ($showf<=1) { $bgcolor='#FFDDDD'; }
+       if ($showf<=$maxred) { $bgcolor='#FFDDDD'; }
        if (($n==0) && ($showf<=26)) { $bgcolor='#CCCCFF'; } 
-       if (($showf>1) || ((!$n) && ($showf>0))) {
+       if (($showf>$maxred) || ((!$n) && ($showf>0))) {
 	   if ($vl eq '') {
 	       $vl='<font size=+2 color='.$bgcolor.'>&#35;</font>';
            }
@@ -476,11 +498,35 @@ sub rown {
 
 sub outsheet {
     my $safeeval=shift;
-    my $tabledata='<table border=2><tr><td colspan=2>&nbsp;</td>'.
-                  '<td bgcolor=#FFDDDD><b>A Import</b></td>';
+    my $maxred;
+    my $realm;
+    if (&gettype($safeeval) eq 'assesscalc') {
+        $maxred=1;
+        $realm='Assessment';
+    } elsif (&gettype($safeeval) eq 'studentcalc') {
+        $maxred=26;
+        $realm='User';
+    } else {
+        $maxred=26;
+        $realm='Course';
+    }
+    my $maxyellow=52-$maxred;
+    my $tabledata='<table border=2><tr><th colspan=2 rowspan=2><font size=+2>'.
+                  $realm.'</font></th>'.
+                  '<td bgcolor=#FFDDDD colspan='.$maxred.
+                  '><b><font size=+1>Import</font></b></td>'.
+                  '<td colspan='.$maxyellow.
+		  '><b><font size=+1>Calculations</font></b></td></tr><tr>';
+    my $showf=0;
     map {
-        $tabledata.="<td><b><font size=+1>$_</font></b></td>";
-    } ('B','C','D','E','F','G','H','I','J','K','L','M',
+        $showf++;
+        if ($showf<=$maxred) { 
+           $tabledata.='<td bgcolor="#FFDDDD">'; 
+        } else {
+           $tabledata.='<td>';
+        }
+        $tabledata.="<b><font size=+1>$_</font></b></td>";
+    } ('A','B','C','D','E','F','G','H','I','J','K','L','M',
        'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
        'a','b','c','d','e','f','g','h','i','j','k','l','m',
        'n','o','p','q','r','s','t','u','v','w','x','y','z');
@@ -774,7 +820,7 @@ sub rowazstudent {
 	if ($_=~/^A(\d+)/) {
 	   my $row=$1;
            unless ($f{$_}=~/^\!/) {
-              my @assessdata=split(/\,/,
+              my @assessdata=split(/\_\_\_\;\_\_\_/,
                              &Apache::lonnet::ssi(
         '/res/msu/korte/junk.assesscalc',('utarget' => 'export',
                                           'uname'   => $uname,
@@ -782,16 +828,19 @@ sub rowazstudent {
 			                  'usymb'   => $f{$_})));
               my $index=0;
               map {
-		  $c{$_.$row}=$assessdata[$index];
-		  print $_.':'.$c{$_.$row}.'<br>';
+                  if ($assessdata[$index]) {
+		     $c{$_.$row}=$assessdata[$index];
+                     unless ($_ eq 'A') { 
+			 $f{$_.$row}='import';
+                     }
+		  }
                   $index++;
               } ('A','B','C','D','E','F','G','H','I','J','K','L','M',
                  'N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
-              
 	   }
         }
     } keys %f;
-
+    &setformulas($safeeval,%f);
     &setconstants($safeeval,%c);
 }
 
@@ -1041,7 +1090,10 @@ ENDSCRIPT
     } elsif  (&gettype($sheetone) eq 'studentcalc') {
 	&rowazstudent($sheetone);
     }
-    &calcsheet($sheetone);
+    my $calcoutput=&calcsheet($sheetone);
+    unless ($reroute) {
+       $r->print('<h3><font color=red>'.$calcoutput.'</h3></font>');
+    }
 
 # ------------------------------------------------------- Print or export sheet
    unless ($reroute) {   
@@ -1049,7 +1101,7 @@ ENDSCRIPT
 
     $r->print('</form></body></html>');
   } else {
-      $r->print(&exportrow($sheetone));
+     $r->print(&exportrow($sheetone));
   }
 # ------------------------------------------------------------------------ Done
   } else {