--- loncom/interface/Attic/lonspreadsheet.pm	2001/01/01 19:28:37	1.24
+++ loncom/interface/Attic/lonspreadsheet.pm	2001/01/01 20:25:57	1.25
@@ -1283,6 +1283,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\:/) {
+	       $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 +1334,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 +1360,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') {