diff options
author | Yorhel <git@yorhel.nl> | 2008-12-04 13:02:26 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2008-12-04 13:02:26 +0100 |
commit | 41d31eb3eb4576cf7e621cd254b6cefe347981fc (patch) | |
tree | d26450cd86100cd48321f08a9e0f283cf38412c9 /lib/VNDB/Handler/Producers.pm | |
parent | 8e606a77e4be57ed45286cdc9d939fc7c1f1c739 (diff) |
...and an interface for adding/removing producers
Code reuse = good.
Release edit form is now finished, functionality-wise.
Diffstat (limited to 'lib/VNDB/Handler/Producers.pm')
-rw-r--r-- | lib/VNDB/Handler/Producers.pm | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/lib/VNDB/Handler/Producers.pm b/lib/VNDB/Handler/Producers.pm index d3e37a36..49a7b879 100644 --- a/lib/VNDB/Handler/Producers.pm +++ b/lib/VNDB/Handler/Producers.pm @@ -3,7 +3,7 @@ package VNDB::Handler::Producers; use strict; use warnings; -use YAWF ':html'; +use YAWF ':html', ':xml'; use VNDB::Func; @@ -12,6 +12,7 @@ YAWF::register( qr{p(?:([1-9]\d*)(?:\.([1-9]\d*))?/edit|/new)} => \&edit, qr{p/([a-z0]|all)} => \&list, + qr{xml/producers\.xml} => \&pxml, ); @@ -205,5 +206,29 @@ sub list { } +# peforms a (simple) search and returns the results in XML format +sub pxml { + my $self = shift; + + my $q = $self->formValidate({ name => 'q', maxlength => 500 }); + return 404 if $q->{_err}; + $q = $q->{q}; + + my($list, $np) = $self->dbProducerGet( + $q =~ /^p([1-9]\d*)/ ? (id => $1) : (search => $q), + results => 10, + page => 1, + ); + + $self->resHeader('Content-type' => 'text/xml; charset=UTF-8'); + xml; + tag 'producers', more => $np ? 'yes' : 'no', query => $q; + for(@$list) { + tag 'item', id => $_->{id}, $_->{name}; + } + end; +} + + 1; |