- unshift @{ $form->{SHIPTO} }, +{ shipto_id => '0', shiptoname => '' }, +{ shipto_id => '0', shiptoname => 'Alle' };
- unshift @{ $form->{CONTACTS} }, +{ cp_id => '0', cp_name => $locale->text('New contact') };
-
- push @{ $form->{AJAX} }, map {
- new CGI::Ajax( "get_$_" => "$form->{script}?login=$form->{login}&password=$form->{password}&action=get_$_" )
- } qw(shipto contact delivery);
-
- $form->{title} = $form->{title_save}
- || $locale->text("$form->{title} " . ucfirst $form->{db}) . ($form->{title} eq "Edit" ? " $form->{name}" : '');
-
-## LINET: Create a drop-down box with all prior titles and greetings.
- CT->query_titles_and_greetings(\%myconfig, \%$form);
- map { $form->{"MB_$_"} = [ map +{ id => $_, description => $_ }, @{ $form->{$_} } ] } qw(TITLES GREETINGS COMPANY_GREETINGS DEPARTMENT);
-## /LINET
-
- $form->header;
- print $form->parse_html_template('ct/form_header');
-
- $lxdebug->leave_sub();
-}
-
-sub form_footer {
- $lxdebug->enter_sub();
-
- $label = ucfirst $form->{db};
- $quotation =
- ($form->{db} eq 'customer')
- ? $locale->text('Save and Quotation')
- : $locale->text('Save and RFQ');
- $arap =
- ($form->{db} eq 'customer')
- ? $locale->text('Save and AR Transaction')
- : $locale->text('Save and AP Transaction');
-
-##<input class=submit type=submit name=action value="|.$locale->text("Save and Quotation").qq|">
-##<input class=submit type=submit name=action value="|.$locale->text("Save and RFQ").qq|">
-##<input class=submit type=submit name=action value="|.$locale->text("Save and AR Transaction").qq|">
-##<input class=submit type=submit name=action value="|.$locale->text("Save and AP Transaction").qq|">
-
- print qq|
-<input name=id type=hidden id=cvid value=$form->{id}>
-<input name=business_save type=hidden value="$form->{selectbusiness}">
-<input name=title_save type=hidden value="$form->{title}">
-
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<input type=hidden name=callback value="$form->{callback}">
-<input type=hidden name=db id=db value=$form->{db}>
-
-
-
-<br>
-<input class=submit type=submit name=action accesskey="s" value="|
- . $locale->text("Save") . qq|">
-<input class=submit type=submit name=action accesskey="s" value="|
- . $locale->text("Save and Close") . qq|">
-<input class=submit type=submit name=action value="$arap">
-<input class=submit type=submit name=action value="|
- . $locale->text("Save and Invoice") . qq|">
-<input class=submit type=submit name=action value="|
- . $locale->text("Save and Order") . qq|">
-<input class=submit type=submit name=action value="$quotation">
-|;
-
- if ($form->{id} && $form->{status} eq 'orphaned') {
- print qq|<input class=submit type=submit name=action value="|
- . $locale->text('Delete')
- . qq|">\n|;
- }