sakharuk Thu Oct 2 11:33:04 2003 EDT
Modified files:
/loncom/interface lonprintout.pm
Log:
Bug created during submission of version 1.241 at 09.29.2003 is fixed.
It appeared that instead of printing the assignment name (when you print from the whole course) the ref on array was printed.
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.246 loncom/interface/lonprintout.pm:1.247
--- loncom/interface/lonprintout.pm:1.246 Wed Oct 1 15:51:31 2003
+++ loncom/interface/lonprintout.pm Thu Oct 2 11:33:03 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.246 2003/10/01 19:51:31 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.247 2003/10/02 15:33:03 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -861,7 +861,7 @@
$form{'symb'}=$master_seq[$i];
my ($sequence)=&Apache::lonnet::decode_symb($master_seq[$i]);
my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem
- my $texversion='';
+ if ($i==0) {$prevassignment=$assignment;}
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
my $texversion=&Apache::lonnet::ssi($urlp,%form);
if ($urlp=~/\.page$/) {
@@ -893,9 +893,9 @@
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
$texversion=&IndexCreation($texversion,$urlp);
}
- if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>=1)) {
- my ($name,$courseidinfo) = &get_name;
- $courseidinfo = &get_course();
+ if (($selectionmade == 4) and ($assignment ne $prevassignment)) {
+ my $name = &get_name();
+ my $courseidinfo = &get_course();
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
$prevassignment=$assignment;
$result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$name.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}} \vskip -5 mm ';