2 Apr 2007 08:41
r2180 - trunk/unstable/SL
SVN commit mailer <m.bunkus <at> linet-services.de>
2007-04-02 06:41:35 GMT
2007-04-02 06:41:35 GMT
Author: mbunkus
Date: 2007-04-02 08:41:34 +0200 (Mon, 02 Apr 2007)
New Revision: 2180
Modified:
trunk/unstable/SL/AM.pm
Log:
Beim Anlegen von Waren/Dienstleistungen die Einheiten auch wirklich nach der in den Systemeinstellung
vorgegebenen Reihenfolge sortieren.
Modified: trunk/unstable/SL/AM.pm
===================================================================
--- trunk/unstable/SL/AM.pm 2007-03-31 12:07:54 UTC (rev 2179)
+++ trunk/unstable/SL/AM.pm 2007-04-02 06:41:34 UTC (rev 2180)
<at> <at> -1669,7 +1669,7 <at> <at>
push( <at> {$select}, { "name" => "", "base_unit" => "", "factor" => "", "selected" => "" });
}
- foreach my $unit (sort({ $a->{"sortkey"} <=> $b->{"sortkey"} } keys(%{$units}))) {
+ foreach my $unit (sort({ $units->{$a}->{"sortkey"} <=> $units->{$b}->{"sortkey"} }
keys(%{$units}))) {
push( <at> {$select}, { "name" => $unit,
"base_unit" => $units->{$unit}->{"base_unit"},
"factor" => $units->{$unit}->{"factor"},
<at> <at> -1688,7 +1688,7 <at> <at>
my $select = "<select name=${name}>";
- foreach my $unit (sort({ $a->{"sortkey"} <=> $b->{"sortkey"} } keys(%{$units}))) {
+ foreach my $unit (sort({ $units->{$a}->{"sortkey"} <=> $units->{$b}->{"sortkey"} }
(Continue reading)
RSS Feed