version 1.170, 2007/07/11 20:32:15
|
version 1.173, 2007/07/18 13:39:31
|
Line 53 use Apache::lonmeta;
|
Line 53 use Apache::lonmeta;
|
use Apache::File; |
use Apache::File; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonsource(); |
use Apache::lonsource(); |
|
use Apache::groupsort(); |
use GDBM_File; |
use GDBM_File; |
use LONCAPA qw(:match); |
use LONCAPA qw(:match); |
|
|
Line 268 END
|
Line 269 END
|
function select_data(url) { |
function select_data(url) { |
var location = "/res/?launch=2&form=$form&element=$element&titleelement=$titleelement&acts=" + url; |
var location = "/res/?launch=2&form=$form&element=$element&titleelement=$titleelement&acts=" + url; |
window.location=location; |
window.location=location; |
|
if (window.opener.document.forms["$form"].elements["$element"].value != url) { |
|
window.opener.unClean(); |
|
} |
} |
} |
function select_group() { |
function select_group() { |
window.location="$location"+document.forms.fileattr.acts.value; |
window.location="$location"+document.forms.fileattr.acts.value; |
Line 399 ENDHEADER
|
Line 403 ENDHEADER
|
{'domain' => $headerdom,})); |
{'domain' => $headerdom,})); |
# - Evaluate actions from previous page (both cumulatively and chronologically) |
# - Evaluate actions from previous page (both cumulatively and chronologically) |
if ($env{'form.catalogmode'} eq 'import') { |
if ($env{'form.catalogmode'} eq 'import') { |
my $acts=$env{'form.acts'}; |
&Apache::groupsort::update_actions_hash(\%hash); |
my @Acts=split(/b/,$acts); |
|
my %ahash; |
|
my %achash; |
|
my $ac=0; |
|
# some initial hashes for working with data |
|
foreach (@Acts) { |
|
my ($state,$ref)=split(/a/); |
|
$ahash{$ref}=$state; |
|
$achash{$ref}=$ac; |
|
$ac++; |
|
} |
|
# sorting through the actions and changing the global database hash |
|
foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) { |
|
if ($ahash{$key} eq '1') { |
|
$hash{'store_'.$hash{'pre_'.$key.'_link'}}= |
|
$hash{'pre_'.$key.'_title'}; |
|
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}}= |
|
$hash{'storectr'}+0; |
|
$hash{'storectr'}++; |
|
} |
|
if ($ahash{$key} eq '0') { |
|
if ($hash{'store_'.$hash{'pre_'.$key.'_link'}}) { |
|
delete $hash{'store_'.$hash{'pre_'.$key.'_link'}}; |
|
} |
|
} |
|
} |
|
# deleting the previously cached listing |
|
foreach (keys %hash) { |
|
if ($_ =~ /^pre_/ && $_ =~/link$/) { |
|
my $key = $_; |
|
$key =~ s/^pre_//; |
|
$key =~ s/_[^_]*$//; |
|
delete $hash{'pre_'.$key.'_title'}; |
|
delete $hash{'pre_'.$key.'_link'}; |
|
} |
|
} |
|
} |
} |
|
|
# ---------------------------------- get state of file attributes to be showing |
# ---------------------------------- get state of file attributes to be showing |
Line 527 END
|
Line 495 END
|
&Apache::loncommon::storeresurl($storeuri); |
&Apache::loncommon::storeresurl($storeuri); |
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri); |
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri); |
# -------------------------------------------------- Check All and Uncheck all |
# -------------------------------------------------- Check All and Uncheck all |
$r->print('<br /><input type="button" value="'.&mt("Check All").'" id="checkallbutton" onClick="javascript:checkAll()" />'); |
if ($env{'form.catalogmode'} eq 'import') { |
$r->print('<input type="button" value="'.&mt("Uncheck All").'" id="uncheckallbutton" onClick="javascript:uncheckAll()" />'); |
$r->print('<br /><input type="button" value="'.&mt("Check All").'" id="checkallbutton" onClick="javascript:checkAll()" />'); |
|
$r->print('<input type="button" value="'.&mt("Uncheck All").'" id="uncheckallbutton" onClick="javascript:uncheckAll()" />'); |
|
} |
# ----------------- output starting row to the indexed file/directory hierarchy |
# ----------------- output starting row to the indexed file/directory hierarchy |
my $titleclr="#ddffff"; |
my $titleclr="#ddffff"; |
#$r->print(&initdebug()); |
#$r->print(&initdebug()); |