[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.14 and 1.15

version 1.14, 2000/12/11 22:25:35 version 1.15, 2000/12/12 16:48:21
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # Spreadsheet/Grades Display Handler  # Spreadsheet/Grades Display Handler
 #  #
 # 11/11,11/15,11/27,12/04,12/05,12/06,12/07,12/08,12/09,12/11 Gerd Kortemeyer  # 11/11,11/15,11/27,12/04,12/05,12/06,12/07,
   # 12/08,12/09,12/11,12/12 Gerd Kortemeyer
   
 package Apache::lonspreadsheet;  package Apache::lonspreadsheet;
   
Line 758  sub rowaassess { Line 759  sub rowaassess {
   
 # ----------------------------------------------------------- Get stored values  # ----------------------------------------------------------- Get stored values
     my $answer=&Apache::lonnet::reply(      my $answer=&Apache::lonnet::reply(
        "restore:$udom:$uname:$namespace:$symb",$uhome);         "restore:$udom:$uname:".
          &Apache::lonnet::escape($namespace).":".
          &Apache::lonnet::escape($symb),$uhome);
     my %returnhash=();      my %returnhash=();
     map {      map {
  my ($name,$value)=split(/\=/,$_);   my ($name,$value)=split(/\=/,$_);
Line 808  sub rowaassess { Line 811  sub rowaassess {
       map {        map {
          my ($name,$value)=split(/\=/,$_);           my ($name,$value)=split(/\=/,$_);
          $useropt{&Apache::lonnet::unescape($name)}=           $useropt{&Apache::lonnet::unescape($name)}=
                   &Apache::lonnet::unescape($value);            &Apache::lonnet::unescape($value);
       } split(/\&/,$userrdatas{$uname.'___'.$udom});        } split(/\&/,$userrdatas{$uname.'___'.$udom});
    }     }
 # -- now courseopt, useropt initialized for this user and course (used parmval)  # -- now courseopt, useropt initialized for this user and course (used parmval)
Line 821  sub rowaassess { Line 824  sub rowaassess {
         if ($f{$_}=~/^parameter/) {          if ($f{$_}=~/^parameter/) {
           $c{$_}=&parmval($f{$_},$symb);            $c{$_}=&parmval($f{$_},$symb);
        } else {         } else {
            $c{$_}=$returnhash{$f{$_}};    my $key=$f{$_};
                     $key=~s/^stores\_/resource\./;
                     $key=~s/\_/\./;
              $c{$_}=$returnhash{$key};
        }         }
    }     }
         }          }
Removed from v.1.14  
changed lines
  Added in v.1.15

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