--- modules/gci/londocsgci.pm 2010/01/05 12:36:11 1.8
+++ modules/gci/londocsgci.pm 2010/01/05 23:54:31 1.9
@@ -2,7 +2,7 @@
# Custom Edit Course Routines for Assembly of Valid Concept Tests from
# Geoscience Concept Inventory.
#
-# $Id: londocsgci.pm,v 1.8 2010/01/05 12:36:11 gci Exp $
+# $Id: londocsgci.pm,v 1.9 2010/01/05 23:54:31 gci Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -182,6 +182,21 @@ sub validcheck {
sub listresources {
my ($r,$context,$cdom,$cnum)=@_;
my $numchosen = scalar(@chosen);
+ my $multipart = 0;
+ my $composites;
+ if ($numchosen > 0) {
+ foreach my $key (keys(%prereqs)) {
+ if (grep(/^\Q$key\E/,@chosen)) {
+ $multipart ++;
+ $numchosen --;
+ }
+ }
+ if ($multipart) {
+ $composites = &mt(' (of which [quant,_1,is a combination question,are combination questions] in which students select both an answer, and the reasoning used).',$multipart).'
';
+ } else {
+ $composites = '. ';
+ }
+ }
unless ($numchosen > 0) {
$r->print('
'.&mt('Choose how the test should be built:').'
'.
@@ -197,7 +212,7 @@ sub listresources {
} else {
my $numsub = &get_submissions_count($cdom,$cnum);
unless ($env{'form.phase'} eq 'storemap') {
- $r->print('
'.&mt('This course contains a valid concept test which includes [quant,_1,question].',$numchosen).' '.&mt('Display Contents').'
');
+ $r->print('
'.&mt('This course contains a valid concept test which includes [quant,_1,question]',$numchosen).$composites.''.&mt('Display Contents').'
');
}
if ($numsub > 0) {
$r->print(&mt('As there are existing student submissions, modification of the [_1]contents[_2] of the Concept Test will result in loss of student performance data, and is [_3]not[_4] permitted.','','','','').'
'.&mt('Modification of open and close dates [_1]is[_2] permitted.','','').'