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

[raeburn]

raeburn		Sat Mar 25 22:11:11 2023 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  - Scale value of width_param *before* setting height_param to TeXheight.
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.470 loncom/xml/londefdef.pm:1.471
--- loncom/xml/londefdef.pm:1.470	Sat Mar 25 18:38:27 2023
+++ loncom/xml/londefdef.pm	Sat Mar 25 22:11:11 2023
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module
 #
-# $Id: londefdef.pm,v 1.470 2023/03/25 18:38:27 raeburn Exp $
+# $Id: londefdef.pm,v 1.471 2023/03/25 22:11:11 raeburn Exp $
 #
 #
 # Copyright Michigan State University Board of Trustees
@@ -4313,10 +4313,10 @@
 	    $height_param=$TeXwidth/$old_width_param*$height_param;
 	}
     } elsif ($TeXheight) {
-	$height_param = $TeXheight;
 	if ($height_param) {
 	    $width_param  = $TeXheight/$height_param*$width_param;
 	}
+	$height_param = $TeXheight;
     } elsif ($width) {
 	my $old_width_param=$width_param;
 	$width_param = $width*$scaling;