version 1.17, 2002/05/15 19:50:37
|
version 1.18, 2002/05/15 20:24:32
|
Line 320 sub smpedt {
|
Line 320 sub smpedt {
|
for (my $i=0;$i<=$lastsel;$i++) { |
for (my $i=0;$i<=$lastsel;$i++) { |
my ($name,$url)=split(/\=/,$curimport[$i]); |
my ($name,$url)=split(/\=/,$curimport[$i]); |
if ($url) { |
if ($url) { |
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
$importdetail.='&'.$name.'='.$url; |
&Apache::lonnet::escape($url); |
|
} |
} |
} |
} |
|
|
Line 330 sub smpedt {
|
Line 329 sub smpedt {
|
for (my $i=$lastsel+1;$i<=$#curimport;$i++) { |
for (my $i=$lastsel+1;$i<=$#curimport;$i++) { |
my ($name,$url)=split(/\=/,$curimport[$i]); |
my ($name,$url)=split(/\=/,$curimport[$i]); |
if ($url) { |
if ($url) { |
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
$importdetail.='&'.$name.'='.$url; |
&Apache::lonnet::escape($url); |
|
} |
} |
} |
} |
$importdetail=~s/\&+/\&/g; |
$importdetail=~s/\&+/\&/g; |
Line 350 sub smpedt {
|
Line 348 sub smpedt {
|
for (my $i=0;$i<=$#curimport;$i++) { |
for (my $i=0;$i<=$#curimport;$i++) { |
my ($name,$url)=split(/\=/,$curimport[$i]); |
my ($name,$url)=split(/\=/,$curimport[$i]); |
if ($url) { |
if ($url) { |
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
$importdetail.='&'.$name.'='.$url; |
&Apache::lonnet::escape($url); |
|
} |
} |
} |
} |
# --------------------------------------------------------- Loading another map |
# --------------------------------------------------------- Loading another map |
Line 370 sub smpedt {
|
Line 367 sub smpedt {
|
for (my $i=0;$i<=$lastsel;$i++) { |
for (my $i=0;$i<=$lastsel;$i++) { |
my ($name,$url)=split(/\=/,$curimport[$i]); |
my ($name,$url)=split(/\=/,$curimport[$i]); |
if ($url) { |
if ($url) { |
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
$importdetail.='&'.$name.'='.$url; |
&Apache::lonnet::escape($url); |
|
} |
} |
} |
} |
|
|
Line 387 sub smpedt {
|
Line 383 sub smpedt {
|
for (my $i=$lastsel+1;$i<=$#curimport;$i++) { |
for (my $i=$lastsel+1;$i<=$#curimport;$i++) { |
my ($name,$url)=split(/\=/,$curimport[$i]); |
my ($name,$url)=split(/\=/,$curimport[$i]); |
if ($url) { |
if ($url) { |
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
$importdetail.='&'.$name.'='.$url; |
&Apache::lonnet::escape($url); |
|
} |
} |
} |
} |
$importdetail=~s/\&+/\&/g; |
$importdetail=~s/\&+/\&/g; |