Revision 734e61e8
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
bin/mozilla/ct.pl | ||
---|---|---|
37 | 37 |
# $locale->text('Add Customer') |
38 | 38 |
# $locale->text('Add Vendor') |
39 | 39 |
|
40 |
use CGI; |
|
41 | 40 |
use CGI::Ajax; |
42 | 41 |
use POSIX qw(strftime); |
43 | 42 |
|
... | ... | |
585 | 584 |
|
586 | 585 |
CT->get_contact(\%myconfig, \%$form); |
587 | 586 |
|
588 |
my $q = new CGI; |
|
589 | 587 |
$result = "$form->{cp_name}"; |
590 | 588 |
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); |
591 |
print $q->header(); |
|
592 |
print $result; |
|
589 |
print $cgi->header(), $result; |
|
593 | 590 |
$lxdebug->leave_sub(); |
594 | 591 |
|
595 | 592 |
} |
... | ... | |
601 | 598 |
|
602 | 599 |
CT->get_shipto(\%myconfig, \%$form); |
603 | 600 |
|
604 |
my $q = new CGI; |
|
605 | 601 |
$result = "$form->{shiptoname}"; |
606 | 602 |
map { $result .= "__pjx__" . $form->{$_} } qw(shiptodepartment_1 shiptodepartment_2 shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact shiptophone shiptofax shiptoemail); |
607 |
print $q->header(); |
|
608 |
print $result; |
|
603 |
print $cgi->header(), $result; |
|
609 | 604 |
$lxdebug->leave_sub(); |
610 | 605 |
|
611 | 606 |
} |
... | ... | |
617 | 612 |
|
618 | 613 |
CT->get_delivery(\%myconfig, \%$form ); |
619 | 614 |
|
620 |
print CGI->new->header();
|
|
621 |
print $form->parse_html_template('ct/get_delivery'); |
|
615 |
print $cgi->header(), $form->parse_html_template('ct/get_delivery');
|
|
616 |
|
|
622 | 617 |
$lxdebug->leave_sub(); |
623 | 618 |
} |
624 | 619 |
|
Auch abrufbar als: Unified diff
Das bereits existierende CGI-Objekt benutzen.