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

[raeburn]

raeburn		Wed Nov 30 18:01:34 2011 EDT

  Modified files:              
    /loncom/xml	lontable.pm 
  Log:
  - Remove duplicate of existing &size_to_cm()subroutine.
    Original routine added in rev 1.14, and moved in 1.17. 
    Duplicate was added in rev 1.19.
  
  
Index: loncom/xml/lontable.pm
diff -u loncom/xml/lontable.pm:1.20 loncom/xml/lontable.pm:1.21
--- loncom/xml/lontable.pm:1.20	Thu Oct  6 23:22:22 2011
+++ loncom/xml/lontable.pm	Wed Nov 30 18:01:33 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 #  Generating TeX tables.
 #
-# $Id: lontable.pm,v 1.20 2011/10/06 23:22:22 raeburn Exp $
+# $Id: lontable.pm,v 1.21 2011/11/30 18:01:33 raeburn Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1117,32 +1117,6 @@
     }
     
     return $size;		# Default is cm.
-} 
-
-
-
-#---------------------------------------------------------------------------
-#
-#  Private methods:
-#
-
-# 
-# Convert size with units -> size in cm.
-# The resulting size is floating point with no  units so that it can be used in
-# computation.  Note that an illegal or missing unit is treated silently as
-#  cm for now.
-#
-sub size_to_cm {
-    my ($this, $size_spec) = @_;
-    my ($size, $units) = split(/ /, $size_spec);
-    if (lc($units) eq 'mm') {
-	return $size / 10.0;
-    }
-    if (lc($units) eq 'in') {
-	return $size * 2.54;
-    }
-    
-    return $size;		# Default is cm.
 }
 
 #