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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 14 Feb 2006 20:34:35 -0000


albertel		Tue Feb 14 15:34:35 2006 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - no longer using $number_of_columns in print_resources, just embedding 
    the string directly and letting latex_corrections fix it up, so eliminate
    it from the call and  argument list
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.421 loncom/interface/lonprintout.pm:1.422
--- loncom/interface/lonprintout.pm:1.421	Fri Feb 10 06:56:49 2006
+++ loncom/interface/lonprintout.pm	Tue Feb 14 15:34:34 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.421 2006/02/10 11:56:49 foxr Exp $
+# $Id: lonprintout.pm,v 1.422 2006/02/14 20:34:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1418,8 +1418,7 @@
 						     $person,$type,
 						     \%moreenv,\@master_seq,
 						     $flag_latex_header_remove,
-						     $LaTeXwidth,
-						     $number_of_columns);
+						     $LaTeXwidth);
 	     $resources_printed .= ":";
 	     $print_array[$i].=$output;
 	     $student_names[$i].=$person.':'.$fullname.'_END_';
@@ -1725,7 +1724,7 @@
 
 sub print_resources {
     my ($r,$helper,$person,$type,$moreenv,$master_seq,$remove_latex_header,
-	$LaTeXwidth,$number_of_columns)=@_;
+	$LaTeXwidth)=@_;
     my $current_output = ''; 
     my $printed = '';
     my ($username,$userdomain,$usersection) = split /:/,$person;