--- loncom/interface/lonindexer.pm 2001/07/08 18:31:10 1.13 +++ loncom/interface/lonindexer.pm 2001/08/07 15:14:51 1.15 @@ -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 @@ -30,7 +32,8 @@ 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; @@ -53,6 +56,10 @@ sub handler { my $tabdir = $r->dir_config('lonTabDir'); my $fileclr='#ffffe6'; + my $line; + my (@attrchk,@openpath); + my $uri=$r->uri; + # -------------------------------------- see if called from an interactive mode map { my ($name, $value) = split(/=/,$_); @@ -60,44 +67,64 @@ sub handler { $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; if ($name eq 'catalogmode') { $ENV{'form.'.$name}=$value; - } + } + if ($name eq 'launch') { + $ENV{'form.'.$name}=$value; + } } (split(/&/,$ENV{'QUERY_STRING'})); $hidden=''; my $closebutton=''; my $groupimportbutton=''; my $colspan=''; - if ($ENV{'form.catalogmode'} eq 'interactive') { - $extrafield='