Remove read items from later and vice versa

This commit is contained in:
Peter J. Holzer 2018-03-29 18:36:48 +02:00
parent f5a9184f89
commit e1e3754e29
1 changed files with 3 additions and 0 deletions

View File

@ -74,6 +74,7 @@ sub redirect {
print "Location: $item->{link}\n"; print "Location: $item->{link}\n";
print "\n"; print "\n";
$dbh->do("insert into read(username, item_id) values(?, ?)", {}, $q->remote_user, $item_id); $dbh->do("insert into read(username, item_id) values(?, ?)", {}, $q->remote_user, $item_id);
$dbh->do("delete from later where username=? and item_id=?", {}, $q->remote_user, $item_id);
$mcd->delete(item_info_key($q->remote_user, $item->{feed_id})); $mcd->delete(item_info_key($q->remote_user, $item->{feed_id}));
exit(0); exit(0);
} }
@ -97,6 +98,7 @@ sub mark {
print "Location: ", $q1->self_url, "\n"; print "Location: ", $q1->self_url, "\n";
print "\n"; print "\n";
$dbh->do("insert into read(username, item_id) values(?, ?)", {}, $q->remote_user, $item_id); $dbh->do("insert into read(username, item_id) values(?, ?)", {}, $q->remote_user, $item_id);
$dbh->do("delete from later where username=? and item_id=?", {}, $q->remote_user, $item_id);
$mcd->delete(item_info_key($q->remote_user, $item->{feed_id})); $mcd->delete(item_info_key($q->remote_user, $item->{feed_id}));
print_log("mark done"); print_log("mark done");
exit(0); exit(0);
@ -122,6 +124,7 @@ sub mark_later {
print "Location: ", $q1->self_url, "\n"; print "Location: ", $q1->self_url, "\n";
print "\n"; print "\n";
$dbh->do("insert into later(username, item_id) values(?, ?)", {}, $q->remote_user, $item_id); $dbh->do("insert into later(username, item_id) values(?, ?)", {}, $q->remote_user, $item_id);
$dbh->do("delete from read where username=? and item_id=?", {}, $q->remote_user, $item_id);
$mcd->delete(item_info_key($q->remote_user, $item->{feed_id})); $mcd->delete(item_info_key($q->remote_user, $item->{feed_id}));
print_log("mark_later done"); print_log("mark_later done");
exit(0); exit(0);