--- loncom/interface/groupsort.pm 2002/05/24 16:04:54 1.12
+++ loncom/interface/groupsort.pm 2003/01/14 18:47:50 1.18
@@ -2,7 +2,7 @@
# The LON-CAPA group sort handler
# Allows for sorting prior to import into RAT.
#
-# $Id: groupsort.pm,v 1.12 2002/05/24 16:04:54 www Exp $
+# $Id: groupsort.pm,v 1.18 2003/01/14 18:47:50 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -39,17 +39,26 @@ use strict;
use Apache::Constants qw(:common);
use GDBM_File;
+use Apache::loncommon;
my %hash; # variable to tie to user specific database
my $iconpath; # variable to be accessible to multiple subroutines
+sub cleanup {
+ if (tied(%hash)){
+ &Apache::lonnet::logthis('Cleanup groupsort: hash');
+ unless (untie(%hash)) {
+ &Apache::lonnet::logthis('Failed cleanup groupsort: hash');
+ }
+ }
+}
+
# ---------------------------------------------------------------- Main Handler
sub handler {
my $r = shift;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['acts','catalogmode','mode']);
-
# color scheme
my $fileclr = '#ffffe6';
my $titleclr = '#ddffff';
@@ -131,9 +140,8 @@ function orderchange(val,newval) {
}
-
END
-
+ $r->print(&Apache::loncommon::bodytag('Sort Imported Resources'));
# read pertinent machine configuration
my $domain = $r->dir_config('lonDefDomain');
$iconpath = $r->dir_config('lonIconsURL') . "/";
@@ -194,7 +202,7 @@ END
}
# ----------------------------- diropendb is now the filename of the db to open
- if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {
+ if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
my $acts = $ENV{'form.acts'};
my @Acts = split(/b/,$acts);
my %ahash;
@@ -284,16 +292,14 @@ END
untie %hash;
my $ctr = 0;
my $clen = scalar(keys %shash);
- $r->print('The LearningOnline Network With CAPA '.
- 'Group Sorter
'."\n");
- $r->print('Finalize order of resources'.
- ''."\n");
- $r->print("