version 1.14, 2012/07/21 21:20:19
|
version 1.15, 2014/06/14 19:05:00
|
Line 303 sub startfinish {
|
Line 303 sub startfinish {
|
} |
} |
} |
} |
} |
} |
|
# Make sure this has at least start and finish |
|
if ($#order==-1) { |
|
$resources[&getresidx()]='::false'; |
|
$order[0]=$#resources; |
|
} |
# Put in a start resource |
# Put in a start resource |
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'; |
# Make sure this has at least start and finish |
|
if ($#order==0) { |
if ($#order==0) { |
$resources[&getresidx()]='::false'; |
$resources[&getresidx()]='::false'; |
$order[1]=$#resources; |
$order[1]=$#resources; |