[LON-CAPA-cvs] cvs: loncom /interface printout.pl

[albertel]

albertel		Fri Sep 21 17:11:24 2007 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  - make the re match only the types of %%Page: comments we are looking for
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.126 loncom/interface/printout.pl:1.127
--- loncom/interface/printout.pl:1.126	Fri Sep 21 16:56:30 2007
+++ loncom/interface/printout.pl	Fri Sep 21 17:11:20 2007
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.126 2007/09/21 20:56:30 albertel Exp $
+# $Id: printout.pl,v 1.127 2007/09/21 21:11:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -868,7 +868,7 @@
 	#  bottom of the page, m the page number within the document.
 	#
 
-	if ($line =~ /^%%Page:/) {
+	if ($line =~ /^%%Page:\s+\d+\s+\d+/) {
 	    my @pageinfo = split(/\s+/, $line);
 	    if ($page_number < $pageinfo[1]) {
 		$page_number = $pageinfo[1];