--- loncom/interface/groupsort.pm 2003/08/26 05:44:11 1.22 +++ loncom/interface/groupsort.pm 2003/09/23 00:26:10 1.23 @@ -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.23 2003/09/23 00:26:10 www 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,7 +62,7 @@ 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; @@ -290,9 +291,19 @@ END my $ctr = 0; my $clen = scalar(keys %shash); if ($clen > 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'}