[BACK]Return to lonspreadsheet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.24 and 1.25

version 1.24, 2001/01/01 19:28:37 version 1.25, 2001/01/01 20:25:57
Line 1283  ENDSCRIPT Line 1283  ENDSCRIPT
  &tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',   &tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',
                  $ENV{'form.usymb'});                   $ENV{'form.usymb'});
     } else {      } 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);          &readsheet($sheetone,$ENV{'form.ufn'},$r);
         $ENV{'form.ufn'}=&getfilename($sheetone);          $ENV{'form.ufn'}=&getfilename($sheetone);
     }      }
Line 1320  ENDSCRIPT Line 1334  ENDSCRIPT
             unless ($reroute) {              unless ($reroute) {
  $r->print('<p>Saving spreadsheet: '.$reply.'<p>');   $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  # ------------------------------------------------ Write the modified worksheet
Line 1334  ENDSCRIPT Line 1360  ENDSCRIPT
         $fname=~s/\_[^\_]+$//;          $fname=~s/\_[^\_]+$//;
         if ($fname eq 'default') { $fname='course_default'; }          if ($fname eq 'default') { $fname='course_default'; }
         $r->print('<input type=submit name=saveas value="Save as ...">'.          $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'}));      $r->print(&hiddenfield('ufn',$ENV{'form.ufn'}));
     unless (&gettype($sheetone) eq 'classcalc') {      unless (&gettype($sheetone) eq 'classcalc') {
Removed from v.1.24  
changed lines
  Added in v.1.25

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>