version 1.440, 2006/06/06 11:02:38
|
version 1.441, 2006/06/12 11:19:02
|
Line 1813 sub print_resources {
|
Line 1813 sub print_resources {
|
my @format_array = split(/\|/,$helper->{'VARS'}->{'FORMAT'}); |
my @format_array = split(/\|/,$helper->{'VARS'}->{'FORMAT'}); |
my $columns_in_format = $format_array[1]; |
my $columns_in_format = $format_array[1]; |
# |
# |
# Bracket each student with a |
# end each student with a |
# Special that allows the post processor to even out the page |
# Special that allows the post processor to even out the page |
# counts later. Nasty problem this... it would be really |
# counts later. Nasty problem this... it would be really |
# nice to put the special in as a postscript comment |
# nice to put the special in as a postscript comment |
# e.g. \special{ps:\%STARTOFSTUDENTSTAMP} unfortunately, |
# e.g. \special{ps:\ENDOFSTUDENTSTAMP} unfortunately, |
# The special gets passed the \ and dvips puts it in the output file |
# The special gets passed the \ and dvips puts it in the output file |
# so we'll just put STARTOFSTUDENTSTAMP in the postscript and rely |
# so we will just rely on prntout.pl to strip ENDOFSTUDENTSTAMP from the |
# on printout.pl to strip it...simlarly with ENDOFSTUDENTSTAMP. |
# postscript. Each ENDOFSTUDENTSTAMP will go on a line by itself. |
# These will go on a line by themselves. |
|
# |
# |
$current_output .= "\\special{ps:\nSTARTOFSTUDENTSTAMP\n}"; |
|
|
|
foreach my $curresline (@{$master_seq}) { |
foreach my $curresline (@{$master_seq}) { |
if (defined $page_breaks{$curresline}) { |
if (defined $page_breaks{$curresline}) { |