defect 3823

This commit is contained in:
lissav 2013-10-10 09:09:37 -04:00
parent d8c0929f24
commit 4a04c8fb10

View File

@ -1220,9 +1220,14 @@ sub tabprune_numberdays {
$hour, $min, $sec);
# delete all records before # days ago
# display the output
# display the output
# get field name for the table
my $timeattr="audittime"; # default auditlog, most used
if ($table eq "eventlog") {
$timeattr="eventtime";
}
my @attrarray;
push @attrarray, "audittime<$daysago";
push @attrarray, "$timeattr<$daysago";
my @recs;
if ($VERBOSE) { # need to get all attributes
@recs = $tab->getAllAttribsWhere(\@attrarray, 'ALL');