--- loncom/homework/optionresponse.pm 2013/04/30 03:03:34 1.190 +++ loncom/homework/optionresponse.pm 2013/12/03 17:22:08 1.193 @@ -1,7 +1,7 @@ # LearningOnline Network with CAPA # option list style responses # -# $Id: optionresponse.pm,v 1.190 2013/04/30 03:03:34 raeburn Exp $ +# $Id: optionresponse.pm,v 1.193 2013/12/03 17:22:08 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -64,7 +64,7 @@ sub start_optionresponse { $token,'4'). &Apache::edit::select_arg('Randomize Foil Order:','randomize', ['yes','no'],$token). - &Apache::edit::select_arg(&mt('Display of options when printed'),'TeXlayout', + &Apache::edit::select_arg('Display of options when printed','TeXlayout', [['horizontal','Normal list'], ['vertical','Listed in a vertical column']],$token). &Apache::edit::end_row().&Apache::edit::start_spanning_row(); @@ -120,17 +120,22 @@ sub start_foilgroup { } my $insertlist=&Apache::edit::insertlist($target,$token); $result.=&Apache::edit::start_table($token); + my %lt = &Apache::lonlocal::texthash( + sel => 'Select Options', + add => 'Add new Option:', + del => 'Delete an Option:', + ); $result.= (<Select Options + $lt{'sel'} - Add new Option: + $lt{'add'} - Delete an Option: + $lt{'del'} ENDTABLE $result.= ''.&Apache::edit::checked_arg('Print options:','texoptions', - [ ['nochoice','Don\'t show option list'] ] + [ ['nochoice',"Don't show option list"] ] ,$token).''; $result.= ''; $result.=&Apache::edit::checked_arg('Checkbox options:','checkboxoptions', - [ ['nochoice','Don\'t show option list'] ] + [ ['nochoice',"Don't show option list"] ] ,$token).''; $result.= &Apache::edit::end_row(); $result.= &Apache::edit::start_spanning_row(); @@ -588,7 +593,7 @@ sub displayfoils { if ($checkboxopt && (!$no_tfprompt)) { $result.='
'. ($checkboxchoices?&mt('Choices: ').''.$opt[0].','.$opt[1].'. ':''). - &mt('Select all that are [_1].',$checkboxopt); + &mt('Select all that are [_1].',''.$checkboxopt.''); } foreach $name (@whichopt) { my $text=$Apache::response::foilgroup{$name.'.text'};