--- loncom/interface/groupsort.pm 2003/08/26 05:44:11 1.22 +++ loncom/interface/groupsort.pm 2004/07/12 20:42:31 1.29 @@ -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.29 2004/07/12 20:42:31 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,6 +38,8 @@ use strict; use Apache::Constants qw(:common); use GDBM_File; use Apache::loncommon; +use Apache::lonlocal; +use Apache::lonnet; my %hash; # variable to tie to user specific database my $iconpath; # variable to be accessible to multiple subroutines @@ -61,13 +63,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'}
@@ -303,29 +319,30 @@ END # --- Expand here if "GO BACK" button desired if ($ENV{'form.catalogmode'} eq 'groupimport') { + my $resurl = &Apache::loncommon::lastresurl(); $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(< @@ -340,13 +357,7 @@ END foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) { my $key=$_; $ctr++; - my @file_ext = split(/\./,$key); - my $curfext = $file_ext[scalar(@file_ext)-1]; - my $iconname="unknown.gif"; - my $embstyle = &Apache::loncommon::fileembstyle($curfext); - # The unless conditional that follows is a bit of overkill - $iconname = $curfext.".gif" unless - (!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); + my $iconname=&Apache::loncommon::icon($key); if ($clen > 1) { $r->print("\n");
Change orderTitlePath
$lt{'co'}$lt{'ti'}$lt{'pa'}
"); $r->print(&movers($clen,$ctr)); @@ -356,7 +367,7 @@ END $r->print(""); $r->print(&select_box($clen,$ctr)); $r->print(""); - $r->print(""); + $r->print(""); $r->print(""); $r->print("$thash{$key}\n"); $r->print("$key