--- loncom/interface/groupsort.pm 2006/12/05 02:55:51 1.50 +++ loncom/interface/groupsort.pm 2007/07/06 08:34:37 1.53 @@ -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.53 2007/07/06 08:34:37 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 + + # --- + + if ($env{'form.recover'}) { + $r->print(<  + +END + } else { # --- Continue Buttons - my $resurl = - &Apache::loncommon::escape_single(&Apache::loncommon::lastresurl()); - $r->print(<print(<    -END - # --- - - $r->print(<  END + } $r->print("
"); $r->print("\n"); if (($env{'form.readfile'}) || ($env{'form.bookmarks'})) {