loncom/LondConnection.pm - diff

Return to LondConnection.pm CVS log

Up to [LON-CAPA] / loncom

version 1.36, 2005/02/06 07:39:49	version 1.37, 2005/05/27 21:49:18
Line 157 sub Dump {	Line 157 sub Dump {
my $now = time;	my $now = time;
my $local = localtime($now);	my $local = localtime($now);

if ($level <= $DebugLevel) {	if ($level >= $DebugLevel) {
return;	return;
}	}

Line 165 sub Dump {	Line 165 sub Dump {
my $key;	my $key;
my $value;	my $value;
print STDERR "[ $local ] Dumping LondConnectionObject:\n";	print STDERR "[ $local ] Dumping LondConnectionObject:\n";
	print STDERR join(':',caller(1))."\n";
while(($key, $value) = each %$self) {	while(($key, $value) = each %$self) {
print STDERR "$key -> $value\n";	print STDERR "$key -> $value\n";
}	}