[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[albertel]

albertel		Thu Dec 15 14:08:14 2005 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - when print problems for sequence, was passign url not symb to gettile (which meant we could get the wrong title)
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.406 loncom/interface/lonprintout.pm:1.407
--- loncom/interface/lonprintout.pm:1.406	Thu Dec 15 13:36:23 2005
+++ loncom/interface/lonprintout.pm	Thu Dec 15 14:08:14 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.406 2005/12/15 18:36:23 albertel Exp $
+# $Id: lonprintout.pm,v 1.407 2005/12/15 19:08:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1257,11 +1257,11 @@
 		    $result.="\\newpage\n";
 		}
 	    }
-	    my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
+	    my ($sequence,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
 	    $urlp=&Apache::lonnet::clutter($urlp);
 	    $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 $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #title of the assignment which contains this problem
 	    if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}
 	    if ($i==0) {$prevassignment=$assignment;}
 	    my $texversion='';
@@ -1294,7 +1294,7 @@
 		    } else {
 			if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
 			    $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
-			    $texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($urlp).'}\vskip 0 mm ';
+			    $texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($master_seq[$i]).'}\vskip 0 mm ';
 			    $texversion.=&path_to_problem ($urlp,$LaTeXwidth);
 			    $texversion.='\vskip 1 mm '.$answer;
 			} else {