$::all_units nicht in SL::Form benutzen.

Die einzige verbliebene instanz von all_units ist jetzt nur noch in SL::AM
Die muss noch gefixt werden, aber die anderen beiden haben damit nichts zu tun.

diff --git a/SL/Form.pm b/SL/Form.pm
index f313999c3ef5c1ba99eed8baa51694893320c492..68b168127d46934d3fc46f4fe35744638f140fa4 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1118,8 +1118,7 @@ sub format_amount_units {
     return '';
   }
 
     return '';
   }
 

-  AM->retrieve_all_units();
-  my $all_units        = $main::all_units;
+  my $all_units        = AM->retrieve_all_units;

 
   if (('' eq ref $conv_units) && ($conv_units =~ /convertible/)) {
     $conv_units = AM->convertible_units($all_units, $part_unit_name, $conv_units eq 'convertible_not_smaller');
 
   if (('' eq ref $conv_units) && ($conv_units =~ /convertible/)) {
     $conv_units = AM->convertible_units($all_units, $part_unit_name, $conv_units eq 'convertible_not_smaller');