diff options
-rwxr-xr-x | mat | 16 |
1 files changed, 13 insertions, 3 deletions
@@ -667,15 +667,25 @@ sub cmd_shoppinglist { print "WARNING recipe $recipe contains no ingredients!\n"; } for my $content ( keys(%$contents)) { + my %shop; # print %$contents, "\n"; - my $ingredientcol = $db->selectcol_arrayref("SELECT name FROM ingredients WHERE id=".$content.";"); + my $ingredientcol = $db->selectcol_arrayref("SELECT name FROM ingredients WHERE id=".$content.";"); # print $content, " ", @$ingredientcol[0], "\n"; # print $$contents{$content}{unit}, $content, " ", @$ingredientcol[0], "\n"; - printf "%4s %-8s %s\n", $$contents{$content}{quantity}, - $$contents{$content}{unit}, @$ingredientcol[0]; # print keys(%$contents), "\n"; + $shop{id} = $content; + $shop{quantity} = $$contents{$content}{quantity}; +# $shop{shop_position} = + $shop{unit} = $$contents{$content}{unit}; + $shop{ingredient} = @$ingredientcol[0]; + push @shop_ingredients, \%shop; } } + my @sorted_ingredients = sort { $a->{ingredient} cmp $b->{ingredient} } @shop_ingredients; + for my $shop ( @sorted_ingredients ) + { + printf "%4s %-8s %s\n", $shop->{quantity}, $shop->{unit}, $shop->{ingredient}; + } return 1; } |