[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.104 and 1.108

version 1.104, 2002/08/30 19:47:47 version 1.108, 2002/09/09 17:18:33
Line 1194  sub rown { Line 1194  sub rown {
     my $rowdata='';      my $rowdata='';
     my $dataflag=0;      my $dataflag=0;
     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';
     }      }
     unless ($ENV{'form.showcsv'}) {      unless ($ENV{'form.showcsv'}) {
        $rowdata.="\n<tr><td><b><font size=+1>$n</font></b></td>";          $rowdata.="\n<tr><td><b><font size=+1>$n</font></b></td>";
     } else {      } else {
        $rowdata.="\n".'"'.$n.'"';          $rowdata.="\n".'"'.$n.'"';
     }      }
     my $showf=0;      my $showf=0;
     my $proc;      my $proc;
Line 1225  sub rown { Line 1225  sub rown {
         $dataflag=1;           $dataflag=1; 
     }      }
     foreach ($safeeval->reval($proc.'('.$n.')')) {      foreach ($safeeval->reval($proc.'('.$n.')')) {
        my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');          my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');
        my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);          my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);
        if ((($vl ne '') || ($vl eq '0')) &&          if ((($vl ne '') || ($vl eq '0')) &&
            (($showf==1) || ($sheettype ne 'studentcalc'))) { $dataflag=1; }              (($showf==1) || ($sheettype ne 'studentcalc'))) { $dataflag=1; }
        if ($showf==0) { $vl=$_; }          if ($showf==0) { $vl=$_; }
       unless ($ENV{'form.showcsv'}) {          unless ($ENV{'form.showcsv'}) {
        if ($showf<=$maxred) { $bgcolor='#FFDDDD'; }              if ($showf<=$maxred) { $bgcolor='#FFDDDD'; }
        if (($n==0) && ($showf<=26)) { $bgcolor='#CCCCFF'; }               if (($n==0) && ($showf<=26)) { $bgcolor='#CCCCFF'; } 
        if (($showf>$maxred) || ((!$n) && ($showf>0))) {              if (($showf>$maxred) || ((!$n) && ($showf>0))) {
    if ($vl eq '') {                  if ($vl eq '') {
        $vl='<font size=+2 color='.$bgcolor.'>&#35;</font>';                      $vl='<font size=+2 color='.$bgcolor.'>&#35;</font>';
            }                  }
            $rowdata.=                  $rowdata.='<td bgcolor='.$bgcolor.'>'.
        '<td bgcolor='.$bgcolor.'><a href="javascript:celledit('.$fm.');">'.$vl.                      '<a href="javascript:celledit('.$fm.');">'.$vl.'</a></td>';
        '</a></td>';              } else {
        } else {                  $rowdata.='<td bgcolor='.$bgcolor.'>&nbsp;'.$vl.'&nbsp;</td>';
            $rowdata.='<td bgcolor='.$bgcolor.'>&nbsp;'.$vl.'&nbsp;</td>';              }
        }          } else {
       } else {              $rowdata.=',"'.$vl.'"';
   $rowdata.=',"'.$vl.'"';          }
       }          $showf++;
        $showf++;  
     }  # End of foreach($safeval...)      }  # End of foreach($safeval...)
     if ($ENV{'form.showall'} || ($dataflag)) {      if ($ENV{'form.showall'} || ($dataflag)) {
        return $rowdata.($ENV{'form.showcsv'}?'':'</tr>');          return $rowdata.($ENV{'form.showcsv'}?'':'</tr>');
     } else {      } else {
        return '';          return '';
     }      }
 }  }
   
 # ------------------------------------------------------------- Print out sheet  # ------------------------------------------------------------- Print out sheet
   
 sub outsheet {  sub outsheet {
     my ($r,$safeeval)=@_;      my ($r,$safeeval,$sheetdata)=@_;
     my $maxred;      my $maxred = 26;    # The maximum number of cells to show as 
     my $realm;                          # red (uneditable) 
     if (&gettype($safeeval) eq 'assesscalc') {                          # To make student sheets uneditable could we 
                           # set $maxred = 52?
                           #
       my $realm='Course'; # 'assessment', 'user', or 'course' sheet
       if ($sheetdata->{'sheettype'} eq 'assesscalc') {
         $maxred=1;          $maxred=1;
         $realm='Assessment';          $realm='Assessment';
     } elsif (&gettype($safeeval) eq 'studentcalc') {      } elsif ($sheetdata->{'sheettype'} eq 'studentcalc') {
         $maxred=26;          $maxred=26;
         $realm='User';          $realm='User';
     } else {  
         $maxred=26;  
         $realm='Course';  
     }      }
     my $maxyellow=52-$maxred;      #
       # Column label
     my $tabledata;      my $tabledata;
     unless ($ENV{'form.showcsv'}) {      if ($ENV{'form.showcsv'}) {
        $tabledata=          $tabledata='<pre>';
         '<table border=2><tr><th colspan=2 rowspan=2><font size=+2>'.      } else { 
                   $realm.'</font></th>'.          $tabledata='<table border=2><tr><th colspan=2 rowspan=2>'.
               '<font size=+2>'.$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>'.
                   '<td colspan='.$maxyellow.                    '<td colspan='.(52-$maxred).
   '><b><font size=+1>Calculations</font></b></td></tr><tr>';    '><b><font size=+1>Calculations</font></b></td></tr><tr>';
        my $showf=0;          my $showf=0;
        foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',          foreach ('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',                   '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',                   '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') {                   'n','o','p','q','r','s','t','u','v','w','x','y','z') {
            $showf++;              $showf++;
            if ($showf<=$maxred) {               if ($showf<=$maxred) { 
                $tabledata.='<td bgcolor="#FFDDDD">';                   $tabledata.='<td bgcolor="#FFDDDD">'; 
            } else {              } else {
                $tabledata.='<td>';                  $tabledata.='<td>';
            }              }
            $tabledata.="<b><font size=+1>$_</font></b></td>";              $tabledata.="<b><font size=+1>$_</font></b></td>";
        }          }
        $tabledata.='</tr>'.&rown($safeeval,'-').&rown($safeeval,0);          $tabledata.='</tr>'.&rown($safeeval,'-').&rown($safeeval,0);
    } else { $tabledata='<pre>'; }      }
   
     $r->print($tabledata);      $r->print($tabledata);
       #
       # Prepare to output rows
     my $row;      my $row;
     my $maxrow=&getmaxrow($safeeval);      my $maxrow=&getmaxrow($safeeval);
       #
     my @sortby=();      my @sortby=();
     my @sortidx=();      my @sortidx=();
     for ($row=1;$row<=$maxrow;$row++) {      for ($row=1;$row<=$maxrow;$row++) {
        $sortby[$row-1]=$safeeval->reval('$f{"A'.$row.'"}');          push (@sortby, $safeeval->reval('$f{"A'.$row.'"}'));
        $sortidx[$row-1]=$row-1;          push (@sortidx, $row-1);
     }      }
     @sortidx=sort { $sortby[$a] cmp $sortby[$b]; } @sortidx;      @sortidx=sort { $sortby[$a] cmp $sortby[$b]; } @sortidx;
         my $what='Student';      #
         if (&gettype($safeeval) eq 'assesscalc') {      # Determine the type of child spreadsheets
     $what='Item';      my $what='Student';
  } elsif (&gettype($safeeval) eq 'studentcalc') {      if ($sheetdata->{'sheettype'} eq 'assesscalc') {
             $what='Assessment';          $what='Item';
         }      } elsif ($sheetdata->{'sheettype'} eq 'studentcalc') {
           $what='Assessment';
       }
       #
       # Loop through the rows and output them one at a time
     my $n=0;      my $n=0;
     for ($row=0;$row<$maxrow;$row++) {      for ($row=0;$row<$maxrow;$row++) {
         my $thisrow=&rown($safeeval,$sortidx[$row]+1);          my $thisrow=&rown($safeeval,$sortidx[$row]+1);
Line 1324  sub outsheet { Line 1329  sub outsheet {
                 $r->print("</table>\n<br>\n");                  $r->print("</table>\n<br>\n");
                 $r->rflush();                  $r->rflush();
                 $r->print('<table border=2><tr><td>&nbsp;<td>'.$what.'</td>');                  $r->print('<table border=2><tr><td>&nbsp;<td>'.$what.'</td>');
                 $r->print('<td>'.join('</td><td>',                  $r->print('<td>'.
                                       (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.                            join('</td><td>',
                                             'abcdefghijklmnopqrstuvwxyz'))).                                 (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
                                         'abcdefghijklmnopqrstuvwxyz'))).
                           "</td></tr>\n");                            "</td></tr>\n");
             }              }
             $n++;              $n++;
