version 1.172, 2003/05/14 20:16:56
|
version 1.174, 2003/05/15 14:16:47
|
Line 1041 sub character_chart {
|
Line 1041 sub character_chart {
|
sub page_format { |
sub page_format { |
my ($papersize,$layout,$numberofcolumns) = @_; |
my ($papersize,$layout,$numberofcolumns) = @_; |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0); |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0); |
|
|
|
|
if ($papersize=~/Letter/) { |
if ($papersize=~/Letter/) { |
if ($layout eq 'CAPA') { |
if ($layout eq 'CAPA') { |
if ($numberofcolumns == 1) { |
if ($numberofcolumns == 1) { |
Line 1477 ENDPART
|
Line 1479 ENDPART
|
} else { |
} else { |
$rendered =~ s/\\end{document}//; |
$rendered =~ s/\\end{document}//; |
} |
} |
|
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
|
my %form; |
|
$form{'answer_output_mode'}='tex'; |
|
my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain, |
|
$ENV{'request.course.id'},%form); |
|
$rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/; |
|
} |
$current_output .= $rendered; |
$current_output .= $rendered; |
} |
} |
$flag_latex_header_remove = 'YES'; |
$flag_latex_header_remove = 'YES'; |
Line 1517 ENDPART
|
Line 1526 ENDPART
|
$urlp =~ s|^/home/httpd/html||; |
$urlp =~ s|^/home/httpd/html||; |
} |
} |
my $texversion=&Apache::lonnet::ssi($urlp,%form); |
my $texversion=&Apache::lonnet::ssi($urlp,%form); |
|
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
|
my $rndseed=time; |
|
$form{'rndseed'}=$rndseed; |
|
my %form; |
|
$form{'grade_target'}='answer'; |
|
$form{'answer_output_mode'}='tex'; |
|
$form{'rndseed'}=$rndseed; |
|
my $answer=&Apache::lonnet::ssi($urlp,%form); |
|
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
|
} |
#this chunck is responsible for printing the path to problem |
#this chunck is responsible for printing the path to problem |
my $newurlp = ''; |
my $newurlp = ''; |
my $HowMany = length($urlp)*2; |
my $HowMany = length($urlp)*2; |