version 1.29, 2002/05/25 18:50:46
|
version 1.31, 2002/06/24 14:12:04
|
Line 36 use strict;
|
Line 36 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonratsrv; |
use Apache::lonratsrv; |
|
use Apache::lonsequence; |
|
|
my @order; |
my @order; |
my @resources; |
my @resources; |
Line 67 sub mapread {
|
Line 68 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 443 sub smpedt {
|
Line 447 sub smpedt {
|
} |
} |
|
|
foreach ( |
foreach ( |
&attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) { |
&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) { |
my ($name,$url)=split(/\:/,$_); |
my ($name,$url)=split(/\:/,$_); |
if ($url) { |
if ($url) { |
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |