--- loncom/interface/groupsort.pm 2007/07/12 01:04:36 1.58
+++ loncom/interface/groupsort.pm 2007/11/02 21:08:45 1.61
@@ -2,7 +2,7 @@
# The LON-CAPA group sort handler
# Allows for sorting prior to import into RAT.
#
-# $Id: groupsort.pm,v 1.58 2007/07/12 01:04:36 albertel Exp $
+# $Id: groupsort.pm,v 1.61 2007/11/02 21:08:45 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -37,7 +37,7 @@ use GDBM_File;
use Apache::loncommon;
use Apache::lonlocal;
use Apache::lonnet;
-use LONCAPA();
+use LONCAPA;
my $iconpath; # variable to be accessible to multiple subroutines
my %hash; # variable to tie to user specific database
@@ -45,14 +45,15 @@ my %hash; # variable to tie to user spec
sub update_actions_hash {
my ($hash) = @_;
+ # be careful in here, there is also a global %hash
my $acts=$env{'form.acts'};
my @Acts=split(/b/,$acts);
my %ahash;
my %achash;
- my $ac=0;
# some initial hashes for working with data
+ my $ac=0;
foreach (@Acts) {
- my ($state,$ref)=split(/a/);
+ my ($state,$ref)=split(/a/);
$ahash{$ref}=$state;
$achash{$ref}=$ac;
$ac++;
@@ -60,15 +61,16 @@ sub update_actions_hash {
# 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->{'store_'.$hash->{'pre_'.$key.'_link'}}=
$hash->{'pre_'.$key.'_title'};
- $hash->{'storectr_'.$hash{'pre_'.$key.'_link'}}=
+ $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'}});
+ if ($hash->{'store_'.$hash->{'pre_'.$key.'_link'}}) {
+ delete($hash->{'store_'.$hash->{'pre_'.$key.'_link'}});
+ delete($hash->{'storectr_'.$hash->{'pre_'.$key.'_link'}});
}
}
}
@@ -227,9 +229,9 @@ function finish_import() {
for (var num=0; num';
+ my $string = '';
$filelink=~s|^/ext/|http://|;
$string .= '';
- $string .= '';
+ &escape($filelink).'" />';
+ $string .= '';
return $string;
}