version 1.8, 2010/01/05 12:36:11
|
version 1.9, 2010/01/05 23:54:31
|
Line 182 sub validcheck {
|
Line 182 sub validcheck {
|
sub listresources { |
sub listresources { |
my ($r,$context,$cdom,$cnum)=@_; |
my ($r,$context,$cdom,$cnum)=@_; |
my $numchosen = scalar(@chosen); |
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).'<br />'; |
|
} else { |
|
$composites = '. '; |
|
} |
|
} |
unless ($numchosen > 0) { |
unless ($numchosen > 0) { |
$r->print('<h3>'.&mt('Create a Concept Test').'</h3>'. |
$r->print('<h3>'.&mt('Create a Concept Test').'</h3>'. |
'<p>'.&mt('Choose how the test should be built:').'<br />'. |
'<p>'.&mt('Choose how the test should be built:').'<br />'. |
Line 197 sub listresources {
|
Line 212 sub listresources {
|
} else { |
} else { |
my $numsub = &get_submissions_count($cdom,$cnum); |
my $numsub = &get_submissions_count($cdom,$cnum); |
unless ($env{'form.phase'} eq 'storemap') { |
unless ($env{'form.phase'} eq 'storemap') { |
$r->print('<p>'.&mt('This course contains a valid concept test which includes [quant,_1,question].',$numchosen).' <a href="/adm/navmaps" target="_coursecontents">'.&mt('Display Contents').'</a><br />'); |
$r->print('<p>'.&mt('This course contains a valid concept test which includes [quant,_1,question]',$numchosen).$composites.'<a href="/adm/navmaps" target="_coursecontents">'.&mt('Display Contents').'</a><br />'); |
} |
} |
if ($numsub > 0) { |
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.','<i>','</i>','<b>','</b>').'<br />'.&mt('Modification of open and close dates [_1]is[_2] permitted.','<b>','</b>').'</p>'); |
$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.','<i>','</i>','<b>','</b>').'<br />'.&mt('Modification of open and close dates [_1]is[_2] permitted.','<b>','</b>').'</p>'); |