version 1.11, 2000/11/14 18:15:01
|
version 1.12, 2000/11/14 19:14:03
|
Line 167 sub handler {
|
Line 167 sub handler {
|
$redirecturl=$hash{'src_'.$next}; |
$redirecturl=$hash{'src_'.$next}; |
$cachehash{&Apache::lonnet::declutter($redirecturl)} |
$cachehash{&Apache::lonnet::declutter($redirecturl)} |
=(split(/\./,$next))[1]; |
=(split(/\./,$next))[1]; |
|
if ($hash{'param_'.$next}) { |
|
my ($mapid,$resid)=split(/\./,$next); |
|
&Apache::lonnet::appendparms( |
|
&Apache::lonnet::declutter($hash{'map_id_'.$mapid}). |
|
'___'.$resid.'___'. |
|
&Apache::lonnet::declutter($redirecturl), |
|
$hash{'param_'.$next}); |
|
} |
} else { |
} else { |
# ------------------------ There are multiple possibilities for a next resource |
# ------------------------ There are multiple possibilities for a next resource |
$multichoice=1; |
$multichoice=1; |
Line 180 sub handler {
|
Line 188 sub handler {
|
{'src_'.$_} |
{'src_'.$_} |
)} |
)} |
=(split(/\./,$_))[1]; |
=(split(/\./,$_))[1]; |
|
if ($hash{'param_'.$_}) { |
|
my ($mapid,$resid)=split(/\./,$_); |
|
&Apache::lonnet::appendparms( |
|
&Apache::lonnet::declutter($hash{'map_id_'.$mapid}). |
|
'___'.$resid.'___'. |
|
&Apache::lonnet::declutter($hash{'src_'.$_}), |
|
$hash{'param_'.$_}); |
|
} |
} @possibilities; |
} @possibilities; |
} |
} |
} else { |
} else { |
# -------------------------------------------------------------- No place to go |
# -------------------------------------------------------------- No place to go |
$multichoice=-1; |
$multichoice=-1; |
} |
} |
# ------------------------------------------------------ Set parameters, if any |
|
if ($redirecturl) { |
|
if ($hash{'param_'.$next}) { |
|
my ($mapid,$resid)=split(/\./,$next); |
|
&Apache::lonnet::appendparms( |
|
&Apache::lonnet::declutter($hash{'map_id_'.$mapid}). |
|
'___'.$resid.'___'. |
|
&Apache::lonnet::declutter($redirecturl), |
|
$hash{'param_'.$next}); |
|
} |
|
} |
|
# ----------------- The program must come past this point to untie the big hash |
# ----------------- The program must come past this point to untie the big hash |
untie(%hash); |
untie(%hash); |
# --------------------------------------------------------- Store position info |
# --------------------------------------------------------- Store position info |