version 1.77, 2006/05/23 18:31:13
|
version 1.80, 2006/06/19 09:42:56
|
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 696 function idxopen(mode) {
|
Line 699 function idxopen(mode) {
|
} |
} |
|
|
// ------------------------------------------------------ Open groupsort window |
// ------------------------------------------------------ Open groupsort window |
function groupopen(url,recover) { |
function groupopen(url,recover,bookmarks) { |
var options="scrollbars=1,resizable=1,menubar=0"; |
var options="scrollbars=1,resizable=1,menubar=0"; |
idxflag=1; |
idxflag=1; |
idx=open("/adm/groupsort?mode=$mode&recover="+recover+"&readfile="+url,"idxout",options); |
idx=open("/adm/groupsort?mode=$mode&recover="+recover+"&readfile="+url+"&bookmarks="+bookmarks,"idxout",options); |
idx.focus(); |
idx.focus(); |
} |
} |
|
|
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 1034 sub smpedt {
|
Line 1037 sub smpedt {
|
'nt' => 'New Title', |
'nt' => 'New Title', |
'se' => 'Search', |
'se' => 'Search', |
'im' => 'Import', |
'im' => 'Import', |
|
'bk' => 'Import Bookmarks', |
'vi' => 'View', |
'vi' => 'View', |
'lm' => 'Load Map', |
'lm' => 'Load Map', |
'ds' => 'Discard Selected', |
'ds' => 'Discard Selected', |
Line 1136 value="Select Map"><input type=submit na
|
Line 1140 value="Select Map"><input type=submit na
|
<input type=button onClick= |
<input type=button onClick= |
"javascript:impfortarget.value=1;groupimport();" value="$lt{'im'}"> |
"javascript:impfortarget.value=1;groupimport();" value="$lt{'im'}"> |
<input type=button onClick= |
<input type=button onClick= |
"javascript:impfortarget.value=1;javascript:groupopen('$url',1);" value="$lt{'reco'}"> |
"javascript:impfortarget.value=1;groupopen(0,1,1);" value="$lt{'bk'}"> |
|
<input type=button onClick= |
|
"javascript:impfortarget.value=1;groupopen('$url',1,0);" value="$lt{'reco'}"> |
$lt{'as'} |
$lt{'as'} |
<hr> |
<hr> |
<input type=submit name="moveup" value="$lt{'mu'}"> |
<input type=submit name="moveup" value="$lt{'mu'}"> |