[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.20 and 1.21

version 1.20, 2000/12/30 17:13:54 version 1.21, 2000/12/30 19:59:18
Line 328  sub calc { Line 328  sub calc {
     return '';      return '';
 }  }
   
   sub templaterow {
       my @cols=();
       $cols[0]='<b><font size=+1>Template</font></b>';
       map {
           my $fm=$f{'template_'.$_};
           $fm=~s/[\'\"]/\&\#34;/g;
           $cols[$#cols+1]="'template_$_','$fm'".'___eq___'.$fm;
       } ('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');
       return @cols;
   }
   
 sub outrowassess {  sub outrowassess {
     my $n=shift;      my $n=shift;
     my @cols=();      my @cols=();
Line 351  sub outrow { Line 365  sub outrow {
     my $n=shift;      my $n=shift;
     my @cols=();      my @cols=();
     if ($n) {      if ($n) {
        $cols[0]=$rl{$f{'A'.$n}}.' stuff';         $cols[0]=$rl{$f{'A'.$n}};
     } else {      } else {
        $cols[0]='<b><font size=+1>Export</font></b>';         $cols[0]='<b><font size=+1>Export</font></b>';
     }      }
Line 480  sub exportrow { Line 494  sub exportrow {
   
 sub rown {  sub rown {
     my ($safeeval,$n)=@_;      my ($safeeval,$n)=@_;
     my $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';      my $defaultbg;
       unless ($n eq '-') {
          $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';
       } else {
          $defaultbg='#E0FF';
       }
     my $rowdata="\n<tr><td><b><font size=+1>$n</font></b></td>";      my $rowdata="\n<tr><td><b><font size=+1>$n</font></b></td>";
     my $showf=0;      my $showf=0;
     my $proc;      my $proc;
Line 492  sub rown { Line 511  sub rown {
         $proc='&outrow';          $proc='&outrow';
         $maxred=26;          $maxred=26;
     }      }
       if ($n eq '-') { $proc='&templaterow'; $n=-1; }
     map {      map {
        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\_\_\_/,$_);
Line 552  sub outsheet { Line 572  sub outsheet {
     $tabledata.='</tr>';      $tabledata.='</tr>';
     my $row;      my $row;
     my $maxrow=&getmaxrow($safeeval);      my $maxrow=&getmaxrow($safeeval);
       $tabledata.=&rown($safeeval,'-');
     for ($row=0;$row<=$maxrow;$row++) {      for ($row=0;$row<=$maxrow;$row++) {
         $tabledata.=&rown($safeeval,$row);          $tabledata.=&rown($safeeval,$row);
     }      }
Line 565  sub outsheet { Line 586  sub outsheet {
 sub readsheet {  sub readsheet {
     my ($safeeval,$fn,$r)=@_;      my ($safeeval,$fn,$r)=@_;
     my %f=();      my %f=();
     unless ($fn) {      if (($fn eq '') || ($fn=~/^default\_/)) {
  my $sheetxml='';   my $sheetxml='';
        {         {
          my $fh;           my $fh;
Line 636  sub writesheet { Line 657  sub writesheet {
   
 sub tmpwrite {  sub tmpwrite {
     my ($safeeval,$tmpdir,$symb)=@_;      my ($safeeval,$tmpdir,$symb)=@_;
     my $fn=$uname.'_'.$udom.'_spreadsheet_'.&getfilename($safeeval);      my $fn=$uname.'_'.$udom.'_spreadsheet_'.$symb.'_'.&getfilename($safeeval);
     $fn=~s/\W/\_/g;      $fn=~s/\W/\_/g;
     $fn=$tmpdir.$fn.'.tmp';      $fn=$tmpdir.$fn.'.tmp';
     my $fh;      my $fh;
Line 649  sub tmpwrite { Line 670  sub tmpwrite {
   
 sub tmpread {  sub tmpread {
     my ($safeeval,$tmpdir,$symb,$nfield,$nform)=@_;      my ($safeeval,$tmpdir,$symb,$nfield,$nform)=@_;
     my $fn=$uname.'_'.$udom.'_spreadsheet_'.&getfilename($safeeval);      my $fn=$uname.'_'.$udom.'_spreadsheet_'.$symb.'_'.&getfilename($safeeval);
     $fn=~s/\W/\_/g;      $fn=~s/\W/\_/g;
     $fn=$tmpdir.$fn.'.tmp';      $fn=$tmpdir.$fn.'.tmp';
     my $fh;      my $fh;
Line 1086  sub handler { Line 1107  sub handler {
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
     $r->print('</head><body bgcolor="#FFFFFF">'.      $r->print('</head><body bgcolor="#FFFFFF">'.
          '<img align=right src=/adm/lonIcons/lonlogos.gif>'.
          '<h1>LON-CAPA Spreadsheet</h1>'.
        '<form action="'.$r->uri.'" name=sheet method=post>'.         '<form action="'.$r->uri.'" name=sheet method=post>'.
        &hiddenfield('uname',$ENV{'form.uname'}).         &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('ufn',$ENV{'form.ufn'}).  
        &hiddenfield('unewfield','').         &hiddenfield('unewfield','').
        &hiddenfield('unewformula',''));         &hiddenfield('unewformula',''));
   }    }
Line 1111  ENDSCRIPT Line 1133  ENDSCRIPT
                  $ENV{'form.unewfield'},$ENV{'form.unewformula'});                   $ENV{'form.unewfield'},$ENV{'form.unewformula'});
     } else {      } else {
         &readsheet($sheetone,$ENV{'form.ufn'},$r);          &readsheet($sheetone,$ENV{'form.ufn'},$r);
           $ENV{'form.ufn'}=&getfilename($sheetone);
     }      }
   
 # --------------------------------------------- See if all import rows uptodate  # --------------------------------------------- See if all import rows uptodate
Line 1136  ENDSCRIPT Line 1159  ENDSCRIPT
   
 # ----------------------------------------------------- Print user, course, etc  # ----------------------------------------------------- Print user, course, etc
    unless ($reroute) {     unless ($reroute) {
     $r->print("<b>User '$uname' at domain '$udom' for '".      $r->print(&hiddenfield('ufn',$ENV{'form.ufn'}).
                 "<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'");
Removed from v.1.20  
changed lines
  Added in v.1.21

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