--- loncom/interface/lonprintout.pm	2024/11/08 20:37:25	1.699
+++ loncom/interface/lonprintout.pm	2024/11/09 16:08:15	1.701
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.699 2024/11/08 20:37:25 raeburn Exp $
+# $Id: lonprintout.pm,v 1.701 2024/11/09 16:08:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1223,6 +1223,7 @@ sub format_page_header {
 	if ($section) {
 	    $format .=  ' - Sec: '."%$sec_length".'s';
 	}
+	$format .= '\\hfill\\thepage';
 
 	$format .= '\\\\%c \\\\ %a';
 
@@ -1860,12 +1861,12 @@ sub old_character_chart {
 my %page_formats=
     ('letter' => {
 	 'book' => {
-	     '1' => [ '7.1 in','9.8 in', '-0.57 in','-0.57 in','0.275 in'],
-	     '2' => ['3.66 in','9.8 in', '-0.57 in','-0.57 in','0.275 in']
+	     '1' => [ '7.1 in','9.7 in', '-0.57 in','-0.57 in','0.1 in'],
+	     '2' => ['3.66 in','9.7 in', '-0.57 in','-0.57 in','0.1 in']
 	 },
 	 'album' => {
-	     '1' => [ '8.8 in', '6.8 in','-0.55 in',  '-0.55 in','0.394 in'],
-	     '2' => [ '4.8 in', '6.8 in','-0.5 in', '-1.0 in','3.0 in']
+	     '1' => [ '8.8 in', '6.8 in','-0.55 in',  '-0.55 in','-0.5 in'],
+	     '2' => [ '4.8 in', '6.7 in','-0.5 in', '-1.0 in','3.0 in']
 	 },
      },
      'legal' => {
@@ -1875,7 +1876,7 @@ my %page_formats=
 	 },
 	 'album' => {
 	     '1' => ['12 in','7.1 in',,'-0.57 in','-0.57 in','-0.5 in'],
-             '2' => ['6.0 in','7.1 in','-1 in','-1 in','5 in']
+             '2' => ['5.7 in','7.1 in','-1 in','-1 in','5 in']
           },
      },
      'tabloid' => {
@@ -1924,8 +1925,8 @@ my %page_formats=
 	     '2' => [ '9.1 cm','27.2 cm','-1.397 cm','-2.11 cm','-1.27 cm']
 	 },
 	 'album' => {
-	     '1' => ['21.59 cm','19.558 cm','-1.397cm','-2.11 cm','0 cm'],
-	     '2' => ['9.91 cm','19.558 cm','-1.397 cm','-2.11 cm','-1 cm']
+	     '1' => ['24.0 cm','18.0 cm','-1.0cm','-1.5 cm','-1.25 cm'],
+	     '2' => ['9.91 cm','18.0 cm','-0.7 cm','-1.7 cm','-1.25 cm']
 	 },
      },
      'a5' => {
@@ -2009,9 +2010,13 @@ sub page_format_transformation {
     my $fancypagestatement='';
     if ($numberofcolumns eq '2') {
 	$fancypagestatement="\\fancyhead{}\\fancyhead[LO]{$header_text}";
+	if ($parmhash{'print_header_format'} eq '') {
+	    $fancypagestatement .= "\\fancyhead[RE]{\\thepage \\\\[\\baselineskip]}";
+	}
     } else {
 	$fancypagestatement="\\rhead{}\\chead{}\\lhead{$header_text}";
     }
+    $fancypagestatement .= "\\fancyfoot{}";
     my ($paperwidth,$paperheight);
     if ($layout eq 'album') {
 	    $text =~ s/\\begin\{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}$topmargintoinsert\n\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\n\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\n\\pagestyle{fancy}$fancypagestatement\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}\n /;