@@ -227,97 +306,113 @@ sub account_header {
- |.$locale->text('Account Number').qq| |
+ | . $locale->text('Account Number') . qq| |
{accno}> |
- |.$locale->text('Description').qq| |
+ | . $locale->text('Description') . qq| |
|
- |.$locale->text('Account Type').qq| |
+ | . $locale->text('Account Type') . qq| |
|
|;
-
-if ($form->{charttype} eq "A") {
- print qq|
+ if ($form->{charttype} eq "A") {
+ print qq|
|
- |.$locale->text('Include in drop-down menus').qq| |
+ | . $locale->text('Include in drop-down menus') . qq| |
- |
-
+
+
|;
-}
+ }
-print qq|
+ print qq|
$taxkey
$ustva
$eur
@@ -335,11 +430,9 @@ print qq|
$lxdebug->leave_sub();
}
-
sub form_footer {
$lxdebug->enter_sub();
-
print qq|
@@ -349,18 +442,20 @@ sub form_footer {
{password}>
-
+
|;
if ($form->{id} && $form->{orphaned}) {
- print qq||;
+ print qq||;
}
if ($form->{menubar}) {
require "$form->{path}/menu.pl";
&menubar;
}
-
+
print qq|
@@ -371,41 +466,40 @@ sub form_footer {
$lxdebug->leave_sub();
}
-
sub save_account {
$lxdebug->enter_sub();
-
- $form->isblank("accno", $locale->text('Account Number missing!'));
+ $form->isblank("accno", $locale->text('Account Number missing!'));
$form->isblank("category", $locale->text('Account Type missing!'));
-
- $form->redirect($locale->text('Account saved!')) if (AM->save_account(\%myconfig, \%$form));
+
+ $form->redirect($locale->text('Account saved!'))
+ if (AM->save_account(\%myconfig, \%$form));
$form->error($locale->text('Cannot save account!'));
$lxdebug->leave_sub();
}
-
sub list_account {
$lxdebug->enter_sub();
-
CA->all_accounts(\%myconfig, \%$form);
$form->{title} = $locale->text('Chart of Accounts');
-
+
# construct callback
- $callback = "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&password=$form->{password}";
+ $callback =
+ "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&password=$form->{password}";
@column_index = qw(accno gifi_accno description debit credit link);
- $column_header{accno} = qq||.$locale->text('Account').qq| | |;
- $column_header{gifi_accno} = qq||.$locale->text('GIFI').qq| | |;
- $column_header{description} = qq||.$locale->text('Description').qq| | |;
- $column_header{debit} = qq||.$locale->text('Debit').qq| | |;
- $column_header{credit} = qq||.$locale->text('Credit').qq| | |;
- $column_header{link} = qq||.$locale->text('Link').qq| | |;
-
+ $column_header{accno} = qq|| . $locale->text('Account') . qq| | |;
+ $column_header{gifi_accno} =
+ qq|| . $locale->text('GIFI') . qq| | |;
+ $column_header{description} =
+ qq|| . $locale->text('Description') . qq| | |;
+ $column_header{debit} = qq|| . $locale->text('Debit') . qq| | |;
+ $column_header{credit} = qq|| . $locale->text('Credit') . qq| | |;
+ $column_header{link} = qq|| . $locale->text('Link') . qq| | |;
$form->header;
$colspan = $#column_index + 1;
@@ -422,24 +516,26 @@ sub list_account {
|;
map { print "$column_header{$_}\n" } @column_index;
-
+
print qq|
|;
# escape callback
$callback = $form->escape($callback);
-
+
foreach $ca (@{ $form->{CA} }) {
-
- $ca->{debit} = " ";
+
+ $ca->{debit} = " ";
$ca->{credit} = " ";
if ($ca->{amount} > 0) {
- $ca->{credit} = $form->format_amount(\%myconfig, $ca->{amount}, 2, " ");
+ $ca->{credit} =
+ $form->format_amount(\%myconfig, $ca->{amount}, 2, " ");
}
if ($ca->{amount} < 0) {
- $ca->{debit} = $form->format_amount(\%myconfig, -$ca->{amount}, 2, " ");
+ $ca->{debit} =
+ $form->format_amount(\%myconfig, -$ca->{amount}, 2, " ");
}
$ca->{link} =~ s/:/ /og;
@@ -447,31 +543,36 @@ sub list_account {
if ($ca->{charttype} eq "H") {
print qq||;
- $column_data{accno} = qq|{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{accno} | |;
- $column_data{gifi_accno} = qq|{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{gifi_accno} | |;
+ $column_data{accno} =
+ qq|{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{accno} | |;
+ $column_data{gifi_accno} =
+ qq|{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{gifi_accno} | |;
$column_data{description} = qq|$ca->{description} | |;
- $column_data{debit} = qq| | |;
- $column_data{credit} = qq| | |;
- $column_data{link} = qq| | |;
+ $column_data{debit} = qq| | |;
+ $column_data{credit} = qq| | |;
+ $column_data{link} = qq| | |;
} else {
- $i++; $i %= 2;
+ $i++;
+ $i %= 2;
print qq|
|;
- $column_data{accno} = qq|{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{accno} | |;
- $column_data{gifi_accno} = qq|{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{gifi_accno} | |;
+ $column_data{accno} =
+ qq|{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{accno} | |;
+ $column_data{gifi_accno} =
+ qq|{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{gifi_accno} | |;
$column_data{description} = qq|$ca->{description} | |;
- $column_data{debit} = qq|$ca->{debit} | |;
- $column_data{credit} = qq|$ca->{credit} | |;
- $column_data{link} = qq|$ca->{link} | |;
-
+ $column_data{debit} = qq|$ca->{debit} | |;
+ $column_data{credit} = qq|$ca->{credit} | |;
+ $column_data{link} = qq|$ca->{link} | |;
+
}
map { print "$column_data{$_}\n" } @column_index;
-
+
print " \n";
}
-
+
print qq|
|
@@ -483,46 +584,46 @@ sub list_account {
$lxdebug->leave_sub();
}
-
sub delete_account {
$lxdebug->enter_sub();
-
$form->{title} = $locale->text('Delete Account');
- foreach $id (qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id)) {
+ foreach $id (
+ qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id)
+ ) {
if ($form->{id} == $form->{$id}) {
$form->error($locale->text('Cannot delete default account!'));
}
}
- $form->redirect($locale->text('Account deleted!')) if (AM->delete_account(\%myconfig, \%$form));
+ $form->redirect($locale->text('Account deleted!'))
+ if (AM->delete_account(\%myconfig, \%$form));
$form->error($locale->text('Cannot delete account!'));
$lxdebug->leave_sub();
}
-
sub list_gifi {
$lxdebug->enter_sub();
-
@{ $form->{fields} } = (accno, description);
- $form->{table} = "gifi";
+ $form->{table} = "gifi";
$form->{sortorder} = "accno";
-
+
AM->gifi_accounts(\%myconfig, \%$form);
$form->{title} = $locale->text('GIFI');
-
+
# construct callback
- $callback = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&password=$form->{password}";
+ $callback =
+ "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&password=$form->{password}";
@column_index = qw(accno description);
- $column_header{accno} = qq| | |.$locale->text('GIFI').qq| | |;
- $column_header{description} = qq||.$locale->text('Description').qq| | |;
-
+ $column_header{accno} = qq|| . $locale->text('GIFI') . qq| | |;
+ $column_header{description} =
+ qq|| . $locale->text('Description') . qq| | |;
$form->header;
$colspan = $#column_index + 1;
@@ -539,29 +640,31 @@ sub list_gifi {
|;
map { print "$column_header{$_}\n" } @column_index;
-
+
print qq|
|;
# escape callback
$callback = $form->escape($callback);
-
+
foreach $ca (@{ $form->{ALL} }) {
-
- $i++; $i %= 2;
-
+
+ $i++;
+ $i %= 2;
+
print qq|
|
@@ -575,47 +678,43 @@ sub list_gifi {
$lxdebug->leave_sub();
}
-
sub add_gifi {
$lxdebug->enter_sub();
$form->{title} = "Add";
-
+
# construct callback
- $form->{callback} = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&password=$form->{password}";
+ $form->{callback} =
+ "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&password=$form->{password}";
$form->{coa} = 1;
-
+
&gifi_header;
&gifi_footer;
-
+
$lxdebug->leave_sub();
}
-
sub edit_gifi {
$lxdebug->enter_sub();
-
$form->{title} = "Edit";
AM->get_gifi(\%myconfig, \%$form);
-
+
&gifi_header;
&gifi_footer;
-
+
$lxdebug->leave_sub();
}
-
sub gifi_header {
$lxdebug->enter_sub();
-
$form->{title} = $locale->text("$form->{title} GIFI");
-
-# $locale->text('Add GIFI')
-# $locale->text('Edit GIFI')
+
+ # $locale->text('Add GIFI')
+ # $locale->text('Edit GIFI')
$form->{description} =~ s/\"/"/g;
@@ -638,11 +737,11 @@ sub gifi_header {
@@ -657,11 +756,9 @@ sub gifi_header {
$lxdebug->leave_sub();
}
-
sub gifi_footer {
$lxdebug->enter_sub();
-
print qq|
@@ -670,15 +767,18 @@ sub gifi_footer {
{login}>
{password}>
- |;
+ |;
if ($form->{coa}) {
print qq|
-
+
|;
if ($form->{accno} && $form->{orphaned}) {
- print qq||;
+ print qq||;
}
}
@@ -697,11 +797,9 @@ sub gifi_footer {
$lxdebug->leave_sub();
}
-
sub save_gifi {
$lxdebug->enter_sub();
-
$form->isblank("accno", $locale->text('GIFI missing!'));
AM->save_gifi(\%myconfig, \%$form);
$form->redirect($locale->text('GIFI saved!'));
@@ -709,46 +807,42 @@ sub save_gifi {
$lxdebug->leave_sub();
}
-
sub copy_to_coa {
$lxdebug->enter_sub();
-
$form->isblank("accno", $locale->text('GIFI missing!'));
AM->save_gifi(\%myconfig, \%$form);
delete $form->{id};
$form->{gifi_accno} = $form->{accno};
- $form->{title} = "Add";
- $form->{charttype} = "A";
-
+ $form->{title} = "Add";
+ $form->{charttype} = "A";
+
&account_header;
&form_footer;
-
+
$lxdebug->leave_sub();
}
-
sub delete_gifi {
$lxdebug->enter_sub();
-
AM->delete_gifi(\%myconfig, \%$form);
$form->redirect($locale->text('GIFI deleted!'));
$lxdebug->leave_sub();
}
-
sub add_department {
$lxdebug->enter_sub();
-
$form->{title} = "Add";
- $form->{role} = "P";
-
- $form->{callback} = "$form->{script}?action=add_department&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
+ $form->{role} = "P";
+
+ $form->{callback} =
+ "$form->{script}?action=add_department&path=$form->{path}&login=$form->{login}&password=$form->{password}"
+ unless $form->{callback};
&department_header;
&form_footer;
@@ -756,11 +850,9 @@ sub add_department {
$lxdebug->leave_sub();
}
-
sub edit_department {
$lxdebug->enter_sub();
-
$form->{title} = "Edit";
AM->get_department(\%myconfig, \%$form);
@@ -771,24 +863,32 @@ sub edit_department {
$lxdebug->leave_sub();
}
-
sub list_department {
$lxdebug->enter_sub();
-
AM->departments(\%myconfig, \%$form);
- $form->{callback} = "$form->{script}?action=list_department&path=$form->{path}&login=$form->{login}&password=$form->{password}";
+ $form->{callback} =
+ "$form->{script}?action=list_department&path=$form->{path}&login=$form->{login}&password=$form->{password}";
$callback = $form->escape($form->{callback});
-
+
$form->{title} = $locale->text('Departments');
@column_index = qw(description cost profit);
- $column_header{description} = qq| | |.$locale->text('Description').qq| | |;
- $column_header{cost} = qq||.$locale->text('Cost Center').qq| | |;
- $column_header{profit} = qq||.$locale->text('Profit Center').qq| | |;
+ $column_header{description} =
+ qq||
+ . $locale->text('Description')
+ . qq| | |;
+ $column_header{cost} =
+ qq||
+ . $locale->text('Cost Center')
+ . qq| | |;
+ $column_header{profit} =
+ qq||
+ . $locale->text('Profit Center')
+ . qq| | |;
$form->header;
@@ -813,23 +913,25 @@ sub list_department {
|;
foreach $ref (@{ $form->{ALL} }) {
-
- $i++; $i %= 2;
-
+
+ $i++;
+ $i %= 2;
+
print qq|