version 1.3, 2009/11/27 23:48:25
|
version 1.4, 2009/12/02 18:35:59
|
Line 164 sub editor {
|
Line 164 sub editor {
|
foreach my $item (@chosen) { |
foreach my $item (@chosen) { |
$chosen{$item}=1; |
$chosen{$item}=1; |
} |
} |
|
&Apache::lonnet::appenv({'request.gcicontext' => 'buildtest'}); |
$r->print('<form name="selecteditems" method="post" action="/adm/coursedocs">'); |
$r->print('<form name="selecteditems" method="post" action="/adm/coursedocs">'); |
$r->print('<p>'.&mt('You may select test items from the list below and then press "Store Problem Selection" at the bottom of the screen.').'</p>'); |
$r->print('<p>'.&mt('You may select test items from the list below and then press "Store Problem Selection" at the bottom of the screen.').'</p>'); |
$r->print('<p>'.&mt('Tests should have at least one item from each bin and [_1] items total.',$reqnum).'</p>'); |
$r->print('<p>'.&mt('Tests should have at least one item from each bin and [_1] items total.',$reqnum).'</p>'); |
Line 190 sub editor {
|
Line 191 sub editor {
|
$r->print(&Apache::loncommon::end_data_table()); |
$r->print(&Apache::loncommon::end_data_table()); |
$r->print('<input type="hidden" name="phase" value="storemap" />'); |
$r->print('<input type="hidden" name="phase" value="storemap" />'); |
$r->print('<input type="submit" value="'.&mt('Store Problem Selection').'" /></form>'); |
$r->print('<input type="submit" value="'.&mt('Store Problem Selection').'" /></form>'); |
|
&Apache::lonnet::delenv('request.gcicontext'); |
} |
} |
|
|
sub evaluate { |
sub evaluate { |