[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.21 and 1.22

version 1.21, 2000/12/30 19:59:18 version 1.22, 2000/12/30 21:33:11
Line 650  sub writesheet { Line 650  sub writesheet {
               &getfilename($safeeval).':'.                &getfilename($safeeval).':'.
               $sheetdata,                $sheetdata,
               $ENV{'course.'.$ENV{'request.course.id'}.'.home'});                $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
   }         if ($reply eq 'ok') {
             return &Apache::lonnet::reply('put:'.
                 $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
                 $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':'.
                 &gettype($safeeval).'_spreadsheets:'.
                 &Apache::lonnet::escape(&getfilename($safeeval)).'='.
                 $ENV{'user.name'},
                 $ENV{'course.'.$ENV{'request.course.id'}.'.home'});    
         } else {
     return $reply;
         }
     }
     return 'unauthorized';
 }  }
   
 # ----------------------------------------------- Make a temp copy of the sheet  # ----------------------------------------------- Make a temp copy of the sheet
Line 684  sub tmpread { Line 696  sub tmpread {
             $fo{$name}=$value;              $fo{$name}=$value;
         }          }
     }      }
     $fo{$nfield}=$nform;      if ($nfield) { $fo{$nfield}=$nform; }
     &setformulas($safeeval,%fo);      &setformulas($safeeval,%fo);
 }  }
   
Line 1125  ENDSCRIPT Line 1137  ENDSCRIPT
     if ($ENV{'form.unewfield'}) {      if ($ENV{'form.unewfield'}) {
         $r->print('<h2>Modified Workcopy</h2>');          $r->print('<h2>Modified Workcopy</h2>');
         $ENV{'form.unewformula'}=~s/\'/\"/g;          $ENV{'form.unewformula'}=~s/\'/\"/g;
         $r->print('New formula: '.$ENV{'form.unewfield'}.'='.          $r->print('<p>New formula: '.$ENV{'form.unewfield'}.'='.
                   $ENV{'form.unewformula'}.'<br>');                    $ENV{'form.unewformula'}.'<p>');
         &setfilename($sheetone,$ENV{'form.ufn'});          &setfilename($sheetone,$ENV{'form.ufn'});
  &tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',   &tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',
                  $ENV{'form.usymb'},                   $ENV{'form.usymb'},
                  $ENV{'form.unewfield'},$ENV{'form.unewformula'});                   $ENV{'form.unewfield'},$ENV{'form.unewformula'});
       } elsif ($ENV{'form.saveas'}) {
           &setfilename($sheetone,$ENV{'form.ufn'});
    &tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/',
                    $ENV{'form.usymb'});
     } else {      } else {
         &readsheet($sheetone,$ENV{'form.ufn'},$r);          &readsheet($sheetone,$ENV{'form.ufn'},$r);
         $ENV{'form.ufn'}=&getfilename($sheetone);          $ENV{'form.ufn'}=&getfilename($sheetone);
Line 1151  ENDSCRIPT Line 1167  ENDSCRIPT
        $r->print('<h3><font color=red>'.         $r->print('<h3><font color=red>'.
    'Could not initialize import fields (not in a course)</font></h3>');     'Could not initialize import fields (not in a course)</font></h3>');
    }     }
   # ---------------------------------------------------- See if something to save
       if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
           my $fname='';
    if ($ENV{'form.saveas'} && ($fname=$ENV{'form.newfn'})) {
               $fname=~s/\W/\_/g;
               if ($fname eq 'default') { $fname='course_default'; }
               $fname.='_'.&gettype($sheetone);
               &setfilename($sheetone,$fname);
               $ENV{'form.ufn'}=$fname;
               my $reply=&writesheet($sheetone);
               unless ($reroute) {
    $r->print('<p>Saving spreadsheet: '.$reply.'<p>');
               }
           }
       }
 # ------------------------------------------------ Write the modified worksheet  # ------------------------------------------------ Write the modified worksheet
   
    &tmpwrite($sheetone,$r->dir_config('lonDaemons').'/tmp/',     &tmpwrite($sheetone,$r->dir_config('lonDaemons').'/tmp/',
Line 1159  ENDSCRIPT Line 1189  ENDSCRIPT
   
 # ----------------------------------------------------- Print user, course, etc  # ----------------------------------------------------- Print user, course, etc
    unless ($reroute) {     unless ($reroute) {
       if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
           my $fname=$ENV{'form.ufn'};
           $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>');
       }
     $r->print(&hiddenfield('ufn',$ENV{'form.ufn'}).      $r->print(&hiddenfield('ufn',$ENV{'form.ufn'}).
               "<b>User '$uname' at domain '$udom' for '".                "<b>User '$uname' at domain '$udom' for '".
               $ENV{'course.'.$ENV{'request.course.id'}.'.description'}."'");                $ENV{'course.'.$ENV{'request.course.id'}.'.description'}."'");
Removed from v.1.21  
changed lines
  Added in v.1.22

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