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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.164 and 1.167

version 1.164, 2003/03/20 20:40:18 version 1.167, 2003/03/25 22:35:58
Line 42 Line 42
 # Jeremy Bowers ... lots of days  # Jeremy Bowers ... lots of days
   
 package Apache::lonnavmaps;  package Apache::lonnavmaps;
   use vars qw($test @refsToUntie %navmaphash %parmhash);
   
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
Line 49  use Apache::loncommon(); Line 50  use Apache::loncommon();
 use Apache::lonmenu();  use Apache::lonmenu();
 use POSIX qw (floor strftime);  use POSIX qw (floor strftime);
   
 my %navmaphash;  
 my %parmhash;  
 my @refsToUntie;  
   
 # symbolic constants  # symbolic constants
 sub SYMB { return 1; }  sub SYMB { return 1; }
 sub URL { return 2; }  sub URL { return 2; }
Line 99  my %colormap = Line 96  my %colormap =
 # And a special case in the nav map; what to do when the assignment  # And a special case in the nav map; what to do when the assignment
 # is not yet done and due in less then 24 hours  # is not yet done and due in less then 24 hours
 my $hurryUpColor = "#FF0000";  my $hurryUpColor = "#FF0000";
 my $test = 'abc';  $test = 'abc';
 sub cleanup {  sub cleanup {
     &Apache::lonnet::logthis("Cleanup called.");      &Apache::lonnet::logthis("Cleanup called.");
     &Apache::lonnet::logthis(scalar(@refsToUntie));      &Apache::lonnet::logthis("refs size".scalar(@refsToUntie));
     &Apache::lonnet::logthis($test);      &Apache::lonnet::logthis("test is ".$test);
     $test = '467';      $test = '467';
     if (tied(%navmaphash)){      if (tied(%navmaphash)){
  &Apache::lonnet::logthis('Cleanup navmaps: navmaphash');   &Apache::lonnet::logthis('Cleanup navmaps: navmaphash');
Line 121  sub cleanup { Line 118  sub cleanup {
     # original hash and the tied hash must be untied. Bleh.      # original hash and the tied hash must be untied. Bleh.
     for my $ref (@refsToUntie) {      for my $ref (@refsToUntie) {
         &Apache::lonnet::logthis('Cleanup navmaps: reference');          &Apache::lonnet::logthis('Cleanup navmaps: reference');
         unless (untie($ref)) {          unless (untie(%$ref)) {
             &Apache::lonnet::logthis('Failed cleanup navmaps: reference');              &Apache::lonnet::logthis('Failed cleanup navmaps: reference');
         }          }
     }      }
       @refsToUntie = ();
 }  }
   
 sub handler {  sub handler {
Line 1321  sub new { Line 1319  sub new {
   
     $self->{NAV_HASH} = \%Apache::lonnavmaps::navmaphash;      $self->{NAV_HASH} = \%Apache::lonnavmaps::navmaphash;
     $self->{PARM_HASH} = \%Apache::lonnavmaps::parmhash;      $self->{PARM_HASH} = \%Apache::lonnavmaps::parmhash;
     push @Apache::lonnavmaps::refsToCleanup, $self->{NAV_HASH};      push @Apache::lonnavmaps::refsToUntie, $self->{NAV_HASH};
     push @Apache::lonnavmaps::refsToCleanup, $self->{PARM_HASH};      push @Apache::lonnavmaps::refsToUntie, $self->{PARM_HASH};
     Apache::lonnet::logthis(scalar(@Apache::lonnavmaps::refsToCleanup));      &Apache::lonnet::logthis("refstountie ".scalar(@Apache::lonnavmaps::refsToUntie));
       &Apache::lonnet::logthis("navmaps test".$Apache::lonnavmaps::test);
     $Apache::lonnavmaps::test = '123';      $Apache::lonnavmaps::test = '123';
     Apache::lonnet::logthis($Apache::lonnavmaps::test);      &Apache::lonnet::logthis("navmaps test".$Apache::lonnavmaps::test);
     $self->{INITED} = 0;      $self->{INITED} = 0;
   
     $self->{RESPONSE}->register_cleanup(\&Apache::lonnavmaps::cleanup);      $self->{RESPONSE}->register_cleanup(\&Apache::lonnavmaps::cleanup);
Removed from v.1.164  
changed lines
  Added in v.1.167

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