Closing bug 1871072

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

1 files changed, 27 insertions, 0 deletions

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};
+}