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

version 1.164, 2003/03/20 20:40:18 version 1.165, 2003/03/21 22:41:12
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);
   
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
Line 51  use POSIX qw (floor strftime); Line 52  use POSIX qw (floor strftime);
   
 my %navmaphash;  my %navmaphash;
 my %parmhash;  my %parmhash;
 my @refsToUntie;  @refsToUntie;
   
 # symbolic constants  # symbolic constants
 sub SYMB { return 1; }  sub SYMB { return 1; }
Line 99  my %colormap = Line 100  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 1321  sub new { Line 1322  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.165

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