|
version 1.50, 2002/08/12 18:06:55
|
version 1.51.2.1, 2002/09/04 04:03:00
|
|
Line 140 ENDPART
|
Line 140 ENDPART
|
| my $laystyle = 'book'; |
my $laystyle = 'book'; |
| my $result = ''; |
my $result = ''; |
| my $number_of_columns = 1; |
my $number_of_columns = 1; |
| # my $number_of_columns = $ENV{'form.numberofcolumns'}; |
|
| |
|
| if ($choice eq 'Standard LaTeX output for current document') { |
if ($choice eq 'Standard LaTeX output for current document') { |
| #-- single document - problem, page, html, xml |
#-- single document - problem, page, html, xml |
|
Line 185 ENDPART
|
Line 184 ENDPART
|
| &Apache::lonnet::delenv('form.grade_target'); |
&Apache::lonnet::delenv('form.grade_target'); |
| $result .= $texversion; |
$result .= $texversion; |
| } |
} |
| } else { |
} elsif ($urlp =~ /\S+/) { |
| my %moreenv; |
my %moreenv; |
| $moreenv{'form.grade_target'}='tex'; |
$moreenv{'form.grade_target'}='tex'; |
| &Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
|
Line 294 ENDPART
|
Line 293 ENDPART
|
| } |
} |
| $result = &additional_cleanup($result); |
$result = &additional_cleanup($result); |
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| } |
} |
| #-- corrections for the different page formats |
#-- corrections for the different page formats |
| if ($layout eq 'CBI' and $numberofcolumns eq '1') { |
if ($layout eq 'CBI' and $numberofcolumns eq '1') { |
|
Line 353 ENDPART
|
Line 348 ENDPART
|
| } |
} |
| print $temp_file $result; |
print $temp_file $result; |
| $r->print(<<FINALEND); |
$r->print(<<FINALEND); |
| <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle"> |
<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns"> |
| </body> |
</body> |
| </html> |
</html> |
| FINALEND |
FINALEND |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface