Revision 95795aa0
Von Thomas Heck vor etwa 11 Jahren hinzugefügt
| bin/mozilla/ct.pl | ||
|---|---|---|
| 54 | 54 |
use SL::DB::Default; |
| 55 | 55 |
use SL::Helper::Flash; |
| 56 | 56 |
use SL::ReportGenerator; |
| 57 |
use SL::MoreCommon qw(uri_encode); |
|
| 57 | 58 |
|
| 58 | 59 |
require "bin/mozilla/common.pl"; |
| 59 | 60 |
require "bin/mozilla/reportgenerator.pl"; |
| ... | ... | |
| 66 | 67 |
sub add {
|
| 67 | 68 |
$main::lxdebug->enter_sub(); |
| 68 | 69 |
|
| 69 |
$main::auth->assert('customer_vendor_edit');
|
|
| 70 |
|
|
| 71 |
my $form = $main::form; |
|
| 72 |
my %myconfig = %main::myconfig; |
|
| 73 |
|
|
| 74 |
$form->{title} = "Add";
|
|
| 75 |
$form->{callback} = "$form->{script}?action=add&db=$form->{db}" unless $form->{callback};
|
|
| 70 |
my $url = 'controller.pl?action=CustomerVendor/add&db='. ($::form->{db} eq 'vendor' ? 'vendor' : 'customer');
|
|
| 76 | 71 |
|
| 77 |
CT->populate_drop_down_boxes(\%myconfig, \%$form); |
|
| 72 |
if ( $::form->{callback} ) {
|
|
| 73 |
$url .= '&callback='. uri_encode($::form->{callback});
|
|
| 74 |
} |
|
| 78 | 75 |
|
| 79 |
&form_header; |
|
| 80 |
&form_footer; |
|
| 76 |
print $::form->redirect_header($url); |
|
| 81 | 77 |
|
| 82 | 78 |
$main::lxdebug->leave_sub(); |
| 83 | 79 |
} |
Auch abrufbar als: Unified diff
"Kunden/Lieferanten Erfassen"-Button führt zum Controller