1 package Sesse::pr0n::NewEvent;
5 use Sesse::pr0n::Common qw(error dberror);
10 my $apr = Apache2::Request->new($r);
11 my $dbh = Sesse::pr0n::Common::get_dbh();
12 my $user = Sesse::pr0n::Common::check_access($r);
13 if (!defined($user)) {
14 return Apache2::Const::OK;
17 Sesse::pr0n::Common::header($r, "Legger til ny hendelse");
19 my $id = $apr->param('id');
20 my $date = $apr->param('date');
21 my $desc = $apr->param('desc');
23 my @errors = Sesse::pr0n::Common::add_new_event($r, $dbh, $id, $date, $desc);
25 if (scalar @errors > 0) {
26 for my $err (@errors) {
27 $r->print(" <p>Feil: $err</p>\n");
29 $r->print(" <p>Rett opp i feilene over før du går videre.</p>\n");
31 $r->print(" <p>Hendelsen '$id' lagt til.</p>");
34 Sesse::pr0n::Common::footer($r);
36 return Apache2::Const::OK;