--- loncom/interface/groupsort.pm 2007/06/29 22:41:24 1.52
+++ loncom/interface/groupsort.pm 2007/07/11 20:32:15 1.54
@@ -2,7 +2,7 @@
# The LON-CAPA group sort handler
# Allows for sorting prior to import into RAT.
#
-# $Id: groupsort.pm,v 1.52 2007/06/29 22:41:24 banghart Exp $
+# $Id: groupsort.pm,v 1.54 2007/07/11 20:32:15 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -66,7 +66,7 @@ sub readfromdb {
my $key = $_;
if ($ahash{$key} eq '1') {
if ($hash{'pre_'.$key.'_title'} eq 'Not_retrieved') {
- $hash{'pre_'.$key.'_title'} = &Apache::lonnet::gettitle($hash{'pre_'.$key.'_link'},'title');
+ $hash{'pre_'.$key.'_title'} = &Apache::lonnet::gettitle($hash{'pre_'.$key.'_link'});
}
$hash{'store_'.$hash{'pre_'.$key.'_link'}} =
$hash{'pre_'.$key.'_title'};
@@ -353,7 +353,7 @@ END
END
-
+ $r->print(&Apache::loncommon::inhibit_menu_check('input'));
# ---
if ($env{'form.recover'}) {
@@ -368,9 +368,9 @@ END
&Apache::loncommon::escape_single(&Apache::loncommon::lastresurl());
$r->print(<
+ onClick="window.location='$resurl?inhibitmenu=yes&catalogmode=import'" />
+ onClick="window.location='/adm/searchcat?inhibitmenu=yes&catalogmode=import'" />
@@ -396,6 +396,8 @@ END
END
+ $r->print(&Apache::loncommon::inhibit_menu_check('input'));
+
}
foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) {
my $key=$_;