--- loncom/interface/groupsort.pm 2002/08/16 17:03:23 1.14
+++ 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.14 2002/08/16 17:03:23 matthew 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
@@ -130,9 +131,8 @@ function orderchange(val,newval) {
}
</script>
</head>
-<body bgcolor="#FFFFFF">
END
-
+ $r->print(&Apache::loncommon::bodytag('Sort Imported Resources'));
# read pertinent machine configuration
my $domain = $r->dir_config('lonDefDomain');
$iconpath = $r->dir_config('lonIconsURL') . "/";
@@ -284,9 +284,6 @@ END
my $ctr = 0;
my $clen = scalar(keys %shash);
$r->print(<<END);
-<h2><font color="#888888">
- The LearningOnline Network With CAPA Group Sorter
- </font></h2>
<b><font color="#888888">Finalize order of resources</font></b>
<form method='post' action='/adm/groupsort' name='groupsort'
enctype='application/x-www-form-urlencoded'>