version 1.31, 2002/10/10 19:05:32
|
version 1.33, 2002/12/06 14:06:53
|
Line 83 sub move {
|
Line 83 sub move {
|
my $posnext=''; |
my $posnext=''; |
if ($direction eq 'forward') { |
if ($direction eq 'forward') { |
# --------------------------------------------------------------------- Forward |
# --------------------------------------------------------------------- Forward |
if ($hash{'type_'.$rid} eq 'finish') { |
while ($hash{'type_'.$rid} eq 'finish') { |
$rid=$hash{'ids_'.&Apache::lonnet::clutter($mapurl)}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
map { |
map { |
my $thiscond= |
my $thiscond= |
Line 119 sub move {
|
Line 119 sub move {
|
} |
} |
} elsif ($direction eq 'back') { |
} elsif ($direction eq 'back') { |
# ------------------------------------------------------------------- Backwards |
# ------------------------------------------------------------------- Backwards |
if ($hash{'type_'.$rid} eq 'start') { |
while ($hash{'type_'.$rid} eq 'start') { |
$rid=$hash{'ids_'.&Apache::lonnet::clutter($mapurl)}; |
$rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}}; |
} |
} |
map { |
map { |
my $thiscond= |
my $thiscond= |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
&Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}}); |
Line 261 sub handler {
|
Line 261 sub handler {
|
$multichoicehash{'src_'.$_}=$hash{'src_'.$_}; |
$multichoicehash{'src_'.$_}=$hash{'src_'.$_}; |
$multichoicehash{'title_'.$_}=$hash{'title_'.$_}; |
$multichoicehash{'title_'.$_}=$hash{'title_'.$_}; |
$multichoicehash{'type_'.$_}=$hash{'type_'.$_}; |
$multichoicehash{'type_'.$_}=$hash{'type_'.$_}; |
|
(my $first, my $second) = $_ =~ /(\d+).(\d+)/; |
|
my $symbSrc = Apache::lonnet::declutter($hash{'src_'.$_}); |
|
$multichoicehash{'symb_'.$_} = |
|
Apache::lonnet::declutter($hash{'map_id_'.$first}.'___'. |
|
$second.'___'.$symbSrc); |
|
|
my ($choicemap,$choiceres)=split(/\./,$_); |
my ($choicemap,$choiceres)=split(/\./,$_); |
$cachehash |
$cachehash |
{&Apache::lonnet::declutter($hash{'src_'.$choicemap})} |
{&Apache::lonnet::declutter($hash{'src_'.$choicemap})} |
Line 322 ENDSTART
|
Line 328 ENDSTART
|
foreach (@possibilities) { |
foreach (@possibilities) { |
$r->print( |
$r->print( |
'<tr><td><a href="'. |
'<tr><td><a href="'. |
$multichoicehash{'src_'.$_}.'">'. |
$multichoicehash{'src_'.$_}.'?symb=' . |
|
Apache::lonnet::escape($multichoicehash{'symb_'.$_}).'">'. |
$multichoicehash{'title_'.$_}. |
$multichoicehash{'title_'.$_}. |
'</a></td><td>'.$multichoicehash{'type_'.$_}. |
'</a></td><td>'.$multichoicehash{'type_'.$_}. |
'</td></tr>'); |
'</td></tr>'); |