[BACK]Return to matchresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/matchresponse.pm between versions 1.57 and 1.58

version 1.57, 2006/03/31 11:10:24 version 1.58, 2006/04/04 22:24:08
Line 149  sub end_itemgroup { Line 149  sub end_itemgroup {
     $Apache::response::itemgroup{'name_letter_map'}=\%name_letter_map;      $Apache::response::itemgroup{'name_letter_map'}=\%name_letter_map;
     my $direction=&Apache::lonxml::get_param('direction',$parstack,$safeeval);      my $direction=&Apache::lonxml::get_param('direction',$parstack,$safeeval);
     if ($target eq 'web') {      if ($target eq 'web') {
  my $table='<table>';  
    my $table='<br /><table>'; # extra space to match what latex does.
  my $i=0;   my $i=0;
  if ($direction eq 'horizontal') { $table .='<tr>';}   if ($direction eq 'horizontal') { $table .='<tr>';}
  foreach my $name (@names) {   foreach my $name (@names) {
Line 163  sub end_itemgroup { Line 164  sub end_itemgroup {
  $table.='</table>';   $table.='</table>';
  $Apache::matchresponse::itemtable{'display'}=$table;   $Apache::matchresponse::itemtable{'display'}=$table;
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  #my $table='\begin{description}\setlength{\leftmargin}{2em}\setlength{\labelwidth}{1em}\setlength{\itemsep}{0.5pt plus1pt minus2pt}\setlength{\listparindent}{0em} ';   my $table=' \begin{description}\setlength{\leftmargin}{2em}\setlength{\labelwidth}{1em}\setlength{\itemsep}{0.5pt plus1pt minus2pt}\setlength{\listparindent}{0em} ';
  my $table="\\\\ \\makebox[\\textwidth][l]{ \\begin{tabular}{ll}\n";  
  my $i=0;   my $i=0;
  foreach my $name (@names) {   foreach my $name (@names) {
     $Apache::response::itemgroup{$name.'.text'}=~s/\$\$/\$/g;      $Apache::response::itemgroup{$name.'.text'}=~s/\$\$/\$/g;
     # $table.='\item['.$alphabet[$i].'] '.      $table.='\item['.$alphabet[$i].'] '.
     # $Apache::response::itemgroup{$name.'.text'};   $Apache::response::itemgroup{$name.'.text'};
     my $response = $Apache::response::itemgroup{"$name.text"};  
     $table .= "$alphabet[$i] & $response \\\\ \n";  
     $i++;      $i++;
  }   }
  # $table.=' \end{description} \  \strut ';   $table.=' \end{description}  \strut ';
  $table .= "\\end{tabular}} \\strut \n\n \\vskip \\parskip ";  
  if ($Apache::lonhomework::type eq 'exam') {$table.='\vskip -13 mm \strut ';}   if ($Apache::lonhomework::type eq 'exam') {$table.='\vskip -13 mm \strut ';}
  $Apache::matchresponse::itemtable{'display'}=$table;   $Apache::matchresponse::itemtable{'display'}=$table;
     }      }
Removed from v.1.57  
changed lines
  Added in v.1.58

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>