--- loncom/interface/groupsort.pm 2006/12/05 02:55:51 1.50 +++ 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.50 2006/12/05 02:55:51 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'}} = @@ -328,6 +331,7 @@ END 'ci' => 'Continue Import', 'cs' => 'Continue Search', 'fi' => 'Finish Import', + 're' => 'Recover Checked', 'ca' => 'Cancel', 'co' => 'Change Order', 'ti' => 'Title', @@ -349,22 +353,29 @@ END END + $r->print(&Apache::loncommon::inhibit_menu_check('input')); + # --- + + if ($env{'form.recover'}) { + $r->print(<  + +END + } else { # --- Continue Buttons - my $resurl = - &Apache::loncommon::escape_single(&Apache::loncommon::lastresurl()); - $r->print(<print(<  + onClick="window.location='$resurl?inhibitmenu=yes&catalogmode=import'" />    -END - # --- - - $r->print(<    END + } $r->print("
"); $r->print("\n"); if (($env{'form.readfile'}) || ($env{'form.bookmarks'})) { @@ -385,6 +396,8 @@ END END + $r->print(&Apache::loncommon::inhibit_menu_check('input')); + } foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) { my $key=$_;