140 lines
5.1 KiB
Plaintext
140 lines
5.1 KiB
Plaintext
<?_code
|
|
{
|
|
use strict;
|
|
use vars qw($body $title %GET);
|
|
|
|
$title = "Feedback Survey Results";
|
|
|
|
my $remote = LJ::get_remote();
|
|
unless (LJ::check_priv($remote, "siteadmin", "feedback") || LJ::check_priv($remote, "siteadmin", "*")) {
|
|
$title = "Restricted";
|
|
$body = "<?p This is the feedback review tool for LiveJournal administrators. p?>";
|
|
return BML::redirect("/feedback/");
|
|
}
|
|
|
|
$body .= "<?h1 Retrieve Surveys h1?>\n";
|
|
$body .= '<form method="GET" action="./"><input type="hidden" name="mode" value="list" />';
|
|
$body .= "<table cellpadding='4' cellspacing='2' class='search'>";
|
|
$body .= "<tr><th>URL:</th><td>" .
|
|
LJ::html_text({ 'name' => 'url',
|
|
'value' => $GET{'url'},
|
|
'size' => 30, 'maxlength' => 50 }) . "</td></tr>";
|
|
|
|
$body .= "<tr><th>Username:</th><td>" .
|
|
LJ::html_text({ 'name' => 'username',
|
|
'value' => $GET{'username'},
|
|
'size' => 15, 'maxlength' => 15 }) . "</td></tr>";
|
|
|
|
$body .= "<tr><th>State:</th><td>" .
|
|
LJ::html_select({'name' => 'state', 'selected' => $GET{'state'}},
|
|
'', "", 'N', "New", 'D', "Deleted", 'Z', "Zilla item") . "</td></tr>";
|
|
|
|
$body .= "<tr><td></td><td>" . LJ::html_submit("", "Search") . "</td></tr>";
|
|
|
|
$body .= "</table></form>";
|
|
|
|
return unless $GET{'mode'};
|
|
|
|
if ($GET{'mode'} eq "list") {
|
|
my @where;
|
|
my $dbr = LJ::get_db_reader();
|
|
$body .= "<?hr?><?h1 Results h1?>";
|
|
if ($GET{'viewall'} ne "") {
|
|
# Do nothing extra
|
|
}
|
|
if ($GET{'username'} ne "") {
|
|
my $userid = LJ::get_userid($GET{'username'});
|
|
unless ($userid)
|
|
{
|
|
$body .= "<?h2 Error: h2?> <?p No results for '$GET{'username'}'. p?>";
|
|
return;
|
|
}
|
|
push @where, "userid=$userid";
|
|
}
|
|
if ($GET{'url'} ne "") {
|
|
my $qvalue = $dbr->quote($GET{'url'});
|
|
push @where, "url=$qvalue";
|
|
}
|
|
if ($GET{'state'} ne "") {
|
|
my $qvalue = $dbr->quote($GET{'state'});
|
|
push @where, " state=$qvalue";
|
|
}
|
|
|
|
my $where; my $i;
|
|
if (@where > 0) {
|
|
$where = "WHERE ";
|
|
foreach (@where) {
|
|
$i++;
|
|
$where .= $i == 1 ? $_ : " && " . $_;
|
|
}
|
|
}
|
|
|
|
my $sth = $dbr->prepare("SELECT * FROM fotobilder_feedback $where");
|
|
$sth->execute;
|
|
|
|
my $show_total = 50;
|
|
my $row_ct = 0;
|
|
my $row_show = 0;
|
|
my $row_skip = 0;
|
|
my $row_html;
|
|
my @rows; while (my $row = $sth->fetchrow_hashref) { push @rows, $row; }
|
|
foreach my $row ( reverse @rows ) {
|
|
next if LJ::trim($row->{'body'}) eq "";
|
|
$row_ct++;
|
|
next if $GET{'skip'} && ++$row_skip <= $GET{'skip'};
|
|
if ($row_show < $show_total) {
|
|
$row_show++;
|
|
my $username = LJ::get_username($row->{'userid'});
|
|
$row_html .= "<tr><td style='white-space: nowrap'>" . LJ::ljuser($username) . "<br /><br />";
|
|
if ($row->{'datetime'} ne "0000-00-00 00:00:00") {
|
|
$row_html .= "<strong>Filed at:</strong> $row->{'datetime'}<br />";
|
|
}
|
|
$row_html .= "<ul><li><a href='./?mode=list&url=" . LJ::ehtml($row->{'url'}) . "'>$row->{'url'}</a></li>";
|
|
$row_html .= "<li><a href='./?mode=list&username=$username'>Other feedback</a></li>";
|
|
$row_html .= "<li><a href='./?mode=list&state=$row->{'state'}'>State: $row->{'state'}</a></li></ul></td>";
|
|
$row_html .= "<td style='border: 1px solid #000' valign='top'>";
|
|
my $abstract = LJ::ehtml($row->{'body'});
|
|
$abstract =~ s/\n/<br \/>/g;
|
|
$row_html .= "$abstract</td></tr>";
|
|
}
|
|
}
|
|
if ($row_ct eq 0) { $body .= "<?p No Results Returned p?>"; return; }
|
|
|
|
$body .= "<table cellpadding='4' cellspacing='1' border='0' class='feedback'>";
|
|
$body .= "<tr><th style='width: 175px;'>Links</th><th>Feedback</th></tr>";
|
|
$body .= $row_html;
|
|
my $slinks;
|
|
if ($GET{'skip'}) {
|
|
$slinks .= "<a href=\"" . BML::self_link({ 'skip' => $GET{'skip'} - $show_total}) . "\"><< Back</a> ";
|
|
}
|
|
if ($row_show != $row_ct) {
|
|
my $from = $GET{'skip'}+1;
|
|
my $to = $row_show + $GET{'skip'};
|
|
$slinks .= "(Records $from-$to of $row_ct) ";
|
|
}
|
|
if ($GET{'skip'} + $row_show < $row_ct) {
|
|
$slinks .= "<a href=\"" . BML::self_link({ 'skip' => $GET{'skip'} + $show_total}) . "\">Forward >></a> ";
|
|
}
|
|
$body .= "</table>";
|
|
if ($slinks ne "") { $body .= "<?h1 Tally h1?> <?p $slinks p?>"; }
|
|
} else {
|
|
$body .= "<?p Please select a search criteria p?>";
|
|
}
|
|
return;
|
|
}
|
|
_code?>
|
|
<?page
|
|
title=><?_code return $title; _code?>
|
|
body=> <?_code return $body; _code?>
|
|
head<=
|
|
<style type='text/css'>
|
|
.feedback {
|
|
width: 100%;
|
|
}
|
|
.feedback th, .search th {
|
|
text-align: left;
|
|
}
|
|
</style>
|
|
<=head
|
|
page?>
|