LedgerSMB/RESTXML/Document/Customer.pm



package LedgerSMB::RESTXML::Document::Customer;
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 customer where id = ?},
        undef, $args->{args}[0] );

    if ( !$res ) {
        $handler->not_found("No customer with the id $args->{args}[0] found");
    }
    else {
        $handler->respond(
            $self->hash_to_twig( { name => 'Customer', hash => $res } ) );
    }
}

1;