diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/customer.pl | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/scripts/customer.pl b/scripts/customer.pl index 8b476995..dfef02cd 100644 --- a/scripts/customer.pl +++ b/scripts/customer.pl @@ -17,7 +17,7 @@ Save customer will update or create as needed. =cut -package LedgerSMB::Scripts::Customer; +package LedgerSMB::Scripts::customer; use LedgerSMB::Template; use LedgerSMB::DBObject::Customer; @@ -40,7 +40,7 @@ of the customer informations. sub get { - my ($class, $request) = @_; + my ($request) = @_; my $customer = LedgerSMB::DBObject::Customer->new(base => $request, copy => 'all'); my $result = $customer->get($customer->{id}); @@ -51,6 +51,16 @@ sub get { } +sub add { + my ($request) = @_; + my $customer = LedgerSMB::DBObject::Customer->new(base => $request, copy => 'all'); + + my $template = LedgerSMB::Template->new( user => $user, + template => 'customer.html', language => $user->{language}, + format => 'html'); + $template->render($results); +} + =pod =over @@ -68,7 +78,7 @@ as well as customer/Company name. =cut sub search { - my ($class, $request) = @_; + my ($request) = @_; my $customer = LedgerSMB::DBObject::Customer->new(base => $request, copy => 'all'); my $results = $customer->search($customer->{search_pattern}); @@ -93,7 +103,7 @@ customer as needed, and will generate a new Company ID for the customer if neede sub save { - my ($class, $request) = @_; + my ($request) = @_; my $customer = LedgerSMB::DBObject::Customer->new(base => $request, copy => 'all'); my $result = $customer->save_to_db(); @@ -103,4 +113,4 @@ sub save { $template->render($result); } -1;
\ No newline at end of file +1; |