// Check permission:
$current_User->check_perm('stats', 'edit', true);
param('hit_ID', 'integer', true);
// Required!
param('new_hit_type', 'string', true);
// Required!
Hitlist::change_type($hit_ID, $new_hit_type);
$Messages->add(sprintf(T_('Changed hit #%d type to: %s.'), $hit_ID, $new_hit_type), 'success');
break;
case 'delete':
// DELETE A HIT
// Check permission:
$current_User->check_perm('stats', 'edit', true);
param('hit_ID', 'integer', true);
// Required!
if (Hitlist::delete($hit_ID)) {
$Messages->add(sprintf(T_('Deleted hit #%d.'), $hit_ID), 'success');
} else {
$Messages->add(sprintf(T_('Could not delete hit #%d.'), $hit_ID), 'note');
}
break;
case 'prune':
// PRUNE hits for a certain date
// Check permission:
$current_User->check_perm('stats', 'edit', true);
param('date', 'integer', true);
// Required!
if ($r = Hitlist::prune($date)) {
$Messages->add(sprintf(T_('Deleted %d hits for %s.'), $r, date(locale_datefmt(), $date)), 'success');
} else {
$Messages->add(sprintf(T_('No hits deleted for %s.'), date(locale_datefmt(), $date)), 'note');
