Group_BY muss conditional sein

diff --git a/SL/IC.pm b/SL/IC.pm
index fe666ec..b615298 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -987,7 +987,7 @@ sub all_parts {
   my $select_clause = join ', ',    map { ($table_prefix{$_} || "p.") . $_ } @select_tokens;
   my $join_clause   = join ' ',     @joins{ grep $joins_needed{$_}, @join_order };
   my $where_clause  = join ' AND ', map { "($_)" } @where_tokens;
-  my $group_clause  = ' GROUP BY ' . join ', ',    map { ($table_prefix{$_} || "p.") . $_ } @group_tokens;
+  my $group_clause  = ' GROUP BY ' . join ', ',    map { ($table_prefix{$_} || "p.") . $_ } @group_tokens if scalar @group_tokens;
 
   my $query = qq|SELECT DISTINCT $select_clause FROM parts p $join_clause WHERE $where_clause $group_clause $order_clause $limit_clause|;
   $form->{parts} = selectall_hashref_query($form, $dbh, $query, @bind_vars);