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

Diff for /loncom/homework/optionresponse.pm between versions 1.151.2.1 and 1.159

version 1.151.2.1, 2008/12/11 01:59:01 version 1.159, 2010/02/05 15:34:02
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
   
   
   
   
   
 package Apache::optionresponse;  package Apache::optionresponse;
 use strict;  use strict;
 use Apache::response();  use Apache::response();
Line 161  ENDTABLE Line 166  ENDTABLE
     } # else nothing changed so just use the default mechanism      } # else nothing changed so just use the default mechanism
   }    }
   if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {    if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {
       if($env{'form.pdfFormFields'} ne 'yes') {
       $result .= ' \renewcommand{\labelenumi}{\Alph{enumi}.}        $result .= ' \renewcommand{\labelenumi}{\Alph{enumi}.}
                    \begin{enumerate} ';                     \begin{enumerate} ';
       } else {
         $result .= "\\\\";
       }
   }    }
   return $result;    return $result;
 }  }
Line 292  sub end_foilgroup { Line 301  sub end_foilgroup {
     $result.=&Apache::edit::end_table();      $result.=&Apache::edit::end_table();
   }    }
   if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {    if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {
       if($env{'form.pdfFormFields'} ne 'yes') {
       $result .= '\end{enumerate}';        $result .= '\end{enumerate}';
       } else {
         $result .= "\\\\";
       }
   }    }
   &Apache::response::poprandomnumber();    &Apache::response::poprandomnumber();
   return $result;    return $result;
