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

Diff for /loncom/homework/optionresponse.pm between versions 1.96.2.1 and 1.99

version 1.96.2.1, 2004/02/19 19:19:15 version 1.99, 2004/02/12 15:50:01
Line 43  sub start_optionresponse { Line 43  sub start_optionresponse {
   %Apache::hint::option=();    %Apache::hint::option=();
   if ($target eq 'edit') {    if ($target eq 'edit') {
     $result.=&Apache::edit::start_table($token).      $result.=&Apache::edit::start_table($token).
  "<tr><td>Multiple Option Response Question</td><td>Delete:".   "<tr><td>Multiple Option Response Question ".
    &Apache::loncommon::help_open_topic('Option_Response_Problems')."</td><td>Delete:".
  &Apache::edit::deletelist($target,$token)   &Apache::edit::deletelist($target,$token)
  ."</td><td>&nbsp;".   ."</td><td>&nbsp;".
         &Apache::edit::end_row().          &Apache::edit::end_row().
Line 445  sub optionlist_correction { Line 446  sub optionlist_correction {
  $texoptionlist =~ s/>/\$>\$/g;   $texoptionlist =~ s/>/\$>\$/g;
  $texoptionlist =~ s/</\$<\$/g;   $texoptionlist =~ s/</\$<\$/g;
  $texoptionlist =~ s/=/\$=\$/g;   $texoptionlist =~ s/=/\$=\$/g;
  $texoptionlist =~ s/\^(\d+)/<m>\$$1\$<\/m>/g;   $texoptionlist =~ s/\^(\d+)/\$^{$1}\$/g;
     } else {      } else {
  $texoptionlist =~ s/<option><\/option>/\\item \[\] \\vskip -5 mm/;   $texoptionlist =~ s/<option><\/option>/\\item \[\] \\vskip -5 mm/;
     }      }
Line 484  sub bubbles { Line 485  sub bubbles {
     my ($result,$head,$line) =('','','');      my ($result,$head,$line) =('','','');
     my $number_of_bubbles = $#opt + 1;      my $number_of_bubbles = $#opt + 1;
     my $current_length = 0;      my $current_length = 0;
     my $textwidth;      $ENV{'form.textwidth'}=~/(\d+)/;
     if ($ENV{'form.textwidth'} ne '') {      my $textwidth=$1;
  $ENV{'form.textwidth'}=~/(\d+)/;  
  $textwidth=$1;  
     } else {  
  $ENV{'textwidth'}=~/(\d+)/;  
  $textwidth=$1;  
     }  
     for (my $ind=0;$ind<=$number_of_bubbles;$ind++) {      for (my $ind=0;$ind<=$number_of_bubbles;$ind++) {
  my $leftmargin;   my $leftmargin;
  if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;}   if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;}
Removed from v.1.96.2.1  
changed lines
  Added in v.1.99

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