diff options
| author | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-25 22:24:06 +0000 |
|---|---|---|
| committer | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-25 22:24:06 +0000 |
| commit | f9661818f7f77d88ad9b36f6b9dce0e9482977d4 (patch) | |
| tree | 621b65e9443220cb7b340409c6f6874bbe826c37 /LedgerSMB | |
| parent | 0003863c90637aa352d330895c4ff2d1a4a00cc8 (diff) | |
Reconciliation changes. Moving code around, copying Reconciliation to DBObject. Bugsquishes and work on testing.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2221 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/DBObject/Admin.pm | 3 | ||||
| -rw-r--r-- | LedgerSMB/DBObject/Reconciliation.pm (renamed from LedgerSMB/Reconciliation.pm) | 12 |
2 files changed, 12 insertions, 3 deletions
diff --git a/LedgerSMB/DBObject/Admin.pm b/LedgerSMB/DBObject/Admin.pm index fae330a8..67218005 100644 --- a/LedgerSMB/DBObject/Admin.pm +++ b/LedgerSMB/DBObject/Admin.pm @@ -112,9 +112,10 @@ sub save_roles { # These roles are were ALL checked on the page, so they're the active ones. - if ($active_roles{$role} && $self->{$role}) { + if ( $active_roles{$role} && $self->{$role} ) { # do nothing. + ; } elsif ($active_roles{$role} && !($self->{$role} )) { diff --git a/LedgerSMB/Reconciliation.pm b/LedgerSMB/DBObject/Reconciliation.pm index 458b757c..7a7ba313 100644 --- a/LedgerSMB/Reconciliation.pm +++ b/LedgerSMB/DBObject/Reconciliation.pm @@ -85,7 +85,7 @@ your software. =cut -package LedgerSMB::Reconciliation; +package LedgerSMB::DBObject::Reconciliation; use base qw(LedgerSMB::DBObject); use LedgerSMB::DBObject; @@ -237,5 +237,13 @@ sub get_pending { ); } - +sub get_report_list { + + my $self = shift @_; + + return $self->exec_method( + funcname=>'reconciliation__report_list', + args=>[$self->{account},$self->{report}] + ); +} 1;
\ No newline at end of file |