version 1.75, 2006/04/11 19:35:16
|
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>'; |
Line 1051 sub smpedt {
|
Line 1054 sub smpedt {
|
'reco' => 'Recover Deleted' |
'reco' => 'Recover Deleted' |
); |
); |
my $js=<<ENDJS; |
my $js=<<ENDJS; |
<script type="text/javascript> |
<script type="text/javascript"> |
|
|
$editscript |
$editscript |
|
|
Line 1096 sub smpedt {
|
Line 1099 sub smpedt {
|
</script> |
</script> |
ENDJS |
ENDJS |
|
|
my $start_page = |
my $start_page = &Apache::loncommon::start_page(undef,$js). |
&Apache::loncommon::start_page(undef,$js, |
&Apache::loncommon::help_open_menu('', |
{'only_body' => |
'Sequence_Simple_Editor_Creation', |
($env{'environment.remote'} ne 'off')}). |
'Sequence_Simple_Editor_Creation', |
&Apache::loncommon::help_open_menu('','Sequence_Simple_Editor_Creation','Sequence_Simple_Editor_Creation','',6,'RAT'); |
'',6,'RAT'); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
|
|
$r->print(<<ENDSMPHEAD); |
$r->print(<<ENDSMPHEAD); |