version 1.112, 2004/07/06 14:53:00
|
version 1.134, 2006/03/15 00:08:53
|
Line 29 package Apache::optionresponse;
|
Line 29 package Apache::optionresponse;
|
use strict; |
use strict; |
use Apache::response(); |
use Apache::response(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonxml::register('Apache::optionresponse',('optionresponse')); |
&Apache::lonxml::register('Apache::optionresponse',('optionresponse')); |
Line 113 sub start_foilgroup {
|
Line 114 sub start_foilgroup {
|
<td>Delete an Option: |
<td>Delete an Option: |
<select name="$Apache::lonxml::curdepth.deleteopt">$optionlist</select> |
<select name="$Apache::lonxml::curdepth.deleteopt">$optionlist</select> |
ENDTABLE |
ENDTABLE |
|
$result.= &Apache::edit::checked_arg('Print options:','texoptions', |
|
[ ['nochoice','Don\'t show option list'] ] |
|
,$token); |
$result.= &Apache::edit::end_row(); |
$result.= &Apache::edit::end_row(); |
$result.= &Apache::edit::start_spanning_row(); |
$result.= &Apache::edit::start_spanning_row(); |
$result.= $insertlist.'<br />'; |
$result.= $insertlist.'<br />'; |
Line 121 ENDTABLE
|
Line 125 ENDTABLE
|
my @options; |
my @options; |
my $optchanged=0; |
my $optchanged=0; |
eval '@options ='.&Apache::lonxml::get_param('options',$parstack,$safeeval); |
eval '@options ='.&Apache::lonxml::get_param('options',$parstack,$safeeval); |
if ($ENV{"form.$Apache::lonxml::curdepth.deleteopt"}) { |
if ($env{"form.$Apache::lonxml::curdepth.deleteopt"}) { |
my $delopt=$ENV{"form.$Apache::lonxml::curdepth.deleteopt"}; |
my $delopt=$env{"form.$Apache::lonxml::curdepth.deleteopt"}; |
&Apache::lonxml::debug("Deleting :$delopt:"); |
&Apache::lonxml::debug("Deleting :$delopt:"); |
splice(@options,$delopt-1,1); |
splice(@options,$delopt-1,1); |
$optchanged=1; |
$optchanged=1; |
} |
} |
if ($ENV{"form.$Apache::lonxml::curdepth.options"}) { |
if ($env{"form.$Apache::lonxml::curdepth.options"}) { |
my $newopt = $ENV{"form.$Apache::lonxml::curdepth.options"}; |
my $newopt = $env{"form.$Apache::lonxml::curdepth.options"}; |
if ($options[0]) { |
if ($options[0]) { |
push(@options,$newopt); |
push(@options,$newopt); |
} else { |
} else { |
Line 136 ENDTABLE
|
Line 140 ENDTABLE
|
} |
} |
$optchanged=1; |
$optchanged=1; |
} |
} |
if ($optchanged) { |
my $rebuildtag = &Apache::edit::get_new_args($token,$parstack,$safeeval, |
|
('texoptions')); |
|
if ($optchanged || $rebuildtag ) { |
$result = "<foilgroup options=\"("; |
$result = "<foilgroup options=\"("; |
foreach my $option (@options) { |
foreach my $option (@options) { |
$option=~s/\'/\\\'/g; |
$option=~s/\'/\\\'/g; |
Line 144 ENDTABLE
|
Line 150 ENDTABLE
|
$result .="'".$option."',"; |
$result .="'".$option."',"; |
} |
} |
chop $result; |
chop $result; |
$result.=')">'; |
$result.=')" '; |
|
$result .= 'texoptions="'.$token->[2]{'texoptions'}.'" '; |
|
$result .= '>'; |
} # 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') { |
Line 164 sub end_foilgroup {
|
Line 172 sub end_foilgroup {
|
my $name; |
my $name; |
my @opt; |
my @opt; |
eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval); |
eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval); |
|
&Apache::lonxml::debug("options:".join(':',@opt)); |
|
|
my $TeXlayout=&Apache::lonxml::get_param('TeXlayout',$parstack,$safeeval, |
my $TeXlayout=&Apache::lonxml::get_param('TeXlayout',$parstack,$safeeval, |
-2,0); |
-2,0); |
if ($target eq 'tex' && $tex_option_switch eq 'nochoice') {@opt=();} |
if ($target eq 'tex' && $tex_option_switch eq 'nochoice') {@opt=();} |
Line 182 sub end_foilgroup {
|
Line 192 sub end_foilgroup {
|
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },@opt); |
push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },@opt); |
} elsif ( $target eq 'grade') { |
} elsif ( $target eq 'grade') { |
if ( defined $ENV{'form.submitted'}) { |
if ( &Apache::response::submitted()) { |
my @whichopt = &whichfoils($max,$randomize); |
my @whichopt = &whichfoils($max,$randomize); |
my $temp=1;my $name; |
my $temp=1;my $name; |
my %responsehash; |
my %responsehash; |
Line 192 sub end_foilgroup {
|
Line 202 sub end_foilgroup {
|
my $ignored=0; |
my $ignored=0; |
foreach $name (@whichopt) { |
foreach $name (@whichopt) { |
my $response=&Apache::response::getresponse($temp); |
my $response=&Apache::response::getresponse($temp); |
if ($ENV{'form.submitted'} eq 'scantron') { |
if ($env{'form.submitted'} eq 'scantron' && $response=~/\S/) { |
$response = $opt[$response]; |
$response = $opt[$response]; |
} |
} |
if ( $response =~ /[^\s]/) { |
if ( $response =~ /[^\s]/) { |
Line 220 sub end_foilgroup {
|
Line 230 sub end_foilgroup {
|
$responsestr; |
$responsestr; |
$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr; |
$Apache::lonhomework::results{"resource.$part.$id.submissiongrading"}=$gradestr; |
|
|
if (!$Apache::lonhomework::scantronmode) { |
if ($Apache::lonhomework::type eq 'survey') { |
|
if ($ignored == 0) { |
|
my $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED'; |
|
&Apache::response::handle_previous(\%previous,$ad); |
|
} elsif ($wrong==0 && $right==0) { |
|
} else { |
|
my $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='MISSING_ANSWER'; |
|
&Apache::response::handle_previous(\%previous,$ad); |
|
} |
|
} elsif (!$Apache::lonhomework::scantronmode) { |
my $ad; |
my $ad; |
if ($wrong==0 && $ignored==0) { |
if ($wrong==0 && $ignored==0) { |
$ad='EXACT_ANS'; |
$ad='EXACT_ANS'; |
Line 238 sub end_foilgroup {
|
Line 257 sub end_foilgroup {
|
} else { |
} else { |
my $ad; |
my $ad; |
if ($wrong==0 && $right==0) { |
if ($wrong==0 && $right==0) { |
#nothing submitted |
#nothing submitted only assign a score if we |
|
#need to override a previous grade |
|
if (defined($Apache::lonhomework::history{"resource.$part.$id.awarddetail"})) { |
|
$ad='ASSIGNED_SCORE'; |
|
} |
} else { |
} else { |
$ad='ASSIGNED_SCORE'; |
$ad='ASSIGNED_SCORE'; |
} |
} |
Line 279 sub whichfoils {
|
Line 302 sub whichfoils {
|
} |
} |
|
|
sub displayanswers { |
sub displayanswers { |
my ($max,$randomize,@opt)=@_; |
my ($max,$randomize,@opt)=@_; |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
my @whichopt = &whichfoils($max,$randomize); |
my @whichopt = &whichfoils($max,$randomize); |
my $result=&Apache::response::answer_header('optionresponse'); |
my $result; |
foreach my $name (@whichopt) { |
if ($Apache::lonhomework::type eq 'exam') { |
$result.=&Apache::response::answer_part('optionresponse', |
my $i = 0; |
$Apache::response::foilgroup{$name.'.value'}) |
my %opt = map { ($_,$i++) } @opt; |
} |
|
$result.=&Apache::response::answer_footer('optionresponse'); |
$i = 0; |
return $result; |
my @alphabet = ('A'..'Z'); |
|
foreach my $name (@whichopt) { |
|
$result.=&Apache::response::answer_header('optionresponse',$i++); |
|
$result.=&Apache::response::answer_part('optionresponse', |
|
$alphabet[$opt{$Apache::response::foilgroup{$name.'.value'}}]); |
|
$result.=&Apache::response::answer_part('optionresponse', |
|
$Apache::response::foilgroup{$name.'.value'}); |
|
$result.=&Apache::response::answer_footer('optionresponse'); |
|
} |
|
} else { |
|
$result=&Apache::response::answer_header('optionresponse'); |
|
foreach my $name (@whichopt) { |
|
$result.=&Apache::response::answer_part('optionresponse', |
|
$Apache::response::foilgroup{$name.'.value'}); |
|
} |
|
$result.=&Apache::response::answer_footer('optionresponse'); |
|
} |
|
return $result; |
} |
} |
|
|
sub check_for_invalid { |
sub check_for_invalid { |
Line 338 sub displayfoils {
|
Line 378 sub displayfoils {
|
my $lastopt=$lastresponse{$name}; |
my $lastopt=$lastresponse{$name}; |
if ($text!~/^\s*$/) { $break='<br />'; } |
if ($text!~/^\s*$/) { $break='<br />'; } |
$result.=$break; |
$result.=$break; |
if ($target eq 'web' || $target eq 'tex') { |
if ($target eq 'web') { |
my $value=$Apache::response::foilgroup{$name.'.value'}; |
my $value=$Apache::response::foilgroup{$name.'.value'}; |
if (!($text=~s|<drawoptionlist\s*/>|$value|)) { |
if (!($text=~s|<drawoptionlist\s*/>|$value|)) { |
if ($text=~/^\s*$/) { |
if ($text=~/^\s*$/) { |
$text=$value.$text; |
$text=$value.$text; |
} else { |
} else { |
$text=$value.': '.$text; |
$text='<b>'.$value.':</b> '.$text; |
} |
} |
} else { |
} else { |
$text='•'.$text; |
$text='•'.$text; |
Line 371 sub displayfoils {
|
Line 411 sub displayfoils {
|
} |
} |
my $lastopt=$lastresponse{$name}; |
my $lastopt=$lastresponse{$name}; |
my $optionlist="<option></option>\n"; |
my $optionlist="<option></option>\n"; |
my $option; |
foreach my $option (@opt) { |
foreach $option (@opt) { |
my $escopt=&HTML::Entities::encode($option,'\'"&<>'); |
if ($option eq $lastopt) { |
if ($option eq $lastopt) { |
$optionlist.="<option selected=\"on\">$option</option>\n"; |
$optionlist.="<option value='".$escopt."' selected=\"selected\">$option</option>\n"; |
} else { |
} else { |
$optionlist.="<option>$option</option>\n"; |
$optionlist.="<option value='".$escopt."'>$option</option>\n"; |
} |
} |
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
if ($Apache::lonhomework::type ne 'exam') { |
if ($Apache::lonhomework::type ne 'exam') { |
Line 441 sub displayfoils {
|
Line 481 sub displayfoils {
|
} |
} |
|
|
|
|
|
# Correct a single option list element. |
|
# - For embedded <display></display> tags, |
|
# we pass literally the stuff between them. |
|
# - For everything else, we run through latex_special_symbols |
|
# so that any symbols that have meaning to LaTeX will be |
|
# correctly escaped. |
|
# |
|
sub correct_option { |
|
my $option = shift; |
|
|
|
|
|
# There's probably a beter way with perl if I was |
|
# more of a regexp wiz..(RF). |
|
|
|
my $strlen = length($option); |
|
my $here = 0; # Where to start searching for <display></display> |
|
my $result =""; # The return string is built here. |
|
|
|
while ($here < $strlen) { |
|
# look for an opening <display> tag: |
|
|
|
my $openloc = index($option, "<display>", $here); |
|
if ($openloc == -1) { |
|
# No more... operate with latex_special_symbols on |
|
# the rest of the string. |
|
|
|
$result .= &Apache::lonxml::latex_special_symbols(substr($option, $here)); |
|
return $result; |
|
} else { |
|
# Need to pass the string up to the <display> tag |
|
# through l_s_s ... |
|
$result .= &Apache::lonxml::latex_special_symbols(substr($option, $here, $openloc-$here)); |
|
} |
|
# look for the closing </display> tag... |
|
# We're a bit stupid..or tolerant... |
|
# in that if the user forgets the </display> tag |
|
# we infer they intended one at the end of the option. |
|
$openloc += 9; # 9 chars in <display> |
|
|
|
my $closeloc = index($option, "</display>", $openloc); # 9 chars in <display> |
|
if ($closeloc == -1) { |
|
$closeloc = $strlen + 9; # 10chars in </display> faked off end. |
|
} |
|
# Pass from openloc through closeloc without any interpretation: |
|
|
|
&Apache::lonnet::logthis("Segment inside display: $openloc through $closeloc"); |
|
$result .= substr($option, $openloc, $closeloc - $openloc); |
|
$here = $closeloc + 10; # Next search is after the </display> |
|
} |
|
|
|
return $result; |
|
|
|
# return &Apache::lonxml::latex_special_symbols($option); |
|
} |
|
|
|
# Correct the option list elements so that if there |
|
# are special symbosl that have meaning to LaTeX |
|
# they get fixed up to display correctly. |
|
|
sub optionlist_correction { |
sub optionlist_correction { |
my ($TeXlayout,@options) = @_; |
my ($TeXlayout,@options) = @_; |
my $texoptionlist='\\item [] Choices: '; |
my $texoptionlist='\\item [] Choices: '; |
Line 448 sub optionlist_correction {
|
Line 547 sub optionlist_correction {
|
if (scalar(@options) > 0) { |
if (scalar(@options) > 0) { |
foreach my $option (@options) { |
foreach my $option (@options) { |
$texoptionlist.='{\bf '. |
$texoptionlist.='{\bf '. |
&Apache::lonxml::latex_special_symbols($option). |
&correct_option($option). |
'}'; |
'}'; |
if ($TeXlayout eq 'vertical') { |
if ($TeXlayout eq 'vertical') { |
$texoptionlist.=' \vskip 0 mm ', |
$texoptionlist.=' \vskip 0 mm ', |
} else { |
} else { |
$texoptionlist.=','; |
$texoptionlist.=', '; |
} |
} |
} |
} |
chop($texoptionlist); |
$texoptionlist=~s/, $//; |
if ($TeXlayout ne 'vertical') {$texoptionlist.='.';} |
if ($TeXlayout ne 'vertical') {$texoptionlist.='.';} |
} else { |
} else { |
if ($TeXlayout ne 'vertical') {$texoptionlist='\\item [] \\vskip -5 mm';} |
if ($TeXlayout ne 'vertical') {$texoptionlist='\\item [] \\vskip -5 mm';} |
Line 491 sub webbubbles {
|
Line 590 sub webbubbles {
|
|
|
|
|
sub bubbles { |
sub bubbles { |
my ($ralphabit,$ropt) = @_; |
my ($ralphabet,$ropt,$response) = @_; |
my @alphabet = @$ralphabit; |
my @alphabet = @$ralphabet; |
my @opt = @$ropt; |
my @opt = @$ropt; |
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; |
my $textwidth; |
if ($ENV{'form.textwidth'} ne '') { |
if ($env{'form.textwidth'} ne '') { |
$ENV{'form.textwidth'}=~/(\d+)/; |
$env{'form.textwidth'}=~/(\d+)/; |
$textwidth=$1; |
$textwidth=$1; |
} else { |
} else { |
$ENV{'textwidth'}=~/(\d*)\.?(\d*)/; |
$env{'form.textwidth'}=~/(\d*)\.?(\d*)/; |
$textwidth=$1.'.'.$2; |
$textwidth=$1.'.'.$2; |
} |
} |
for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { |
for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { |
my $leftmargin; |
my $leftmargin; |
$opt[$ind]=&Apache::lonxml::latex_special_symbols($opt[$ind]); |
$opt[$ind]=&Apache::lonxml::latex_special_symbols($opt[$ind]); |
|
if ($response eq 'rankresponse') {$opt[$ind]='Rank '.$opt[$ind];} |
if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;} |
if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;} |
$current_length += (length($opt[$ind])+length($alphabet[$ind])+4)*2; |
$current_length += (length($opt[$ind])+length($alphabet[$ind])+4)*2; |
if ($current_length<($textwidth-$leftmargin) and $ind!=$number_of_bubbles) { |
if ($current_length<($textwidth-$leftmargin) and $ind!=$number_of_bubbles) { |
Line 515 sub bubbles {
|
Line 615 sub bubbles {
|
$head.='lr'; |
$head.='lr'; |
} else { |
} else { |
$line=~s/\&\s*$//; |
$line=~s/\&\s*$//; |
$result.='\vskip -2 mm\noindent\begin{tabular}{'.$head.'}'.$line.'\\\\\end{tabular}\vskip 0 mm'; |
$result.='\vskip -2 mm\noindent\setlength{\tabcolsep}{2 mm}\begin{tabular}{'.$head.'}'.$line.'\\\\\end{tabular}\vskip 0 mm'; |
$line = '\hskip -1 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -1 mm & \hskip -3 mm {\small '.$opt[$ind].'} & ';; |
$line = '\hskip -1 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -1 mm & \hskip -3 mm {\small '.$opt[$ind].'} & ';; |
$head ='lr'; |
$head ='lr'; |
$current_length = (length($opt[$ind])+length($alphabet[$ind]))*2; |
$current_length = (length($opt[$ind])+length($alphabet[$ind]))*2; |
Line 603 sub end_foil {
|
Line 703 sub end_foil {
|
my $result = ''; |
my $result = ''; |
if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { |
if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { |
$text=&Apache::lonxml::endredirection; |
$text=&Apache::lonxml::endredirection; |
|
if ($target eq 'tex') {$text=~s/\\strut\s*\\\\\s*\\strut/\\vskip 0 mm/;} |
if (($target eq 'tex') and ($Apache::lonhomework::type ne 'exam') and ($text=~/\S/)) {$text = '\vspace*{-2 mm}\item '.$text;} |
if (($target eq 'tex') and ($Apache::lonhomework::type ne 'exam') and ($text=~/\S/)) {$text = '\vspace*{-2 mm}\item '.$text;} |
} |
} |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' |
|| $target eq 'tex' || $target eq 'analyze') { |
|| $target eq 'tex' || $target eq 'analyze') { |
my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval); |
my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval); |
|
if ($target eq 'tex' && $Apache::lonhomework::type eq 'exam') { |
|
$text='\vskip 5mm $\triangleright$ '.$text; |
|
} |
if ($value ne 'unused') { |
if ($value ne 'unused') { |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
&Apache::lonxml::debug("Got a name of :$name:"); |
&Apache::lonxml::debug("Got a name of :$name:"); |
if (!$name) { $name=$Apache::lonxml::curdepth; } |
if ($name eq "") { |
|
&Apache::lonxml::warning("Foils without names exist. This can cause problems to malfunction."); |
|
$name=$Apache::lonxml::curdepth; |
|
} |
&Apache::lonxml::debug("Using a name of :$name:"); |
&Apache::lonxml::debug("Using a name of :$name:"); |
if (defined($Apache::response::foilnames{$name})) { |
if (defined($Apache::response::foilnames{$name})) { |
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
Line 622 sub end_foil {
|
Line 729 sub end_foil {
|
&& !&Apache::response::showallfoils() ) { |
&& !&Apache::response::showallfoils() ) { |
push @{ $Apache::response::conceptgroup{'names'} }, $name; |
push @{ $Apache::response::conceptgroup{'names'} }, $name; |
$Apache::response::conceptgroup{"$name.value"} = $value; |
$Apache::response::conceptgroup{"$name.value"} = $value; |
if ($target eq 'tex' and $Apache::lonhomework::type eq 'exam') { |
$Apache::response::conceptgroup{"$name.text"} = $text; |
$Apache::response::conceptgroup{"$name.text"} = '\vskip 4 mm $\triangleright$ '.$text; |
|
} else { |
|
$Apache::response::conceptgroup{"$name.text"} = $text; |
|
} |
|
$Apache::response::conceptgroup{"$name.location"} = $location; |
$Apache::response::conceptgroup{"$name.location"} = $location; |
} else { |
} else { |
push @{ $Apache::response::foilgroup{'names'} }, $name; |
push @{ $Apache::response::foilgroup{'names'} }, $name; |
$Apache::response::foilgroup{"$name.value"} = $value; |
$Apache::response::foilgroup{"$name.value"} = $value; |
if ($target eq 'tex' and $Apache::lonhomework::type eq 'exam') { |
$Apache::response::foilgroup{"$name.text"} = $text; |
$Apache::response::foilgroup{"$name.text"} = '\vskip 5 mm $\triangleright$ '.$text; |
|
} else { |
|
$Apache::response::foilgroup{"$name.text"} = $text; |
|
} |
|
$Apache::response::foilgroup{"$name.location"} = $location; |
$Apache::response::foilgroup{"$name.location"} = $location; |
} |
} |
} |
} |
Line 648 sub end_foil {
|
Line 747 sub end_foil {
|
|
|
sub start_drawoptionlist { |
sub start_drawoptionlist { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
return $token->[4]; |
if ($target ne 'meta') { |
|
return $token->[4]; |
|
} |
} |
} |
|
|
sub end_drawoptionlist { |
sub end_drawoptionlist { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
return $token->[2]; |
if ($target ne 'meta') { |
|
return $token->[2]; |
|
} |
} |
} |
|
|
sub insert_foil { |
sub insert_foil { |