diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-01 06:49:20 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-01 06:49:20 +0000 |
commit | 9b072067dae21ed62e4a36799afe2d80e94f66b7 (patch) | |
tree | 270e0979ef70eb2a875902deb1dc874e30071ced /scripts/customer.pl | |
parent | de5795278d3f8a52112d0f42bcf7716a76ff11ac (diff) |
Updating pod for menu scripts, and adding pod coverage for my modifications to scripts/customer
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1483 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts/customer.pl')
-rw-r--r-- | scripts/customer.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/scripts/customer.pl b/scripts/customer.pl index dfef02cd..c684c7e6 100644 --- a/scripts/customer.pl +++ b/scripts/customer.pl @@ -51,6 +51,18 @@ sub get { } +=pod + +=over + +=item add + +This method creates a blank screen for entering a customer's information. + +=back + +=cut + sub add { my ($request) = @_; my $customer = LedgerSMB::DBObject::Customer->new(base => $request, copy => 'all'); |