[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.24

version 1.21, 2000/12/30 19:59:18 version 1.24, 2001/01/01 19:28:37
Line 2 Line 2
 # Spreadsheet/Grades Display Handler  # Spreadsheet/Grades Display Handler
 #  #
 # 11/11,11/15,11/27,12/04,12/05,12/06,12/07,  # 11/11,11/15,11/27,12/04,12/05,12/06,12/07,
 # 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30 Gerd Kortemeyer  # 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30,
   # 01/01/01 Gerd Kortemeyer
   
 package Apache::lonspreadsheet;  package Apache::lonspreadsheet;
   
Line 495  sub exportrow { Line 496  sub exportrow {
 sub rown {  sub rown {
     my ($safeeval,$n)=@_;      my ($safeeval,$n)=@_;
     my $defaultbg;      my $defaultbg;
       my $rowdata='';
     unless ($n eq '-') {      unless ($n eq '-') {
        $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';         $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';
     } else {      } else {
        $defaultbg='#E0FF';         $defaultbg='#E0FF';
     }      }
     my $rowdata="\n<tr><td><b><font size=+1>$n</font></b></td>";      if ((($n-1)/25)==int(($n-1)/25)) {
           my $what='Student';
           if (&gettype($safeeval) eq 'assesscalc') {
       $what='Item';
    } elsif (&gettype($safeeval) eq 'studentcalc') {
               $what='Assessment';
           }
    $rowdata.="</table>\n<br><table border=2>".
           '<tr><td>&nbsp;<td>'.$what.'</td>';
           map {
              $rowdata.='<td>'.$_.'</td>';
           } ('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',
              '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');
           $rowdata.='</tr>';
       }
       $rowdata.="\n<tr><td><b><font size=+1>$n</font></b></td>";
     my $showf=0;      my $showf=0;
     my $proc;      my $proc;
     my $maxred;      my $maxred;
Line 536  sub rown { Line 555  sub rown {
 # ------------------------------------------------------------- Print out sheet  # ------------------------------------------------------------- Print out sheet
   
 sub outsheet {  sub outsheet {
     my $safeeval=shift;      my ($r,$safeeval)=@_;
     my $maxred;      my $maxred;
     my $realm;      my $realm;
     if (&gettype($safeeval) eq 'assesscalc') {      if (&gettype($safeeval) eq 'assesscalc') {
Line 550  sub outsheet { Line 569  sub outsheet {
         $realm='Course';          $realm='Course';
     }      }
     my $maxyellow=52-$maxred;      my $maxyellow=52-$maxred;
     my $tabledata='<table border=2><tr><th colspan=2 rowspan=2><font size=+2>'.      my $tabledata=
           '<table border=2><tr><th colspan=2 rowspan=2><font size=+2>'.
                   $realm.'</font></th>'.                    $realm.'</font></th>'.
                   '<td bgcolor=#FFDDDD colspan='.$maxred.                    '<td bgcolor=#FFDDDD colspan='.$maxred.
                   '><b><font size=+1>Import</font></b></td>'.                    '><b><font size=+1>Import</font></b></td>'.
Line 573  sub outsheet { Line 593  sub outsheet {
     my $row;      my $row;
     my $maxrow=&getmaxrow($safeeval);      my $maxrow=&getmaxrow($safeeval);
     $tabledata.=&rown($safeeval,'-');      $tabledata.=&rown($safeeval,'-');
       $r->print($tabledata);
     for ($row=0;$row<=$maxrow;$row++) {      for ($row=0;$row<=$maxrow;$row++) {
         $tabledata.=&rown($safeeval,$row);          $r->print(&rown($safeeval,$row));
     }      }
     $tabledata.='</table>';      $r->print('</table>');
 }  }
   
   
Line 650  sub writesheet { Line 671  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 717  sub tmpread {
             $fo{$name}=$value;              $fo{$name}=$value;
         }          }
     }      }
     $fo{$nfield}=$nform;      if ($nfield) { $fo{$nfield}=$nform; }
     &setformulas($safeeval,%fo);      &setformulas($safeeval,%fo);
 }  }
   
Line 791  sub parmval { Line 824  sub parmval {
                   
 }  }
   
   # ---------------------------------------------- Update rows for course listing
   
   sub updatestudentrows {
       my $safeeval=shift;
       my $cid=$ENV{'request.course.id'};
       my $classlst=&Apache::lonnet::reply
                    ('dump:'.$ENV{'course.'.$cid.'.domain'}.':'.
                     $ENV{'course.'.$cid.'.num'}.':classlist',
                     $ENV{'course.'.$cid.'.home'});
       my %currentlist=();
       my $now=time;
       unless ($classlst=~/^error\:/) {
           map {
               my ($name,$value)=split(/\=/,$_);
               my ($end,$start)=split(/\:/,&Apache::lonnet::unescape($value));
               my $active=1;
               if (($end) && ($now>$end)) { $active=0; }
               if ($active) {
                   my $rowlabel='';
                   $name=&Apache::lonnet::unescape($name);
                   my ($cname,$cdom)=split(/\:/,$name);
                   my $csec=
                &Apache::lonnet::usection($cdom,$cname,$ENV{'request.course.id'});
                   if ($csec==-1) {
                       $rowlabel='<font color=red>Data not available: '.$name.
         '</font>';
                   } else {
                       my %reply=&Apache::lonnet::idrget($cdom,$cname);
                       my $reply=&Apache::lonnet::reply('get:'.$cdom.':'.$cname.
         ':environment:firstname&middlename&lastname&generation',
                         &Apache::lonnet::homeserver($cname,$cdom));
                       $rowlabel=$csec.'&nbsp;'.$reply{$cname}.'<br>';
                       map {
                           $rowlabel.=&Apache::lonnet::unescape($_).' ';
                       } split(/\&/,$reply);
                   }
                  
    $currentlist{&Apache::lonnet::unescape($name)}=$rowlabel;
               }
           } split(/\&/,$classlst);
   #
   # -------------------- Find discrepancies between the course row table and this
   #
           my %f=&getformulas($safeeval);
           my $changed=0;
   
           my $maxrow=0;
           my %existing=();
   
   # ----------------------------------------------------------- Now obsolete rows
    map {
       if ($_=~/^A(\d+)/) {
                   $maxrow=($1>$maxrow)?$1:$maxrow;
                   $existing{$f{$_}}=1;
    unless ((defined($currentlist{$f{$_}})) || (!$1)) {
      $f{$_}='!!! Obsolete';
                      $changed=1;
                   }
               }
           } keys %f;
   
   # -------------------------------------------------------- New and unknown keys
        
           map {
               unless ($existing{$_}) {
    $changed=1;
                   $maxrow++;
                   $f{'A'.$maxrow}=$_;
               }
           } sort keys %currentlist;        
        
           if ($changed) { &setformulas($safeeval,%f); }
   
           &setmaxrow($safeeval,$maxrow);
           &setrowlabels($safeeval,%currentlist);
   
       } else {
           return 'Could not access course data';
       }
   }
 # ----------------------------------------------------------------- Update rows  # ----------------------------------------------------------------- Update rows
   
 sub updaterows {  sub updaterows {
Line 890  sub updaterows { Line 1002  sub updaterows {
     }      }
 }  }
   
 # --------------------------------------------------- Load data for one student  # ------------------------------------------------ Load data for one assessment
   
 sub rowazstudent {  sub rowazstudent {
     my $safeeval=shift;      my $safeeval=shift;
Line 902  sub rowazstudent { Line 1014  sub rowazstudent {
            unless ($f{$_}=~/^\!/) {             unless ($f{$_}=~/^\!/) {
               my @assessdata=split(/\_\_\_\;\_\_\_/,                my @assessdata=split(/\_\_\_\;\_\_\_/,
                              &Apache::lonnet::ssi(                               &Apache::lonnet::ssi(
         '/res/msu/korte/junk.assesscalc',('utarget' => 'export',                         '/adm/assesscalc',('utarget' => 'export',
                                           'uname'   => $uname,                                            'uname'   => $uname,
                                           'udom'    => $udom,                                            'udom'    => $udom,
                   'usymb'   => $f{$_})));                    'usymb'   => $f{$_})));
Line 924  sub rowazstudent { Line 1036  sub rowazstudent {
     &setconstants($safeeval,%c);      &setconstants($safeeval,%c);
 }  }
   
   # --------------------------------------------------- Load data for one student
   
   sub rowazclass {
       my $safeeval=shift;
       my %c=();
       my %f=&getformulas($safeeval);
       map {
    if ($_=~/^A(\d+)/) {
      my $row=$1;
              unless ($f{$_}=~/^\!/) {
         my ($tname,$tdom)=split(/\:/,$_);
                 my @assessdata=split(/\_\_\_\;\_\_\_/,
                                &Apache::lonnet::ssi(
                         '/adm/studentcalc',('utarget' => 'export',
                                             'uname'   => $tname,
                                             'udom'    => $tdom,
                     'usymb'   => $f{$_})));
                 my $index=0;
                 map {
                     if ($assessdata[$index]) {
        $c{$_.$row}=$assessdata[$index];
                        unless ($_ eq 'A') { 
    $f{$_.$row}='import';
                        }
     }
                     $index++;
                 } ('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');
      }
           }
       } keys %f;
       &setformulas($safeeval,%f);
       &setconstants($safeeval,%c);
   }
   
 # ------------------------------------------------ Load data for one assessment  # ------------------------------------------------ Load data for one assessment
   
 sub rowaassess {  sub rowaassess {
Line 1116  ENDSCRIPT Line 1263  ENDSCRIPT
        &hiddenfield('unewfield','').         &hiddenfield('unewfield','').
        &hiddenfield('unewformula',''));         &hiddenfield('unewformula',''));
   }    }
       $r->rflush();
 # ---------------------------------------- Read new sheet or modified worksheet  # ---------------------------------------- Read new sheet or modified worksheet
   
     my $sheetone=initsheet();      my $sheetone=initsheet();
Line 1125  ENDSCRIPT Line 1272  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);
     }      }
   
 # --------------------------------------------- See if all import rows uptodate    if (&gettype($sheetone) eq 'classcalc') {
   # ---------------------------------- For course view: get courselist and update
          &updatestudentrows($sheetone);
     } else {
   # ----------------- For assessment and student: 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)) {
Line 1151  ENDSCRIPT Line 1306  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 1329  ENDSCRIPT
   
 # ----------------------------------------------------- Print user, course, etc  # ----------------------------------------------------- Print user, course, etc
    unless ($reroute) {     unless ($reroute) {
     $r->print(&hiddenfield('ufn',$ENV{'form.ufn'}).      if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
               "<b>User '$uname' at domain '$udom' for '".          my $fname=$ENV{'form.ufn'};
               $ENV{'course.'.$ENV{'request.course.id'}.'.description'}."'");          $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'}));
       unless (&gettype($sheetone) eq 'classcalc') {
           $r->print('<br><b>User:</b> '.$uname.'<br><b>Domain:</b> '.$udom);
       }
       $r->print('<h1>'.
               $ENV{'course.'.$ENV{'request.course.id'}.'.description'}.'</h1>');
     if ($csec) {      if ($csec) {
        $r->print(", group/section '$csec'");         $r->print('<h3>Group/Section: '.$csec.'</h3>');
     }      }
     $r->print("</b>\n");  
    }     }
 # -------------------------------------------------------- Import and calculate  # -------------------------------------------------------- Import and calculate
   
Line 1181  ENDSCRIPT Line 1360  ENDSCRIPT
   
 # ------------------------------------------------------- Print or export sheet  # ------------------------------------------------------- Print or export sheet
    unless ($reroute) {        unless ($reroute) {   
     $r->print(&outsheet($sheetone));      &outsheet($r,$sheetone);
   
     $r->print('</form></body></html>');      $r->print('</form></body></html>');
   } else {    } else {
Removed from v.1.21  
changed lines
  Added in v.1.24

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