[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.13 and 1.14

version 1.13, 2000/12/11 18:33:24 version 1.14, 2000/12/11 22:25:35
Line 318  sub outrow { Line 318  sub outrow {
     return @cols;      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"  # ------------------------------------------- End of "Inside of the safe space"
 ENDDEFS  ENDDEFS
     $safeeval->reval($code);      $safeeval->reval($code);
Line 406  sub getfilename { Line 416  sub getfilename {
     my $safeeval=shift;      my $safeeval=shift;
     return $safeeval->reval('$filename');      return $safeeval->reval('$filename');
 }  }
       
   # ------------------------------------------------------------- Export of A-row
   
   sub exportrow {
       my $safeeval=shift;
       return $safeeval->reval('&exportrowa()');
   }
   
 # ========================================================== End of Spreadsheet  # ========================================================== End of Spreadsheet
 # =============================================================================  # =============================================================================
   
Line 837  sub selectbox { Line 854  sub selectbox {
     return $selout.'</select>';      return $selout.'</select>';
 }  }
   
 # ==================================== Sub handler to get export of assessments  
   
 # ================================================================ Main handler  # ================================================================ Main handler
   
 sub handler {  sub handler {
Line 880  sub handler { Line 895  sub handler {
         $uname=$ENV{'form.uname'};          $uname=$ENV{'form.uname'};
         $udom=$ENV{'form.udom'};          $udom=$ENV{'form.udom'};
     }      }
   # ----------------------------------------------------------- Change of target?
   
       my $reroute=($ENV{'utarget'} eq 'export');
   
 # ------------------------------------------------------------------- Open page  # ------------------------------------------------------------------- Open page
   
     $r->content_type('text/html');      $r->content_type('text/html');
Line 887  sub handler { Line 906  sub handler {
     $r->header_out('Pragma','no-cache');      $r->header_out('Pragma','no-cache');
     $r->send_http_header;      $r->send_http_header;
   
   # --------------------------------------------------------------- Screen output
   
     unless ($reroute) {
     $r->print('<html><head><title>LON-CAPA Spreadsheet</title>');      $r->print('<html><head><title>LON-CAPA Spreadsheet</title>');
     $r->print(<<ENDSCRIPT);      $r->print(<<ENDSCRIPT);
 <script language="JavaScript">  <script language="JavaScript">
Line 909  ENDSCRIPT Line 931  ENDSCRIPT
        &hiddenfield('usymb',$ENV{'form.usymb'}).         &hiddenfield('usymb',$ENV{'form.usymb'}).
        &hiddenfield('unewfield','').         &hiddenfield('unewfield','').
        &hiddenfield('unewformula',''));         &hiddenfield('unewformula',''));
     }
   
   # ---------------------------------------- Read new sheet or modified worksheet
   
     my $sheetone=initsheet();      my $sheetone=initsheet();
     if ($ENV{'form.unewfield'}) {      if ($ENV{'form.unewfield'}) {
         $r->print('<h2>Modified Workcopy</h2>');          $r->print('<h2>Modified Workcopy</h2>');
Line 924  ENDSCRIPT Line 950  ENDSCRIPT
     } else {      } else {
         &readsheet($sheetone,$r->filename);          &readsheet($sheetone,$r->filename);
     }      }
   
   # --------------------------------------------- See if all import rows uptodate
   
     if (tie(%parmhash,'GDBM_File',      if (tie(%parmhash,'GDBM_File',
        $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640)) {         $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640)) {
        $csec=&Apache::lonnet::usection($udom,$uname,$ENV{'request.course.id'});         $csec=&Apache::lonnet::usection($udom,$uname,$ENV{'request.course.id'});
Line 937  ENDSCRIPT Line 966  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>');
    }     }
   
   # ------------------------------------------------ Write the modified worksheet
   
    &tmpwrite($sheetone,$r->dir_config('lonDaemons').'/tmp/',     &tmpwrite($sheetone,$r->dir_config('lonDaemons').'/tmp/',
               $ENV{'form.usymb'});                $ENV{'form.usymb'});
   
   # ----------------------------------------------------- Print user, course, etc
      unless ($reroute) {
     $r->print("<b>User '$uname' at domain '$udom' for '".      $r->print("<b>User '$uname' at domain '$udom' for '".
               $ENV{'course.'.$ENV{'request.course.id'}.'.description'}."'");                $ENV{'course.'.$ENV{'request.course.id'}.'.description'}."'");
     if ($csec) {      if ($csec) {
        $r->print(", group/section '$csec'");         $r->print(", group/section '$csec'");
     }      }
     $r->print("</b>\n");      $r->print("</b>\n");
      }
   # -------------------------------------------------------- Import and calculate
   
     if (&gettype($sheetone) eq 'assesscalc') {      if (&gettype($sheetone) eq 'assesscalc') {
  &rowaassess($sheetone,$ENV{'form.usymb'});   &rowaassess($sheetone,$ENV{'form.usymb'});
     }      }
     &calcsheet($sheetone);      &calcsheet($sheetone);
   
   # ------------------------------------------------------- Print or export sheet
      unless ($reroute) {   
     $r->print(&outsheet($sheetone));      $r->print(&outsheet($sheetone));
   
     $r->print('</form></body></html>');      $r->print('</form></body></html>');
     } else {
         $r->print(&exportrow($sheetone));
     }
   # ------------------------------------------------------------------------ Done
   } else {    } else {
 # ----------------------------- Not in a course, or not allowed to modify parms  # ----------------------------- Not in a course, or not allowed to modify parms
       $ENV{'user.error.msg'}=        $ENV{'user.error.msg'}=
Removed from v.1.13  
changed lines
  Added in v.1.14

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