|
version 1.103, 2003/01/10 15:41:26
|
version 1.104, 2003/01/13 21:20:51
|
|
Line 445 ENDPART
|
Line 445 ENDPART
|
| my $number_of_columns = 1; #used only for pages to determine the width of the cell |
my $number_of_columns = 1; #used only for pages to determine the width of the cell |
| my $selectionmade = ''; |
my $selectionmade = ''; |
| my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns); |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns); |
| my $LaTeXwidth; |
if ($numberofcolumns == 1) { |
| |
$textwidth=$ENV{'form.width'}; |
| |
$textheight=$ENV{'form.height'}; |
| |
} |
| |
my $LaTeXwidth; |
| if ($textwidth=~/(\d+\s*cm)/) { |
if ($textwidth=~/(\d+\s*cm)/) { |
| $LaTeXwidth = $1*10; |
$LaTeXwidth = $1*10; |
| } elsif ($textwidth=~/(\d+\s*mm)/) { |
} elsif ($textwidth=~/(\d+\s*mm)/) { |
|
Line 1189 sub character_chart {
|
Line 1192 sub character_chart {
|
| |
|
| |
|
| sub page_format_transformation { |
sub page_format_transformation { |
| my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_; |
my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_; |
| |
my ($textwidth,$textheight,$oddoffset,$evenoffset); |
| $assignment=~s/_/ /g; |
$assignment=~s/_/ /g; |
| my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns); |
if ($numberofcolumns != 1) { |
| |
($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns); |
| |
} else { |
| |
($textwidth,$textheight,$oddoffset,$evenoffset) = ($ENV{'form.width'},$ENV{'form.height'},$ENV{'form.leftmargin'},$ENV{'form.leftmargin'}); |
| |
} |
| my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
| if ($layout eq 'CBI') { |
if ($layout eq 'CBI') { |
| $text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill $courseidinfo} \\vskip 5 mm /; |
$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill $courseidinfo} \\vskip 5 mm /; |
![[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