--- loncom/lond 2009/10/29 03:23:52 1.432 +++ loncom/lond 2009/11/12 15:59:00 1.433 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.432 2009/10/29 03:23:52 raeburn Exp $ +# $Id: lond,v 1.433 2009/11/12 15:59:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -59,7 +59,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.432 $'; #' stupid emacs +my $VERSION='$Revision: 1.433 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -3123,9 +3123,11 @@ sub dump_with_regexp { my $count=0; while (my ($key,$value) = each(%$hashref)) { if ($namespace eq 'roles') { - if ($key =~ /^($LONCAPA::match_domain)_($LONCAPA::match_community)_cc$/) { - if ($clientversion =~ /^(\d+\.\d+)$/) { - next if ($1 <= 2.9); + if ($key =~ /^($LONCAPA::match_domain)_($LONCAPA::match_community)_(cc|co|in|ta|ep|ad|st|cr)/) { + if ($clientversion =~ /^(\d+)\.(\d+)$/) { + my $major = $1; + my $minor = $2; + next if (($major < 2) || (($major == 2) && ($minor < 10))); } } }