--- loncom/interface/groupsort.pm 2008/12/01 19:12:37 1.63 +++ loncom/interface/groupsort.pm 2009/03/13 11:45:27 1.64 @@ -2,7 +2,7 @@ # The LON-CAPA group sort handler # Allows for sorting prior to import into RAT. # -# $Id: groupsort.pm,v 1.63 2008/12/01 19:12:37 jms Exp $ +# $Id: groupsort.pm,v 1.64 2009/03/13 11:45:27 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -314,14 +314,23 @@ END 'cs' => 'Continue Search', 'fi' => 'Finish Import', 're' => 'Recover Checked', + 'ip' => 'Import Checked', 'ca' => 'Cancel', 'co' => 'Change Order', 'ti' => 'Title', 'pa' => 'Path', 'in' => 'Include' ); - my $title = ($env{'form.recover'}) ? 'Recover Removed Resources' - : 'Sort Imported Resources'; + my $title = ''; + if ($env{'form.recover'}) { + $title = 'Recover Removed Resources'; + } else { + $title = 'Sort Imported Resources'; + } + if ($env{'form.bookmarks'}) { + $title = 'Import Resources from Bookmarks'; + } + $r->print(&Apache::loncommon::start_page($title, $js)); $r->print(<print("$lt{'in'}\n"); } else { - $r->print("$lt{'co'}\n"); + $r->print(''.$lt{'co'}.''."\n"); } - $r->print("$lt{'ti'}\n"); + $r->print(''.$lt{'ti'}.''."\n"); $r->print("$lt{'pa'}"); $r->print(&Apache::loncommon::end_data_table_header_row() ."\n");