--- loncom/interface/lonindexer.pm 2001/05/31 14:29:03 1.7 +++ loncom/interface/lonindexer.pm 2001/08/07 14:02:27 1.14 @@ -1,6 +1,8 @@ # The LearningOnline Network with CAPA +# # Directory Indexer # (Login Screen +# # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) # 11/23 Gerd Kortemeyer # 07/20-08/04 H.K. Ng @@ -9,6 +11,11 @@ # 05/21/2001 H. K. Ng # 05/23/2001 H. K. Ng # 05/31/2001 Scott Harrison +# 06/01/2001 Scott Harrison +# 06/02/2001 Scott Harrison +# 06/15/2001 Scott Harrison +# 06/26/2001 H. K. Ng +# 07/08/2001 H. K. Ng package Apache::lonindexer; @@ -23,9 +30,10 @@ my %dirs; my %language; my $hidden; my $extrafield; - +my $fnum; sub BEGIN { - my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab'); + my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. + '/language.tab'); map { $_=~/(\w+)\s+([\w\s\-]+)/; $language{$1}=$2; @@ -37,8 +45,8 @@ sub handler { $r->content_type('text/html'); $r->send_http_header; return OK if $r->header_only; - - my $iconpath= $r->dir_config('lonIconsURL'); + $fnum=0; + my $iconpath= $r->dir_config('lonIconsURL') . "/"; my $domain = $r->dir_config('lonDefDomain'); my $role = $r->dir_config('lonRole'); my $loadlim = $r->dir_config('lonLoadLim'); @@ -47,7 +55,6 @@ sub handler { my $lonhost = $r->dir_config('lonHostID'); my $tabdir = $r->dir_config('lonTabDir'); - my $iconpath='/res/adm/pages/indexericons/'; my $fileclr='#ffffe6'; # -------------------------------------- see if called from an interactive mode map { @@ -62,6 +69,8 @@ sub handler { $hidden=''; my $closebutton=''; my $groupimportbutton=''; my $colspan=''; + + $extrafield=''; if ($ENV{'form.catalogmode'} eq 'interactive') { $extrafield='