version 1.432, 2009/10/29 03:23:52
|
version 1.433, 2009/11/12 15:59:00
|
Line 3123 sub dump_with_regexp {
|
Line 3123 sub dump_with_regexp {
|
my $count=0; |
my $count=0; |
while (my ($key,$value) = each(%$hashref)) { |
while (my ($key,$value) = each(%$hashref)) { |
if ($namespace eq 'roles') { |
if ($namespace eq 'roles') { |
if ($key =~ /^($LONCAPA::match_domain)_($LONCAPA::match_community)_cc$/) { |
if ($key =~ /^($LONCAPA::match_domain)_($LONCAPA::match_community)_(cc|co|in|ta|ep|ad|st|cr)/) { |
if ($clientversion =~ /^(\d+\.\d+)$/) { |
if ($clientversion =~ /^(\d+)\.(\d+)$/) { |
next if ($1 <= 2.9); |
my $major = $1; |
|
my $minor = $2; |
|
next if (($major < 2) || (($major == 2) && ($minor < 10))); |
} |
} |
} |
} |
} |
} |