% 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 % unless(defined($content)) { <%perl> my $etymologyquery = $dbh->prepare("SELECT * FROM convenientetymology WHERE etymologyid=?"); $etymologyquery->execute( $etymology ); my $etymologyrow = $etymologyquery->fetchrow_hashref; Editing <% $etymologyrow->{'realname'} %> etymology for valsi "<% $etymologyrow->{'word'} %>".
Etymology ID: <% $etymologyrow->{'etymologyid'} %>
% if(defined($etymologyrow)) {
Etymology
% } 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);

Done.

Return to where you were.

% } <%init> our($dbh,%session); <%args> $etymology => undef $content => undef $word => undef