--- loncom/interface/lonindexer.pm 2001/05/31 14:29:03 1.7 +++ loncom/interface/lonindexer.pm 2001/06/21 20:57:12 1.11 @@ -9,6 +9,9 @@ # 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 package Apache::lonindexer; @@ -23,7 +26,7 @@ my %dirs; my %language; my $hidden; my $extrafield; - +my $fnum; sub BEGIN { my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab'); map { @@ -37,8 +40,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 +50,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 { @@ -75,6 +77,9 @@ END END } elsif ($ENV{'form.catalogmode'} eq 'groupimport') { + $extrafield='