--- loncom/interface/Attic/lonspreadsheet.pm	2000/12/11 15:33:58	1.11
+++ loncom/interface/Attic/lonspreadsheet.pm	2000/12/11 22:25:35	1.14
@@ -318,6 +318,16 @@ sub outrow {
     return @cols;
 }
 
+sub exportrowa {
+    my $rowa='';
+    map {
+	$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/\'\,\'$//;
+    return $rowa;
+}
+
 # ------------------------------------------- End of "Inside of the safe space"
 ENDDEFS
     $safeeval->reval($code);
@@ -406,7 +416,14 @@ sub getfilename {
     my $safeeval=shift;
     return $safeeval->reval('$filename');
 }
-    
+
+# ------------------------------------------------------------- Export of A-row
+
+sub exportrow {
+    my $safeeval=shift;
+    return $safeeval->reval('&exportrowa()');
+}
+
 # ========================================================== End of Spreadsheet
 # =============================================================================
 
@@ -567,6 +584,9 @@ sub parmval {
 
     my ($mapname,$id,$fn)=split(/\_\_\_/,$symb);
 # ----------------------------------------------------- Cascading lookup scheme
+       my $rwhat=$what;
+       $what=~s/^parameter\_//;
+       $what=~s/\_/\./;
 
        my $symbparm=$symb.'.'.$what;
        my $mapparm=$mapname.'___(all).'.$what;
@@ -587,6 +607,7 @@ sub parmval {
             $ENV{'request.course.id'}.'.'.$symbparm;
        my $courselevelm=
             $ENV{'request.course.id'}.'.'.$mapparm;
+
 # ---------------------------------------------------------- fourth, check user
       
       if ($uname) { 
@@ -624,7 +645,7 @@ sub parmval {
 
 # -------------------------------------------------------- first, check default
 
-       return &Apache::lonnet::metadata($fn,$what.'.default');
+       return &Apache::lonnet::metadata($fn,$rwhat.'.default');
         
 }
 
@@ -758,13 +779,15 @@ sub rowaassess {
     my $uhome=&Apache::lonnet::homeserver($uname,$udom);
     unless ($uhome eq 'no_host') { 
 # -------------------------------------------------------------- Get coursedata
-      unless ($courserdatas{$ENV{'request.course.id'}}) {
+      unless
+        ((time-$courserdatas{$ENV{'request.course.id'}.'.last_cache'})<120) {
          my $reply=&Apache::lonnet::reply('dump:'.
               $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
               $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata',
               $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
          if ($reply!~/^error\:/) {
             $courserdatas{$ENV{'request.course.id'}}=$reply;
+            $courserdatas{$ENV{'request.course.id'}.'.last_cache'}=time;
          }
       }
       map {
@@ -773,11 +796,13 @@ sub rowaassess {
                     &Apache::lonnet::unescape($value);  
       } split(/\&/,$courserdatas{$ENV{'request.course.id'}});
 # --------------------------------------------------- Get userdata (if present)
-      unless ($userrdatas{$uname.'___'.$udom}) {
+      unless
+        ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<120) {
          my $reply=
        &Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);
          if ($reply!~/^error\:/) {
 	     $userrdatas{$uname.'___'.$udom}=$reply;
+	     $userrdatas{$uname.'___'.$udom.'.last_cache'}=time;
          }
       }
       map {
@@ -829,7 +854,7 @@ sub selectbox {
     return $selout.'</select>';
 }
 
-# ---------------------------------------------------------------- Main handler
+# ================================================================ Main handler
 
 sub handler {
     my $r=shift;
@@ -870,6 +895,10 @@ sub handler {
         $uname=$ENV{'form.uname'};
         $udom=$ENV{'form.udom'};
     }
+# ----------------------------------------------------------- Change of target?
+
+    my $reroute=($ENV{'utarget'} eq 'export');
+
 # ------------------------------------------------------------------- Open page
 
     $r->content_type('text/html');
@@ -877,6 +906,9 @@ sub handler {
     $r->header_out('Pragma','no-cache');
     $r->send_http_header;
 
+# --------------------------------------------------------------- Screen output
+
+  unless ($reroute) {
     $r->print('<html><head><title>LON-CAPA Spreadsheet</title>');
     $r->print(<<ENDSCRIPT);
 <script language="JavaScript">
@@ -899,6 +931,10 @@ ENDSCRIPT
        &hiddenfield('usymb',$ENV{'form.usymb'}).
        &hiddenfield('unewfield','').
        &hiddenfield('unewformula',''));
+  }
+
+# ---------------------------------------- Read new sheet or modified worksheet
+
     my $sheetone=initsheet();
     if ($ENV{'form.unewfield'}) {
         $r->print('<h2>Modified Workcopy</h2>');
@@ -914,6 +950,9 @@ ENDSCRIPT
     } else {
         &readsheet($sheetone,$r->filename);
     }
+
+# --------------------------------------------- See if all import rows uptodate
+
     if (tie(%parmhash,'GDBM_File',
        $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640)) {
        $csec=&Apache::lonnet::usection($udom,$uname,$ENV{'request.course.id'});
@@ -927,22 +966,37 @@ ENDSCRIPT
        $r->print('<h3><font color=red>'.
 	   'Could not initialize import fields (not in a course)</font></h3>');
    }
+
+# ------------------------------------------------ Write the modified worksheet
+
    &tmpwrite($sheetone,$r->dir_config('lonDaemons').'/tmp/',
               $ENV{'form.usymb'});
+
+# ----------------------------------------------------- Print user, course, etc
+   unless ($reroute) {
     $r->print("<b>User '$uname' at domain '$udom' for '".
               $ENV{'course.'.$ENV{'request.course.id'}.'.description'}."'");
     if ($csec) {
        $r->print(", group/section '$csec'");
     }
     $r->print("</b>\n");
+   }
+# -------------------------------------------------------- Import and calculate
+
     if (&gettype($sheetone) eq 'assesscalc') {
 	&rowaassess($sheetone,$ENV{'form.usymb'});
     }
     &calcsheet($sheetone);
+
+# ------------------------------------------------------- Print or export sheet
+   unless ($reroute) {   
     $r->print(&outsheet($sheetone));
 
     $r->print('</form></body></html>');
-
+  } else {
+      $r->print(&exportrow($sheetone));
+  }
+# ------------------------------------------------------------------------ Done
   } else {
 # ----------------------------- Not in a course, or not allowed to modify parms
       $ENV{'user.error.msg'}=