Added version of Aurynn's reconciliation logic

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1302 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 24 insertions, 0 deletions

diff --git a/LedgerSMB/Reconciliation.pm b/LedgerSMB/Reconciliation.pm
index f12251e5..6dca96d2 100644
--- a/LedgerSMB/Reconciliation.pm
+++ b/LedgerSMB/Reconciliation.pm
@@ -65,6 +65,16 @@ arrayref of entries in the table for the given report_id.
 
 Returns undef in the event of no records found.
 
+=item get_corrections($self, $report_id, $entry_id)
+
+Returns the corrections made for the selected report and entry.
+Returns undef in the event of no corrections found.
+
+=item entry ($self,$report_id,$entry_id)
+
+Returns a single entry from the pending reports table, either cleared or
+uncleared.
+
 =back
 
 =head1 Copyright (C) 2007, The LedgerSMB core team.
@@ -155,4 +165,18 @@ sub get_report {
     return $self->report($self->{report_id});    
 }
 
+sub get_corrections {
+    
+    my $self = shift @_;
+    
+    return $self->corrections($self->{report_id},$self->{entry_id});
+}
+
+sub entry {
+    
+    my $self = shift @_;
+    
+    return $self->single_entry($self->{report_id},$self->{entry_id});
+}
+
 1;
\ No newline at end of file