--- loncom/interface/Attic/lonspreadsheet.pm	2001/01/01 19:28:37	1.24
+++ loncom/interface/Attic/lonspreadsheet.pm	2001/01/01 20:52:10	1.26
@@ -1051,8 +1051,7 @@ sub rowazclass {
                              &Apache::lonnet::ssi(
                       '/adm/studentcalc',('utarget' => 'export',
                                           'uname'   => $tname,
-                                          'udom'    => $tdom,
-			                  'usymb'   => $f{$_})));
+                                          'udom'    => $tdom)));
               my $index=0;
               map {
                   if ($assessdata[$index]) {
@@ -1283,6 +1282,20 @@ ENDSCRIPT
 	&tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',
                  $ENV{'form.usymb'});
     } else {
+        unless ($ENV{'form.ufn'}) {
+           my $reply=&Apache::lonnet::reply('get:'.
+                     $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
+                     $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.
+                     ':environment:spreadsheet_default_'.
+                     &gettype($sheetone),
+                     $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
+           unless (($reply=~/^error\:/) || ($reply eq '')) {
+	       $ENV{'form.ufn'}=$reply;
+               unless ($reroute) {
+                  $r->print('<p>Using customized default spreadsheet<p>');
+	       }
+           }
+        }
         &readsheet($sheetone,$ENV{'form.ufn'},$r);
         $ENV{'form.ufn'}=&getfilename($sheetone);
     }
@@ -1320,6 +1333,18 @@ ENDSCRIPT
             unless ($reroute) {
 		$r->print('<p>Saving spreadsheet: '.$reply.'<p>');
             }
+            if ($ENV{'form.makedefufn'}) {
+                my $reply=&Apache::lonnet::reply('put:'.
+                     $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
+                     $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.
+                     ':environment:spreadsheet_default_'.
+                     &gettype($sheetone).'='.
+                     &Apache::lonnet::escape($fname),
+                     $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
+               unless ($reroute) {
+	           $r->print('<p>Making default spreadsheet: '.$reply.'<p>');
+               }
+            }
         }
     }
 # ------------------------------------------------ Write the modified worksheet
@@ -1334,7 +1359,8 @@ ENDSCRIPT
         $fname=~s/\_[^\_]+$//;
         if ($fname eq 'default') { $fname='course_default'; }
         $r->print('<input type=submit name=saveas value="Save as ...">'.
-              '<input type=text size=20 name=newfn value="'.$fname.'"><p>');
+              '<input type=text size=20 name=newfn value="'.$fname.
+              '"> (make default: <input type=checkbox name="makedefufn">)<p>');
     }
     $r->print(&hiddenfield('ufn',$ENV{'form.ufn'}));
     unless (&gettype($sheetone) eq 'classcalc') {
@@ -1352,6 +1378,8 @@ ENDSCRIPT
 	&rowaassess($sheetone,$ENV{'form.usymb'});
     } elsif  (&gettype($sheetone) eq 'studentcalc') {
 	&rowazstudent($sheetone);
+    } else {
+        &rowazclass($sheetone);
     }
     my $calcoutput=&calcsheet($sheetone);
     unless ($reroute) {