[LON-CAPA-cvs] cvs: loncom /homework response.pm
raeburn
raeburn at source.lon-capa.org
Wed Jun 19 01:56:22 EDT 2024
raeburn Wed Jun 19 05:56:22 2024 EDT
Modified files:
/loncom/homework response.pm
Log:
- Bug 6680
Use value(s) from any responseparam tags present in the template itself
when grading submissions to example templates.
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.248 loncom/homework/response.pm:1.249
--- loncom/homework/response.pm:1.248 Tue Jan 12 15:52:06 2021
+++ loncom/homework/response.pm Wed Jun 19 05:56:22 2024
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# various response type definitons response definition
#
-# $Id: response.pm,v 1.248 2021/01/12 15:52:06 raeburn Exp $
+# $Id: response.pm,v 1.249 2024/06/19 05:56:22 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -771,7 +771,8 @@
}
} elsif ($target eq 'grade' || $target eq 'answer' || $target eq 'web' ||
$target eq 'tex' || $target eq 'analyze' ) {
- if ($env{'request.state'} eq 'construct') {
+ if (($env{'request.state'} eq 'construct') ||
+ ($env{'request.noversionuri'} =~ m{^\Q/res/adm/includes/templates/\E[^/]+\.problem$})) {
my $name =&Apache::lonxml::get_param('name',$parstack,$safeeval);
my $default=&Apache::lonxml::get_param('default',$parstack,
$safeeval);
@@ -802,7 +803,10 @@
sub setup_params {
my ($tag,$safeeval) = @_;
- if ($env{'request.state'} eq 'construct') { return; }
+ if (($env{'request.state'} eq 'construct') ||
+ ($env{'request.noversionuri'} =~ m{^\Q/res/adm/includes/templates/\E[^/]+\.problem$})) {
+ return;
+ }
my %paramlist=();
foreach my $key (keys(%Apache::lonnet::packagetab)) {
if ($key =~ /^\Q$tag\E/) {
More information about the LON-CAPA-cvs
mailing list