version 1.30, 2007/01/16 21:19:11
|
version 1.31, 2007/07/11 23:51:02
|
Line 36 use GDBM_File;
|
Line 36 use GDBM_File;
|
use LONCAPA::map(); |
use LONCAPA::map(); |
use Apache::lonpageflip(); |
use Apache::lonpageflip(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
use Apache::groupsort(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use HTML::Entities(); |
use HTML::Entities(); |
|
|
Line 114 ENDSELECT
|
Line 115 ENDSELECT
|
$successtied=1; |
$successtied=1; |
|
|
# - 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(\%selhash); |
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 tied database hash |
|
foreach (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) { |
|
my $key=$_; |
|
if ($ahash{$key} eq '1') { |
|
$selhash{'store_'.$selhash{'pre_'.$key.'_link'}}= |
|
$selhash{'pre_'.$key.'_title'}; |
|
$selhash{'storectr_'.$selhash{'pre_'.$key.'_link'}}= |
|
$selhash{'storectr'}+0; |
|
$selhash{'storectr'}++; |
|
} |
|
if ($ahash{$key} eq '0') { |
|
if ($selhash{'store_'.$selhash{'pre_'.$key.'_link'}}) { |
|
delete $selhash{'store_'.$selhash{'pre_'.$key.'_link'}}; |
|
} |
|
} |
|
} |
|
# deleting the previously cached listing |
|
foreach (keys %selhash) { |
|
if ($_ =~ /^pre_/ && $_ =~/link$/) { |
|
my $key = $_; |
|
$key =~ s/^pre_//; |
|
$key =~ s/_[^_]*$//; |
|
delete $selhash{'pre_'.$key.'_title'}; |
|
delete $selhash{'pre_'.$key.'_link'}; |
|
} |
|
} |
|
} |
|
# - |
# - |
} |
} |
} |
} |