Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 734e61e8

Von Moritz Bunkus vor fast 17 Jahren hinzugefügt

  • ID 734e61e805dae3e7b72e5247797503dbbc56b63b
  • Vorgänger a8cccc0a
  • Nachfolger f704c1f4

Das bereits existierende CGI-Objekt benutzen.

Unterschiede anzeigen:

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