[LON-CAPA-cvs] cvs: rat / lonuserstate.pm

[albertel]

albertel		Thu May  5 16:43:29 2005 EDT

  Modified files:              
    /rat	lonuserstate.pm 
  Log:
  - BUG #4080
  
  
Index: rat/lonuserstate.pm
diff -u rat/lonuserstate.pm:1.89 rat/lonuserstate.pm:1.90
--- rat/lonuserstate.pm:1.89	Thu Apr  7 02:56:27 2005
+++ rat/lonuserstate.pm	Thu May  5 16:43:28 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construct and maintain state and binary representation of course for user
 #
-# $Id: lonuserstate.pm,v 1.89 2005/04/07 06:56:27 albertel Exp $
+# $Id: lonuserstate.pm,v 1.90 2005/05/05 20:43:28 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -338,7 +338,13 @@
 	my ($mapid,$resid)=split(/\./,$rid);
 	my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid});
 	my $hidden=&Apache::lonnet::EXT('resource.0.hiddenresource',$symb);
-	if ($hdnflag || lc($hidden) eq 'yes') { $hiddenurl{$rid}=1; }
+	if ($hdnflag || lc($hidden) eq 'yes') {
+	    $hiddenurl{$rid}=1;
+	} else {
+	    # shouldn't be hidden, but might have had a parm set on it
+            # saying to
+	    delete($hiddenurl{$rid});
+	}
 	my $encrypt=&Apache::lonnet::EXT('resource.0.encrypturl',$symb);
 	if ($encflag || lc($encrypt) eq 'yes') { $encurl{$rid}=1; }
 	if (($retfurl eq '') && ($hash{'src_'.$rid})