diff options
author | Yorhel <git@yorhel.nl> | 2009-05-09 12:39:11 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-05-09 12:39:11 +0200 |
commit | a979409bd60aa04593dfd3fa1c1bbc5eb5248e8a (patch) | |
tree | b087f23f26ce0e2064480d9bc3b6edae21c9caa8 /lib/VNDB/DB/Releases.pm | |
parent | ce6d43aed955effe136f1ce3682828d2d43109cb (diff) |
Started on a release browser
This browser is still -very- basic, more filters and options will
be added later.
Diffstat (limited to 'lib/VNDB/DB/Releases.pm')
-rw-r--r-- | lib/VNDB/DB/Releases.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/VNDB/DB/Releases.pm b/lib/VNDB/DB/Releases.pm index 1df13894..ddf9a66c 100644 --- a/lib/VNDB/DB/Releases.pm +++ b/lib/VNDB/DB/Releases.pm @@ -9,7 +9,7 @@ use Exporter 'import'; our @EXPORT = qw|dbReleaseGet dbReleaseAdd dbReleaseEdit|; -# Options: id vid rev order unreleased page results what +# Options: id vid rev order unreleased page results what date # What: extended changes vn producers platforms media sub dbReleaseGet { my($self, %o) = @_; @@ -29,6 +29,8 @@ sub dbReleaseGet { 'rv.vid = ?' => $o{vid} ) : (), defined $o{unreleased} ? ( q|rr.released !s ?| => [ $o{unreleased} ? '>' : '<=', strftime('%Y%m%d', gmtime) ] ) : (), + $o{date} ? ( + '(rr.released > ? AND rr.released < ?)' => [ $o{date}*100, $o{date}*100+99 ] ) : (), ); my @join = ( |