From: Sven Schöling <s.schoeling@linet-services.de>
Date: Thu, 24 May 2007 15:44:40 +0000 (+0000)
Subject: zusaetzlich zu der vorhandenen has_storno funktion (bugfix)
X-Git-Tag: release-2.4.3^2~261
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=805e8da4fc4c631f7d62286fa63d8a5e69e769ab;p=kivitendo-erp.git

zusaetzlich zu der vorhandenen has_storno funktion (bugfix)
eine is_storno funktion die die halbherzigen checks auf das mitgeschleifte $form->{storno} ersetzt
---

diff --git a/SL/IS.pm b/SL/IS.pm
index 62869394a..5c07ca065 100644
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -2131,6 +2131,29 @@ sub has_storno {
 
   my $dbh = $form->dbconnect($myconfig);
 
+  my $query = qq|SELECT storno FROM $table WHERE storno_id = ?|;
+  my ($result) = selectrow_query($form, $dbh, $query, $form->{id});
+
+  $dbh->disconnect();
+
+  $main::lxdebug->leave_sub();
+
+  return $result;
+}
+
+sub is_storno {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig, $form, $table) = @_;
+
+  $main::lxdebug->leave_sub() and return 0 unless ($form->{id});
+
+  # make sure there's no funny stuff in $table
+  # ToDO: die when this happens and throw an error
+  $main::lxdebug->leave_sub() and return 0 if ($table =~ /\W/);
+
+  my $dbh = $form->dbconnect($myconfig);
+
   my $query = qq|SELECT storno FROM $table WHERE id = ?|;
   my ($result) = selectrow_query($form, $dbh, $query, $form->{id});