Line 425  sub displayfoils { Line 438  sub displayfoils {
       }        }
       my $lastopt=$lastresponse{$name};        my $lastopt=$lastresponse{$name};
       my $optionlist="<option></option>\n";        my $optionlist="<option></option>\n";
   
         if($target eq 'tex' and $env{'form.pdfFormFields'} eq 'yes'
            && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
             my $fieldname = $env{'request.symb'}.'&part_'.$Apache::inputtags::part.'&optionresponse'.'&HWVAL_'.$Apache::inputtags::response['-1'].':'.$temp;
             $optionlist =  &Apache::lonxml::print_pdf_start_combobox($fieldname);
         }
   
       foreach my $option (@opt) {        foreach my $option (@opt) {
   my $escopt=&HTML::Entities::encode($option,'\'"&<>');    my $escopt=&HTML::Entities::encode($option,'\'"&<>');
   if ($option eq $lastopt) {            if ($option eq $lastopt) {
       $optionlist.="<option value='".$escopt."' selected=\"selected\">$option</option>\n";                if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes'
   } else {                    && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
       $optionlist.="<option value='".$escopt."'>$option</option>\n";                    $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option);
   }                } else {
       }                    $optionlist.="<option value='".$escopt."' selected=\"selected\">$option</option>\n";
                 }
             } else {
                 if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes'
                     && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
                     $optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option);
                 } else {
                     $optionlist.="<option value='".$escopt."'>$option</option>\n";
                 }
             }
         }
   # debug for checkbox
         my $checkboxopt='';
   # end debug for checkbox
       if ($target ne 'tex') {        if ($target ne 'tex') {
   if ($Apache::lonhomework::type ne 'exam') {    if ($Apache::lonhomework::type ne 'exam') {
       $optionlist='<select onchange="javascript:setSubmittedPart(\''.  # we are on the web, this is not an exam, and the problem can be answered
                 if ($checkboxopt) {
   # generate checkboxes
                     my $fieldname=$Apache::inputtags::response['-1'].':'.$temp;
                     my $altopt=$opt[0];
                     if ($opt[0] eq $checkboxopt) {
                        $altopt=$opt[1];
                     }
                     my $defopt=$lastopt;
                     unless ($defopt) { $defopt=$altopt; }
                     my $escdefopt=&HTML::Entities::encode($defopt,'\'"&<>');
                     my $esccheckboxopt=&HTML::Entities::encode($checkboxopt,'\'"&<>');
                     my $escaltopt=&HTML::Entities::encode($altopt,'\'"&<>');
   # checkboxopt is how the box is labelled
   # altopt is the alternative option
   # lastopt is what the user submitted before
   # defopt is what the field is going to start out with: either previous choice or altopt
   # fieldname is this input field's name after HWVAL_
                     $optionlist='<input type="hidden" name="HWVAL_'.$fieldname.'" value="'.$escdefopt.'" />'.
                     '<label><input type="checkbox" name="HWCHK_'.$fieldname.'" onclick="javascript:if (this.form.elements[\'HWCHK_'.
                     $fieldname.'\'].checked) { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$esccheckboxopt.'\'; } else { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$escaltopt.'\'; };setSubmittedPart(\''.$part.'\');"'.($defopt eq $checkboxopt?' checked="checked"':'').' /><i>'.$checkboxopt.":</i></label>\n";
                 } else {
   # classic selection list
             $optionlist='<select onchange="javascript:setSubmittedPart(\''.
   $part.'\');" name="HWVAL_'.    $part.'\');" name="HWVAL_'.
   $Apache::inputtags::response['-1'].':'.$temp.'">'.    $Apache::inputtags::response['-1'].':'.$temp.'">'.
   $optionlist."</select>\n";    $optionlist."</select>\n";
                 }
   } else {    } else {
       $optionlist='<u>'.('&nbsp;'x10).'</u>';        $optionlist='<u>'.('&nbsp;'x10).'</u>';
   }    }
Line 469  sub displayfoils { Line 526  sub displayfoils {
   if ($text=~m/\\item /) {    if ($text=~m/\\item /) {
       if ($Apache::lonhomework::type eq 'exam') {        if ($Apache::lonhomework::type eq 'exam') {
           $text=~s/\\item/\\vskip 2 mm/;            $text=~s/\\item/\\vskip 2 mm/;
       }        } elsif ($env{'form.pdfFormFields'} ne 'yes') {
       $result.= $texoptionlist.$text;                    $result.= $texoptionlist.$text;
   } else {                }
             } else {
       if ($Apache::lonhomework::type eq 'exam') {        if ($Apache::lonhomework::type eq 'exam') {
   $result.= $texoptionlist.'  '.$text;    $result.= $texoptionlist.'  '.$text;
       } else {        } elsif ($env{'form.pdfFormFields'} ne 'yes') {
   if ($text=~/\S/) {$result.= $texoptionlist.'\vspace*{-2 mm}\item '.$text;} else {$result.= $texoptionlist;}    if ($text=~/\S/) {
                         $result.= $texoptionlist.'\vspace*{-2 mm}\item '.$text;
                     } else {
                         $result.= $texoptionlist;
                     }
       }        }
   }    }
   if ($Apache::lonhomework::type eq 'exam') {    if ($Apache::lonhomework::type eq 'exam') {
Line 484  sub displayfoils { Line 546  sub displayfoils {
   '\end{enumerate} \vskip -8 mm \strut ';    '\end{enumerate} \vskip -8 mm \strut ';
       $internal_counter++;        $internal_counter++;
   }    }
             if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes'
                 && $Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
                 $text =~ s/\\item//m;
                 $result .= " $optionlist ". &Apache::lonxml::print_pdf_end_combobox($text).'\strut \\\\';
                 $temp++;
             }
   $displayoptionintex=0;    $displayoptionintex=0;
       }        }
     }      }
Line 743  sub insert_drawoptionlist { Line 811  sub insert_drawoptionlist {
 1;  1;
 __END__  __END__
     
   =head1 NAME
   
   Apache::optionresponse.pm;
   
   =head1 SYNOPSIS
   
   Handles tags associated with showing a list of
   options.
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   =head1 HANDLER SUBROUTINE
   
   start_optionresponse()
   
   =head1 OTHER SUBROUTINES
   
   =over
   
   =item end_optionresponse()
   
   =item start_foilgroup()
   
   =item end_foilgroup()
   
   =item getfoilcounts()
   
   =item displayanswers()
   
   =item check_for_invalid()
   
   =item displayfoils()
   
   =item optionlist_correction()
   
   =item webbubbles()
   
   =item bubbles()
   
   =item start_conceptgroup()
   
   =item end_conceptgroup()
   
   =item insert_conceptgroup()
   
   =item start_foil()
   
   =item end_foil()
   
   =item start_drawoptionlist()
   
   =item end_drawoptionlist()
   
   =item insert_foil()
   
   =item insert_drawoptionlist()
   
   =back
   
   =cut
Removed from v.1.151.2.1  
changed lines
  Added in v.1.159

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