[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface printout.pl
From:       albertel <lon-capa-cvs-allow () mail ! lon-capa ! org>
Date:       2007-09-21 21:11:24
Message-ID: cvsalbertel1190409084 () cvsserver
[Download RAW message or body]

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];


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]