diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-26 18:00:56 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-26 18:00:56 +0000 |
commit | 666fd833584fe2e3618a397fe9d9a9bdf4c5b94b (patch) | |
tree | 19c4444705fd7f7803e0d7b597659c11d7e85b73 /LedgerSMB/RESTXML/Document/Customer.pm | |
parent | 2edd2e4de0f08a0a5f23647ea715f279671a0b89 (diff) |
Doing a simple Perltidy commit so that I can evaluate differences between the branches and make sure patches are up to date
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1103 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/RESTXML/Document/Customer.pm')
-rw-r--r-- | LedgerSMB/RESTXML/Document/Customer.pm | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/LedgerSMB/RESTXML/Document/Customer.pm b/LedgerSMB/RESTXML/Document/Customer.pm index 3a494965..b2e19753 100644 --- a/LedgerSMB/RESTXML/Document/Customer.pm +++ b/LedgerSMB/RESTXML/Document/Customer.pm @@ -3,21 +3,22 @@ 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}; -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] ); - 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})); - } + 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; |