--- loncom/interface/lonindexer.pm 2001/06/26 21:11:18 1.12
+++ 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
@@ -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;
@@ -52,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(/=/,$_);
@@ -59,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='
'."\n");
+ $r->print ('');
+ $r->print ($listname.$tabtag.''."\n");
return OK;
}
# display file
@@ -521,32 +570,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 ('