// 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');