diff options
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 |