diff options
author | yorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b> | 2008-07-29 14:04:31 +0000 |
---|---|---|
committer | yorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b> | 2008-07-29 14:04:31 +0000 |
commit | c77ece04d45d0ae05a4de17bcfd94df90b64758e (patch) | |
tree | 6f76aa8a27de3aa5b141011ad021e6dc3eb830f5 /lib/VNDB/Util/Auth.pm | |
parent | 7aea19c2f8e71a7d630b613a57325c4dce1b1363 (diff) |
- Further polished the rlist feature
- Re-added old VN list, delete-only and with a warning
- Small code cleanup
git-svn-id: svn://vndb.org/vndb@75 1fe2e327-d9db-4752-bcf7-ef0cb4a1748b
Diffstat (limited to 'lib/VNDB/Util/Auth.pm')
-rw-r--r-- | lib/VNDB/Util/Auth.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/VNDB/Util/Auth.pm b/lib/VNDB/Util/Auth.pm index 2f79b512..6f265253 100644 --- a/lib/VNDB/Util/Auth.pm +++ b/lib/VNDB/Util/Auth.pm @@ -89,6 +89,7 @@ sub _AuthCheck { return 4 if !defined $d->{id}; return 5 if !$d->{rank}; + $d->{oldvnlist} = $self->DBGetVNList(uid => $d->{id}, results => 1)->[0] ? 1 : 0; $info->{_auth} = $d; return 1; @@ -110,6 +111,7 @@ sub AuthAddTpl { AuthMail => $info->{_auth}{mail}, AuthId => $info->{_auth}{id}, AuthNsfw => $info->{_auth}{flags} & $VNDB::UFLAGS->{nsfw}, + AuthOldList => $info->{_auth}{oldvnlist}, ); } else { %tpl = ( |