--- loncom/lond	2010/09/26 01:50:28	1.456
+++ loncom/lond	2010/09/26 14:27:56	1.457
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.456 2010/09/26 01:50:28 raeburn Exp $
+# $Id: lond,v 1.457 2010/09/26 14:27:56 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.456 $'; #' stupid emacs
+my $VERSION='$Revision: 1.457 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid="default";
 my $currentdomainid;
@@ -3198,8 +3198,10 @@ sub dump_with_regexp {
                     my $cdom = $1;
                     my $cnum = $2;
                     unless ($skipcheck) {
-                        next unless (&releasereqd_check($cnum,$cdom,$key,$value,$major,$minor,
-                                                        $now,\%homecourses,\@ids));
+                        my ($role,$end,$start) = split(/\_/,$value);
+                        if (!$end || $end > $now) {
+                            next unless (&releasereqd_check($cnum,$cdom,$key,$value,$major,
+                                                            $minor,\%homecourses,\@ids));
                     }
                 }
             }
@@ -7300,7 +7302,7 @@ sub get_usersession_config {
 }
 
 sub releasereqd_check {
-    my ($cnum,$cdom,$key,$value,$major,$minor,$now,$homecourses,$ids) = @_;
+    my ($cnum,$cdom,$key,$value,$major,$minor,$homecourses,$ids) = @_;
     my $home = &Apache::lonnet::homeserver($cnum,$cdom);
     return if ($home eq 'no_host');
     my ($reqdmajor,$reqdminor,$displayrole);
@@ -7314,37 +7316,34 @@ sub releasereqd_check {
             return unless (&useable_role($reqdmajor,$reqdminor,$major,$minor));
         }
     }
-    my ($role,$end,$start) = split(/_/,$value);
-    if (!$end || $end > $now) {
-        my $hashid = $cdom.':'.$cnum;
-        my ($courseinfo,$cached) =
-            &Apache::lonnet::is_cached_new('courseinfo',$hashid);
-        if (defined($cached)) {
-            if (ref($courseinfo) eq 'HASH') {
-                if (exists($courseinfo->{'releaserequired'})) {
-                    my ($reqdmajor,$reqdminor) = split(/\./,$courseinfo->{'releaserequired'});
-                    return unless (&useable_role($reqdmajor,$reqdminor,$major,$minor));
-                }
+    my $hashid = $cdom.':'.$cnum;
+    my ($courseinfo,$cached) =
+        &Apache::lonnet::is_cached_new('courseinfo',$hashid);
+    if (defined($cached)) {
+        if (ref($courseinfo) eq 'HASH') {
+            if (exists($courseinfo->{'releaserequired'})) {
+                my ($reqdmajor,$reqdminor) = split(/\./,$courseinfo->{'releaserequired'});
+                return unless (&useable_role($reqdmajor,$reqdminor,$major,$minor));
             }
-        } else {
-            if (ref($ids) eq 'ARRAY') {
-                if (grep(/^\Q$home\E$/,@{$ids})) {
-                    if (ref($homecourses) eq 'HASH') {
-                        if (ref($homecourses->{$hashid}) eq 'ARRAY') {
-                            push(@{$homecourses->{$hashid}},{$key=>$value});
-                        } else {
-                            $homecourses->{$hashid} = [{$key=>$value}];
-                        }
+        }
+    } else {
+        if (ref($ids) eq 'ARRAY') {
+            if (grep(/^\Q$home\E$/,@{$ids})) {
+                if (ref($homecourses) eq 'HASH') {
+                    if (ref($homecourses->{$hashid}) eq 'ARRAY') {
+                        push(@{$homecourses->{$hashid}},{$key=>$value});
+                    } else {
+                        $homecourses->{$hashid} = [{$key=>$value}];
                     }
-                    return;
                 }
+                return;
             }
-            my $courseinfo = &get_courseinfo_hash($cnum,$cdom,$home);
-            if (ref($courseinfo) eq 'HASH') {
-                if (exists($courseinfo->{'releaserequired'})) {
-                    my ($reqdmajor,$reqdminor) = split(/\./,$courseinfo->{'releaserequired'});
-                    return unless (&useable_role($reqdmajor,$reqdminor,$major,$minor));
-                }
+        }
+        my $courseinfo = &get_courseinfo_hash($cnum,$cdom,$home);
+        if (ref($courseinfo) eq 'HASH') {
+            if (exists($courseinfo->{'releaserequired'})) {
+                my ($reqdmajor,$reqdminor) = split(/\./,$courseinfo->{'releaserequired'});
+                return unless (&useable_role($reqdmajor,$reqdminor,$major,$minor));
             }
         }
     }
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>500 Internal Server Error</title>
</head><body>
<h1>Internal Server Error</h1>
<p>The server encountered an internal error or
misconfiguration and was unable to complete
your request.</p>
<p>Please contact the server administrator at 
 root@localhost to inform them of the time this error occurred,
 and the actions you performed just before this error.</p>
<p>More information about this error may be available
in the server error log.</p>
</body></html>