From 0207e34bdbffc8e0df9b97b5ec2b69bed28e6471 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 26 May 2008 18:35:50 +0000
Subject: Closing bug 1871072

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2156 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject/Draft.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 LedgerSMB/DBObject/Draft.pm

(limited to 'LedgerSMB/DBObject')

diff --git a/LedgerSMB/DBObject/Draft.pm b/LedgerSMB/DBObject/Draft.pm
new file mode 100644
index 00000000..2aec59a9
--- /dev/null
+++ b/LedgerSMB/DBObject/Draft.pm
@@ -0,0 +1,27 @@
+package LedgerSMB::DBObject::Draft;
+
+use base qw/LedgerSMB::DBObject/;
+
+sub search {
+    my ($self) = @_;
+    @{$self->{draft_results} = $self->exec_method(funcname => 'draft__search');
+    return @{$self->{draft_results};
+}
+
+sub approve {
+   my ($self) = @_;
+   if (!$self->{id}){
+       $self->error($self->{_locale}->text('No ID Set');
+   }
+   ($self->{approved}) = $self->exec_method(funcname => 'draft_approve');
+   return $self->{approved};
+}
+
+sub delete {
+   my ($self) = @_;
+   if (!$self->{id}){
+       $self->error($self->{_locale}->text('No ID Set');
+   }
+   ($self->{deleted}) = $self->exec_method(funcname => 'draft_delete');
+   return $self->{deleted};
+}
-- 
cgit v1.2.3