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

Diff for /loncom/interface/lonindexer.pm between versions 1.42 and 1.44

version 1.42, 2002/05/31 21:50:30 version 1.44, 2002/06/20 21:22:20
Line 81  my $fnum; # file counter Line 81  my $fnum; # file counter
 my $dnum; # directory counter  my $dnum; # directory counter
   
 # ----- Used to include or exclude files with certain extensions.  # ----- Used to include or exclude files with certain extensions.
 my @Only = ();   my @Only = ();
 my @Omit = ();  my @Omit = ();
   
   
Line 95  sub handler { Line 95  sub handler {
     $dnum=0;      $dnum=0;
     untie %hash;      untie %hash;
   
       # Deal with stupid global variables (is there a way around making
       # these global to this package?  It is just so wrong....)
       undef (@Only);
       undef (@Omit);
   
 # ------------------------------------- read in machine configuration variables  # ------------------------------------- read in machine configuration variables
     my $iconpath= $r->dir_config('lonIconsURL') . "/";      my $iconpath= $r->dir_config('lonIconsURL') . "/";
     my $domain  = $r->dir_config('lonDefDomain');      my $domain  = $r->dir_config('lonDefDomain');
Line 127  sub handler { Line 132  sub handler {
     if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {      if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {
  if ($ENV{'form.launch'} eq '1') {   if ($ENV{'form.launch'} eq '1') {
     &start_fresh_session();      &start_fresh_session();
  }          }
   
 # -------------------- refresh environment with user database values (in %hash)  # -------------------- refresh environment with user database values (in %hash)
  if ($hash{'mode_catalog'} eq 'interactive') {   if ($hash{'mode_catalog'} eq 'interactive') {
     $ENV{'form.catalogmode'}='interactive';      $ENV{'form.catalogmode'}='interactive';
Line 375  ENDHEADER Line 379  ENDHEADER
   
 # ---------------------------------------------------------------- output title  # ---------------------------------------------------------------- output title
  $r->print(   $r->print(
 '<h2><font color="#888888">The Learning<i>Online</i> Network with CAPA '.  '<h2><font color="#339933">The Learning<i>Online</i> Network with CAPA '.
   'Network Directory Browser</font></h2>'."\n");    'Network Directory Browser</font></h2>'."\n");
 # ---------------------------------- get state of file attributes to be showing  # ---------------------------------- get state of file attributes to be showing
  if ($ENV{'form.attrs'} ne "") {   if ($ENV{'form.attrs'} ne "") {
Line 421  END Line 425  END
 #        $r->print(&initdebug());  #        $r->print(&initdebug());
 #        $r->print(&writedebug("Omit:@Omit")) if (@Omit);  #        $r->print(&writedebug("Omit:@Omit")) if (@Omit);
 #        $r->print(&writedebug("Only:@Only")) if (@Only);  #        $r->print(&writedebug("Only:@Only")) if (@Only);
         $r->print("<table width='100\%' border=0><tr><td bgcolor=#eeeeee>\n");          $r->print("<table width='100\%' border=0><tr><td bgcolor=#990404>\n");
  $r->print("<table width='100\%' border=0><tr>\n");   $r->print("<table width='100\%' border=0><tr>\n");
  $r->print("<td $colspan bgcolor=$titleclr><b>Name</b></td>\n");   $r->print("<td $colspan bgcolor=$titleclr><b>Name</b></td>\n");
  $r->print("<td bgcolor=$titleclr align=right><b>Size (bytes) ".   $r->print("<td bgcolor=$titleclr align=right><b>Size (bytes) ".
Removed from v.1.42  
changed lines
  Added in v.1.44

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