version 1.70, 2005/06/08 17:42:01
|
version 1.73, 2005/06/10 16:56:08
|
Line 33 package Apache::lonratedt;
|
Line 33 package Apache::lonratedt;
|
|
|
=head1 NAME |
=head1 NAME |
|
|
Apache::lonratedt: advanced resource assembly tool |
Apache::lonratedt: simple resource assembly tool |
|
|
=head1 SYNOPSIS |
=head1 SYNOPSIS |
|
|
Line 462 sub getresidx {
|
Line 462 sub getresidx {
|
return $max; |
return $max; |
} |
} |
|
|
|
# --------------------------------------------------------------- Make a zombie |
|
|
|
sub makezombie { |
|
my $idx=shift; |
|
my ($name,$url,$ext)=split(/\:/,$resources[$idx]); |
|
my $now=time; |
|
$zombies[$idx]=$name. |
|
' [('.$now.','.$env{'user.name'}.','.$env{'user.domain'}.')]:'. |
|
$url.':'.$ext.':zombie'; |
|
} |
|
|
# ----------------------------------------------------------- Paste into target |
# ----------------------------------------------------------- Paste into target |
# modifies @order, @resources |
# modifies @order, @resources |
|
|
Line 678 function idxopen(mode) {
|
Line 689 function idxopen(mode) {
|
idx.focus(); |
idx.focus(); |
} |
} |
|
|
|
// ------------------------------------------------------ Open groupsort window |
|
function groupopen(url,recover) { |
|
var options="scrollbars=1,resizable=1,menubar=0"; |
|
idxflag=1; |
|
idx=open("/adm/groupsort?mode=$mode&recover="+recover+"&readfile="+url,"idxout",options); |
|
idx.focus(); |
|
} |
|
|
// --------------------------------------------------------- Open search window |
// --------------------------------------------------------- Open search window |
function srchopen(mode) { |
function srchopen(mode) { |
var options="scrollbars=1,resizable=1,menubar=0"; |
var options="scrollbars=1,resizable=1,menubar=0"; |
Line 694 function groupsearch() {
|
Line 713 function groupsearch() {
|
function groupimport() { |
function groupimport() { |
idxcheck('groupimport'); |
idxcheck('groupimport'); |
} |
} |
|
|
// ------------------------------------------------------- Do srch status check |
// ------------------------------------------------------- Do srch status check |
function srchcheck(mode) { |
function srchcheck(mode) { |
if (!srch || srch.closed || srchmode!=mode) { |
if (!srch || srch.closed || srchmode!=mode) { |
Line 913 sub smpedt {
|
Line 933 sub smpedt {
|
foreach (@targetselect) { |
foreach (@targetselect) { |
if ($_-1==$i) { $include=0; } |
if ($_-1==$i) { $include=0; } |
} |
} |
if ($include) { $neworder[$#neworder+1]=$order[$i]; } |
if ($include) { |
|
$neworder[$#neworder+1]=$order[$i]; |
|
} else { |
|
&makezombie($order[$i]); |
|
} |
} |
} |
@order=@neworder; |
@order=@neworder; |
&storemap(&Apache::lonnet::filelocation('',$url)); |
&storemap(&Apache::lonnet::filelocation('',$url)); |