--- loncom/homework/Attic/lonindexer.pm 2000/02/22 21:33:18 1.1
+++ loncom/homework/Attic/lonindexer.pm 2000/08/02 12:20:28 1.2
@@ -33,6 +33,269 @@ sub handler {
ENDHEADER
+
+ my $line;
+ my (@attrchk,@openpath);
+ my $uri=$r->uri;
+ my $iconpath="/res/adm/pages/indexericons/";
+
+ $r->print("The LearningOnline Network Directory Browser
\n");
+
+ for (my $i=0; $i<=5; $i++) {
+ $attrchk[$i] = "checked" if $ENV{'form.attr'.$i} == 1;
+ }
+ $r->print(<Display file attributes
+
+END
+ my $titleclr="#ddffff";
+ my $fileclr="#ffffdd";
+
+ $r->print("");
+ $r->print("");
+ $r->print("Name | \n");
+ $r->print("Size (bytes) | ") if ($ENV{'form.attr0'} == 1);
+ $r->print("Last accessed | ") if ($ENV{'form.attr1'} == 1);
+ $r->print("Last modified | ") if ($ENV{'form.attr2'} == 1);
+ $r->print(" ");
+
+ if ($ENV{'dirlist.lvl'} eq "") {
+ my %dirlvl;
+ $dirlvl{'dirlist.lvl'}='-2';
+ &Apache::lonnet::appenv(%dirlvl);
+ } else {
+ $ENV{'dirlist.lvl'}='-2';
+ }
+# $r->print ("original uri=$uri");
+ my $uri = &get_openpath($uri);
+# $r->print ("shortened uri=$shorturi");
+
+ my $domain="/res/";
+ &branch($r,$domain,$uri);
+
+ $r->print(" ");
+ $r->print(" |
");
+ $r->print("