version 1.338, 2004/11/16 21:59:48
|
version 1.339, 2004/11/19 21:48:41
|
Line 688 sub path_to_problem {
|
Line 688 sub path_to_problem {
|
sub recalcto_mm { |
sub recalcto_mm { |
my $textwidth=shift; |
my $textwidth=shift; |
my $LaTeXwidth; |
my $LaTeXwidth; |
if ($textwidth=~/(\d+\.?\d*)\s*cm/) { |
if ($textwidth=~/(-?\d+\.?\d*)\s*cm/) { |
$LaTeXwidth = $1*10; |
$LaTeXwidth = $1*10; |
} elsif ($textwidth=~/(\d+\.?\d*)\s*mm/) { |
} elsif ($textwidth=~/(-?\d+\.?\d*)\s*mm/) { |
$LaTeXwidth = $1; |
$LaTeXwidth = $1; |
} elsif ($textwidth=~/(\d+\.?\d*)\s*in/) { |
} elsif ($textwidth=~/(-?\d+\.?\d*)\s*in/) { |
$LaTeXwidth = $1*25.4; |
$LaTeXwidth = $1*25.4; |
} |
} |
$LaTeXwidth.=' mm'; |
$LaTeXwidth.=' mm'; |
Line 1218 ENDPART
|
Line 1218 ENDPART
|
for (my $i=1;$i<=$#print_array;$i++) {$print_array[$i] = &latex_corrections($number_of_columns,$print_array[$i],$selectionmade);} |
for (my $i=1;$i<=$#print_array;$i++) {$print_array[$i] = &latex_corrections($number_of_columns,$print_array[$i],$selectionmade);} |
#changes page's parameters for the one column output |
#changes page's parameters for the one column output |
if ($numberofcolumns == 1) { |
if ($numberofcolumns == 1) { |
$result =~ s/\\textwidth\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /; |
$result =~ s/\\textwidth\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /; |
$result =~ s/\\textheight\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /; |
$result =~ s/\\textheight\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /; |
$result =~ s/\\evensidemargin\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; |
$result =~ s/\\evensidemargin\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; |
$result =~ s/\\oddsidemargin\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; |
$result =~ s/\\oddsidemargin\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; |
} |
} |
#-- writing .tex file in prtspool |
#-- writing .tex file in prtspool |
my $temp_file; |
my $temp_file; |