summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-11-13 22:29:41 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-11-13 22:29:41 +0000
commit54d259c68faf75c843e5b5f3a1abb7d9ab809129 (patch)
treefb2d3d636067deed2334eb114c7e83ee9bab596d /LedgerSMB
parentc81c44d32e58bf3f49dfb34341232bbe26c12cea (diff)
All tests now pass except POD coverage
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2396 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rw-r--r--LedgerSMB/DBObject/Payment.pm9
-rw-r--r--LedgerSMB/Form.pm2
2 files changed, 10 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject/Payment.pm b/LedgerSMB/DBObject/Payment.pm
index e87cd7a6..0efefacb 100644
--- a/LedgerSMB/DBObject/Payment.pm
+++ b/LedgerSMB/DBObject/Payment.pm
@@ -274,6 +274,7 @@ sub list_open_projects {
}
=over
+
=item list_departments
This method gets the type of document as a parameter, and provides a list of departments
@@ -281,6 +282,7 @@ of the required type.
The list is attached to $self->{departments} and returned.
=back
+
=cut
sub list_departments {
@@ -293,6 +295,8 @@ sub list_departments {
return @{$self->{departments}};
}
+=over
+
=item list_open_vc
This method gets the type of vc (vendor or customer) as a parameter, and provides a list of departments
@@ -300,6 +304,7 @@ of the required type.
The list is attached to $self->{departments} and returned.
=back
+
=cut
sub list_departments {
@@ -311,6 +316,8 @@ sub list_departments {
);
return @{$self->{departments}};
}
+
+=over
=item get_open_currencies
@@ -326,6 +333,8 @@ sub get_open_currencies {
return @{$self->{openCurrencies}};
}
+=over
+
=item list_accounting
This method lists all accounts that match the role specified in account_class property and
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index dec0813d..9c062606 100644
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -137,7 +137,7 @@ sub new {
#menubar will be deprecated, replaced with below
$self->{lynx} = 1 if $self->{path} =~ /lynx/i;
- $self->{version} = "SVN Trunk";
+ $self->{version} = "1.2.99";
$self->{dbversion} = "1.2.0";
bless $self, $type;