From 734e61e805dae3e7b72e5247797503dbbc56b63b Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 24 Jan 2008 13:51:28 +0000
Subject: [PATCH] Das bereits existierende CGI-Objekt benutzen.

---
 bin/mozilla/ct.pl | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl
index d4d2f9fb7..2275c7ff5 100644
--- a/bin/mozilla/ct.pl
+++ b/bin/mozilla/ct.pl
@@ -37,7 +37,6 @@
 # $locale->text('Add Customer')
 # $locale->text('Add Vendor')
 
-use CGI;
 use CGI::Ajax;
 use POSIX qw(strftime);
 
@@ -585,11 +584,9 @@ sub get_contact {
 
   CT->get_contact(\%myconfig, \%$form);
 
-  my $q = new CGI;
   $result = "$form->{cp_name}";
   map { $result .= "__pjx__" . $form->{$_} } qw(cp_greeting cp_title cp_givenname cp_phone1 cp_phone2 cp_email cp_abteilung cp_fax cp_mobile1 cp_mobile2 cp_satphone cp_satfax cp_project cp_privatphone cp_privatemail cp_birthday);
-  print $q->header();
-  print $result;
+  print $cgi->header(), $result;
   $lxdebug->leave_sub();
 
 }
@@ -601,11 +598,9 @@ sub get_shipto {
 
   CT->get_shipto(\%myconfig, \%$form);
 
-  my $q = new CGI;
   $result = "$form->{shiptoname}";
   map { $result .= "__pjx__" . $form->{$_} } qw(shiptodepartment_1 shiptodepartment_2 shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact shiptophone shiptofax shiptoemail);
-  print $q->header();
-  print $result;
+  print $cgi->header(), $result;
   $lxdebug->leave_sub();
 
 }
@@ -617,8 +612,8 @@ sub get_delivery {
 
   CT->get_delivery(\%myconfig, \%$form );
 
-  print CGI->new->header();
-  print $form->parse_html_template('ct/get_delivery');
+  print $cgi->header(), $form->parse_html_template('ct/get_delivery');
+
   $lxdebug->leave_sub();
 }
 
-- 
2.20.1