--- 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
 <input type="hidden" name="recover" value="$env{'form.recover'}" />
 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(<<END);
 <input type="button" name="alter" value="$lt{'ci'}"
- onClick="window.location='$resurl?catalogmode=import'" />&nbsp;
+ onClick="window.location='$resurl?inhibitmenu=yes&amp;catalogmode=import'" />&nbsp;
 <input type="button" name="altersearch" value="$lt{'cs'}"
- onClick="window.location='/adm/searchcat?catalogmode=import'" />&nbsp;
+ onClick="window.location='/adm/searchcat?inhibitmenu=yes&amp;catalogmode=import'" />&nbsp;
 <input type="button" name="alter" value="$lt{'fi'}"
  onClick="finish_import()" />&nbsp;
 <input type="button" name="alter" value="$lt{'ca'}" onClick="self.close()" />
@@ -393,6 +396,8 @@ END
 <input type="hidden" name="newval" value="" />
 <input type="hidden" name="mode" value="$env{'form.mode'}" />
 END
+        $r->print(&Apache::loncommon::inhibit_menu_check('input'));
+
     }
     foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) {
 	my $key=$_;