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

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;