version 1.30, 2002/06/04 13:23:54
|
version 1.31.2.2, 2002/09/04 19:11:24
|
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 68 sub mapread {
|
Line 67 sub mapread {
|
if ($command eq 'objlinks') { |
if ($command eq 'objlinks') { |
$links[$number]=$content; |
$links[$number]=$content; |
} |
} |
|
if ($command eq 'objparms') { |
|
return('Map has resource parameters. Use advanced editor.',1); |
|
} |
} |
} |
# ------------------------------------------------------- Is this a linear map? |
# ------------------------------------------------------- Is this a linear map? |
my @starters=(); |
my @starters=(); |
Line 315 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'; |
} |
} |
Line 541 sub smpedt {
|
Line 547 sub smpedt {
|
# ------------------------------------------------------------ Assemble windows |
# ------------------------------------------------------------ Assemble windows |
|
|
my $idx=-1; |
my $idx=-1; |
|
$importdetail='&'.$importdetail; |
|
$importdetail=~s/^\&+/\&/; |
my $importwindow= |
my $importwindow= |
'<option value="-1"> ---- Import and Paste Area ---- </option>'. |
'<option value="-1"> ---- Import and Paste Area ---- </option>'. |
join("\n",map { |
join("\n",map { |