NAME

Krang::CGI::MyAlerts - interface to edit Krang user alerts.

SYNOPSIS

  use Krang::ClassLoader 'CGI::MyAlerts';
  my $app = pkg('CGI::MyAlerts')->new();
  $app->run();

DESCRIPTION

Krang::CGI::MyAlerts provides a form in which a krang user can view and change thier alerts.

INTERFACE

Following are descriptions of all the run-modes provided by Krang::CGI::MyAlerts.

• edit
  
Displays current alerts edit form.
• add()
  
Commits new Krang::Alert to server.
• delete_alerts()
  

Deletes selected alerts.

=cut

sub delete_alerts { my $self = shift; my $q = $self->query(); my @delete_list = ($q->param('alert_delete_list'));

    unless (@delete_list) {
        add_alert('missing_alert_delete_list');
        return $self->edit();
    }

    foreach my $alert_id (@delete_list) {
        pkg('Alert')->delete($alert_id);
    }

    add_message('deleted_selected');
    return $self->edit();

}

1;