[ic] search prod_group in items

[interchange-users@icdevgroup.org (Stefano Kerschbaumer - Interline S.r.l.)]

UserTag is_set Routine <<EOR
sub {
    my $out_set = "ok";
    my $sets = 0;
    my $category_grappe = 0;
    my $category_grandi_etichette = 0;
    foreach my $index (0 .. $#$Vend::Items) {
        $out_set = $out_set . $Vend::Items->[$index]{quantity};

        This is the code error:

        $out_set = $out_set . $Vend::Items->[$index]{prod_group};

       I think to access a product group I search width
$Vend::Items->[$index]{code} in table  products ... how ...?


    }

    return $out_set;
}
EOR