loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

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 {