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; |
} |
} |
} |
} |