--- loncom/lond 2010/08/30 13:24:20 1.455 +++ loncom/lond 2010/09/26 01:50:28 1.456 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.455 2010/08/30 13:24:20 www Exp $ +# $Id: lond,v 1.456 2010/09/26 01:50:28 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -58,7 +58,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.455 $'; #' stupid emacs +my $VERSION='$Revision: 1.456 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -3171,17 +3171,17 @@ sub dump_with_regexp { } my $hashref = &tie_user_hash($udom, $uname, $namespace, &GDBM_READER()); - my $clientcheckrole; + my $skipcheck; if ($hashref) { my $qresult=''; my $count=0; if ($extra ne '') { $extra = &Apache::lonnet::thaw_unescape($extra); - $clientcheckrole = $extra->{'clientcheckrole'}; + $skipcheck = $extra->{'skipcheck'}; } my @ids = &Apache::lonnet::current_machine_ids(); my (%homecourses,$major,$minor,$now); - if (($namespace eq 'roles') && (!$clientcheckrole)) { + if (($namespace eq 'roles') && (!$skipcheck)) { my $loncaparev = $clientversion; if ($loncaparev eq '') { $loncaparev = $Apache::lonnet::loncaparevs{$clientname}; @@ -3197,7 +3197,7 @@ sub dump_with_regexp { if ($key =~ m{^/($LONCAPA::match_domain)/($LONCAPA::match_courseid)(/?[^_]*)_(cc|co|in|ta|ep|ad|st|cr)$}) { my $cdom = $1; my $cnum = $2; - unless ($clientcheckrole) { + unless ($skipcheck) { next unless (&releasereqd_check($cnum,$cdom,$key,$value,$major,$minor, $now,\%homecourses,\@ids)); } @@ -3219,7 +3219,7 @@ sub dump_with_regexp { } } if (&untie_user_hash($hashref)) { - if (($namespace eq 'roles') && (!$clientcheckrole)) { + if (($namespace eq 'roles') && (!$skipcheck)) { if (keys(%homecourses) > 0) { $qresult .= &check_homecourses(\%homecourses,$udom,$regexp,$count, $range,$start,$end,$major,$minor);