--- loncom/interface/groupsort.pm 2008/09/15 13:22:48 1.62 +++ 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.62 2008/09/15 13:22:48 bisitz 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"); @@ -495,3 +504,30 @@ sub checkbox { 1; __END__ + +=pod + +=head1 NAME + +Apache::groupsort.pm + +=head1 SYNOPSIS + +Implements a second phase of importing +multiple resources into the RAT. Allows for +reordering the sequence of resources + +This is part of the LearningOnline Network with CAPA project +described at http://www.lon-capa.org. + + +=head1 NOTABLE SUBROUTINES + +=over + +=item + +=back + +=cut +