version 1.11, 2000/11/14 18:15:01
|
version 1.13, 2000/11/16 11:58:30
|
Line 10
|
Line 10
|
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 10/02 Gerd Kortemeyer) |
# 10/02 Gerd Kortemeyer) |
# |
# |
# 10/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16,10/17,11/14 Gerd Kortemeyer |
# 10/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16,10/17, |
|
# 11/14,11/16 Gerd Kortemeyer |
|
|
package Apache::lonpageflip; |
package Apache::lonpageflip; |
|
|
Line 186 sub handler {
|
Line 187 sub handler {
|
# -------------------------------------------------------------- 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 |