version 1.67, 2005/06/08 15:44:51
|
version 1.68, 2005/06/08 16:10:01
|
Line 448 sub buttons {
|
Line 448 sub buttons {
|
return $output.'</form><hr>'; |
return $output.'</form><hr>'; |
} |
} |
|
|
|
# ----------------------------------------------------- Get an unused res index |
|
|
|
sub unusedindex { |
|
return 1+($#resources>$#zombies?$#resources:$#zombies); |
|
} |
|
|
# ----------------------------------------------------------- Paste into target |
# ----------------------------------------------------------- Paste into target |
# modifies @order, @resources |
# modifies @order, @resources |
|
|
Line 460 sub pastetarget {
|
Line 466 sub pastetarget {
|
$name=&Apache::lonnet::unescape($name); |
$name=&Apache::lonnet::unescape($name); |
$url=&Apache::lonnet::unescape($url); |
$url=&Apache::lonnet::unescape($url); |
if ($url) { |
if ($url) { |
my $idx=$#resources+1; |
my $idx=&unusedindex(); |
$insertorder[$#insertorder+1]=$idx; |
$insertorder[$#insertorder+1]=$idx; |
my $ext='false'; |
my $ext='false'; |
if ($url=~/^http\:\/\//) { $ext='true'; } |
if ($url=~/^http\:\/\//) { $ext='true'; } |
Line 506 sub startfinish {
|
Line 512 sub startfinish {
|
$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 |
# Make sure this has at least start and finish |
if ($#order==0) { |
if ($#order==0) { |
$resources[$#resources+1]='::false'; |
$resources[&unusedindex()]='::false'; |
$order[1]=$#resources; |
$order[1]=$#resources; |
} |
} |
# Make the last one a finish resource |
# Make the last one a finish resource |
Line 1178 sub viewmap {
|
Line 1184 sub viewmap {
|
'" /></td><td>'.&Apache::lonratsrv::qtescape($title). |
'" /></td><td>'.&Apache::lonratsrv::qtescape($title). |
'</td><td>'.$filename.'</td><td>'); |
'</td><td>'.$filename.'</td><td>'); |
if ($url) { |
if ($url) { |
if (-e $resfilepath) { |
$r->print('<a href="'.$resurl.'">'.&mt('Resource space').'</a>'); |
$r->print('<a href="'.$resurl.'">'.&mt('Resource space').'</a>'); |
|
} else { |
|
$r->print(&mt('unpublished')); |
|
} |
|
} |
} |
$r->print('</td><td>'); |
$r->print('</td><td>'); |
if ($url) { |
if ($url) { |