Revision 2e798373
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/arap.pl | ||
|---|---|---|
|
|
||
|
use SL::Projects;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
# any custom scripts for this one
|
||
|
if (-f "bin/mozilla/custom_arap.pl") {
|
||
|
eval { require "bin/mozilla/custom_arap.pl"; };
|
||
|
}
|
||
|
if (-f "bin/mozilla/$form->{login}_arap.pl") {
|
||
|
eval { require "bin/mozilla/$form->{login}_arap.pl"; };
|
||
|
if (-f "bin/mozilla/$main::form->{login}_arap.pl") {
|
||
|
eval { require "bin/mozilla/$main::form->{login}_arap.pl"; };
|
||
|
}
|
||
|
|
||
|
1;
|
||
| ... | ... | |
|
# end of main
|
||
|
|
||
|
sub check_name {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
$main::auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash |' .
|
||
|
'purchase_delivery_order_edit | sales_delivery_order_edit');
|
||
|
|
||
| ... | ... | |
|
# name is not on file
|
||
|
# $locale->text('Customer not on file or locked!')
|
||
|
# $locale->text('Vendor not on file or locked!')
|
||
|
$msg = ucfirst $name . " not on file or locked!";
|
||
|
my $msg = ucfirst $name . " not on file or locked!";
|
||
|
$form->error($locale->text($msg));
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
$form->language_payment(\%myconfig);
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return $i;
|
||
|
}
|
||
| ... | ... | |
|
# $locale->text('Vendor not on file!')
|
||
|
|
||
|
sub select_name {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$main::auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash');
|
||
|
|
||
|
my ($table) = @_;
|
||
|
|
||
|
@column_index = qw(ndx name address);
|
||
|
my @column_index = qw(ndx name address);
|
||
|
|
||
|
$label = ucfirst $table;
|
||
|
my $label = ucfirst $table;
|
||
|
my %column_data;
|
||
|
$column_data{ndx} = qq|<th> </th>|;
|
||
|
$column_data{name} =
|
||
|
qq|<th class=listheading>| . $locale->text($label) . qq|</th>|;
|
||
| ... | ... | |
|
# list items with radio button on a form
|
||
|
$form->header;
|
||
|
|
||
|
$title = $locale->text('Select from one of the names below');
|
||
|
my $title = $locale->text('Select from one of the names below');
|
||
|
|
||
|
print qq|
|
||
|
<body>
|
||
| ... | ... | |
|
|;
|
||
|
|
||
|
my $i = 0;
|
||
|
foreach $ref (@{ $form->{name_list} }) {
|
||
|
$checked = ($i++) ? "" : "checked";
|
||
|
my $j;
|
||
|
foreach my $ref (@{ $form->{name_list} }) {
|
||
|
my $checked = ($i++) ? "" : "checked";
|
||
|
|
||
|
$ref->{name} =~ s/\"/"/g;
|
||
|
|
||
| ... | ... | |
|
map { delete $form->{$_} } qw(action name_list header);
|
||
|
|
||
|
# save all other form variables
|
||
|
foreach $key (keys %${form}) {
|
||
|
foreach my $key (keys %${form}) {
|
||
|
next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
|
||
|
$form->{$key} =~ s/\"/"/g;
|
||
|
print qq|<input name=$key type=hidden value="$form->{$key}">\n|;
|
||
| ... | ... | |
|
</html>
|
||
|
|;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub name_selected {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
|
||
|
$auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
$main::auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash');
|
||
|
|
||
|
# replace the variable with the one checked
|
||
|
|
||
|
# index for new item
|
||
|
$i = $form->{ndx};
|
||
|
my $i = $form->{ndx};
|
||
|
|
||
|
$form->{ $form->{vc} } = $form->{"new_name_$i"};
|
||
|
$form->{"$form->{vc}_id"} = $form->{"new_id_$i"};
|
||
| ... | ... | |
|
|
||
|
&update(1);
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub check_project {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$main::auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash | report');
|
||
|
|
||
|
my $nextsub = shift || 'update';
|
||
|
|
||
|
for $i (1 .. $form->{rowcount}) {
|
||
|
for my $i (1 .. $form->{rowcount}) {
|
||
|
my $suffix = $i ? "_$i" : "";
|
||
|
my $prefix = $i ? "" : "global";
|
||
|
$form->{"${prefix}project_id${suffix}"} = "" unless $form->{"${prefix}projectnumber$suffix"};
|
||
| ... | ... | |
|
# get new project
|
||
|
$form->{projectnumber} = $form->{"${prefix}projectnumber${suffix}"};
|
||
|
my %params = map { $_ => $form->{$_} } qw(projectnumber description active);
|
||
|
my $rows;
|
||
|
if (($rows = Projects->search_projects(%params)) > 1) {
|
||
|
|
||
|
# check form->{project_list} how many there are
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub select_project {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
my $cgi = $main::cgi;
|
||
|
|
||
|
$auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
$main::auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash | report');
|
||
|
|
||
|
my ($is_global, $nextsub) = @_;
|
||
|
|
||
|
@column_index = qw(ndx projectnumber description);
|
||
|
my @column_index = qw(ndx projectnumber description);
|
||
|
|
||
|
my %column_data;
|
||
|
$column_data{ndx} = qq|<th> </th>|;
|
||
|
$column_data{projectnumber} = qq|<th>| . $locale->text('Number') . qq|</th>|;
|
||
|
$column_data{description} =
|
||
| ... | ... | |
|
# list items with radio button on a form
|
||
|
$form->header;
|
||
|
|
||
|
$title = $locale->text('Select from one of the projects below');
|
||
|
my $title = $locale->text('Select from one of the projects below');
|
||
|
|
||
|
print qq|
|
||
|
<body>
|
||
| ... | ... | |
|
|;
|
||
|
|
||
|
my $i = 0;
|
||
|
foreach $ref (@{ $form->{project_list} }) {
|
||
|
$checked = ($i++) ? "" : "checked";
|
||
|
my $j;
|
||
|
foreach my $ref (@{ $form->{project_list} }) {
|
||
|
my $checked = ($i++) ? "" : "checked";
|
||
|
|
||
|
$ref->{name} =~ s/\"/"/g;
|
||
|
|
||
| ... | ... | |
|
map { delete $form->{$_} } qw(action project_list header update);
|
||
|
|
||
|
# save all other form variables
|
||
|
foreach $key (keys %${form}) {
|
||
|
foreach my $key (keys %${form}) {
|
||
|
next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
|
||
|
$form->{$key} =~ s/\"/"/g;
|
||
|
print qq|<input name=$key type=hidden value="$form->{$key}">\n|;
|
||
| ... | ... | |
|
</html>
|
||
|
|;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub project_selected {
|
||
|
$lxdebug->enter_sub();
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
|
||
|
$auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
$main::auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
||
|
'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash | report');
|
||
|
|
||
|
# replace the variable with the one checked
|
||
|
|
||
|
# index for new item
|
||
|
$i = $form->{ndx};
|
||
|
my $i = $form->{ndx};
|
||
|
|
||
|
my $prefix = $form->{"is_global"} ? "global" : "";
|
||
|
my $suffix = $form->{"is_global"} ? "" : "_$form->{rownumber}";
|
||
| ... | ... | |
|
|
||
|
call_sub($nextsub);
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub continue { call_sub($form->{"nextsub"}); }
|
||
|
sub continue { call_sub($main::form->{"nextsub"}); }
|
||
|
|
||
Auch abrufbar als: Unified diff
arap strict