version 1.75, 2006/04/11 19:35:16
|
version 1.79, 2006/06/08 13:56:40
|
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 713 function srchopen(mode) {
|
Line 716 function srchopen(mode) {
|
} |
} |
// ----------------------------------------------------- launch indexer browser |
// ----------------------------------------------------- launch indexer browser |
function groupsearch() { |
function groupsearch() { |
srchcheck('groupsearch'); |
srchcheck('import'); |
} |
} |
|
|
function groupimport() { |
function groupimport() { |
idxcheck('groupimport'); |
idxcheck('import'); |
} |
} |
|
|
// ------------------------------------------------------- Do srch status check |
// ------------------------------------------------------- Do srch status check |
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); |