% 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 }); Adding etymological information for "<% $resultrow->[0] %>" in <% $resultrow->[1] %>
Etymological Data Try to ensure that all text remains on a single line. Also try to keep it as short as possible. See the etymology help for a description of all the relevant notation, etc.
% } 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'});

Etymological information added.

<%perl> $pulldescquery->execute($valsi,$langid); my $resultrow = $pulldescquery->fetchrow_arrayref; $titlestr = sprintf('Storing for "%s" in "%s"',@{ $resultrow });

Return to the <% $resultrow->[0] %> record.

% } <%shared> our $titlestr; <%method title> Adding etymology: <% $titlestr %> <%init> our(%session,$dbh); my $pulldescquery = $dbh->prepare("SELECT (SELECT word FROM valsi WHERE valsiid=?), (SELECT realname FROM languages WHERE langid=?)"); <%args> $valsi => undef $langid => undef $content => undef