$::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 f313999..68b1681 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1118,8 +1118,7 @@ sub format_amount_units {
     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');