X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/213317d3ebd9073e68ac4d0cc789b94c377f575e..95155b0d6ddca4b62319edce20397a3ceebac346:/SL/IC.pm

diff --git a/SL/IC.pm b/SL/IC.pm
index d692b6a75..0112127d4 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -1888,23 +1888,4 @@ sub retrieve_accounts {
   $main::lxdebug->leave_sub();
 }
 
-sub has_storno {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $myconfig, $form) = @_;
-
-  $main::lxdebug->leave_sub() and return 0 unless ($form->{id});
-
-  my $dbh = $form->dbconnect($myconfig);
-
-  my $query = qq|SELECT storno FROM ar WHERE id = ?|;
-  my ($result) = selectrow_query($form, $dbh, $query, $form->{id});
-
-  $dbh->disconnect();
-
-  $main::lxdebug->leave_sub();
-
-  return $result;
-}
-
 1;