PriceSource: 0,0000 Preise nicht als best_price erlauben

Auch wenn es im Einzelfall valide Preise sein können, sollte das
Standardverhalten keine Umsonstpreise vorschlagen.

diff --git a/SL/PriceSource.pm b/SL/PriceSource.pm
index 5237003..9f7c110 100644 (file)
--- a/SL/PriceSource.pm
+++ b/SL/PriceSource.pm
@@ -35,7 +35,7 @@ sub available_prices {
 }
 
 sub best_price {
-  min_by { $_->price } map { $_->best_price } $_[0]->all_price_sources;
+  min_by { $_->price } grep { $_->price > 0 } map { $_->best_price } $_[0]->all_price_sources;
 }
 
 sub empty_price {