version 1.414, 2009/05/04 10:23:02
|
version 1.415, 2009/05/08 12:02:39
|
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; |
} |
} |
} |
} |