[BACK]Return to lonprintout.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.440 and 1.442

version 1.440, 2006/06/06 11:02:38 version 1.442, 2006/06/13 21:49:15
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}) {
Line 1922  sub print_resources { Line 1920  sub print_resources {
     #      #
     #  Close the student bracketing.      #  Close the student bracketing.
     #      #
     $current_output .= "\\special{ps:\nENDOFSTUDENTSTAMP\n}";      $current_output .= "\n\\special{ps:\nENDOFSTUDENTSTAMP\n}";
     return ($current_output,$fullname, $printed);      return ($current_output,$fullname, $printed);
   
 }  }
Removed from v.1.440  
changed lines
  Added in v.1.442

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>