RFC-01: Fixed release list updating dropdown on VN pages

2 files changed, 5 insertions, 9 deletions

diff --git a/lib/VNDB/Handler/ULists.pm b/lib/VNDB/Handler/ULists.pm
index 3bcf7b00..daad5c4b 100644
--- a/lib/VNDB/Handler/ULists.pm
+++ b/lib/VNDB/Handler/ULists.pm
@@ -84,13 +84,10 @@ sub rlist {
     (my $ref = $self->reqHeader('Referer')||"/r$id") =~ s/^\Q$self->{url}//;
     $self->resRedirect($ref, 'temp');
   } else {
-    # TODO: FIX
+    # doesn't really matter what we return, as long as it's XML
     $self->resHeader('Content-type' => 'text/xml');
-    my $st = $self->dbVNListGet(uid => $self->authInfo->{id}, rid => [$rid])->[0];
     xml;
-    tag 'rlist', uid => $self->authInfo->{id}, rid => $rid;
-     txt $st ? liststat $st : '--';
-    end;
+    tag 'done', '';
   }
 }
 
diff --git a/lib/VNDB/Handler/VNPage.pm b/lib/VNDB/Handler/VNPage.pm
index 5747acba..b07a7914 100644
--- a/lib/VNDB/Handler/VNPage.pm
+++ b/lib/VNDB/Handler/VNPage.pm
@@ -385,7 +385,7 @@ sub _releases {
    }
 
    if($self->authInfo->{id}) {
-     my $l = $self->dbVNListGet(uid => $self->authInfo->{id}, rid => [map $_->{id}, @$r]);
+     my $l = $self->dbRListGet(uid => $self->authInfo->{id}, rid => [map $_->{id}, @$r]);
      for my $i (@$l) {
        [grep $i->{rid} == $_->{id}, @$r]->[0]{ulist} = $i;
      }
@@ -420,9 +420,8 @@ sub _releases {
          end;
          td class => 'tc5';
           if($self->authInfo->{id}) {
-            a href => "/r$rel->{id}", id => "rlsel_$rel->{id}", class => 'vnrlsel';
-             lit $rel->{ulist} ? liststat $rel->{ulist} : '--';
-            end;
+            a href => "/r$rel->{id}", id => "rlsel_$rel->{id}", class => 'vnrlsel',
+             $rel->{ulist} ? mt '_rlst_stat_'.$rel->{ulist}{status} : '--';
           } else {
             txt ' ';
           }