summaryrefslogtreecommitdiff
path: root/bin/mozilla/gl.pl
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-03 03:26:37 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-03 03:26:37 +0000
commitfcd5ee36c7b5f42d557ca7b0ec8be997c0faaadb (patch)
treec8608b6f4d98caee857932190939f5e115f4adce /bin/mozilla/gl.pl
parentf98990bd9964b6bfe2fa8526f36a9b7bc2f961f7 (diff)
Merged SL-POS.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@185 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/mozilla/gl.pl')
-rwxr-xr-xbin/mozilla/gl.pl21
1 files changed, 20 insertions, 1 deletions
diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 3e238609..9a83675a 100755
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -83,7 +83,23 @@ require "$form->{path}/arap.pl";
# $locale->text('Nov')
# $locale->text('Dec')
+sub pos_adjust {
+ $form->{rowcount} = 3;
+ require "pos.conf.pl";
+ $form->{accno_1} = $pos_config{'close_cash_accno'};
+ $form->{accno_2} = $pos_config{'coa_prefix'};
+ $form->{accno_3} = $pos_config{'coa_prefix'};
+}
+sub add_pos_adjust {
+ $form->{pos_adjust} = 1;
+ $form->{reference} = $locale->text("Adjusting Till: (till) Source: (source)");
+ $form->{description} =
+ $locale->text("Adjusting till due to data entry error.");
+ $form->{callback} = "$form->{script}?action=add_pos_adjust&transfer=$form->{transfer}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
+ &add;
+}
+
sub add {
$form->{title} = "Add";
@@ -93,6 +109,9 @@ sub add {
&create_links;
$form->{rowcount} = ($form->{transfer}) ? 3 : 9;
+ if ($form->{pos_adjust}){
+ &pos_adjust;
+ }
$form->{oldtransdate} = $form->{transdate};
$form->{focus} = "reference";
@@ -856,7 +875,7 @@ sub display_rows {
|;
}
- $form->hide_form(qw(rowcount selectaccno));
+ $form->hide_form(qw(rowcount selectaccno pos_adjust));
print qq|
<input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|">|;