[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface lonprintout.pm
raeburn
raeburn at source.lon-capa.org
Thu Apr 24 11:36:59 EDT 2014
raeburn Thu Apr 24 15:36:59 2014 EDT
Modified files: (Branch: version_2_11_X)
/loncom/interface lonprintout.pm
Log:
- For 2.11
- Backport 1.642
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.627.2.11 loncom/interface/lonprintout.pm:1.627.2.12
--- loncom/interface/lonprintout.pm:1.627.2.11 Wed Feb 19 02:26:13 2014
+++ loncom/interface/lonprintout.pm Thu Apr 24 15:36:58 2014
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.627.2.11 2014/02/19 02:26:13 raeburn Exp $
+# $Id: lonprintout.pm,v 1.627.2.12 2014/04/24 15:36:58 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3618,7 +3618,6 @@
#
my $syllabus_first = 0;
- my $assessment_first = 0;
my $current_assignment = "";
my $assignment;
my $courseidinfo = &get_course();
@@ -3642,9 +3641,6 @@
if ($print_incomplete && !&incomplete($username, $userdomain, $res_url)) {
next;
}
- if ((!$actually_printed) && ($curresline =~ m/$LONCAPA::assess_re/)) {
- $assessment_first = 1;
- }
$actually_printed++; # we're going to print one.
if (&Apache::lonnet::allowed('bre',$res_url)) {
@@ -3779,16 +3775,13 @@
if ($syllabus_first) {
$current_output =~ s/\\\\ Last updated:/Last updated:/
}
- my $newheader;
- unless (($assessment_first) && ($actually_printed > 1)) {
- my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
- my $header_line =
- &format_page_header($LaTeXwidth, $parmhash{'print_header_format'},
- $currentassignment, $courseidinfo, $fullname);
- my $header_start = ($columns_in_format == 1) ? '\lhead'
- : '\fancyhead[LO]';
- $newheader = $header_start.'{'.$header_line.'}';
- }
+ my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
+ my $header_line =
+ &format_page_header($LaTeXwidth, $parmhash{'print_header_format'},
+ $currentassignment, $courseidinfo, $fullname);
+ my $header_start = ($columns_in_format == 1) ? '\lhead' : '\fancyhead[LO]';
+ my $newheader = $header_start.'{'.$header_line.'}';
+
if ($current_output=~/\\documentclass/) {
$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent$newheader$namepostfix}\\vskip 5 mm /;
} else {
More information about the LON-CAPA-cvs
mailing list