version 1.25, 2002/05/23 15:07:55
|
version 1.26, 2002/07/07 21:04:47
|
Line 238 sub handler {
|
Line 238 sub handler {
|
($next,$endupmap)=&move($rid,$startoutmap,$direction); |
($next,$endupmap)=&move($rid,$startoutmap,$direction); |
# -------------------------------------- Do we have one and only one empty URL? |
# -------------------------------------- Do we have one and only one empty URL? |
my $safecount=0; |
my $safecount=0; |
while (($next) && ($next!~/\,/) && (!$hash{'src_'.$next}) |
while (($next) && ($next!~/\,/) && |
&& ($safecount<25)) { |
((!$hash{'src_'.$next}) || ($hash{'randomout_'.$next})) |
|
&& ($safecount<10000)) { |
($next,$endupmap)=&move($next,$endupmap,$direction); |
($next,$endupmap)=&move($next,$endupmap,$direction); |
$safecount++; |
$safecount++; |
} |
} |
Line 304 Please click on the the resource you int
|
Line 305 Please click on the the resource you int
|
<table border=2> |
<table border=2> |
<tr><th>Title</th><th>Type</th></tr> |
<tr><th>Title</th><th>Type</th></tr> |
ENDSTART |
ENDSTART |
map { |
foreach (@possibilities) { |
$r->print( |
$r->print( |
'<tr><td><a href="'. |
'<tr><td><a href="'. |
$multichoicehash{'src_'.$_}.'">'. |
$multichoicehash{'src_'.$_}.'">'. |
$multichoicehash{'title_'.$_}. |
$multichoicehash{'title_'.$_}. |
'</a></td><td>'.$multichoicehash{'type_'.$_}. |
'</a></td><td>'.$multichoicehash{'type_'.$_}. |
'</td></tr>'); |
'</td></tr>'); |
} @possibilities; |
} |
$r->print('</table></body></html>'); |
$r->print('</table></body></html>'); |
return OK; |
return OK; |
} else { |
} else { |