{'body'};
my $remote = LJ::get_remote();
my $userid = $remote && $remote->{'userid'} ? $remote->{'userid'} : 0;
if ($POST{'action:submit'}) {
if (LJ::trim($POST{'survey'}) ne "") {
my $dbh = LJ::get_db_writer();
my $sth = $dbh->prepare("INSERT INTO fotobilder_feedback VALUES (?,?,'N',NOW(),?)");
$POST{'survey'} .= "\n\nUser-agent: " . BML::get_client_header('User-Agent');
$sth->execute($POST{'url'}, $userid, $POST{'survey'});
$$body .= $dbh->err ? "errstr . " p?>" :
". p?>";
return;
}
}
unless ($POST{'url'}) {
$$body = "http://pics.livejournal.com, provided at the bottom of each page. ".
"If there wasn't a button for you to press, or you have some other related feedback, please post about it to ".
"the community . Thank you! p?>";
} else {
$$body .= "- Was the page easy to use?
".
"- Were any aspects of the page confusing to follow?
- Was it easy to stop and pick up where you left off?
".
"- Did the page keep your interest until you were done?
";
$$body .= "";
$$body .= "";
}
return;
}
_code?>
FotoBilder Feedback Survey
body=>{'body'}; _code?>
page?>