summaryrefslogtreecommitdiff
path: root/lib/VNWeb/User/Lists.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VNWeb/User/Lists.pm')
-rw-r--r--lib/VNWeb/User/Lists.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/VNWeb/User/Lists.pm b/lib/VNWeb/User/Lists.pm
index eea7eb4f..94071076 100644
--- a/lib/VNWeb/User/Lists.pm
+++ b/lib/VNWeb/User/Lists.pm
@@ -17,7 +17,7 @@ my $LABELS = form_compile any => {
elm_form 'UListManageLabels', undef, $LABELS;
-json_api qr{/u/ulist/labels.json}, $LABELS, sub {
+json_api qr{/u/ulist/labels\.json}, $LABELS, sub {
my($uid, $labels) = ($_[0]{uid}, $_[0]{labels});
return elm_Unauth if !auth || auth->uid != $uid;
@@ -80,7 +80,7 @@ my $VNVOTE = form_compile any => {
elm_form 'UListVoteEdit', undef, $VNVOTE;
-json_api qr{/u/ulist/setvote.json}, $VNVOTE, sub {
+json_api qr{/u/ulist/setvote\.json}, $VNVOTE, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
tuwf->dbExeci(
@@ -110,7 +110,7 @@ my $VNLABELS_IN = form_compile in => $VNLABELS;
elm_form 'UListLabelEdit', $VNLABELS_OUT, $VNLABELS_IN;
-json_api qr{/u/ulist/setlabel.json}, $VNLABELS_IN, sub {
+json_api qr{/u/ulist/setlabel\.json}, $VNLABELS_IN, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
die "Attempt to set vote label" if $data->{label} == 7;
@@ -141,7 +141,7 @@ my $VNDATE = form_compile any => {
elm_form 'UListDateEdit', undef, $VNDATE;
-json_api qr{/u/ulist/setdate.json}, $VNDATE, sub {
+json_api qr{/u/ulist/setdate\.json}, $VNDATE, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
tuwf->dbExeci(
@@ -183,7 +183,7 @@ my $VNNOTES = form_compile any => {
elm_form 'UListVNNotes', undef, $VNNOTES;
-json_api qr{/u/ulist/setnote.json}, $VNNOTES, sub {
+json_api qr{/u/ulist/setnote\.json}, $VNNOTES, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
tuwf->dbExeci(
@@ -203,7 +203,7 @@ my $VNDEL = form_compile any => {
elm_form 'UListDel', undef, $VNDEL;
-json_api qr{/u/ulist/del.json}, $VNDEL, sub {
+json_api qr{/u/ulist/del\.json}, $VNDEL, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
tuwf->dbExeci('DELETE FROM ulist_vns WHERE uid =', \$data->{uid}, 'AND vid =', \$data->{vid});
@@ -221,7 +221,7 @@ my $RSTATUS = form_compile any => {
elm_form 'UListRStatus', undef, $RSTATUS;
# Adds the release when not in the list.
-json_api qr{/u/ulist/rstatus.json}, $RSTATUS, sub {
+json_api qr{/u/ulist/rstatus\.json}, $RSTATUS, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
if($data->{status} == -1) {