diff options
author | Yorhel <git@yorhel.nl> | 2011-02-15 16:13:11 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2011-02-15 16:13:11 +0100 |
commit | 24680d31a5a3433db5fd0140d9cb80b371659342 (patch) | |
tree | b8beae4bbcfa12c9e695126ebf5845214f1978bf /lib/VNDB/Handler/Misc.pm | |
parent | a796407a552fb5422a81a4cf8a5029d1f39bf419 (diff) |
chardb: Added char entry tables and updated the basic revision framework
The Perl code and SQL-revisioning code only handles the name, original,
alias and desc fields at the moment. There is a basic /i+ and /i+.+ page
for testing, which should have all the functionality required for the
revisioning framework.
Diffstat (limited to 'lib/VNDB/Handler/Misc.pm')
-rw-r--r-- | lib/VNDB/Handler/Misc.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm index 062e3ae4..8e449153 100644 --- a/lib/VNDB/Handler/Misc.pm +++ b/lib/VNDB/Handler/Misc.pm @@ -11,7 +11,7 @@ use POSIX 'strftime'; TUWF::register( qr{}, \&homepage, - qr{(?:([upvr])([1-9]\d*)/)?hist}, \&history, + qr{(?:([upvrc])([1-9]\d*)/)?hist}, \&history, qr{d([1-9]\d*)}, \&docpage, qr{setlang}, \&setlang, qr{nospam}, \&nospam, @@ -206,6 +206,7 @@ sub history { my $obj = $type eq 'u' ? $self->dbUserGet(uid => $id, what => 'hide_list')->[0] : $type eq 'p' ? $self->dbProducerGet(id => $id)->[0] : $type eq 'r' ? $self->dbReleaseGet(id => $id)->[0] : + $type eq 'c' ? $self->dbCharGet(id => $id)->[0] : $type eq 'v' ? $self->dbVNGet(id => $id)->[0] : undef; my $title = mt $type ? ('_hist_title_item', $obj->{title} || $obj->{name} || $obj->{username}) : '_hist_title'; return $self->resNotFound if $type && !$obj->{id}; |