Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.726 and 1.728

version 1.726, 2006/04/06 19:14:50 version 1.728, 2006/04/07 22:42:32
Line 45  qw(%perlvar %hostname %badServerCache %i Line 45  qw(%perlvar %hostname %badServerCache %i
   
 use IO::Socket;  use IO::Socket;
 use GDBM_File;  use GDBM_File;
 use Apache::Constants qw(:common :http);  
 use HTML::LCParser;  use HTML::LCParser;
 use HTML::Parser;  use HTML::Parser;
 use Fcntl qw(:flock);  use Fcntl qw(:flock);
Line 852  sub getsection { Line 851  sub getsection {
 }  }
   
 sub save_cache {  sub save_cache {
     my ($r)=@_;  
     if (! $r->is_initial_req()) { return DECLINED; }  
     &purge_remembered();      &purge_remembered();
     #&Apache::loncommon::validate_page();      #&Apache::loncommon::validate_page();
     undef(%env);      undef(%env);
     return OK;  
 }  }
   
 my $to_remember=-1;  my $to_remember=-1;
Line 3992  sub get_users_groups { Line 3988  sub get_users_groups {
         my $grouplist;          my $grouplist;
         foreach my $key (keys %roleshash) {          foreach my $key (keys %roleshash) {
             if ($key =~ /^\Q$courseid\E\/(\w+)\_gr$/) {              if ($key =~ /^\Q$courseid\E\/(\w+)\_gr$/) {
                 unless ($roleshash{$key} =~ /_1_1$/) {   # deleted membership                  unless ($roleshash{$key} =~ /_\d+_\-1$/) {   # deleted membership
                     $grouplist .= $1.':';                      $grouplist .= $1.':';
                 }                  }
             }              }
Line 6525  sub goodbye { Line 6521  sub goodbye {
    &logthis(sprintf("%-20s is %s",'hits',$hits));     &logthis(sprintf("%-20s is %s",'hits',$hits));
    &flushcourselogs();     &flushcourselogs();
    &logthis("Shutting down");     &logthis("Shutting down");
    return DONE;  
 }  }
   
 BEGIN {  BEGIN {

Removed from v.1.726  
changed lines
  Added in v.1.728


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