version 1.85, 2005/03/15 17:21:42
|
version 1.86, 2005/03/15 17:25:51
|
Line 413 sub accinit {
|
Line 413 sub accinit {
|
$acchash{'acc.cond.'.$short.'.'.$condcounter}=$expr; |
$acchash{'acc.cond.'.$short.'.'.$condcounter}=$expr; |
} |
} |
} elsif ($_=~/^param_(\d+)\.(\d+)/) { |
} elsif ($_=~/^param_(\d+)\.(\d+)/) { |
my $prefix=&Apache::lonnet::declutter($hash{'map_id_'.$1}). |
my $prefix=&Apache::lonnet::encode_symb($hash{'map_id_'.$1},$2, |
'___'.$2.'___'.&Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2}); |
$hash{'src_'.$1.'.'.$2}); |
foreach (split(/\&/,$hash{$_})) { |
foreach (split(/\&/,$hash{$_})) { |
my ($typename,$value)=split(/\=/,$_); |
my ($typename,$value)=split(/\=/,$_); |
my ($type,$name)=split(/\:/,$typename); |
my ($type,$name)=split(/\:/,$typename); |
Line 504 sub hiddenurls {
|
Line 504 sub hiddenurls {
|
$hash{'randomout_'.$currentrids[$k]}=1; |
$hash{'randomout_'.$currentrids[$k]}=1; |
my ($mapid,$resid)=split(/\./,$currentrids[$k]); |
my ($mapid,$resid)=split(/\./,$currentrids[$k]); |
$randomoutentry.='&'. |
$randomoutentry.='&'. |
&Apache::lonnet::symbclean( |
&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid}, |
&Apache::lonnet::declutter($hash{'map_id_'.$mapid}). |
$resid, |
'___'.$resid.'___'. |
$hash{'src_'.$currentrids[$k]} |
&Apache::lonnet::declutter($hash{'src_'.$currentrids[$k]}) |
).'&'; |
).'&'; |
|
} |
} |
} |
} |
} |
} |
Line 517 sub hiddenurls {
|
Line 516 sub hiddenurls {
|
$hash{'randomout_'.$rid}=1; |
$hash{'randomout_'.$rid}=1; |
my ($mapid,$resid)=split(/\./,$rid); |
my ($mapid,$resid)=split(/\./,$rid); |
$randomoutentry.='&'. |
$randomoutentry.='&'. |
&Apache::lonnet::symbclean( |
&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid, |
&Apache::lonnet::declutter($hash{'map_id_'.$mapid}). |
$hash{'src_'.$rid}).'&'; |
'___'.$resid.'___'. |
|
&Apache::lonnet::declutter($hash{'src_'.$rid}) |
|
).'&'; |
|
} |
} |
# --------------------------------------- append randomout entry to environment |
# --------------------------------------- append randomout entry to environment |
if ($randomoutentry) { |
if ($randomoutentry) { |