--- loncom/interface/groupsort.pm 2002/05/24 16:04:54 1.12
+++ loncom/interface/groupsort.pm 2002/08/27 12:18:13 1.15
@@ -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.15 2002/08/27 12:18:13 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -39,6 +39,7 @@ 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
@@ -49,7 +50,6 @@ sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['acts','catalogmode','mode']);
-
# color scheme
my $fileclr = '#ffffe6';
my $titleclr = '#ddffff';
@@ -131,9 +131,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 +193,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 +283,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("