From 805e8da4fc4c631f7d62286fa63d8a5e69e769ab Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Thu, 24 May 2007 15:44:40 +0000 Subject: [PATCH] zusaetzlich zu der vorhandenen has_storno funktion (bugfix) eine is_storno funktion die die halbherzigen checks auf das mitgeschleifte $form->{storno} ersetzt --- SL/IS.pm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) 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}); -- 2.20.1