% unless(defined($session{'username'})) {
You ought not have been able to view this page, as you aren't logged in!
% return;
% }
% unless(defined($etymology)) {
You'll need to specify a valsi to add etymological data. How about you go to
the right page and follow the link instead of playing around?
% return;
% }
<%method title>
Editing etymology
%method>
% unless(defined($content)) {
<%perl>
my $etymologyquery = $dbh->prepare("SELECT * FROM convenientetymology WHERE etymologyid=?");
$etymologyquery->execute( $etymology );
my $etymologyrow = $etymologyquery->fetchrow_hashref;
%perl>
Editing <% $etymologyrow->{'realname'} %> etymology for valsi "<% $etymologyrow->{'word'} %>".
Etymology ID: <% $etymologyrow->{'etymologyid'} %>
% if(defined($etymologyrow)) {
% } else {
The etymological record you requested to edit doesn't exist. Sorry.
% }
% } else {
Updating etymology record for "<% $word %>".
<%perl>
my $langid = $dbh->selectrow_array("SELECT langid FROM etymology WHERE
etymologyid = ?", undef, $etymology);
my $valsiid = $dbh->selectrow_array("SELECT valsiid FROM etymology WHERE
etymologyid = ?", undef, $etymology);
# Send e-mail to the valsi creator, and all definition creators for that valsi
my @email;
push @email, $dbh->selectrow_array("SELECT u.email FROM
valsi v, users u WHERE v.userid = u.userid AND
v.valsiid=$valsiid");
# And the etymology creator(s) too!
push @email, $dbh->selectrow_array("SELECT u.email FROM
etymology e, users u WHERE e.userid = u.userid AND
e.valsiid=$valsiid");
my $emailquery = $dbh->prepare( "SELECT u.email FROM definitions d, users u
WHERE d.userid = u.userid AND d.valsiid=? AND d.langid=?" );
$emailquery->execute($valsiid, $langid);
while( defined(my $emailrow=$emailquery->fetchrow_hashref) )
{
push @email, $emailrow->{'email'};
}
@email = keys %{{ map { $_ => 1 } @email }};
my $oldcontent = $dbh->selectrow_array("SELECT content FROM etymology WHERE
etymologyid = ?", undef, $etymology);
utils::sendemail( \@email, "Etymology Edited At Word $word", "
In jbovlaste, the user $session{'username'} has edit the following
etymology at $word:
Old Content:
$oldcontent
New Content:
$content
You can go to to see it.
", $session{'username'} );
$dbh->do("UPDATE etymology SET content=?, time=? WHERE etymologyid=?", { },
$content, time(), $etymology);
%perl>
Done.
Return to where you were.
% }
<%init>
our($dbh,%session);
%init>
<%args>
$etymology => undef
$content => undef
$word => undef
%args>