% unless(defined($session{'username'})) {
Not logged in
You ought not have been able to view this page, as you aren't logged in!
% $titlestr = "Not logged in";
% return;
% }
% unless(defined($valsi) && defined($langid)) {
Must specify word and language
You'll need to specify a valsi to add etymological information. How
about you go to the right page and follow the link instead of playing around?
% $titlestr = "Must specify word and language";
% return;
% }
% unless(defined($content)) {
<%perl>
$pulldescquery->execute($valsi,$langid);
my $resultrow = $pulldescquery->fetchrow_arrayref;
$titlestr = sprintf('"%s" in "%s"',@{ $resultrow });
%perl>
Adding etymological information for
"<% $resultrow->[0] %>" in <% $resultrow->[1] %>
% } else {
Storing etymological information.
<%perl>
# 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=$valsi");
# 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=$valsi");
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($valsi, $langid);
while( defined(my $emailrow=$emailquery->fetchrow_hashref) )
{
push @email, $emailrow->{'email'};
}
@email = keys %{{ map { $_ => 1 } @email }};
my $word = $dbh->selectrow_array( "SELECT word FROM valsi WHERE
valsiid=$valsi");
#my $oldcontent = $dbh->selectrow_array("SELECT content FROM example WHERE
# exampleid = ?", undef, $example);
utils::sendemail( \@email, "Etymology Added At Word $word", "
In jbovlaste, the user $session{'username'} has added the following
etymology to $word:
$content
You can go to to see it.
", $session{'username'} );
$dbh->do("INSERT INTO etymology (valsiid, langid, content, time, userid) VALUES (?, ?, ?, ?, ?)", { }, $valsi, $langid, $content, time(), $session{'userid'});
%perl>
Etymological information added.
<%perl>
$pulldescquery->execute($valsi,$langid);
my $resultrow = $pulldescquery->fetchrow_arrayref;
$titlestr = sprintf('Storing for "%s" in "%s"',@{ $resultrow });
%perl>
Return to the
<% $resultrow->[0] %> record.
% }
<%shared>
our $titlestr;
%shared>
<%method title>
Adding etymology: <% $titlestr %>
%method>
<%init>
our(%session,$dbh);
my $pulldescquery = $dbh->prepare("SELECT (SELECT word FROM valsi WHERE valsiid=?), (SELECT realname FROM languages WHERE langid=?)");
%init>
<%args>
$valsi => undef
$langid => undef
$content => undef
%args>