--- loncom/interface/lonindexer.pm 2001/07/08 18:31:10 1.13 +++ 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 @@ -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; @@ -66,6 +69,8 @@ sub handler { $hidden=''; my $closebutton=''; my $groupimportbutton=''; my $colspan=''; + + $extrafield=''; if ($ENV{'form.catalogmode'} eq 'interactive') { $extrafield=''. ' The LearningOnline Network With CAPA Directory Browser - + @@ -557,7 +562,7 @@ sub display_line{ } -#---------------------prints the beginning of a form for directory or file link +# ------------------- prints the beginning of a form for directory or file link sub begin_form { my ($r,$uri) = @_; my $anchor = $uri;