Diff for /rat/lonuserstate.pm between versions 1.19 and 1.20

version 1.19, 2000/11/16 11:58:30 version 1.20, 2000/11/21 20:46:42
Line 12 Line 12
 #  #
 # 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23,8/30,  # 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23,8/30,
 # 9/2,9/4,9/29,9/30,10/2,10/11,10/30,10/31,  # 9/2,9/4,9/29,9/30,10/2,10/11,10/30,10/31,
 # 11/1,11/2,11/14,11/16 Gerd Kortemeyer  # 11/1,11/2,11/14,11/16,11/22 Gerd Kortemeyer
   
 package Apache::lonuserstate;  package Apache::lonuserstate;
   
Line 173  sub loadmap { Line 173  sub loadmap {
 # ------------------------------------------------------------------- Parameter  # ------------------------------------------------------------------- Parameter
   
                     my $referid=$lpc.'.'.$token->[2]->{'to'};                      my $referid=$lpc.'.'.$token->[2]->{'to'};
                       my $part=$token->[2]->{'part'};
                       unless ($part) { $part=0; }
                     my $newparam=                      my $newparam=
  &Apache::lonnet::escape($token->[2]->{'type'}).':'.   &Apache::lonnet::escape($token->[2]->{'type'}).':'.
  &Apache::lonnet::escape($token->[2]->{'name'}).'='.   &Apache::lonnet::escape($part.'.'.
                            $token->[2]->{'name'}).'='.
  &Apache::lonnet::escape($token->[2]->{'value'});   &Apache::lonnet::escape($token->[2]->{'value'});
                     if (defined($hash{'param_'.$referid})) {                      if (defined($hash{'param_'.$referid})) {
                         $hash{'param_'.$referid}.='&'.$newparam;                          $hash{'param_'.$referid}.='&'.$newparam;

Removed from v.1.19  
changed lines
  Added in v.1.20


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