From 501107ad47b6385a9986aab9048b98ed5784182e Mon Sep 17 00:00:00 2001
From: Holger Lindemann <hli@lx-system.de>
Date: Fri, 24 Nov 2006 22:39:27 +0000
Subject: [PATCH] =?utf8?q?Kundenquelle=20(Leads)=20eingef=C3=BChrt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/AM.pm | 95 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 95 insertions(+)

diff --git a/SL/AM.pm b/SL/AM.pm
index a4b0c950c..a2e201f61 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -640,6 +640,101 @@ sub delete_department {
   $main::lxdebug->leave_sub();
 }
 
+sub lead {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig, $form) = @_;
+
+  # connect to database
+  my $dbh = $form->dbconnect($myconfig);
+
+  my $query = qq|SELECT id, lead
+                 FROM leads
+		 ORDER BY 2|;
+
+  $sth = $dbh->prepare($query);
+  $sth->execute || $form->dberror($query);
+
+  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
+    push @{ $form->{ALL} }, $ref;
+  }
+
+  $sth->finish;
+  $dbh->disconnect;
+
+  $main::lxdebug->leave_sub();
+}
+
+sub get_lead {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig, $form) = @_;
+
+  # connect to database
+  my $dbh = $form->dbconnect($myconfig);
+
+  my $query =
+    qq|SELECT l.id, l.lead
+                 FROM leads l
+	         WHERE l.id = $form->{id}|;
+  my $sth = $dbh->prepare($query);
+  $sth->execute || $form->dberror($query);
+
+  my $ref = $sth->fetchrow_hashref(NAME_lc);
+
+  map { $form->{$_} = $ref->{$_} } keys %$ref;
+
+  $sth->finish;
+
+  $dbh->disconnect;
+
+  $main::lxdebug->leave_sub();
+}
+
+sub save_lead {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig, $form) = @_;
+
+  # connect to database
+  my $dbh = $form->dbconnect($myconfig);
+
+  $form->{lead} =~ s/\'/\'\'/g;
+
+  # id is the old record
+  if ($form->{id}) {
+    $query = qq|UPDATE leads SET
+		lead = '$form->{description}'
+		WHERE id = $form->{id}|;
+  } else {
+    $query = qq|INSERT INTO leads
+                (lead)
+                VALUES ('$form->{description}')|;
+  }
+  $dbh->do($query) || $form->dberror($query);
+
+  $dbh->disconnect;
+
+  $main::lxdebug->leave_sub();
+}
+
+sub delete_lead {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig, $form) = @_;
+
+  # connect to database
+  my $dbh = $form->dbconnect($myconfig);
+
+  $query = qq|DELETE FROM leads
+	      WHERE id = $form->{id}|;
+  $dbh->do($query) || $form->dberror($query);
+
+  $dbh->disconnect;
+
+  $main::lxdebug->leave_sub();
+}
+
 sub business {
   $main::lxdebug->enter_sub();
 
-- 
2.20.1