+ # add valid but empty groups if -l is set
+ if (%ValidGroups) {
+ foreach (sort keys %ValidGroups) {
+ if (!defined($Postings{$_})) {
+ $Postings{$_} = 0 ;
+ warn (sprintf("ADDED: %s as empty group\n",$_));
+ }
+ };
+ };
+
+ # delete old data for that month
+ if (!$Options{'o'}) {
+ $DBQuery = $DBHandle->do(sprintf("DELETE FROM %s.%s WHERE month = ?",$Conf{'DBDatabase'},$Conf{'DBTableGrps'}),undef,$Month)
+ or warn sprintf("$MySelf: E: Can't delete old groups data for %s from %s.%s: $DBI::errstr\n",$Month,$Conf{'DBDatabase'},$Conf{'DBTableGrps'});
+ };
+