Line 1389  sub parse_sheet { Line 1395  sub parse_sheet {
 #  #
   
 sub readsheet {  sub readsheet {
     my ($safeeval,$fn)=@_;      my ($safeeval,$sheetdata,$fn)=@_;
     my $stype = &gettype($safeeval);      #
     my $cnum  = &getcnum($safeeval);      my $stype = $sheetdata->{'sheettype'};
     my $cdom  = &getcdom($safeeval);      my $cnum  = $sheetdata->{'cnum'};
     my $chome = &getchome($safeeval);      my $cdom  = $sheetdata->{'cdom'};
       my $chome = $sheetdata->{'chome'};
       #
     if (! defined($fn)) {      if (! defined($fn)) {
         # There is no filename. Look for defaults in course and global, cache          # There is no filename. Look for defaults in course and global, cache
         unless ($fn=$defaultsheets{$cnum.'_'.$cdom.'_'.$stype}) {          unless ($fn=$defaultsheets{$cnum.'_'.$cdom.'_'.$stype}) {
Line 1461  sub readsheet { Line 1468  sub readsheet {
   
 sub makenewsheet {  sub makenewsheet {
     my ($uname,$udom,$stype,$usymb)=@_;      my ($uname,$udom,$stype,$usymb)=@_;
       my %sheetdata=();
       $sheetdata{'uname'} = $uname;
       $sheetdata{'udom'}  = $udom;
       $sheetdata{'sheettype'} = $stype;
       $sheetdata{'usymb'} = $usymb;
       $sheetdata{'cid'}   = $ENV{'request.course.id'};
       $sheetdata{'csec'}  = &Apache::lonnet::usection
                                  ($udom,$uname,$ENV{'request.course.id'});
       $sheetdata{'cfn'}   = $ENV{'request.course.fn'};
       $sheetdata{'cnum'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
       $sheetdata{'cdom'}  = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
       $sheetdata{'chome'} = $ENV{'course.'.$ENV{'request.course.id'}.'.home'};
       $sheetdata{'uhome'} = &Apache::lonnet::homeserver($uname,$udom);
       
     my $safeeval=initsheet($stype);      my $safeeval=initsheet($stype);
     $safeeval->reval(      my $initstring = '';
        '$uname="'.$uname.      foreach (keys(%sheetdata)) {
       '";$udom="'.$udom.          $initstring.= qq{\$$_="$sheetdata{$_}";};
       '";$uhome="'.&Apache::lonnet::homeserver($uname,$udom).      }
       '";$sheettype="'.$stype.      $safeeval->reval($initstring);
       '";$usymb="'.$usymb.      return $safeeval,\%sheetdata;
       '";$csec="'.&Apache::lonnet::usection($udom,$uname,  
                                             $ENV{'request.course.id'}).  
       '";$cid="'.$ENV{'request.course.id'}.  
       '";$cfn="'.$ENV{'request.course.fn'}.  
       '";$cnum="'.$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.  
       '";$cdom="'.$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.  
       '";$chome="'.$ENV{'course.'.$ENV{'request.course.id'}.'.home'}.'";');  
     return $safeeval;  
 }  }
   
 # ------------------------------------------------------------ Save spreadsheet  # ------------------------------------------------------------ Save spreadsheet
Line 1615  this user and course. Line 1628  this user and course.
 ##################################################  ##################################################
 ##################################################  ##################################################
 sub parmval {  sub parmval {
     my ($what,$safeeval)=@_;      my ($what,$safeeval,$sheetdata)=@_;
     my $symb  = &getusymb($safeeval);      my $symb  = $sheetdata->{'usymb'};
     unless ($symb) { return ''; }      unless ($symb) { return ''; }
     #      #
     my $cid   = &getcid($safeeval);      my $cid   = $sheetdata->{'cid'};
     my $csec  = &getcsec($safeeval);      my $csec  = $sheetdata->{'csec'};
     my $uname = &getuname($safeeval);      my $uname = $sheetdata->{'uname'};
     my $udom  = &getudom($safeeval);      my $udom  = $sheetdata->{'udom'};
     my $result='';      my $result='';
     #      #
     my ($mapname,$id,$fn)=split(/\_\_\_/,$symb);      my ($mapname,$id,$fn)=split(/\_\_\_/,$symb);
Line 1646  sub parmval { Line 1659  sub parmval {
     if ($uname) {       if ($uname) { 
         return $useropt{$courselevelr} if ($useropt{$courselevelr});          return $useropt{$courselevelr} if ($useropt{$courselevelr});
         return $useropt{$courselevelm} if ($useropt{$courselevelm});          return $useropt{$courselevelm} if ($useropt{$courselevelm});
         return $useropt{$courselevel} if ($useropt{$courselevel});          return $useropt{$courselevel}  if ($useropt{$courselevel});
     }      }
     # third, check course      # third, check course
     if ($csec) {      if ($csec) {
         return $courseopt{$seclevelr} if ($courseopt{$seclevelr});          return $courseopt{$seclevelr} if ($courseopt{$seclevelr});
         return $courseopt{$seclevelm} if ($courseopt{$seclevelm});          return $courseopt{$seclevelm} if ($courseopt{$seclevelm});
         return $courseopt{$seclevel} if ($courseopt{$seclevel});          return $courseopt{$seclevel}  if ($courseopt{$seclevel});
     }      }
     #      #
     return $courseopt{$courselevelr} if ($courseopt{$courselevelr});      return $courseopt{$courselevelr} if ($courseopt{$courselevelr});
     return $courseopt{$courselevelm} if ($courseopt{$courselevelm});      return $courseopt{$courselevelm} if ($courseopt{$courselevelm});
     return $courseopt{$courselevel} if ($courseopt{$courselevel});      return $courseopt{$courselevel}  if ($courseopt{$courselevel});
     # second, check map parms      # second, check map parms
     my $thisparm = $parmhash{$symbparm};      my $thisparm = $parmhash{$symbparm};
     return $thisparm if ($thisparm);      return $thisparm if ($thisparm);
Line 1667  sub parmval { Line 1680  sub parmval {
   
 # ---------------------------------------------- Update rows for course listing  # ---------------------------------------------- Update rows for course listing
 sub updateclasssheet {  sub updateclasssheet {
     my $safeeval=shift;      my ($safeeval,$sheetdata) = @_;
     my $cnum=&getcnum($safeeval);      my $cnum  =$sheetdata->{'cnum'};
     my $cdom=&getcdom($safeeval);      my $cdom  =$sheetdata->{'cdom'};
     my $cid=&getcid($safeeval);      my $cid   =$sheetdata->{'cid'};
     my $chome=&getchome($safeeval);      my $chome =$sheetdata->{'chome'};
     #      #
     # Read class list and row labels      # Read class list and row labels
     my %classlist;      my %classlist;
Line 1771  sub updateclasssheet { Line 1784  sub updateclasssheet {
   
 # ----------------------------------- Update rows for student and assess sheets  # ----------------------------------- Update rows for student and assess sheets
 sub updatestudentassesssheet {  sub updatestudentassesssheet {
     my $safeeval=shift;      my ($safeeval,$sheetdata) = @_;
     my %bighash;      my %bighash;
     my $stype=&gettype($safeeval);      my $stype=$sheetdata->{'sheettype'};
       my $uname=$sheetdata->{'uname'};
       my $udom =$sheetdata->{'udom'};
     my %current=();      my %current=();
     if  ($updatedata{$ENV{'request.course.fn'}.'_'.$stype}) {      if  ($updatedata
            {$ENV{'request.course.fn'}.'_'.$stype.'_'.$uname.'_'.$udom}) {
         %current=split(/\_\_\_\;\_\_\_/,          %current=split(/\_\_\_\;\_\_\_/,
        $updatedata{$ENV{'request.course.fn'}.'_'.$stype});                         $updatedata{$ENV{'request.course.fn'}.
                                          '_'.$stype.'_'.$uname.'_'.$udom});
     } else {      } else {
         # Tie hash          # Tie hash
         tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',          tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
Line 1795  sub updatestudentassesssheet { Line 1812  sub updatestudentassesssheet {
                      'totalpoints' =>                       'totalpoints' =>
                      'Total Points Granted<br>totalpoints');                       'Total Points Granted<br>totalpoints');
         my $adduserstr='';          my $adduserstr='';
         if ((&getuname($safeeval) ne $ENV{'user.name'}) ||          if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})){
             (&getudom($safeeval) ne $ENV{'user.domain'})) {              $adduserstr='&uname='.$uname.'&udom='.$udom;
             $adduserstr='&uname='.&getuname($safeeval).  
                 '&udom='.&getudom($safeeval);  
         }          }
         my %allassess =          my %allassess =
             ('_feedback' =>'<a href="/adm/assesscalc?usymb=_feedback'.              ('_feedback' =>'<a href="/adm/assesscalc?usymb=_feedback'.
Line 1810  sub updatestudentassesssheet { Line 1825  sub updatestudentassesssheet {
              '_discussion' =>'<a href="/adm/assesscalc?usymb=_discussion'.               '_discussion' =>'<a href="/adm/assesscalc?usymb=_discussion'.
              $adduserstr.'">Discussion</a>'               $adduserstr.'">Discussion</a>'
              );               );
         foreach (keys(%bighash)) {          while (($_,undef) = each(%bighash)) {
             next if ($_!~/^src\_(\d+)\.(\d+)$/);              next if ($_!~/^src\_(\d+)\.(\d+)$/);
             my $mapid=$1;              my $mapid=$1;
             my $resid=$2;              my $resid=$2;
Line 1849  sub updatestudentassesssheet { Line 1864  sub updatestudentassesssheet {
         } elsif ($stype eq 'studentcalc') {          } elsif ($stype eq 'studentcalc') {
             %current=%allassess;              %current=%allassess;
         }          }
         $updatedata{$ENV{'request.course.fn'}.'_'.$stype}=          $updatedata{$ENV{'request.course.fn'}.'_'.$stype.'_'.$uname.'_'.$udom}=
             join('___;___',%current);              join('___;___',%current);
         # Get current from cache          # Get current from cache
     }      }
Line 1894  sub updatestudentassesssheet { Line 1909  sub updatestudentassesssheet {
 # ------------------------------------------------ Load data for one assessment  # ------------------------------------------------ Load data for one assessment
   
 sub loadstudent {  sub loadstudent {
     my $safeeval=shift;      my ($safeeval,$sheetdata)=@_;
     my %c=();      my %c=();
     my %f=&getformulas($safeeval);      my %f=&getformulas($safeeval);
     $cachedassess=&getuname($safeeval).':'.&getudom($safeeval);      $cachedassess=$sheetdata->{'uname'}.':'.$sheetdata->{'udom'};
     # Get ALL the student preformance data      # Get ALL the student preformance data
     my @tmp = &Apache::lonnet::dump(&getcid($safeeval),      my @tmp = &Apache::lonnet::dump($sheetdata->{'cid'},
                                     &getudom($safeeval),                                      $sheetdata->{'udom'},
                                     &getuname($safeeval),                                      $sheetdata->{'uname'},
                                     undef);                                      undef);
     if ($tmp[0] !~ /^error:/) {      if ($tmp[0] !~ /^error:/) {
         %cachedstores = @tmp;          %cachedstores = @tmp;
Line 1914  sub loadstudent { Line 1929  sub loadstudent {
         my $row=$1;          my $row=$1;
         next if (($f{$_}=~/^[\!\~\-]/) || ($row==0));          next if (($f{$_}=~/^[\!\~\-]/) || ($row==0));
         my ($usy,$ufn)=split(/__&&&\__/,$f{$_});          my ($usy,$ufn)=split(/__&&&\__/,$f{$_});
         @assessdata=&exportsheet(&getuname($safeeval),          @assessdata=&exportsheet($sheetdata->{'uname'},
                                  &getudom($safeeval),                                   $sheetdata->{'udom'},
                                  'assesscalc',$usy,$ufn);                                   'assesscalc',$usy,$ufn);
         my $index=0;          my $index=0;
         foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',          foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
Line 1943  sub loadstudent { Line 1958  sub loadstudent {
 # --------------------------------------------------- Load data for one student  # --------------------------------------------------- Load data for one student
   
 sub loadcourse {  sub loadcourse {
     my ($safeeval,$r)=@_;      my ($safeeval,$sheetdata,$r)=@_;
     my %c=();      my %c=();
     my %f=&getformulas($safeeval);      my %f=&getformulas($safeeval);
     my $total=0;      my $total=0;
Line 2005  ENDPOP Line 2020  ENDPOP
 # ------------------------------------------------ Load data for one assessment  # ------------------------------------------------ Load data for one assessment
   
 sub loadassessment {  sub loadassessment {
     my $safeeval=shift;      my ($safeeval,$sheetdata)=@_;
   
     my $uhome = &getuhome($safeeval);      my $uhome = $sheetdata->{'uhome'};
     my $uname = &getuname($safeeval);      my $uname = $sheetdata->{'uname'};
     my $udom  = &getudom($safeeval);      my $udom  = $sheetdata->{'udom'};
     my $symb  = &getusymb($safeeval);      my $symb  = $sheetdata->{'usymb'};
     my $cid   = &getcid($safeeval);      my $cid   = $sheetdata->{'cid'};
     my $cnum  = &getcnum($safeeval);      my $cnum  = $sheetdata->{'cnum'};
     my $cdom  = &getcdom($safeeval);      my $cdom  = $sheetdata->{'cdom'};
     my $chome = &getchome($safeeval);      my $chome = $sheetdata->{'chome'};
   
     my $namespace;      my $namespace;
     unless ($namespace=$cid) { return ''; }      unless ($namespace=$cid) { return ''; }
Line 2070  sub loadassessment { Line 2085  sub loadassessment {
           
     unless ($uhome eq 'no_host') {       unless ($uhome eq 'no_host') { 
         # Get coursedata          # Get coursedata
         unless          unless ((time-$courserdatas{$cid.'.last_cache'})<240) {
             ((time-$courserdatas{$cid.'.last_cache'})<240) {              my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.
                 my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.                                               ':resourcedata',$chome);
                                                  ':resourcedata',$chome);              if ($reply!~/^error\:/) {
                 if ($reply!~/^error\:/) {                  $courserdatas{$cid}=$reply;
                     $courserdatas{$cid}=$reply;                  $courserdatas{$cid.'.last_cache'}=time;
                     $courserdatas{$cid.'.last_cache'}=time;  
                 }  
             }              }
           }
         foreach (split(/\&/,$courserdatas{$cid})) {          foreach (split(/\&/,$courserdatas{$cid})) {
             my ($name,$value)=split(/\=/,$_);              my ($name,$value)=split(/\=/,$_);
             $courseopt{$userprefix.&Apache::lonnet::unescape($name)}=              $courseopt{$userprefix.&Apache::lonnet::unescape($name)}=
Line 2122  sub loadassessment { Line 2136  sub loadassessment {
             next if  ($f{$_}=~/^[\!\~\-]/);              next if  ($f{$_}=~/^[\!\~\-]/);
             if ($f{$_}=~/^parameter/) {              if ($f{$_}=~/^parameter/) {
                 if ($thisassess{$f{$_}}) {                  if ($thisassess{$f{$_}}) {
                     my $val=&parmval($f{$_},$safeeval);                      my $val=&parmval($f{$_},$safeeval,$sheetdata);
                     $c{$_}=$val;                      $c{$_}=$val;
                     $c{$f{$_}}=$val;                      $c{$f{$_}}=$val;
                 }                  }
Line 2170  sub selectbox { Line 2184  sub selectbox {
 #  #
   
 sub updatesheet {  sub updatesheet {
     my $safeeval=shift;      my ($safeeval,$sheetdata)=@_;
     my $stype=&gettype($safeeval);      my $stype=$sheetdata->{'sheettype'};
     if ($stype eq 'classcalc') {      if ($stype eq 'classcalc') {
  return &updateclasssheet($safeeval);   return &updateclasssheet($safeeval,$sheetdata);
     } else {      } else {
         return &updatestudentassesssheet($safeeval);          return &updatestudentassesssheet($safeeval,$sheetdata);
     }      }
 }  }
   
Line 2185  sub updatesheet { Line 2199  sub updatesheet {
 #  #
   
 sub loadrows {  sub loadrows {
     my ($safeeval,$r)=@_;      my ($safeeval,$sheetdata,$r)=@_;
     my $stype=&gettype($safeeval);      my $stype=$sheetdata->{'sheettype'};
     if ($stype eq 'classcalc') {      if ($stype eq 'classcalc') {
  &loadcourse($safeeval,$r);   &loadcourse($safeeval,$sheetdata,$r);
     } elsif ($stype eq 'studentcalc') {      } elsif ($stype eq 'studentcalc') {
         &loadstudent($safeeval);          &loadstudent($safeeval,$sheetdata);
     } else {      } else {
         &loadassessment($safeeval);          &loadassessment($safeeval,$sheetdata);
     }      }
 }  }
   
Line 2280  sub exportsheet { Line 2294  sub exportsheet {
         #          #
         # Not cached          # Not cached
         #                  #        
         my $thissheet=&makenewsheet($uname,$udom,$stype,$usymb);          my ($thissheet,$sheetdata)=&makenewsheet($uname,$udom,$stype,$usymb);
         &readsheet($thissheet,$fn);          &readsheet($thissheet,$sheetdata,$fn);
         &updatesheet($thissheet);          &updatesheet($thissheet,$sheetdata);
         &loadrows($thissheet);          &loadrows($thissheet,$sheetdata);
         &calcsheet($thissheet);           &calcsheet($thissheet,$sheetdata); 
         @exportarr=&exportdata($thissheet);          @exportarr=&exportdata($thissheet,$sheetdata);
         #          #
         # Store now          # Store now
         #          #
Line 2299  sub exportsheet { Line 2313  sub exportsheet {
                                             &Apache::lonnet::escape($key),                                              &Apache::lonnet::escape($key),
                                             $ENV{'course.'.$cid.'.home'});                                              $ENV{'course.'.$cid.'.home'});
         } else {          } else {
             $current=&Apache::lonnet::reply('get:'.              $current=&Apache::lonnet::reply('get:'.$sheetdata->{'udom'}.':'.
                                             &getudom($thissheet).':'.                                              $sheetdata->{'uname'}.
                                             &getuname($thissheet).  
                                             ':nohist_calculatedsheets_'.                                              ':nohist_calculatedsheets_'.
                                             $ENV{'request.course.id'}.':'.                                              $ENV{'request.course.id'}.':'.
                                             &Apache::lonnet::escape($key),                                              &Apache::lonnet::escape($key),
                                             &getuhome($thissheet));                                              $sheetdata->{'uhome'});
         }          }
         my %currentlystored=();          my %currentlystored=();
         unless ($current=~/^error\:/) {          unless ($current=~/^error\:/) {
Line 2333  sub exportsheet { Line 2346  sub exportsheet {
                                    $ENV{'course.'.$cid.'.home'});                                     $ENV{'course.'.$cid.'.home'});
         } else {          } else {
             &Apache::lonnet::reply('put:'.              &Apache::lonnet::reply('put:'.
                                    &getudom($thissheet).':'.                                     $sheetdata->{'udom'}.':'.
                                    &getuname($thissheet).                                     $sheetdata->{'uname'}.
                                    ':nohist_calculatedsheets_'.                                     ':nohist_calculatedsheets_'.
                                    $ENV{'request.course.id'}.':'.                                     $ENV{'request.course.id'}.':'.
                                    &Apache::lonnet::escape($key).'='.                                     &Apache::lonnet::escape($key).'='.
                                    &Apache::lonnet::escape($newstore).'&'.                                     &Apache::lonnet::escape($newstore).'&'.
                                    &Apache::lonnet::escape($key).'.time='.$now,                                     &Apache::lonnet::escape($key).'.time='.$now,
                                    &getuhome($thissheet));                                     $sheetdata->{'uhome'});
         }          }
     }      }
     return @exportarr;      return @exportarr;
Line 2432  sub handler { Line 2445  sub handler {
         return OK;          return OK;
     }      }
     # Global directory configs      # Global directory configs
     $includedir=$r->dir_config('lonIncludes');      $includedir = $r->dir_config('lonIncludes');
     $tmpdir=$r->dir_config('lonDaemons').'/tmp/';      $tmpdir = $r->dir_config('lonDaemons').'/tmp/';
     # Needs to be in a course      # Needs to be in a course
     if ($ENV{'request.course.fn'}) {       if (! $ENV{'request.course.fn'}) { 
         # Get query string for limited number of parameters          # Not in a course, or not allowed to modify parms
         &Apache::loncommon::get_unprocessed_cgi          $ENV{'user.error.msg'}=
             ($ENV{'QUERY_STRING'},['uname','udom','usymb','ufn']);              $r->uri.":opa:0:0:Cannot modify spreadsheet";
         if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'})) {          return HTTP_NOT_ACCEPTABLE; 
             $ENV{'form.ufn'}='default_'.$1;      }
         }      # Get query string for limited number of parameters
         # Interactive loading of specific sheet?      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
         if (($ENV{'form.load'}) && ($ENV{'form.loadthissheet'} ne 'Default')) {                                              ['uname','udom','usymb','ufn']);
             $ENV{'form.ufn'}=$ENV{'form.loadthissheet'};      if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'})) {
         }          $ENV{'form.ufn'}='default_'.$1;
         # Nothing there? Must be login user      }
         my $aname;      # Interactive loading of specific sheet?
         my $adom;      if (($ENV{'form.load'}) && ($ENV{'form.loadthissheet'} ne 'Default')) {
           $ENV{'form.ufn'}=$ENV{'form.loadthissheet'};
         unless ($ENV{'form.uname'}) {      }
             $aname=$ENV{'user.name'};      #
             $adom=$ENV{'user.domain'};      # Determine the user name and domain for the sheet.
         } else {      my $aname;
             $aname=$ENV{'form.uname'};      my $adom;
             $adom=$ENV{'form.udom'};      unless ($ENV{'form.uname'}) {
         }          $aname=$ENV{'user.name'};
         # Open page          $adom=$ENV{'user.domain'};
         $r->content_type('text/html');      } else {
         $r->header_out('Cache-control','no-cache');          $aname=$ENV{'form.uname'};
         $r->header_out('Pragma','no-cache');          $adom=$ENV{'form.udom'};
         $r->send_http_header;      }
         # Screen output      #
         $r->print('<html><head><title>LON-CAPA Spreadsheet</title>');      # Open page
         $r->print(<<ENDSCRIPT);      $r->content_type('text/html');
       $r->header_out('Cache-control','no-cache');
       $r->header_out('Pragma','no-cache');
       $r->send_http_header;
       # Screen output
       $r->print('<html><head><title>LON-CAPA Spreadsheet</title>');
       $r->print(<<ENDSCRIPT);
 <script language="JavaScript">  <script language="JavaScript">
   
     function celledit(cn,cf) {      function celledit(cn,cf) {
Line 2490  sub handler { Line 2509  sub handler {
   
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
         $r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').      $r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').
                   '<form action="'.$r->uri.'" name=sheet method=post>'.                '<form action="'.$r->uri.'" name=sheet method=post>');
                   &hiddenfield('uname',$ENV{'form.uname'}).      $r->print(&hiddenfield('uname',$ENV{'form.uname'}).
                   &hiddenfield('udom',$ENV{'form.udom'}).                &hiddenfield('udom',$ENV{'form.udom'}).
                   &hiddenfield('usymb',$ENV{'form.usymb'}).                &hiddenfield('usymb',$ENV{'form.usymb'}).
                   &hiddenfield('unewfield','').                &hiddenfield('unewfield','').
                   &hiddenfield('unewformula',''));                &hiddenfield('unewformula',''));
         # Send this out right away      $r->rflush();
         $r->rflush();      #
         # Full recalc?      # Full recalc?
         if ($ENV{'form.forcerecalc'}) {      if ($ENV{'form.forcerecalc'}) {
             $r->print('<h4>Completely Recalculating Sheet ...</h4>');          $r->print('<h4>Completely Recalculating Sheet ...</h4>');
             undef %spreadsheets;          undef %spreadsheets;
             undef %courserdatas;          undef %courserdatas;
             undef %userrdatas;          undef %userrdatas;
             undef %defaultsheets;          undef %defaultsheets;
             undef %updatedata;          undef %updatedata;
         }      }
         # Read new sheet or modified worksheet      # Read new sheet or modified worksheet
         $r->uri=~/\/(\w+)$/;      $r->uri=~/\/(\w+)$/;
         my $asheet=&makenewsheet($aname,$adom,$1,$ENV{'form.usymb'});      my ($asheet,$asheetdata)=&makenewsheet($aname,$adom,$1,$ENV{'form.usymb'});
         # If a new formula had been entered, go from work copy      #
         if ($ENV{'form.unewfield'}) {      # If a new formula had been entered, go from work copy
             $r->print('<h2>Modified Workcopy</h2>');      if ($ENV{'form.unewfield'}) {
             $ENV{'form.unewformula'}=~s/\'/\"/g;          $r->print('<h2>Modified Workcopy</h2>');
             $r->print('<p>New formula: '.$ENV{'form.unewfield'}.'='.          $ENV{'form.unewformula'}=~s/\'/\"/g;
                       $ENV{'form.unewformula'}.'<p>');          $r->print('<p>New formula: '.$ENV{'form.unewfield'}.'='.
             &setfilename($asheet,$ENV{'form.ufn'});                    $ENV{'form.unewformula'}.'<p>');
             &tmpread($asheet,          &setfilename($asheet,$ENV{'form.ufn'});
                      $ENV{'form.unewfield'},$ENV{'form.unewformula'});          &tmpread($asheet,$ENV{'form.unewfield'},$ENV{'form.unewformula'});
                   } elsif ($ENV{'form.saveas'}) {
         } elsif ($ENV{'form.saveas'}) {          &setfilename($asheet,$ENV{'form.ufn'});
             &setfilename($asheet,$ENV{'form.ufn'});          &tmpread($asheet);
             &tmpread($asheet);      } else {
           &readsheet($asheet,$asheetdata,$ENV{'form.ufn'});
       }
       # Print out user information
       unless ($asheetdata->{'sheettype'} eq 'classcalc') {
           $r->print('<p><b>User:</b> '.$asheetdata->{'uname'}.
                     '<br><b>Domain:</b> '.$asheetdata->{'udom'});
           if (&getcsec($asheet) eq '-1') {
               $r->print('<h3><font color=red>'.
                         'Not a student in this course</font></h3>');
         } else {          } else {
             &readsheet($asheet,$ENV{'form.ufn'});              $r->print('<br><b>Section/Group:</b> '.$asheetdata->{'csec'});
         }          }
         # Print out user information          if ($ENV{'form.usymb'}) {
         unless (&gettype($asheet) eq 'classcalc') {              $r->print('<br><b>Assessment:</b> <tt>'.
             $r->print('<p><b>User:</b> '.&getuname($asheet).                        $ENV{'form.usymb'}.'</tt>');
                       '<br><b>Domain:</b> '.&getudom($asheet));          }
             if (&getcsec($asheet) eq '-1') {      }
                 $r->print('<h3><font color=red>'.      #
                           'Not a student in this course</font></h3>');      # Check user permissions
             } else {      if (($asheetdata->{'sheettype'} eq 'classcalc'       ) || 
                 $r->print('<br><b>Section/Group:</b> '.&getcsec($asheet));          ($asheetdata->{'uname'}     ne $ENV{'user.name'} ) ||
           ($asheetdata->{'udom'}      ne $ENV{'user.domain'})) {
           unless (&Apache::lonnet::allowed('vgr',$asheetdata->{'cid'})) {
               $r->print('<h1>Access Permission Denied</h1>'.
                         '</form></body></html>');
               return OK;
           }
       }
       # Additional options
       $r->print('<br />'.
                 '<input type="submit" name="forcerecalc" '.
                 'value="Completely Recalculate Sheet"><p>');
       if ($asheetdata->{'sheettype'} eq 'assesscalc') {
           $r->print('<p><font size=+2>'.
                     '<a href="/adm/studentcalc?'.
                     'uname='.$asheetdata->{'uname'}.
                     '&udom='.$asheetdata->{'udom'}.'">'.
                     'Level up: Student Sheet</a></font><p>');
       }
       if (($asheetdata->{'sheettype'} eq 'studentcalc') && 
           (&Apache::lonnet::allowed('vgr',$asheetdata->{'cid'}))) {
           $r->print ('<p><font size=+2><a href="/adm/classcalc">'.
                      'Level up: Course Sheet</a></font><p>');
       }
       # Save dialog
       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.'">'.
                     'make default: <input type=checkbox name="makedefufn"><p>');
       }
       $r->print(&hiddenfield('ufn',&getfilename($asheet)));
       # Load dialog
       if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
           $r->print('<p><input type=submit name=load value="Load ...">'.
                     '<select name="loadthissheet">'.
                     '<option name="default">Default</option>');
           foreach (&othersheets($asheet,$asheetdata->{'sheettype'})) {
               $r->print('<option name="'.$_.'"');
               if ($ENV{'form.ufn'} eq $_) {
                   $r->print(' selected');
             }              }
             if ($ENV{'form.usymb'}) {              $r->print('>'.$_.'</option>');
                 $r->print('<br><b>Assessment:</b> <tt>'.          } 
                           $ENV{'form.usymb'}.'</tt>');          $r->print('</select><p>');
             }          if (&gettype($asheet) eq 'studentcalc') {
         }              &setothersheets($asheet,&othersheets($asheet,'assesscalc'));
         # See if user can see this  
         if ((&gettype($asheet) eq 'classcalc') ||   
             (&getuname($asheet) ne $ENV{'user.name'}) ||  
             (&getudom($asheet) ne $ENV{'user.domain'})) {  
             unless (&Apache::lonnet::allowed('vgr',&getcid($asheet))) {  
                 $r->print('<h1>Access Permission Denied</h1>'.  
                           '</form></body></html>');  
                 return OK;  
             }  
         }  
         # Additional options  
         $r->print(  
  '<input type=submit name=forcerecalc value="Completely Recalculate Sheet"><p>'  
                   );  
         if (&gettype($asheet) eq 'assesscalc') {  
             $r->print ('<p><font size=+2><a href="/adm/studentcalc?uname='.  
                        &getuname($asheet).'&udom='.&getudom($asheet).'">'.  
                        'Level up: Student Sheet</a></font><p>');  
         }  
         if ((&gettype($asheet) eq 'studentcalc') &&   
             (&Apache::lonnet::allowed('vgr',&getcid($asheet)))) {  
             $r->print (  
                        '<p><font size=+2><a href="/adm/classcalc">'.  
                        'Level up: Course Sheet</a></font><p>');  
         }  
         # Save dialog  
         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.'">'.  
                  '(make default: <input type=checkbox name="makedefufn">)<p>');  
         }  
         $r->print(&hiddenfield('ufn',&getfilename($asheet)));  
         # Load dialog  
         if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {  
             $r->print('<p><input type=submit name=load value="Load ...">'.  
                       '<select name="loadthissheet">'.  
                       '<option name="default">Default</option>');  
             foreach (&othersheets($asheet,&gettype($asheet))) {  
                 $r->print('<option name="'.$_.'"');  
                 if ($ENV{'form.ufn'} eq $_) {  
                     $r->print(' selected');  
                 }  
                 $r->print('>'.$_.'</option>');  
             }   
             $r->print('</select><p>');  
             if (&gettype($asheet) eq 'studentcalc') {  
                 &setothersheets($asheet,&othersheets($asheet,'assesscalc'));  
             }  
         }  
         # Cached sheets  
         &expirationdates();  
         undef %oldsheets;  
         undef %loadedcaches;  
         if (&gettype($asheet) eq 'classcalc') {  
             $r->print  
                 ("Loading previously calculated student sheets ...<br>\n");  
             $r->rflush();  
             &cachedcsheets();  
         } elsif (&gettype($asheet) eq 'studentcalc') {  
             $r->print  
                 ("Loading previously calculated assessment sheets ...<br>\n");  
             $r->rflush();  
             &cachedssheets(&getuname($asheet),&getudom($asheet),  
                            &getuhome($asheet));  
         }          }
         # Update sheet, load rows      }
         $r->print("Loaded sheet(s), updating rows ...<br>\n");      # Cached sheets
         $r->rflush();      &expirationdates();
         #      undef %oldsheets;
         &updatesheet($asheet);      undef %loadedcaches;
         $r->print("Updated rows, loading row data ...<br>\n");      if ($asheetdata->{'sheettype'} eq 'classcalc') {
           $r->print("Loading previously calculated student sheets ...\n");
         $r->rflush();          $r->rflush();
         #          &cachedcsheets();
         &loadrows($asheet,$r);      } elsif ($asheetdata->{'sheettype'} eq 'studentcalc') {
         $r->print("Loaded row data, calculating sheet ...<br>\n");          $r->print("Loading previously calculated assessment sheets ...\n");
         $r->rflush();          $r->rflush();
         #          &cachedssheets($asheetdata->{'uname'},$asheetdata->{'udom'},
         my $calcoutput=&calcsheet($asheet);                         $asheetdata->{'uhome'});
         $r->print('<h3><font color=red>'.$calcoutput.'</h3></font>');      }
         # See if something to save      # Update sheet, load rows
         if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {      $r->print("Loaded sheet(s), updating rows ...<br>\n");
             my $fname='';      $r->rflush();
             if ($ENV{'form.saveas'} && ($fname=$ENV{'form.newfn'})) {      #
                 $fname=~s/\W/\_/g;      &updatesheet($asheet,$asheetdata);
                 if ($fname eq 'default') { $fname='course_default'; }      $r->print("Updated rows, loading row data ...\n");
                 $fname.='_'.&gettype($asheet);      $r->rflush();
                 &setfilename($asheet,$fname);      #
                 $ENV{'form.ufn'}=$fname;      &loadrows($asheet,$asheetdata,$r);
                 $r->print('<p>Saving spreadsheet: '.      $r->print("Loaded row data, calculating sheet ...<br>\n");
                           &writesheet($asheet,$ENV{'form.makedefufn'}).'<p>');      $r->rflush();
             }      #
       my $calcoutput=&calcsheet($asheet);
       $r->print('<h3><font color=red>'.$calcoutput.'</h3></font>');
       # 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.='_'.$asheetdata->{'sheettype'};
               &setfilename($asheet,$fname);
               $ENV{'form.ufn'}=$fname;
               $r->print('<p>Saving spreadsheet: '.
                         &writesheet($asheet,$ENV{'form.makedefufn'}).'<p>');
         }          }
         #Write the modified worksheet      }
       #
    $r->print('<b>Current sheet:</b> '.&getfilename($asheet).'<p>');      #Write the modified worksheet
       $r->print('<b>Current sheet:</b> '.&getfilename($asheet).'<p>');
    &tmpwrite($asheet);      &tmpwrite($asheet);
       if ($asheetdata->{'sheettype'} eq 'studentcalc') {
     if (&gettype($asheet) eq 'studentcalc') {          $r->print('<br>Show rows with empty A column: ');
  $r->print('<br>Show rows with empty A column: ');  
     } else {      } else {
         $r->print('<br>Show empty rows: ');          $r->print('<br>Show empty rows: ');
     }       } 
       #
     $r->print(&hiddenfield('userselhidden','true').      $r->print(&hiddenfield('userselhidden','true').
              '<input type=checkbox name=showall onClick="submit()"');                '<input type="checkbox" name="showall" onClick="submit()"');
       #
     if ($ENV{'form.showall'}) {       if ($ENV{'form.showall'}) { 
        $r->print(' checked');           $r->print(' checked'); 
     } else {      } else {
  unless ($ENV{'form.userselhidden'}) {          unless ($ENV{'form.userselhidden'}) {
            unless               unless 
  ($ENV{'course.'.$ENV{'request.course.id'}.'.hideemptyrows'} eq 'yes') {                  ($ENV{'course.'.$ENV{'request.course.id'}.'.hideemptyrows'} eq 'yes') {
           $r->print(' checked');                      $r->print(' checked');
           $ENV{'form.showall'}=1;                      $ENV{'form.showall'}=1;
            }                  }
        }          }
     }      }
     $r->print('>');      $r->print('>');
       #
     if (&gettype($asheet) eq 'classcalc') {      # CSV format checkbox (classcalc sheets only)
        $r->print(      if ($asheetdata->{'sheettype'} eq 'classcalc') {
    ' Output CSV format: <input type=checkbox name=showcsv onClick="submit()"');          $r->print(' Output CSV format: <input type="checkbox" '.
        if ($ENV{'form.showcsv'}) { $r->print(' checked'); }                    'name="showcsv" onClick="submit()"');
        $r->print('>');          if ($ENV{'form.showcsv'}) { $r->print(' checked'); }
           $r->print('>');
     }      }
       #
 # ------------------------------------------------------------------ Insertrows      # Buttons to insert rows
     $r->print('&nbsp;Student Status: '.      $r->print('&nbsp;Student Status: '.
               &Apache::lonhtmlcommon::StatusOptions                &Apache::lonhtmlcommon::StatusOptions
               ($ENV{'form.Status'},'sheet'));                ($ENV{'form.Status'},'sheet'));
       $r->print(<<ENDINSERTBUTTONS);
    $r->print(<<ENDINSERTBUTTONS);  
 <br>  <br>
 <input type='button' onClick='insertrow("top");'   <input type='button' onClick='insertrow("top");' 
 value='Insert Row Top'>  value='Insert Row Top'>
 <input type='button' onClick='insertrow("bottom");'   <input type='button' onClick='insertrow("bottom");' 
 value='Insert Row Bottom'><br>  value='Insert Row Bottom'><br>
 ENDINSERTBUTTONS  ENDINSERTBUTTONS
       # Print out sheet
 # ------------------------------------------------------------- Print out sheet      &outsheet($r,$asheet,$asheetdata);
   
     &outsheet($r,$asheet);  
     $r->print('</form></body></html>');      $r->print('</form></body></html>');
       #  Done
 # ------------------------------------------------------------------------ Done  
   } else {  
 # ----------------------------- Not in a course, or not allowed to modify parms  
       $ENV{'user.error.msg'}=  
         $r->uri.":opa:0:0:Cannot modify spreadsheet";  
       return HTTP_NOT_ACCEPTABLE;   
   }  
     return OK;      return OK;
   
 }  }
   
 1;  1;
Removed from v.1.104  
changed lines
  Added in v.1.108

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