--- loncom/interface/lonindexer.pm 2001/06/26 21:11:18 1.12
+++ 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
@@ -13,6 +15,7 @@
# 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;
@@ -29,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;
@@ -65,6 +69,8 @@ sub handler {
$hidden=''; my $closebutton='';
my $groupimportbutton='';
my $colspan='';
+
+ $extrafield='';
if ($ENV{'form.catalogmode'} eq 'interactive') {
$extrafield='
'."\n");
+ $r->print ('');
+ $r->print ($listname.$tabtag.''."\n");
return OK;
}
# display file
@@ -521,32 +549,29 @@ sub display_line{
my $rem = $indentm1%10.0;
my $count = 0;
while ($count < $ten) {
- $r->print("\n");
+ $r->print ("\n");
$count++;
}
- $r->print("\n") if $rem > 0;
+ $r->print ("\n") if $rem > 0;
}
$r->print ('print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");
- $r->print("\n");
- $r->print("$listname $tabtag\n");
+ $r->print (''."\n");
+ $r->print ("$listname$tabtag\n");
}
}
-#---------------------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;
$anchor =~ s/\///g;
- $r->print ('