diff options
Diffstat (limited to 'LedgerSMB/RESTXML/Document/Part.pm')
-rw-r--r-- | LedgerSMB/RESTXML/Document/Part.pm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/LedgerSMB/RESTXML/Document/Part.pm b/LedgerSMB/RESTXML/Document/Part.pm new file mode 100644 index 00000000..072f9b80 --- /dev/null +++ b/LedgerSMB/RESTXML/Document/Part.pm @@ -0,0 +1,23 @@ +package LedgerSMB::RESTXML::Document::Part; +use strict; +use warnings; +use base qw(LedgerSMB::RESTXML::Document::Base); + + +sub handle_get { + my ($self, $args) = @_; + my $user = $args->{user}; + my $dbh = $args->{dbh}; + my $handler = $args->{handler}; + + my $res = $dbh->selectrow_hashref(q{SELECT * from part where id = ?}, undef, $args->{args}[0]); + + if(!$res) { + $handler->not_found("No part with the id $args->{args}[0] found"); + } else { + $handler->respond($self->hash_to_twig({name=>'Customer',hash=>$res})); + } +} + + +1; |