loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.413, 2009/04/11 14:47:46	version 1.415, 2009/05/08 12:02:39
Line 54 use LONCAPA::lonssl;	Line 54 use LONCAPA::lonssl;
use Fcntl qw(:flock);	use Fcntl qw(:flock);
use Apache::lonnet;	use Apache::lonnet;

my $DEBUG = 1; # Non zero to enable debug log entries.	my $DEBUG = 0; # Non zero to enable debug log entries.

my $status='';	my $status='';
my $lastlog='';	my $lastlog='';
Line 4343 sub dump_domainroles_handler {	Line 4343 sub dump_domainroles_handler {
my ($start,$end) = split(/:/,&unescape($value));	my ($start,$end) = split(/:/,&unescape($value));
my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,&unescape($key));	my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,&unescape($key));
unless ($startfilter eq '.' \|\| !defined($startfilter)) {	unless ($startfilter eq '.' \|\| !defined($startfilter)) {
if ($start >= $startfilter) {	if ((defined($start)) && ($start >= $startfilter)) {
$match = 0;	$match = 0;
}	}
}	}
unless ($endfilter eq '.' \|\| !defined($endfilter)) {	unless ($endfilter eq '.' \|\| !defined($endfilter)) {
if ($end <= $endfilter) {	if ((defined($end)) && ($end <= $endfilter)) {
$match = 0;	$match = 0;
}	}
}	}