[BACK]Return to lonindexer.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.9 and 1.10

version 1.9, 2001/06/02 16:57:35 version 1.10, 2001/06/15 19:05:26
Line 11 Line 11
 # 05/31/2001 Scott Harrison  # 05/31/2001 Scott Harrison
 # 06/01/2001 Scott Harrison  # 06/01/2001 Scott Harrison
 # 06/02/2001 Scott Harrison  # 06/02/2001 Scott Harrison
   # 06/15/2001 Scott Harrison
   
 package Apache::lonindexer;  package Apache::lonindexer;
   
Line 40  sub handler { Line 41  sub handler {
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
     $fnum=0;      $fnum=0;
     my $iconpath= $r->dir_config('lonIconsURL');      my $iconpath= $r->dir_config('lonIconsURL') . "/";
     my $domain  = $r->dir_config('lonDefDomain');      my $domain  = $r->dir_config('lonDefDomain');
     my $role    = $r->dir_config('lonRole');      my $role    = $r->dir_config('lonRole');
     my $loadlim = $r->dir_config('lonLoadLim');      my $loadlim = $r->dir_config('lonLoadLim');
Line 49  sub handler { Line 50  sub handler {
     my $lonhost = $r->dir_config('lonHostID');      my $lonhost = $r->dir_config('lonHostID');
     my $tabdir  = $r->dir_config('lonTabDir');      my $tabdir  = $r->dir_config('lonTabDir');
   
     my $iconpath='/res/adm/pages/indexericons/';  #    my $iconpath='/res/adm/pages/indexericons/';
     my $fileclr='#ffffe6';      my $fileclr='#ffffe6';
 # -------------------------------------- see if called from an interactive mode  # -------------------------------------- see if called from an interactive mode
     map {      map {
Line 374  sub display_line{ Line 375  sub display_line{
     my (@pathfn, $fndir, $fnptr);      my (@pathfn, $fndir, $fnptr);
     my $dirptr=16384;      my $dirptr=16384;
     my $fileclr="#ffffe6";      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 @filecom = split (/\&/,$line);
     my @pathcom = split (/\//,$filecom[0]);      my @pathcom = split (/\//,$filecom[0]);
Line 398  sub display_line{ Line 400  sub display_line{
  &begin_form ($r,$filecom[0].'/');   &begin_form ($r,$filecom[0].'/');
  my $anchor = $filecom[0].'/';   my $anchor = $filecom[0].'/';
  $anchor =~ s/\///g;   $anchor =~ s/\///g;
  $r->print ("<a name=\"".$anchor."\">\n<input src=\"".$iconpath."comp.blue.gif\"");   $r->print ("<a name=\"".$anchor."\">\n<input src=\"".$iconpath."server.gif\"");
  $r->print (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n");   $r->print (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n");
  $r->print("Domain - $listname $tabtag</tr></form>\n");   $r->print("Domain - $listname $tabtag</tr></form>\n");
  return OK;   return OK;
Removed from v.1.9  
changed lines
  Added in v.1.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>