From: Steinar H. Gunderson <sesse@debian.org>
Date: Sat, 17 Apr 2010 10:40:49 +0000 (+0200)
Subject: Add server-side support for unselecting images.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=f30038434a933c753bc97eb21229dd9340cbad90;ds=sidebyside

Add server-side support for unselecting images.
---

diff --git a/perl/Sesse/pr0n/Select.pm b/perl/Sesse/pr0n/Select.pm
index a2b15e7..8972944 100644
--- a/perl/Sesse/pr0n/Select.pm
+++ b/perl/Sesse/pr0n/Select.pm
@@ -23,9 +23,13 @@ sub handler {
 		local $dbh->{AutoCommit} = 0;
 		local $dbh->{RaiseError} = 1;
 
-		# FIXME: need to support disable too
 		my $filename = $apr->param('filename');
-		$dbh->do('UPDATE images SET selected=\'t\' WHERE vhost=? AND event=? AND filename=?', undef, $r->get_server_name, $event, $filename);
+		my $selected = $apr->param('selected');
+		my $sql_selected = 'f';
+		if (!defined($selected) || $selected eq '1') {
+			$sql_selected = 't';
+		}
+		$dbh->do('UPDATE images SET selected=? WHERE vhost=? AND event=? AND filename=?', undef, $sql_selected, $r->get_server_name, $event, $filename);
 	}
 
 	$dbh->do('UPDATE last_picture_cache SET last_update=CURRENT_TIMESTAMP WHERE vhost=? AND event=?', undef, $r->get_server_name, $event)