version 1.77, 2006/05/23 18:31:13
|
version 1.78, 2006/05/30 17:15:10
|
Line 172 use Apache::lonsequence;
|
Line 172 use Apache::lonsequence;
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use File::Copy; |
use File::Copy; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
use vars qw(@order @resources @resparms @zombies); |
use vars qw(@order @resources @resparms @zombies); |
|
|
Line 488 sub pastetarget {
|
Line 491 sub pastetarget {
|
foreach (@which) { |
foreach (@which) { |
if (defined($_)) { |
if (defined($_)) { |
my ($name,$url)=split(/\=/,$_); |
my ($name,$url)=split(/\=/,$_); |
$name=&Apache::lonnet::unescape($name); |
$name=&unescape($name); |
$url=&Apache::lonnet::unescape($url); |
$url=&unescape($url); |
if ($url) { |
if ($url) { |
my $idx=&getresidx($url); |
my $idx=&getresidx($url); |
$insertorder[$#insertorder+1]=$idx; |
$insertorder[$#insertorder+1]=$idx; |
Line 871 sub smpedt {
|
Line 874 sub smpedt {
|
&Apache::lonsequence::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.='&'.&escape($name).'='. |
&Apache::lonnet::escape($url); |
&escape($url); |
} |
} |
} |
} |
|
|
Line 918 sub smpedt {
|
Line 921 sub smpedt {
|
foreach (@targetselect) { |
foreach (@targetselect) { |
my ($name,$url)=split(/\:/,$resources[$order[$_-1]]); |
my ($name,$url)=split(/\:/,$resources[$order[$_-1]]); |
if ($url) { |
if ($url) { |
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
$importdetail.='&'.&escape($name).'='. |
&Apache::lonnet::escape($url); |
&escape($url); |
} |
} |
} |
} |
|
|
Line 1006 sub smpedt {
|
Line 1009 sub smpedt {
|
my ($name,$url)=split(/\=/,$_); |
my ($name,$url)=split(/\=/,$_); |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name='EMPTY'; } |
unless ($name) { $name='EMPTY'; } |
'<option value="'.$idx.'">'.&Apache::lonnet::unescape($name). |
'<option value="'.$idx.'">'.&unescape($name). |
'</option>'; |
'</option>'; |
} |
} |
} split(/\&/,$importdetail)); |
} split(/\&/,$importdetail)); |
Line 1019 sub smpedt {
|
Line 1022 sub smpedt {
|
my ($name,$url)=split(/\:/,$resources[$_]); |
my ($name,$url)=split(/\:/,$resources[$_]); |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name='EMPTY'; } |
unless ($name) { $name='EMPTY'; } |
$targetdetail.='&'.&Apache::lonnet::escape($name).'='. |
$targetdetail.='&'.&escape($name).'='. |
&Apache::lonnet::escape($url); |
&escape($url); |
$idx++; |
$idx++; |
$name=~s/\:/\:/g; |
$name=~s/\:/\:/g; |
'<option value="'.$idx.'">'.$name.'</option>'; |
'<option value="'.$idx.'">'.$name.'</option>'; |