--- loncom/interface/groupsort.pm 2003/08/26 05:44:11 1.22 +++ loncom/interface/groupsort.pm 2003/10/07 20:30:13 1.24 @@ -2,7 +2,7 @@ # The LON-CAPA group sort handler # Allows for sorting prior to import into RAT. # -# $Id: groupsort.pm,v 1.22 2003/08/26 05:44:11 albertel Exp $ +# $Id: groupsort.pm,v 1.24 2003/10/07 20:30:13 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,6 +38,7 @@ use strict; use Apache::Constants qw(:common); use GDBM_File; use Apache::loncommon; +use Apache::lonlocal; my %hash; # variable to tie to user specific database my $iconpath; # variable to be accessible to multiple subroutines @@ -61,13 +62,13 @@ sub handler { my $fileclr = '#ffffe6'; my $titleclr = '#ddffff'; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; # finish_import looks different for graphical or "simple" RAT my $finishimport=''; - if ($ENV{'form.mode'} eq 'simple') { + if ($ENV{'form.mode'} eq 'simple' || $ENV{'form.mode'} eq '') { $finishimport=(< 1) { + my %lt=&Apache::lonlocal::texthash( + 'fin'=> 'Finalize order of resources', + 'gb' => 'Go Back', + 'ns' => 'New Search', + 'fi' => 'Finish Import', + 'ca' => 'Cancel', + 'co' => 'Change Order', + 'ti' => 'Title', + 'pa' => 'Path' + ); $r->print(&Apache::loncommon::bodytag('Sort Imported Resources')); $r->print(<Finalize order of resources +$lt{'fin'}
@@ -304,28 +315,28 @@ END # --- Expand here if "GO BACK" button desired if ($ENV{'form.catalogmode'} eq 'groupimport') { $r->print(<  END } if ($ENV{'form.catalogmode'} eq 'groupsearch') { $r->print(<  END } # --- $r->print(<  - + END $r->print("
"); $r->print("\n"); - $r->print("\n"); - $r->print("\n"); - $r->print("\n"); + $r->print("\n"); + $r->print("\n"); + $r->print("\n"); } else { $r->print(<
Change orderTitlePath
$lt{'co'}$lt{'ti'}$lt{'pa'}