version 1.242, 2003/09/29 20:06:20
|
version 1.246, 2003/10/01 19:51:31
|
Line 740 ENDPART
|
Line 740 ENDPART
|
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
} else { |
} else { |
$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
$texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm '; |
if ($helper->{'VARS'}->{'construction'} ne '1') { |
$texversion.=&path_to_problem ($currentURL,$LaTeXwidth); |
$texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm '; |
|
$texversion.=&path_to_problem ($currentURL,$LaTeXwidth); |
|
} else { |
|
$texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm '; |
|
my $URLpath=$currentURL; |
|
$URLpath=~s/~([^\/]+)/public_html\/$1\/$1/; |
|
$texversion.=&path_to_problem ($URLpath,$LaTeXwidth); |
|
} |
$texversion.='\vskip 1 mm '.$answer.'\end{document}'; |
$texversion.='\vskip 1 mm '.$answer.'\end{document}'; |
} |
} |
} |
} |
Line 769 ENDPART
|
Line 776 ENDPART
|
$Apache::lonratedt::resources[$Apache::lonratedt::order[$member]]=~/^([^:]*):([^:]*):/; |
$Apache::lonratedt::resources[$Apache::lonratedt::order[$member]]=~/^([^:]*):([^:]*):/; |
my $urlp=$2; |
my $urlp=$2; |
if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) { |
if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) { |
my %form; |
my $texversion=''; |
$form{'grade_target'}='tex'; |
if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') { |
$form{'textwidth'}=$LaTeXwidth; |
my %form; |
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
$form{'grade_target'}='tex'; |
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; |
$form{'textwidth'}=$LaTeXwidth; |
$form{'rndseed'}=$rndseed; |
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
my $texversion=&Apache::lonnet::ssi($urlp,%form); |
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; |
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
$form{'rndseed'}=$rndseed; |
|
$texversion=&Apache::lonnet::ssi($urlp,%form); |
|
} |
|
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || |
|
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { |
my %form; |
my %form; |
$form{'grade_target'}='answer'; |
$form{'grade_target'}='answer'; |
$form{'answer_output_mode'}='tex'; |
$form{'answer_output_mode'}='tex'; |
$form{'rndseed'}=$rndseed; |
$form{'rndseed'}=$rndseed; |
if ($urlp=~/\/res\//) {$ENV{'request.state'}='published';} |
if ($urlp=~/\/res\//) {$ENV{'request.state'}='published';} |
my $answer=&Apache::lonnet::ssi($urlp,%form); |
my $answer=&Apache::lonnet::ssi($urlp,%form); |
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
|
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
|
} else { |
|
$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
|
$texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm '; |
|
$texversion.=&path_to_problem ($currentURL,$LaTeXwidth); |
|
$texversion.='\vskip 1 mm '.$answer.'\end{document}'; |
|
} |
} |
} |
if ($flag_latex_header_remove ne 'NO') { |
if ($flag_latex_header_remove ne 'NO') { |
$texversion = &latex_header_footer_remove($texversion); |
$texversion = &latex_header_footer_remove($texversion); |
Line 843 ENDPART
|
Line 861 ENDPART
|
$form{'symb'}=$master_seq[$i]; |
$form{'symb'}=$master_seq[$i]; |
my ($sequence)=&Apache::lonnet::decode_symb($master_seq[$i]); |
my ($sequence)=&Apache::lonnet::decode_symb($master_seq[$i]); |
my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem |
my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem |
|
my $texversion=''; |
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]"); |
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]"); |
my $texversion=&Apache::lonnet::ssi($urlp,%form); |
my $texversion=&Apache::lonnet::ssi($urlp,%form); |
if ($urlp=~/\.page$/) { |
if ($urlp=~/\.page$/) { |
Line 851 ENDPART
|
Line 870 ENDPART
|
$texversion =~ s/\\end{document}\d*/\\end{document}/; |
$texversion =~ s/\\end{document}\d*/\\end{document}/; |
$flag_page_in_sequence = 'YES'; |
$flag_page_in_sequence = 'YES'; |
} |
} |
if ($flag_latex_header_remove ne 'NO') { |
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || |
$texversion = &latex_header_footer_remove($texversion); |
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { |
} else { |
|
$texversion =~ s/\\end{document}//; |
|
} |
|
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
|
my %form; |
my %form; |
$form{'grade_target'}='answer'; |
$form{'grade_target'}='answer'; |
$form{'answer_output_mode'}='tex'; |
$form{'answer_output_mode'}='tex'; |
my $answer=&Apache::lonnet::ssi($urlp,%form); |
my $answer=&Apache::lonnet::ssi($urlp,%form); |
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
|
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
|
} else { |
|
$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
|
$texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm '; |
|
$texversion.=&path_to_problem ($urlp,$LaTeXwidth); |
|
$texversion.='\vskip 1 mm '.$answer; |
|
} |
|
} |
|
if ($flag_latex_header_remove ne 'NO') { |
|
$texversion = &latex_header_footer_remove($texversion); |
|
} else { |
|
$texversion =~ s/\\end{document}//; |
} |
} |
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
$texversion=&IndexCreation($texversion,$urlp); |
$texversion=&IndexCreation($texversion,$urlp); |
Line 1225 sub printHelper {
|
Line 1252 sub printHelper {
|
|
|
# If we're in a sequence... |
# If we're in a sequence... |
if (($helper->{'VARS'}->{'construction'} ne '1') && |
if (($helper->{'VARS'}->{'construction'} ne '1') && |
$helper->{VARS}->{'postdata'} && $sequenceTitle) { |
$helper->{VARS}->{'postdata'} && |
|
$helper->{VARS}->{'assignment'}) { |
# Allow problems from sequence |
# Allow problems from sequence |
push @{$printChoices}, ["<b>Problems</b> in $sequenceTitle", 'map_problems', 'CHOOSE_PROBLEMS']; |
push @{$printChoices}, ["<b>Problems</b> in $sequenceTitle", 'map_problems', 'CHOOSE_PROBLEMS']; |
# Allow all resources from sequence |
# Allow all resources from sequence |
Line 1260 HELPERFRAGMENT
|
Line 1288 HELPERFRAGMENT
|
# problems in the course, optionally for selected students |
# problems in the course, optionally for selected students |
if ($userPriviledged && ($helper->{VARS}->{'postdata'}=~/\/res\//)) { |
if ($userPriviledged && ($helper->{VARS}->{'postdata'}=~/\/res\//)) { |
push @{$printChoices}, ['Problems from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS']; |
push @{$printChoices}, ['Problems from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS']; |
if ($sequenceTitle) { |
if ($helper->{VARS}->{'assignment'}) { |
push @{$printChoices}, ["Problems from $sequenceTitle for <b>selected students</b>", 'problems_for_students', 'CHOOSE_STUDENTS']; |
push @{$printChoices}, ["Problems from $sequenceTitle for <b>selected students</b>", 'problems_for_students', 'CHOOSE_STUDENTS']; |
} |
} |
|
|
Line 1325 CHOOSE_FROM_SUBDIR
|
Line 1353 CHOOSE_FROM_SUBDIR
|
if (!$helper->{VARS}->{'construction'}) { |
if (!$helper->{VARS}->{'construction'}) { |
push @$printChoices, ["Resources from <b>selected sequence</b> in course", |
push @$printChoices, ["Resources from <b>selected sequence</b> in course", |
'map_problems_pages', 'CHOOSE_SEQUENCE']; |
'map_problems_pages', 'CHOOSE_SEQUENCE']; |
|
my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'}; |
|
#Escape apostrophes and backslashes for Perl |
|
$escapedSequenceName =~ s/\\/\\\\/g; |
|
$escapedSequenceName =~ s/'/\\'/g; |
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE); |
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE); |
<state name="CHOOSE_SEQUENCE" title="Select Sequence To Print From"> |
<state name="CHOOSE_SEQUENCE" title="Select Sequence To Print From"> |
<message>Select the sequence to print resources from:</message> |
<message>Select the sequence to print resources from:</message> |
Line 1339 CHOOSE_FROM_SUBDIR
|
Line 1371 CHOOSE_FROM_SUBDIR
|
<resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"> |
<resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"> |
<nextstate>PAGESIZE</nextstate> |
<nextstate>PAGESIZE</nextstate> |
<filterfunc>return $isProblem</filterfunc> |
<filterfunc>return $isProblem</filterfunc> |
<mapurl evaluate='1'>return $helper->{VARS}->{'SEQUENCE'};</mapurl> |
<mapurl evaluate='1'>return '$escapedSequenceName';</mapurl> |
<valuefunc>return $symbFilter;</valuefunc> |
<valuefunc>return $symbFilter;</valuefunc> |
</resource> |
</resource> |
</state> |
</state> |