From 170174b76910a2916db1a9208597a428ebb9b40d Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 22 Jun 2007 05:01:13 +0000
Subject: 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
---
 LedgerSMB/Reconciliation.pm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'LedgerSMB')

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
-- 
cgit v1.2.3