1 package Sesse::pr0n::NewEvent;
5 use Sesse::pr0n::Common qw(error dberror);
9 my $dbh = Sesse::pr0n::Common::get_dbh();
10 my $user = Sesse::pr0n::Common::check_access($r);
11 return Sesse::pr0n::Common::generate_401($r) if (!defined($user));
13 my $res = Plack::Response->new(200);
14 my $io = IO::String->new;
15 Sesse::pr0n::Common::header($r, $io, "Legger til ny hendelse");
17 my $id = $r->param('id');
18 my $date = Encode::decode_utf8($r->param('date'));
19 my $desc = Encode::decode_utf8($r->param('desc'));
21 my @errors = Sesse::pr0n::Common::add_new_event($r, $res, $dbh, $id, $date, $desc);
23 if (scalar @errors > 0) {
24 for my $err (@errors) {
25 $io->print(" <p>Feil: $err</p>\n");
27 $io->print(" <p>Rett opp i feilene over før du går videre.</p>\n");
29 $io->print(" <p>Hendelsen '$id' lagt til.</p>");
32 Sesse::pr0n::Common::footer($r, $io);