summaryrefslogtreecommitdiff
path: root/bin/arap.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/arap.pl')
-rwxr-xr-xbin/arap.pl1160
1 files changed, 632 insertions, 528 deletions
diff --git a/bin/arap.pl b/bin/arap.pl
index e210d0d8..bce15aae 100755
--- a/bin/arap.pl
+++ b/bin/arap.pl
@@ -8,9 +8,9 @@
# with permission.
#
# This file contains source code included with or based on SQL-Ledger which
-# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
-# under the GNU General Public License version 2 or, at your option, any later
-# version. For a full list including contact information of contributors,
+# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
+# under the GNU General Public License version 2 or, at your option, any later
+# version. For a full list including contact information of contributors,
# maintainers, and copyright holders, see the CONTRIBUTORS file.
#
# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
@@ -41,108 +41,130 @@
use LedgerSMB::AA;
# any custom scripts for this one
-if (-f "bin/custom/arap.pl") {
- eval { require "bin/custom/arap.pl"; };
+if ( -f "bin/custom/arap.pl" ) {
+ eval { require "bin/custom/arap.pl"; };
}
-if (-f "bin/custom/$form->{login}_arap.pl") {
- eval { require "bin/custom/$form->{login}_arap.pl"; };
+if ( -f "bin/custom/$form->{login}_arap.pl" ) {
+ eval { require "bin/custom/$form->{login}_arap.pl"; };
}
-
1;
-# end of main
+# end of main
sub check_name {
- my ($name) = @_;
-
- my ($new_name, $new_id) = split /--/, $form->{$name};
- my $rv = 0;
-
- # if we use a selection
- if ($form->{"select$name"}) {
- if ($form->{"old$name"} ne $form->{$name}) {
- # this is needed for is, ir and oe
- for (split / /, $form->{taxaccounts}) { delete $form->{"${_}_rate"} }
-
- # for credit calculations
- $form->{oldinvtotal} = 0;
- $form->{oldtotalpaid} = 0;
- $form->{calctax} = 1;
-
- $form->{"${name}_id"} = $new_id;
- AA->get_name(\%myconfig, \%$form);
-
- $form->{$name} = $form->{"old$name"} = "$new_name--$new_id";
- $form->{currency} =~ s/ //g;
-
- # put employee together if there is a new employee_id
- $form->{employee} = "$form->{employee}--$form->{employee_id}" if $form->{employee_id};
-
- $rv = 1;
- }
- } else {
-
- # check name, combine name and id
- if ($form->{"old$name"} ne qq|$form->{$name}--$form->{"${name}_id"}|) {
- # this is needed for is, ir and oe
- for (split / /, $form->{taxaccounts}) { delete $form->{"${_}_rate"} }
-
- # for credit calculations
- $form->{oldinvtotal} = 0;
- $form->{oldtotalpaid} = 0;
- $form->{calctax} = 1;
-
- # return one name or a list of names in $form->{name_list}
- if (($rv = $form->get_name(\%myconfig, $name, $form->{transdate})) > 1) {
- &select_name($name);
- exit;
- }
-
- if ($rv == 1) {
- # we got one name
- $form->{"${name}_id"} = $form->{name_list}[0]->{id};
- $form->{$name} = $form->{name_list}[0]->{name};
- $form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|;
-
- AA->get_name(\%myconfig, \%$form);
-
- $form->{currency} =~ s/ //g;
- # put employee together if there is a new employee_id
- $form->{employee} = "$form->{employee}--$form->{employee_id}" if $form->{employee_id};
+ my ($name) = @_;
+
+ my ( $new_name, $new_id ) = split /--/, $form->{$name};
+ my $rv = 0;
+
+ # if we use a selection
+ if ( $form->{"select$name"} ) {
+ if ( $form->{"old$name"} ne $form->{$name} ) {
+
+ # this is needed for is, ir and oe
+ for ( split / /, $form->{taxaccounts} ) {
+ delete $form->{"${_}_rate"};
+ }
+
+ # for credit calculations
+ $form->{oldinvtotal} = 0;
+ $form->{oldtotalpaid} = 0;
+ $form->{calctax} = 1;
+
+ $form->{"${name}_id"} = $new_id;
+ AA->get_name( \%myconfig, \%$form );
- } else {
- # name is not on file
- $msg = ucfirst $name . " not on file!";
- $form->error($locale->text($msg));
- }
+ $form->{$name} = $form->{"old$name"} = "$new_name--$new_id";
+ $form->{currency} =~ s/ //g;
+
+ # put employee together if there is a new employee_id
+ $form->{employee} = "$form->{employee}--$form->{employee_id}"
+ if $form->{employee_id};
+
+ $rv = 1;
+ }
+ }
+ else {
+
+ # check name, combine name and id
+ if ( $form->{"old$name"} ne qq|$form->{$name}--$form->{"${name}_id"}| )
+ {
+
+ # this is needed for is, ir and oe
+ for ( split / /, $form->{taxaccounts} ) {
+ delete $form->{"${_}_rate"};
+ }
+
+ # for credit calculations
+ $form->{oldinvtotal} = 0;
+ $form->{oldtotalpaid} = 0;
+ $form->{calctax} = 1;
+
+ # return one name or a list of names in $form->{name_list}
+ if (
+ (
+ $rv =
+ $form->get_name( \%myconfig, $name, $form->{transdate} )
+ ) > 1
+ )
+ {
+ &select_name($name);
+ exit;
+ }
+
+ if ( $rv == 1 ) {
+
+ # we got one name
+ $form->{"${name}_id"} = $form->{name_list}[0]->{id};
+ $form->{$name} = $form->{name_list}[0]->{name};
+ $form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|;
+
+ AA->get_name( \%myconfig, \%$form );
+
+ $form->{currency} =~ s/ //g;
+
+ # put employee together if there is a new employee_id
+ $form->{employee} = "$form->{employee}--$form->{employee_id}"
+ if $form->{employee_id};
+
+ }
+ else {
+
+ # name is not on file
+ $msg = ucfirst $name . " not on file!";
+ $form->error( $locale->text($msg) );
+ }
+ }
}
- }
- $rv;
+ $rv;
}
# $locale->text('Customer not on file!')
# $locale->text('Vendor not on file!')
-
sub select_name {
- my ($table) = @_;
-
- @column_index = qw(ndx name address);
+ my ($table) = @_;
+
+ @column_index = qw(ndx name address);
- $label = ucfirst $table;
- $column_data{ndx} = qq|<th>&nbsp;</th>|;
- $column_data{name} = qq|<th class=listheading>|.$locale->text($label).qq|</th>|;
- $column_data{address} = qq|<th class=listheading colspan=5>|.$locale->text('Address').qq|</th>|;
-
- # list items with radio button on a form
- $form->header;
+ $label = ucfirst $table;
+ $column_data{ndx} = qq|<th>&nbsp;</th>|;
+ $column_data{name} =
+ qq|<th class=listheading>| . $locale->text($label) . qq|</th>|;
+ $column_data{address} =
+ qq|<th class=listheading colspan=5>|
+ . $locale->text('Address')
+ . qq|</th>|;
- $title = $locale->text('Select from one of the names below');
+ # list items with radio button on a form
+ $form->header;
- print qq|
+ $title = $locale->text('Select from one of the names below');
+
+ print qq|
<body>
<form method=post action=$form->{script}>
@@ -157,41 +179,46 @@ sub select_name {
<table width=100%>
<tr class=listheading>|;
- for (@column_index) { print "\n$column_data{$_}" }
-
- print qq|
+ for (@column_index) { print "\n$column_data{$_}" }
+
+ print qq|
</tr>
|;
- @column_index = qw(ndx name address city state zipcode country);
-
- my $i = 0;
- foreach $ref (@{ $form->{name_list} }) {
- $checked = ($i++) ? "" : "checked";
-
- $ref->{name} = $form->quote($ref->{name});
-
- $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
- $column_data{name} = qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
- $column_data{address} = qq|<td>$ref->{address1} $ref->{address2}</td>|;
- for (qw(city state zipcode country)) { $column_data{$_} = qq|<td>$ref->{$_}&nbsp;</td>| }
-
- $j++; $j %= 2;
- print qq|
+ @column_index = qw(ndx name address city state zipcode country);
+
+ my $i = 0;
+ foreach $ref ( @{ $form->{name_list} } ) {
+ $checked = ( $i++ ) ? "" : "checked";
+
+ $ref->{name} = $form->quote( $ref->{name} );
+
+ $column_data{ndx} =
+qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
+ $column_data{name} =
+qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
+ $column_data{address} = qq|<td>$ref->{address1} $ref->{address2}</td>|;
+ for (qw(city state zipcode country)) {
+ $column_data{$_} = qq|<td>$ref->{$_}&nbsp;</td>|;
+ }
+
+ $j++;
+ $j %= 2;
+ print qq|
<tr class=listrow$j>|;
- for (@column_index) { print "\n$column_data{$_}" }
+ for (@column_index) { print "\n$column_data{$_}" }
- print qq|
+ print qq|
</tr>
<input name="new_id_$i" type=hidden value=$ref->{id}>
|;
- }
-
- print qq|
+ }
+
+ print qq|
</table>
</td>
</tr>
@@ -204,18 +231,20 @@ sub select_name {
|;
- # delete variables
- for (qw(nextsub name_list)) { delete $form->{$_} }
-
- $form->{action} = "name_selected";
-
- $form->hide_form;
+ # delete variables
+ for (qw(nextsub name_list)) { delete $form->{$_} }
- print qq|
+ $form->{action} = "name_selected";
+
+ $form->hide_form;
+
+ print qq|
<input type=hidden name=nextsub value=name_selected>
<input type=hidden name=vc value="$table">
<br>
-<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
+<button class="submit" type="submit" name="action" value="continue">|
+ . $locale->text('Continue')
+ . qq|</button>
</form>
</body>
@@ -224,120 +253,129 @@ sub select_name {
}
+sub name_selected {
+ # replace the variable with the one checked
-sub name_selected {
+ # index for new item
+ $i = $form->{ndx};
- # replace the variable with the one checked
+ $form->{ $form->{vc} } = $form->{"new_name_$i"};
+ $form->{"$form->{vc}_id"} = $form->{"new_id_$i"};
+ $form->{"old$form->{vc}"} =
+ qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
- # index for new item
- $i = $form->{ndx};
-
- $form->{$form->{vc}} = $form->{"new_name_$i"};
- $form->{"$form->{vc}_id"} = $form->{"new_id_$i"};
- $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
+ # delete all the new_ variables
+ for $i ( 1 .. $form->{lastndx} ) {
+ for (qw(id, name)) { delete $form->{"new_${_}_$i"} }
+ }
- # delete all the new_ variables
- for $i (1 .. $form->{lastndx}) {
- for (qw(id, name)) { delete $form->{"new_${_}_$i"} }
- }
-
- for (qw(ndx lastndx nextsub)) { delete $form->{$_} }
+ for (qw(ndx lastndx nextsub)) { delete $form->{$_} }
- AA->get_name(\%myconfig, \%$form);
+ AA->get_name( \%myconfig, \%$form );
- # put employee together if there is a new employee_id
- $form->{employee} = "$form->{employee}--$form->{employee_id}" if $form->{employee_id};
+ # put employee together if there is a new employee_id
+ $form->{employee} = "$form->{employee}--$form->{employee_id}"
+ if $form->{employee_id};
- &update(1);
+ &update(1);
}
-
sub rebuild_vc {
- my ($vc, $ARAP, $transdate, $job) = @_;
-
- ($null, $form->{employee_id}) = split /--/, $form->{employee};
- $form->all_vc(\%myconfig, $vc, $ARAP, undef, $transdate, $job);
- $form->{"select$vc"} = "";
- for (@{ $form->{"all_$vc"} }) { $form->{"select$vc"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }
-
- $form->{selectprojectnumber} = "";
- if (@{ $form->{all_project} }) {
- $form->{selectprojectnumber} = "<option>\n";
- for (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| }
- }
-
- 1;
-}
+ my ( $vc, $ARAP, $transdate, $job ) = @_;
+
+ ( $null, $form->{employee_id} ) = split /--/, $form->{employee};
+ $form->all_vc( \%myconfig, $vc, $ARAP, undef, $transdate, $job );
+ $form->{"select$vc"} = "";
+ for ( @{ $form->{"all_$vc"} } ) {
+ $form->{"select$vc"} .=
+ qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;
+ }
+ $form->{selectprojectnumber} = "";
+ if ( @{ $form->{all_project} } ) {
+ $form->{selectprojectnumber} = "<option>\n";
+ for ( @{ $form->{all_project} } ) {
+ $form->{selectprojectnumber} .=
+qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
+ }
+ }
+ 1;
+}
sub add_transaction {
- my ($module) = @_;
-
- delete $form->{script};
- $form->{action} = "add";
- $form->{type} = "invoice" if $module =~ /(is|ir)/;
+ my ($module) = @_;
- $form->{callback} = $form->escape($form->{callback},1);
- $argv = "";
- for (keys %$form) { $argv .= "$_=$form->{$_}&" if $_ ne 'dbh' }
+ delete $form->{script};
+ $form->{action} = "add";
+ $form->{type} = "invoice" if $module =~ /(is|ir)/;
- $form->{callback} = "$module.pl?$argv";
+ $form->{callback} = $form->escape( $form->{callback}, 1 );
+ $argv = "";
+ for ( keys %$form ) { $argv .= "$_=$form->{$_}&" if $_ ne 'dbh' }
- $form->redirect;
-
-}
+ $form->{callback} = "$module.pl?$argv";
+ $form->redirect;
+}
sub check_project {
- for $i (1 .. $form->{rowcount}) {
- $form->{"project_id_$i"} = "" unless $form->{"projectnumber_$i"};
- if ($form->{"projectnumber_$i"} ne $form->{"oldprojectnumber_$i"}) {
- if ($form->{"projectnumber_$i"}) {
- # get new project
- $form->{projectnumber} = $form->{"projectnumber_$i"};
- if (($rows = PE->projects(\%myconfig, $form)) > 1) {
- # check form->{project_list} how many there are
- $form->{rownumber} = $i;
- &select_project;
- exit;
- }
-
- if ($rows == 1) {
- $form->{"project_id_$i"} = $form->{project_list}->[0]->{id};
- $form->{"projectnumber_$i"} = $form->{project_list}->[0]->{projectnumber};
- $form->{"oldprojectnumber_$i"} = $form->{project_list}->[0]->{projectnumber};
- } else {
- # not on file
- $form->error($locale->text('Project not on file!'));
- }
- } else {
- $form->{"oldprojectnumber_$i"} = "";
- }
- }
- }
+ for $i ( 1 .. $form->{rowcount} ) {
+ $form->{"project_id_$i"} = "" unless $form->{"projectnumber_$i"};
+ if ( $form->{"projectnumber_$i"} ne $form->{"oldprojectnumber_$i"} ) {
+ if ( $form->{"projectnumber_$i"} ) {
+
+ # get new project
+ $form->{projectnumber} = $form->{"projectnumber_$i"};
+ if ( ( $rows = PE->projects( \%myconfig, $form ) ) > 1 ) {
+
+ # check form->{project_list} how many there are
+ $form->{rownumber} = $i;
+ &select_project;
+ exit;
+ }
+
+ if ( $rows == 1 ) {
+ $form->{"project_id_$i"} = $form->{project_list}->[0]->{id};
+ $form->{"projectnumber_$i"} =
+ $form->{project_list}->[0]->{projectnumber};
+ $form->{"oldprojectnumber_$i"} =
+ $form->{project_list}->[0]->{projectnumber};
+ }
+ else {
+
+ # not on file
+ $form->error( $locale->text('Project not on file!') );
+ }
+ }
+ else {
+ $form->{"oldprojectnumber_$i"} = "";
+ }
+ }
+ }
}
-
sub select_project {
-
- @column_index = qw(ndx projectnumber description);
- $column_data{ndx} = qq|<th>&nbsp;</th>|;
- $column_data{projectnumber} = qq|<th>|.$locale->text('Number').qq|</th>|;
- $column_data{description} = qq|<th>|.$locale->text('Description').qq|</th>|;
-
- # list items with radio button on a form
- $form->header;
+ @column_index = qw(ndx projectnumber description);
+
+ $column_data{ndx} = qq|<th>&nbsp;</th>|;
+ $column_data{projectnumber} =
+ qq|<th>| . $locale->text('Number') . qq|</th>|;
+ $column_data{description} =
+ qq|<th>| . $locale->text('Description') . qq|</th>|;
- $title = $locale->text('Select from one of the projects below');
+ # list items with radio button on a form
+ $form->header;
- print qq|
+ $title = $locale->text('Select from one of the projects below');
+
+ print qq|
<body>
<form method=post action=$form->{script}>
@@ -354,38 +392,41 @@ sub select_project {
<table width=100%>
<tr class=listheading>|;
- for (@column_index) { print "\n$column_data{$_}" }
-
- print qq|
+ for (@column_index) { print "\n$column_data{$_}" }
+
+ print qq|
</tr>
|;
- my $i = 0;
- foreach $ref (@{ $form->{project_list} }) {
- $checked = ($i++) ? "" : "checked";
-
- $ref->{name} = $form->quote($ref->{name});
-
- $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
- $column_data{projectnumber} = qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumber}">$ref->{projectnumber}</td>|;
- $column_data{description} = qq|<td>$ref->{description}</td>|;
-
- $j++; $j %= 2;
- print qq|
+ my $i = 0;
+ foreach $ref ( @{ $form->{project_list} } ) {
+ $checked = ( $i++ ) ? "" : "checked";
+
+ $ref->{name} = $form->quote( $ref->{name} );
+
+ $column_data{ndx} =
+qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
+ $column_data{projectnumber} =
+qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumber}">$ref->{projectnumber}</td>|;
+ $column_data{description} = qq|<td>$ref->{description}</td>|;
+
+ $j++;
+ $j %= 2;
+ print qq|
<tr class=listrow$j>|;
- for (@column_index) { print "\n$column_data{$_}" }
+ for (@column_index) { print "\n$column_data{$_}" }
- print qq|
+ print qq|
</tr>
<input name="new_id_$i" type=hidden value=$ref->{id}>
|;
- }
-
- print qq|
+ }
+
+ print qq|
</table>
</td>
</tr>
@@ -398,17 +439,19 @@ sub select_project {
|;
- # delete list variable
- for (qw(nextsub project_list)) { delete $form->{$_} }
-
- $form->{action} = "project_selected";
-
- $form->hide_form;
+ # delete list variable
+ for (qw(nextsub project_list)) { delete $form->{$_} }
+
+ $form->{action} = "project_selected";
- print qq|
+ $form->hide_form;
+
+ print qq|
<input type=hidden name=nextsub value=project_selected>
<br>
-<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
+<button class="submit" type="submit" name="action" value="continue">|
+ . $locale->text('Continue')
+ . qq|</button>
</form>
</body>
@@ -417,97 +460,108 @@ sub select_project {
}
-
sub project_selected {
-
- # replace the variable with the one checked
-
- # index for new item
- $i = $form->{ndx};
-
- $form->{"projectnumber_$form->{rownumber}"} = $form->{"new_projectnumber_$i"};
- $form->{"oldprojectnumber_$form->{rownumber}"} = $form->{"new_projectnumber_$i"};
- $form->{"project_id_$form->{rownumber}"} = $form->{"new_id_$i"};
-
- # delete all the new_ variables
- for $i (1 .. $form->{lastndx}) {
- for (qw(id projectnumber description)) { delete $form->{"new_${_}_$i"} }
- }
-
- for (qw(ndx lastndx nextsub)) { delete $form->{$_} }
-
- if ($form->{update}) {
- &{ $form->{update} };
- } else {
- &update;
- }
-}
+ # replace the variable with the one checked
+ # index for new item
+ $i = $form->{ndx};
-sub post_as_new {
+ $form->{"projectnumber_$form->{rownumber}"} =
+ $form->{"new_projectnumber_$i"};
+ $form->{"oldprojectnumber_$form->{rownumber}"} =
+ $form->{"new_projectnumber_$i"};
+ $form->{"project_id_$form->{rownumber}"} = $form->{"new_id_$i"};
+
+ # delete all the new_ variables
+ for $i ( 1 .. $form->{lastndx} ) {
+ for (qw(id projectnumber description)) { delete $form->{"new_${_}_$i"} }
+ }
- for (qw(id printed emailed queued)) { delete $form->{$_} }
- &post;
+ for (qw(ndx lastndx nextsub)) { delete $form->{$_} }
+
+ if ( $form->{update} ) {
+ &{ $form->{update} };
+ }
+ else {
+ &update;
+ }
}
+sub post_as_new {
+
+ for (qw(id printed emailed queued)) { delete $form->{$_} }
+ &post;
+
+}
sub print_and_post_as_new {
- for (qw(id printed emailed queued)) { delete $form->{$_} }
- &print_and_post;
+ for (qw(id printed emailed queued)) { delete $form->{$_} }
+ &print_and_post;
}
-
sub repost {
- if ($form->{type} =~ /_order/) {
- if ($form->{print_and_save}) {
- $form->{nextsub} = "print_and_save";
- $msg = $locale->text('You are printing and saving an existing order');
- } else {
- $form->{nextsub} = "save";
- $msg = $locale->text('You are saving an existing order');
- }
- } elsif ($form->{type} =~ /_quotation/) {
- if ($form->{print_and_save}) {
- $form->{nextsub} = "print_and_save";
- $msg = $locale->text('You are printing and saving an existing quotation');
- } else {
- $form->{nextsub} = "save";
- $msg = $locale->text('You are saving an existing quotation');
- }
- } else {
- if ($form->{print_and_post}) {
- $form->{nextsub} = "print_and_post";
- $msg = $locale->text('You are printing and posting an existing transaction!');
- } else {
- $form->{nextsub} = "post";
- $msg = $locale->text('You are posting an existing transaction!');
- }
- }
-
- delete $form->{action};
- $form->{repost} = 1;
-
- $form->header;
-
- print qq|
+ if ( $form->{type} =~ /_order/ ) {
+ if ( $form->{print_and_save} ) {
+ $form->{nextsub} = "print_and_save";
+ $msg =
+ $locale->text('You are printing and saving an existing order');
+ }
+ else {
+ $form->{nextsub} = "save";
+ $msg = $locale->text('You are saving an existing order');
+ }
+ }
+ elsif ( $form->{type} =~ /_quotation/ ) {
+ if ( $form->{print_and_save} ) {
+ $form->{nextsub} = "print_and_save";
+ $msg =
+ $locale->text(
+ 'You are printing and saving an existing quotation');
+ }
+ else {
+ $form->{nextsub} = "save";
+ $msg = $locale->text('You are saving an existing quotation');
+ }
+ }
+ else {
+ if ( $form->{print_and_post} ) {
+ $form->{nextsub} = "print_and_post";
+ $msg =
+ $locale->text(
+ 'You are printing and posting an existing transaction!');
+ }
+ else {
+ $form->{nextsub} = "post";
+ $msg = $locale->text('You are posting an existing transaction!');
+ }
+ }
+
+ delete $form->{action};
+ $form->{repost} = 1;
+
+ $form->header;
+
+ print qq|
<body>
<form method=post action=$form->{script}>
|;
- $form->hide_form;
+ $form->hide_form;
- print qq|
-<h2 class=confirm>|.$locale->text('Warning!').qq|</h2>
+ print qq|
+<h2 class=confirm>| . $locale->text('Warning!') . qq|</h2>
<h4>$msg</h4>
-<button name="action" class="submit" type="submit" value="continue">|.$locale->text('Continue').qq|</button>
+<button name="action" class="submit" type="submit" value="continue">|
+ . $locale->text('Continue')
+ . qq|</button>
</form>
</body>
@@ -516,53 +570,60 @@ sub repost {
}
-
sub schedule {
-
- ($form->{recurringreference}, $form->{recurringstartdate}, $form->{recurringrepeat}, $form->{recurringunit}, $form->{recurringhowmany}, $form->{recurringpayment}, $form->{recurringprint}, $form->{recurringemail}, $form->{recurringmessage}) = split /,/, $form->{recurring};
- $form->{recurringreference} = $form->quote($form->unescape($form->{recurringreference}));
- $form->{recurringmessage} = $form->quote($form->unescape($form->{recurringmessage}));
+ (
+ $form->{recurringreference}, $form->{recurringstartdate},
+ $form->{recurringrepeat}, $form->{recurringunit},
+ $form->{recurringhowmany}, $form->{recurringpayment},
+ $form->{recurringprint}, $form->{recurringemail},
+ $form->{recurringmessage}
+ ) = split /,/, $form->{recurring};
+
+ $form->{recurringreference} =
+ $form->quote( $form->unescape( $form->{recurringreference} ) );
+ $form->{recurringmessage} =
+ $form->quote( $form->unescape( $form->{recurringmessage} ) );
- $form->{recurringstartdate} ||= $form->{transdate};
- $recurringpayment = "checked" if $form->{recurringpayment};
+ $form->{recurringstartdate} ||= $form->{transdate};
+ $recurringpayment = "checked" if $form->{recurringpayment};
- if ($form->{paidaccounts}) {
- $postpayment = qq|
+ if ( $form->{paidaccounts} ) {
+ $postpayment = qq|
<tr>
- <th align=right nowrap>|.$locale->text('Include Payment').qq|</th>
+ <th align=right nowrap>| . $locale->text('Include Payment') . qq|</th>
<td><input name=recurringpayment type=checkbox class=checkbox value=1 $recurringpayment></td>
</tr>
|;
- }
+ }
- if ($form->{recurringnextdate}) {
- $nextdate = qq|
+ if ( $form->{recurringnextdate} ) {
+ $nextdate = qq|
<tr>
- <th align=right nowrap>|.$locale->text('Next Date').qq|</th>
+ <th align=right nowrap>| . $locale->text('Next Date') . qq|</th>
<td><input name=recurringnextdate size=11 title="($myconfig{'dateformat'})" value=$form->{recurringnextdate}></td>
</tr>
|;
- }
-
- @a = split /<option/, $form->unescape($form->{selectformname});
- %formname = ();
-
- for ($i = 1; $i <= $#a; $i++) {
- $a[$i] =~ /"(.*)"/;
- $v = $1;
- $a[$i] =~ />(.*)/;
- $formname{$v} = $1;
- }
- for (qw(check receipt)) { delete $formname{$_} }
-
- $selectformat = $form->unescape($form->{selectformat});
-
- if ($form->{type} !~ /transaction/ && %formname) {
- $email = qq|
+ }
+
+ @a = split /<option/, $form->unescape( $form->{selectformname} );
+ %formname = ();
+
+ for ( $i = 1 ; $i <= $#a ; $i++ ) {
+ $a[$i] =~ /"(.*)"/;
+ $v = $1;
+ $a[$i] =~ />(.*)/;
+ $formname{$v} = $1;
+ }
+ for (qw(check receipt)) { delete $formname{$_} }
+
+ $selectformat = $form->unescape( $form->{selectformat} );
+
+ if ( $form->{type} !~ /transaction/ && %formname ) {
+ $email = qq|
<table>
<tr>
- <th colspan=2 class=listheading>|.$locale->text('E-mail').qq|</th>
+ <th colspan=2 class=listheading>| . $locale->text('E-mail') . qq|</th>
</tr>
<tr>
@@ -570,40 +631,41 @@ sub schedule {
<table>
|;
- # formname:format
- @p = split /:/, $form->{recurringemail};
- %p = ();
- for ($i = 0; $i <= $#p; $i += 2) {
- $p{$p[$i]}{format} = $p[$i+1];
- }
-
- foreach $item (keys %formname) {
-
- $checked = ($p{$item}{format}) ? "checked" : "";
- $selectformat =~ s/ selected//;
- $p{$item}{format} ||= "pdf";
- $selectformat =~ s/(<option value="\Q$p{$item}{format}\E")/$1 selected/;
-
- $email .= qq|
+ # formname:format
+ @p = split /:/, $form->{recurringemail};
+ %p = ();
+ for ( $i = 0 ; $i <= $#p ; $i += 2 ) {
+ $p{ $p[$i] }{format} = $p[ $i + 1 ];
+ }
+
+ foreach $item ( keys %formname ) {
+
+ $checked = ( $p{$item}{format} ) ? "checked" : "";
+ $selectformat =~ s/ selected//;
+ $p{$item}{format} ||= "pdf";
+ $selectformat =~
+ s/(<option value="\Q$p{$item}{format}\E")/$1 selected/;
+
+ $email .= qq|
<tr>
<td><input name="email$item" type=checkbox class=checkbox value=1 $checked></td>
<th align=left>$formname{$item}</th>
<td><select name="emailformat$item">$selectformat</select></td>
</tr>
|;
- }
-
- $email .= qq|
+ }
+
+ $email .= qq|
</table>
</td>
</tr>
</table>
|;
- $message = qq|
+ $message = qq|
<table>
<tr>
- <th class=listheading>|.$locale->text('E-mail message').qq|</th>
+ <th class=listheading>| . $locale->text('E-mail message') . qq|</th>
</tr>
<tr>
@@ -612,27 +674,31 @@ sub schedule {
</table>
|;
- }
-
-
- if (%{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex} && %formname) {
- $selectprinter = qq|<option>\n|;
- for (sort keys %{LedgerSMB::Sysconfig::printer}) { $selectprinter .= qq|<option value="$_">$_\n| }
-
- # formname:format:printer
- @p = split /:/, $form->{recurringprint};
-
- %p = ();
- for ($i = 0; $i <= $#p; $i += 3) {
- $p{$p[$i]}{formname} = $p[$i];
- $p{$p[$i]}{format} = $p[$i+1];
- $p{$p[$i]}{printer} = $p[$i+2];
}
-
- $print = qq|
+
+ if ( %{LedgerSMB::Sysconfig::printer}
+ && ${LedgerSMB::Sysconfig::latex}
+ && %formname )
+ {
+ $selectprinter = qq|<option>\n|;
+ for ( sort keys %{LedgerSMB::Sysconfig::printer} ) {
+ $selectprinter .= qq|<option value="$_">$_\n|;
+ }
+
+ # formname:format:printer
+ @p = split /:/, $form->{recurringprint};
+
+ %p = ();
+ for ( $i = 0 ; $i <= $#p ; $i += 3 ) {
+ $p{ $p[$i] }{formname} = $p[$i];
+ $p{ $p[$i] }{format} = $p[ $i + 1 ];
+ $p{ $p[$i] }{printer} = $p[ $i + 2 ];
+ }
+
+ $print = qq|
<table>
<tr>
- <th colspan=2 class=listheading>|.$locale->text('Print').qq|</th>
+ <th colspan=2 class=listheading>| . $locale->text('Print') . qq|</th>
</tr>
<tr>
@@ -640,19 +706,21 @@ sub schedule {
<table>
|;
- $selectformat =~ s/<option.*html//;
- foreach $item (keys %formname) {
-
- $selectprinter =~ s/ selected//;
- $selectprinter =~ s/(<option value="\Q$p{$item}{printer}\E")/$1 selected/;
-
- $checked = ($p{$item}{formname}) ? "checked" : "";
-
- $selectformat =~ s/ selected//;
- $p{$item}{format} ||= "postscript";
- $selectformat =~ s/(<option value="\Q$p{$item}{format}\E")/$1 selected/;
-
- $print .= qq|
+ $selectformat =~ s/<option.*html//;
+ foreach $item ( keys %formname ) {
+
+ $selectprinter =~ s/ selected//;
+ $selectprinter =~
+ s/(<option value="\Q$p{$item}{printer}\E")/$1 selected/;
+
+ $checked = ( $p{$item}{formname} ) ? "checked" : "";
+
+ $selectformat =~ s/ selected//;
+ $p{$item}{format} ||= "postscript";
+ $selectformat =~
+ s/(<option value="\Q$p{$item}{format}\E")/$1 selected/;
+
+ $print .= qq|
<tr>
<td><input name="print$item" type=checkbox class=checkbox value=1 $checked></td>
<th align=left>$formname{$item}</th>
@@ -660,62 +728,61 @@ sub schedule {
<td><select name="printformat$item">$selectformat</select></td>
</tr>
|;
- }
-
- $print .= qq|
+ }
+
+ $print .= qq|
</table>
</td>
</tr>
</table>
|;
+ }
+
+ $selectrepeat = "";
+ for ( 1 .. 31 ) { $selectrepeat .= qq|<option value="$_">$_\n| }
+ $selectrepeat =~ s/(<option value="$form->{recurringrepeat}")/$1 selected/;
+
+ $selectunit = qq|<option value="days">| . $locale->text('Day(s)') . qq|
+ <option value="weeks">| . $locale->text('Week(s)') . qq|
+ <option value="months">| . $locale->text('Month(s)') . qq|
+ <option value="years">| . $locale->text('Year(s)');
+
+ if ( $form->{recurringunit} ) {
+ $selectunit =~ s/(<option value="$form->{recurringunit}")/$1 selected/;
+ }
- }
-
- $selectrepeat = "";
- for (1 .. 31) { $selectrepeat .= qq|<option value="$_">$_\n| }
- $selectrepeat =~ s/(<option value="$form->{recurringrepeat}")/$1 selected/;
-
- $selectunit = qq|<option value="days">|.$locale->text('Day(s)').qq|
- <option value="weeks">|.$locale->text('Week(s)').qq|
- <option value="months">|.$locale->text('Month(s)').qq|
- <option value="years">|.$locale->text('Year(s)');
-
- if ($form->{recurringunit}) {
- $selectunit =~ s/(<option value="$form->{recurringunit}")/$1 selected/;
- }
-
- if ($form->{$form->{vc}}) {
- $description = $form->{$form->{vc}};
- } else {
- $description = $form->{description};
- }
-
- $repeat = qq|
+ if ( $form->{ $form->{vc} } ) {
+ $description = $form->{ $form->{vc} };
+ }
+ else {
+ $description = $form->{description};
+ }
+
+ $repeat = qq|
<table>
<tr>
- <th colspan=3 class=listheading>|.$locale->text('Repeat').qq|</th>
+ <th colspan=3 class=listheading>| . $locale->text('Repeat') . qq|</th>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('Every').qq|</th>
+ <th align=right nowrap>| . $locale->text('Every') . qq|</th>
<td><select name=recurringrepeat>$selectrepeat</td>
<td><select name=recurringunit>$selectunit</td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('For').qq|</th>
+ <th align=right nowrap>| . $locale->text('For') . qq|</th>
<td><input name=recurringhowmany size=3 value=$form->{recurringhowmany}></td>
- <th align=left nowrap>|.$locale->text('time(s)').qq|</th>
+ <th align=left nowrap>| . $locale->text('time(s)') . qq|</th>
</tr>
</table>
|;
-
- $title = $locale->text('Recurring Transaction for [_1]', $description);
+ $title = $locale->text( 'Recurring Transaction for [_1]', $description );
- $form->header;
+ $form->header;
- print qq|
+ print qq|
<body>
<form method=post action=$form->{script}>
@@ -732,11 +799,11 @@ sub schedule {
<td>
<table>
<tr>
- <th align=right nowrap>|.$locale->text('Reference').qq|</th>
+ <th align=right nowrap>| . $locale->text('Reference') . qq|</th>
<td><input name=recurringreference size=20 value="$form->{recurringreference}"></td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('Startdate').qq|</th>
+ <th align=right nowrap>| . $locale->text('Startdate') . qq|</th>
<td><input name=recurringstartdate size=11 title="($myconfig{'dateformat'})" value=$form->{recurringstartdate}></td>
</tr>
$nextdate
@@ -777,26 +844,34 @@ sub schedule {
<br>
|;
-# type=submit $locale->text('Save Schedule')
-# type=submit $locale->text('Delete Schedule')
+ # type=submit $locale->text('Save Schedule')
+ # type=submit $locale->text('Delete Schedule')
- %button = ('save_schedule' => { ndx => 1, key => 'S', value => $locale->text('Save Schedule') },
- 'delete_schedule' => { ndx => 16, key => 'D', value => $locale->text('Delete Schedule') },
- );
-
- $form->print_button(\%button, 'save_schedule');
-
- if ($form->{recurring}) {
- $form->print_button(\%button, 'delete_schedule');
- }
+ %button = (
+ 'save_schedule' =>
+ { ndx => 1, key => 'S', value => $locale->text('Save Schedule') },
+ 'delete_schedule' =>
+ { ndx => 16, key => 'D', value => $locale->text('Delete Schedule') },
+ );
- # delete variables
- for (qw(action recurring)) { delete $form->{$_} }
- for (qw(reference startdate nextdate enddate repeat unit howmany payment print email message)) { delete $form->{"recurring$_"} }
+ $form->print_button( \%button, 'save_schedule' );
- $form->hide_form;
+ if ( $form->{recurring} ) {
+ $form->print_button( \%button, 'delete_schedule' );
+ }
- print qq|
+ # delete variables
+ for (qw(action recurring)) { delete $form->{$_} }
+ for (
+ qw(reference startdate nextdate enddate repeat unit howmany payment print email message)
+ )
+ {
+ delete $form->{"recurring$_"};
+ }
+
+ $form->hide_form;
+
+ print qq|
</form>
@@ -806,128 +881,157 @@ sub schedule {
}
-
sub save_schedule {
- $form->{recurring} = "";
+ $form->{recurring} = "";
- $form->{recurringreference} = $form->escape($form->{recurringreference},1);
- $form->{recurringmessage} = $form->escape($form->{recurringmessage},1);
- if ($form->{recurringstartdate}) {
- for (qw(reference startdate repeat unit howmany payment)) { $form->{recurring} .= qq|$form->{"recurring$_"},| }
- }
+ $form->{recurringreference} =
+ $form->escape( $form->{recurringreference}, 1 );
+ $form->{recurringmessage} = $form->escape( $form->{recurringmessage}, 1 );
+ if ( $form->{recurringstartdate} ) {
+ for (qw(reference startdate repeat unit howmany payment)) {
+ $form->{recurring} .= qq|$form->{"recurring$_"},|;
+ }
+ }
- @a = split /<option/, $form->unescape($form->{selectformname});
- @p = ();
+ @a = split /<option/, $form->unescape( $form->{selectformname} );
+ @p = ();
- for ($i = 1; $i <= $#a; $i++) {
- $a[$i] =~ /"(.*)"/;
- push @p, $1;
- }
+ for ( $i = 1 ; $i <= $#a ; $i++ ) {
+ $a[$i] =~ /"(.*)"/;
+ push @p, $1;
+ }
- $recurringemail = "";
- for (@p) { $recurringemail .= qq|$_:$form->{"emailformat$_"}:| if $form->{"email$_"} }
- chop $recurringemail;
-
- $recurringprint = "";
- for (@p) { $recurringprint .= qq|$_:$form->{"printformat$_"}:$form->{"printprinter$_"}:| if $form->{"print$_"} }
- chop $recurringprint;
+ $recurringemail = "";
+ for (@p) {
+ $recurringemail .= qq|$_:$form->{"emailformat$_"}:|
+ if $form->{"email$_"};
+ }
+ chop $recurringemail;
- $form->{recurring} .= qq|$recurringprint,$recurringemail,$form->{recurringmessage}| if $recurringemail || $recurringprint;
+ $recurringprint = "";
+ for (@p) {
+ $recurringprint .=
+ qq|$_:$form->{"printformat$_"}:$form->{"printprinter$_"}:|
+ if $form->{"print$_"};
+ }
+ chop $recurringprint;
- $form->save_recurring(undef, \%myconfig) if $form->{id};
+ $form->{recurring} .=
+ qq|$recurringprint,$recurringemail,$form->{recurringmessage}|
+ if $recurringemail || $recurringprint;
- if ($form->{recurringid}) {
- $form->redirect;
- } else {
- &update;
- }
+ $form->save_recurring( undef, \%myconfig ) if $form->{id};
-}
+ if ( $form->{recurringid} ) {
+ $form->redirect;
+ }
+ else {
+ &update;
+ }
+}
sub delete_schedule {
- $form->{recurring} = "";
+ $form->{recurring} = "";
- $form->save_recurring(undef, \%myconfig) if $form->{id};
+ $form->save_recurring( undef, \%myconfig ) if $form->{id};
- if ($form->{recurringid}) {
- $form->redirect;
- } else {
- &update;
- }
+ if ( $form->{recurringid} ) {
+ $form->redirect;
+ }
+ else {
+ &update;
+ }
}
-
sub reprint {
- $myconfig{vclimit} = 0;
- $pf = "print_form";
-
- for (qw(format formname media message)) { $temp{$_} = $form->{$_} }
-
- if ($form->{module} eq 'oe') {
- &order_links;
- &prepare_order;
- delete $form->{order_details};
- for (keys %$form) { $form->{$_} = $form->unquote($form->{$_}) }
- } else {
- if ($form->{type} eq 'invoice') {
- &invoice_links;
- &prepare_invoice;
- for (keys %$form) { $form->{$_} = $form->unquote($form->{$_}) }
- } else {
- &create_links;
- $form->{rowcount}--;
- for (1 .. $form->{rowcount}) { $form->{"amount_$_"} = $form->format_amount(\%myconfig, $form->{"amount_$_"}, 2) }
- for (split / /, $form->{taxaccounts}) { $form->{"tax_$_"} = $form->format_amount(\%myconfig, $form->{"tax_$_"}, 2) }
- $pf = "print_transaction";
- }
- for (qw(acc_trans invoice_details)) { delete $form->{$_} }
- }
-
- for (qw(department employee language month partsgroup project years)) { delete $form->{"all_$_"} }
-
- for (keys %temp) { $form->{$_} = $temp{$_} }
-
- $form->{rowcount}++;
- $form->{paidaccounts}++;
-
- delete $form->{paid};
-
- for (1 .. $form->{paidaccounts}) { $form->{"paid_$_"} = $form->format_amount(\%myconfig, $form->{"paid_$_"}, 2) }
-
- $form->{copies} = 1;
-
- &$pf;
-
- if ($form->{media} eq 'email') {
- # add email message
- $now = scalar localtime;
- $cc = $locale->text('Cc: [_1]', $form->{cc}).qq|\n| if $form->{cc};
- $bcc = $locale->text('Bcc: [_1]', $form->{bcc}).qq|\n| if $form->{bcc};
-
- $form->{intnotes} .= qq|\n\n| if $form->{intnotes};
- $form->{intnotes} .= qq|[email]\n|
- .$locale->text('Date: [_1]', $now).qq|\n|
- .$locale->text('To: [_1]', $form->{email}).qq|\n${cc}${bcc}|
- .$locale->text('Subject: [_1]', $form->{subject}).qq|\n\n|
- .$locale->text('Message: ');
-
- $form->{intnotes} .= ($form->{message}) ? $form->{message} : $locale->text('sent');
-
- $form->save_intnotes(\%myconfig, $form->{module});
- }
-
-}
+ $myconfig{vclimit} = 0;
+ $pf = "print_form";
+
+ for (qw(format formname media message)) { $temp{$_} = $form->{$_} }
+ if ( $form->{module} eq 'oe' ) {
+ &order_links;
+ &prepare_order;
+ delete $form->{order_details};
+ for ( keys %$form ) { $form->{$_} = $form->unquote( $form->{$_} ) }
+ }
+ else {
+ if ( $form->{type} eq 'invoice' ) {
+ &invoice_links;
+ &prepare_invoice;
+ for ( keys %$form ) { $form->{$_} = $form->unquote( $form->{$_} ) }
+ }
+ else {
+ &create_links;
+ $form->{rowcount}--;
+ for ( 1 .. $form->{rowcount} ) {
+ $form->{"amount_$_"} =
+ $form->format_amount( \%myconfig, $form->{"amount_$_"}, 2 );
+ }
+ for ( split / /, $form->{taxaccounts} ) {
+ $form->{"tax_$_"} =
+ $form->format_amount( \%myconfig, $form->{"tax_$_"}, 2 );
+ }
+ $pf = "print_transaction";
+ }
+ for (qw(acc_trans invoice_details)) { delete $form->{$_} }
+ }
+
+ for (qw(department employee language month partsgroup project years)) {
+ delete $form->{"all_$_"};
+ }
+
+ for ( keys %temp ) { $form->{$_} = $temp{$_} }
+
+ $form->{rowcount}++;
+ $form->{paidaccounts}++;
+
+ delete $form->{paid};
+
+ for ( 1 .. $form->{paidaccounts} ) {
+ $form->{"paid_$_"} =
+ $form->format_amount( \%myconfig, $form->{"paid_$_"}, 2 );
+ }
+
+ $form->{copies} = 1;
+
+ &$pf;
+
+ if ( $form->{media} eq 'email' ) {
+
+ # add email message
+ $now = scalar localtime;
+ $cc = $locale->text( 'Cc: [_1]', $form->{cc} ) . qq|\n| if $form->{cc};
+ $bcc = $locale->text( 'Bcc: [_1]', $form->{bcc} ) . qq|\n|
+ if $form->{bcc};
+
+ $form->{intnotes} .= qq|\n\n| if $form->{intnotes};
+ $form->{intnotes} .=
+ qq|[email]\n|
+ . $locale->text( 'Date: [_1]', $now ) . qq|\n|
+ . $locale->text( 'To: [_1]', $form->{email} )
+ . qq|\n${cc}${bcc}|
+ . $locale->text( 'Subject: [_1]', $form->{subject} )
+ . qq|\n\n|
+ . $locale->text('Message: ');
+
+ $form->{intnotes} .=
+ ( $form->{message} ) ? $form->{message} : $locale->text('sent');
+
+ $form->save_intnotes( \%myconfig, $form->{module} );
+ }
+
+}
-sub continue { &{ $form->{nextsub} } };
-sub gl_transaction { &add };
-sub ar_transaction { &add_transaction(ar) };
-sub ap_transaction { &add_transaction(ap) };
-sub sales_invoice_ { &add_transaction(is) };
-sub vendor_invoice_ { &add_transaction(ir) };
+sub continue { &{ $form->{nextsub} } }
+sub gl_transaction { &add }
+sub ar_transaction { &add_transaction(ar) }
+sub ap_transaction { &add_transaction(ap) }
+sub sales_invoice_ { &add_transaction(is) }
+sub vendor_invoice_ { &add_transaction(ir) }
generated by cgit v1.2.3 (git 2.46.0) at 2025-04-09 05:34:23 +0000