toten Code entfernt

diff --git a/SL/DO.pm b/SL/DO.pm
index 70fa87641f7f0edf8ecbe710dc898ce05b3d822b..1f431ce2dda936c89c41aa91cdc0ca0938b7e46d 100644 (file)
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -1073,21 +1073,6 @@ sub order_details {
   $main::lxdebug->leave_sub();
 }
 
-sub project_description {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $dbh, $id) = @_;
-
-  my $form     =  $main::form;
-
-  my $query = qq|SELECT description FROM project WHERE id = ?|;
-  my ($value) = selectrow_query($form, $dbh, $query, $id);
-
-  $main::lxdebug->leave_sub();
-
-  return $value;
-}
-
 sub unpack_stock_information {
   $main::lxdebug->enter_sub();
 

diff --git a/SL/IS.pm b/SL/IS.pm
index dc3604d26cec164385f2c3f9427da5dbc4a99d72..97e724811839c61feff671d4bef3f4580d3349c6 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -562,20 +562,6 @@ sub invoice_details {
   $main::lxdebug->leave_sub();
 }
 
-sub project_description {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $dbh, $id) = @_;
-  my $form = \%main::form;
-
-  my $query = qq|SELECT description FROM project WHERE id = ?|;
-  my ($description) = selectrow_query($form, $dbh, $query, conv_i($id));
-
-  $main::lxdebug->leave_sub();
-
-  return $_;
-}
-
 sub customer_details {
   $main::lxdebug->enter_sub();
 

diff --git a/SL/OE.pm b/SL/OE.pm
index a2dea99ec36199ba994edd1d70f4cb64038e38d0..3954a93083fe4950d192da5e6229841c4d1580c4 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -1616,19 +1616,6 @@ sub order_details {
   $main::lxdebug->leave_sub();
 }
 
-sub project_description {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $dbh, $id) = @_;
-
-  my $query = qq|SELECT description FROM project WHERE id = ?|;
-  my ($value) = selectrow_query($main::form, $dbh, $query, $id);
-
-  $main::lxdebug->leave_sub();
-
-  return $value;
-}
-
 1;
 
 __END__