[LON-CAPA-cvs] cvs: loncom /homework structuretags.pm

[raeburn]

raeburn		Tue Apr 28 13:26:39 2015 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
  - Version checking accommodate parameter values which match a regexp 
    (for acc and lenient parameters) as well as designated values.
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.536 loncom/homework/structuretags.pm:1.537
--- loncom/homework/structuretags.pm:1.536	Tue Apr 21 12:28:05 2015
+++ loncom/homework/structuretags.pm	Tue Apr 28 13:26:38 2015
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.536 2015/04/21 12:28:05 raeburn Exp $
+# $Id: structuretags.pm,v 1.537 2015/04/28 13:26:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1276,8 +1276,8 @@
             } else {
                 $anoncounter{$symb."\0".$part} = 1;
             }
-            my $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$Apache::lonhomework::results{'resource.'.$part.'.type'}};
-            if ($needsrelease) {   
+            my $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$Apache::lonhomework::results{'resource.'.$part.'.type'}.':'};
+            if ($needsrelease) {
                 my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};
                 if ($curr_required eq '') {
                     &Apache::lonnet::update_released_required($needsrelease);