--- loncom/homework/matchresponse.pm 2011/11/29 13:24:38 1.85 +++ loncom/homework/matchresponse.pm 2016/01/22 22:42:51 1.93 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Full matching style response # -# $Id: matchresponse.pm,v 1.85 2011/11/29 13:24:38 raeburn Exp $ +# $Id: matchresponse.pm,v 1.93 2016/01/22 22:42:51 damieng Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,11 +30,11 @@ package Apache::matchresponse; use strict; use HTML::Entities(); use Math::Random(); -use Apache::inputtags(); use Apache::optionresponse(); use Apache::lonlocal; use Apache::lonnet; use Apache::lonxml; +use POSIX qw(ceil); BEGIN { &Apache::lonxml::register('Apache::matchresponse',('matchresponse')); @@ -55,7 +55,7 @@ sub start_matchresponse { $result=&Apache::response::meta_package_write('matchresponse'); } elsif ($target eq 'edit' ) { $result.=&Apache::edit::start_table($token). - ''.&Apache::lonxml::description($token).'' + ''.&Apache::loncommon::insert_folding_button().&Apache::lonxml::description($token).'' .''.&mt('Delete?').' ' .&Apache::edit::deletelist($target,$token) .'' @@ -104,20 +104,25 @@ sub start_itemgroup { if ($target eq 'edit') { $result=&Apache::edit::tag_start($target,$token); $result.=&Apache::edit::select_arg('Randomize Order:','randomize', - ['yes','no'],$token).' 'x 3; + ['yes','no'],$token); $result.=&Apache::edit::select_arg('Items Display Location:', 'location', ['top','bottom','left','right'], - $token).' 'x 3; + $token); $result.=&Apache::edit::select_arg('Items Display Direction:', 'direction', ['vertical','horizontal'], $token); + $result.=&Apache::edit::select_arg('Items Columns:', + 'columns', + [['','default'],'1','2','3','4'], + $token); $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); } elsif ($target eq 'modified') { my $constructtag=&Apache::edit::get_new_args($token,$parstack, $safeeval,'randomize', - 'location','direction'); + 'location','direction', + 'columns'); if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } } elsif ($target eq 'web' or $target eq 'tex') { $Apache::matchresponse::itemtable{'location'}= @@ -159,19 +164,51 @@ sub end_itemgroup { $Apache::response::itemgroup{'letter_name_map'}=\%letter_name_map; $Apache::response::itemgroup{'name_letter_map'}=\%name_letter_map; my $direction=&Apache::lonxml::get_param('direction',$parstack,$safeeval); + my $columns=&Apache::lonxml::get_param('columns',$parstack,$safeeval); + + unless ($columns =~ /^\d+$/) { + undef($columns); + } if ($target eq 'web') { - my $table='
'; # extra space to match what latex does. - my $i=0; - if ($direction eq 'horizontal') { $table .='';} - foreach my $name (@names) { - if ($direction ne 'horizontal') { $table.=''; } - $table.=''; - if ($direction ne 'horizontal') { $table.=''; } - $i++; - } - if ($direction eq 'horizontal') { $table .='';} + my $table='
'.$alphabet[$i].''. - $Apache::response::itemgroup{$name.'.text'}.'
'; # extra space to match what latex does. + if ((!$columns) || ($columns < 0)) { + if ($direction eq 'horizontal') { + if (@names > 0) { + $columns = scalar(@names); + } else { + $columns = 1; + } + } else { + $columns = 1; + } + } + my $rows=ceil(scalar(@names)/$columns); + my $endloop = $columns*$rows; + for (my $i=0; $i<$endloop; $i++) { + my $label = ' '; + my $item = ' '; + my $index; + if ($direction eq 'horizontal') { + $index = $i; + } else { + $index = ($i % $columns)*$rows+int($i/$columns); + } + if ($index < scalar(@names)) { + $label = $alphabet[$index]; + $item = $Apache::response::itemgroup{$names[$index].'.text'}; + } + if ($i % $columns == 0) { + $table.=''; + } + $table.= ''; + if ($columns > 1) { + $table .= ''; + } + if ( ! (($i+1) % $columns) ) { + $table.=''; + } + } $table.='
'.$label.''.$item.' 
'; $Apache::matchresponse::itemtable{'display'}=$table; $Apache::lonxml::post_evaluate=0; @@ -225,7 +262,7 @@ sub start_item { $result=&Apache::edit::tag_start($target,$token,"Item"); $result.=&Apache::edit::text_arg('Name:','name',$token); if ($randomize ne 'no') { - $result.=' 'x 3 . + $result.= &Apache::edit::select_arg('Location:','location', ['random','top','bottom'], $token); @@ -282,7 +319,8 @@ sub start_foilgroup { &Apache::response::pushrandomnumber(undef,$target); if ($target eq 'edit') { $result.=&Apache::edit::start_table($token) - .''.&mt('Collection Of Foils').'' + .''.&Apache::loncommon::insert_folding_button() + .&mt('Collection Of Foils').'' .''.&mt('Delete?') .&Apache::edit::deletelist($target,$token) .'' @@ -463,7 +501,7 @@ sub grade_response { } } my $part=$Apache::inputtags::part; - my $nonlenient=&Apache::inputtags::grading_is_nonlenient($part); + my $nonlenient=&Apache::optionresponse::grading_is_nonlenient($part); my $id = $Apache::inputtags::response['-1']; my $responsestr=&Apache::lonnet::hash2str(%responsehash); my $itemstr =&Apache::lonnet::array2str(@items); @@ -543,7 +581,10 @@ sub format_prior_answer { my $output; foreach my $name (@{ $foil_order }) { - my $item=shift(@items); + my $item = &HTML::Entities::encode(shift(@items),'<>&"'); + if ($item eq '') { + $item = ' '; + } $output .= ''.$item.''; } return if (!defined($output)); @@ -615,9 +656,19 @@ sub displayfoils { $newvariation = 1; } } - unless ((($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred') && (defined($env{'form.grade_symb'}))) || $newvariation) { - $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; + unless ($newvariation) { + if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) || + (($env{'form.grade_username'} eq $env{'user.name'}) && + ($env{'form.grade_domain'} eq $env{'user.domain'}))) { + $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; + } else { + unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') || + ($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) { + $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"}; + } + } } + my %lastresponse=&Apache::lonnet::str2hash($lastresponse); my @alphabet=('A'..'Z'); my @used_letters=sort(keys(%letter_name_map));