version 1.445, 2010/06/25 04:37:44
|
version 1.446, 2010/07/17 19:14:35
|
Line 3127 sub dump_with_regexp {
|
Line 3127 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|co|in|ta|ep|ad|st|cr)/) { |
if ($key =~ m{^/($LONCAPA::match_domain)/($LONCAPA::match_community)_(cc|co|in|ta|ep|ad|st|cr)}) { |
if ($clientversion =~ /^(\d+)\.(\d+)$/) { |
my $cdom = $1; |
|
my $cnum = $2; |
|
if ($clientversion =~ /^['"]?(\d+)\.(\d+)[.\d\-]+['"]?$/) { |
my $major = $1; |
my $major = $1; |
my $minor = $2; |
my $minor = $2; |
next if (($major < 2) || (($major == 2) && ($minor < 9))); |
next if (($major < 2) || (($major == 2) && ($minor < 9))); |
|
} else { |
|
my $homeserver = &Apache::lonnet::homeserver($cnum,$cdom); |
|
next unless ($currenthostid eq $homeserver); |
} |
} |
} |
} |
} |
} |