--- loncom/interface/groupsort.pm 2007/06/15 19:18:45 1.51
+++ 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.51 2007/06/15 19:18:45 albertel Exp $
+# $Id: groupsort.pm,v 1.54 2007/07/11 20:32:15 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -65,6 +65,9 @@ sub readfromdb {
foreach (sort {$achash{$a} <=> $achash{$b}} (keys %ahash)) {
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'});
+ }
$hash{'store_'.$hash{'pre_'.$key.'_link'}} =
$hash{'pre_'.$key.'_title'};
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}} =
@@ -350,7 +353,7 @@ END
END
-
+ $r->print(&Apache::loncommon::inhibit_menu_check('input'));
# ---
if ($env{'form.recover'}) {
@@ -365,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'" />
@@ -393,6 +396,8 @@ END
END
+ $r->print(&Apache::loncommon::inhibit_menu_check('input'));
+
}
foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) {
my $key=$_;