[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /homework structuretags.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2015-04-28 13:26:39
Message-ID: cvsraeburn1430227599 () cvsserver
[Download RAW message or body]
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);
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic