diff options
-rw-r--r-- | data/docs/11 | 4 | ||||
-rw-r--r-- | lib/Multi/API.pm | 7 |
2 files changed, 5 insertions, 6 deletions
diff --git a/data/docs/11 b/data/docs/11 index d1f40ea4..44adab5c 100644 --- a/data/docs/11 +++ b/data/docs/11 @@ -470,7 +470,8 @@ however still required.<br /> "id", integer<br /> "relation", string, relation to the VN<br /> "title", string, (romaji) title<br /> - "original", string, original/official title, can be <b>null</b>. + "original", string, original/official title, can be <b>null</b><br /> + "official", boolean. </td> </tr> <tr> @@ -1563,6 +1564,7 @@ however still required.<br /> <li>Added "vns" flag and member to "get character"</li> <li>Allow sorting "get vn" on popularity, rating and votecount</li> <li>Added basic "get user" command</li> + <li>Added "official" field to "get vn relations"</li> </ul> <b>2.23</b> <ul> diff --git a/lib/Multi/API.pm b/lib/Multi/API.pm index 258189ff..16069ec6 100644 --- a/lib/Multi/API.pm +++ b/lib/Multi/API.pm @@ -385,7 +385,6 @@ my %GET_VN = ( sql => 'SELECT %s FROM vn v WHERE NOT v.hidden AND (%s) %s', select => 'v.id', proc => sub { - delete $_[0]{latest}; $_[0]{id} *= 1 }, sortdef => 'id', @@ -451,7 +450,7 @@ my %GET_VN = ( ]], }, relations => { - fetch => [[ 'id', 'SELECT vr.id AS vid, v.id, vr.relation, v.title, v.original FROM vn_relations vr + fetch => [[ 'id', 'SELECT vr.id AS vid, v.id, vr.relation, v.title, v.original, vr.official FROM vn_relations vr JOIN vn v ON v.id = vr.vid WHERE vr.id IN(%s)', sub { my($r, $n) = @_; for my $i (@$r) { @@ -460,6 +459,7 @@ my %GET_VN = ( for (@$n) { $_->{id} *= 1; $_->{original} ||= undef; + $_->{official} = $_->{official} =~ /t/ ? TRUE : FALSE, delete $_->{vid}; } } @@ -555,7 +555,6 @@ my %GET_RELEASE = ( released => 'r.released %s', }, proc => sub { - delete $_[0]{latest}; $_[0]{id} *= 1 }, flags => { @@ -685,7 +684,6 @@ my %GET_PRODUCER = ( sql => 'SELECT %s FROM producers p WHERE NOT p.hidden AND (%s) %s', select => 'p.id', proc => sub { - delete $_[0]{latest}; $_[0]{id} *= 1 }, sortdef => 'id', @@ -759,7 +757,6 @@ my %GET_CHARACTER = ( sql => 'SELECT %s FROM chars c WHERE NOT c.hidden AND (%s) %s', select => 'c.id', proc => sub { - delete $_[0]{latest}; $_[0]{id} *= 1 }, sortdef => 'id', |