--- loncom/interface/lonindexer.pm 2001/06/02 16:57:35 1.9
+++ loncom/interface/lonindexer.pm 2001/06/15 19:05:26 1.10
@@ -11,6 +11,7 @@
# 05/31/2001 Scott Harrison
# 06/01/2001 Scott Harrison
# 06/02/2001 Scott Harrison
+# 06/15/2001 Scott Harrison
package Apache::lonindexer;
@@ -40,7 +41,7 @@ sub handler {
$r->send_http_header;
return OK if $r->header_only;
$fnum=0;
- my $iconpath= $r->dir_config('lonIconsURL');
+ my $iconpath= $r->dir_config('lonIconsURL') . "/";
my $domain = $r->dir_config('lonDefDomain');
my $role = $r->dir_config('lonRole');
my $loadlim = $r->dir_config('lonLoadLim');
@@ -49,7 +50,7 @@ sub handler {
my $lonhost = $r->dir_config('lonHostID');
my $tabdir = $r->dir_config('lonTabDir');
- my $iconpath='/res/adm/pages/indexericons/';
+# my $iconpath='/res/adm/pages/indexericons/';
my $fileclr='#ffffe6';
# -------------------------------------- see if called from an interactive mode
map {
@@ -374,7 +375,8 @@ sub display_line{
my (@pathfn, $fndir, $fnptr);
my $dirptr=16384;
my $fileclr="#ffffe6";
- my $iconpath="/res/adm/pages/indexericons/";
+ my $iconpath= $r->dir_config('lonIconsURL') . "/";
+# my $iconpath="/res/adm/pages/indexericons/";
my @filecom = split (/\&/,$line);
my @pathcom = split (/\//,$filecom[0]);
@@ -398,7 +400,7 @@ sub display_line{
&begin_form ($r,$filecom[0].'/');
my $anchor = $filecom[0].'/';
$anchor =~ s/\///g;
- $r->print ("\nprint ("\nprint (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n");
$r->print("Domain - $listname $tabtag\n");
return OK;