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; |