[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.43

version 1.42, 2002/05/31 21:50:30 version 1.43, 2002/06/13 15:05:16
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';
Removed from v.1.42  
changed lines
  Added in v.1.43

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