[LON-CAPA-cvs] cvs: loncom /xml londefdef.pm

[sakharuk]

sakharuk		Wed Nov  6 11:50:11 2002 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  Fixed bug 871 - width of table does not exceed the width of textline.
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.96 loncom/xml/londefdef.pm:1.97
--- loncom/xml/londefdef.pm:1.96	Mon Oct 28 14:20:15 2002
+++ loncom/xml/londefdef.pm	Wed Nov  6 11:50:11 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.96 2002/10/28 19:20:15 sakharuk Exp $
+# $Id: londefdef.pm,v 1.97 2002/11/06 16:50:11 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1412,7 +1412,8 @@
 		if ($signature) {
 		    my $NumberEmptyLength = $how_many_columns - $filled_columns;		
 		    my $SpacePerColumn = '(\textwidth '.$available_space.')/'.$NumberEmptyLength;
-		    $output =~ s/\$SpacePerColumn/$SpacePerColumn - 4 mm/g;
+		    my $shorthand = ($NumberEmptyLength+1)*4;
+		    $output =~ s/\$SpacePerColumn/$SpacePerColumn - $shorthand mm/g;
 		}	
 		$Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';
 		if ($#Apache::londefdef::table > 0) {