version 1.31, 2002/06/24 14:12:04
|
version 1.31.2.1, 2002/08/30 22:28:05
|
Line 38 use Apache::lonnet;
|
Line 38 use Apache::lonnet;
|
use Apache::lonratsrv; |
use Apache::lonratsrv; |
use Apache::lonsequence; |
use Apache::lonsequence; |
|
|
my @order; |
use vars qw(@order @resources); |
my @resources; |
|
|
|
|
|
# Mapread read maps into global arrays @links and @resources, determines status |
# Mapread read maps into global arrays @links and @resources, determines status |
Line 318 sub startfinish {
|
Line 317 sub startfinish {
|
} |
} |
my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]); |
my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]); |
$resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res'; |
$resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res'; |
|
if ($#order==0) { |
|
$resources[$#resources+1]='::false'; |
|
$order[1]=$#resources; |
|
} |
my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]); |
my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]); |
$resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res'; |
$resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res'; |
} |
} |