mason/save

   1 <%init>
   2 use AwayMsg;
   3 db_connect();
   4 </%init><%args>
   5 $save => 0
   6 $cancel => 0
   7 $textid => undef
   8 </%args><%perl>
   9 if ($save) {
  10     my $ins;
  11     $dbh->do('BEGIN');
  12     if ($textid eq 'new') {
  13         my $ntextq = $dbh->prepare("SELECT textid FROM texts".
  14                                    " ORDER BY textid DESC LIMIT 1");
  15         $ntextq->execute();
  16         my $ntextrow = $ntextq->fetchrow_hashref();
  17         if ($ntextrow) {
  18             $textid = $ntextrow->{'textid'} + 1;
  19         } else {
  20             $textid = 1;
  21         }
  22     } else {
  23         my $dtextq = $dbh->prepare("DELETE FROM texts WHERE textid = ?");
  24         my $ndeleted = $dtextq->execute($textid);
  25         if (!$ndeleted) {
  26 </%perl><htmlhead, subpage => 'Error, editing deleted message'>
  27 Message was deleted.
  28 <form action="main" method="get">
  29 <input type="submit" value="OK">
  30 </form><%perl>
  31         }
  32         return;
  33     }
  34 }
  35 $m->redirect("main");
  36 </%perl>