#===================================================================== # SQL-Ledger ERP # Copyright (c) 2006 # # Author: DWS Systems Inc. # Web: http://www.sql-ledger.com # #====================================================================== # # administration # #====================================================================== use SL::AM; use SL::CA; use SL::Form; use SL::User; use SL::RP; use SL::GL; 1; # end of main # this is for our long dates # $locale->text('January') # $locale->text('February') # $locale->text('March') # $locale->text('April') # $locale->text('May ') # $locale->text('June') # $locale->text('July') # $locale->text('August') # $locale->text('September') # $locale->text('October') # $locale->text('November') # $locale->text('December') # this is for our short month # $locale->text('Jan') # $locale->text('Feb') # $locale->text('Mar') # $locale->text('Apr') # $locale->text('May') # $locale->text('Jun') # $locale->text('Jul') # $locale->text('Aug') # $locale->text('Sep') # $locale->text('Oct') # $locale->text('Nov') # $locale->text('Dec') sub add { &{ "add_$form->{type}" } }; sub edit { &{ "edit_$form->{type}" } }; sub save { &{ "save_$form->{type}" } }; sub delete { &{ "delete_$form->{type}" } }; sub save_as_new { delete $form->{id}; &save; } sub add_account { $form->{title} = $locale->text('Add Account'); $form->{charttype} = "A"; $form->{callback} = "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}" unless $form->{callback}; &account_header; &form_footer; } sub edit_account { $form->{title} = $locale->text('Edit Account'); $form->{accno} =~ s/\\'/'/g; $form->{accno} =~ s/\\\\/\\/g; AM->get_account(\%myconfig, \%$form); for (split(/:/, $form->{link})) { $form->{$_} = "checked" } &account_header; &form_footer; } sub account_header { my %checked; $checked{$form->{charttype}} = "checked"; $checked{contra} = "checked" if $form->{contra}; $checked{"$form->{category}_"} = "checked"; for (qw(accno description)) { $form->{$_} = $form->quote($form->{$_}) } $form->{type} = "account"; $form->helpref("account", $myconfig{countrycode}); $form->header; print qq|
{script}> |; $form->hide_form(qw(id type)); $form->hide_form(map { "${_}_accno_id" } qw(inventory income expense fxgain fxloss)); print qq|
$form->{helpref}$form->{title}
|; if ($form->{charttype} eq "A") { print qq| |; } print qq|
|.$locale->text('Account Number').qq| *
|.$locale->text('Description').qq|
|.$locale->text('Account Type').qq| *
 |.$locale->text('Asset').qq|
 |.$locale->text('Liability').qq|
 |.$locale->text('Equity').qq|
 |.$locale->text('Income').qq|
 |.$locale->text('Expense') .qq|		  |.$locale->text('Contra').qq|  |.$locale->text('Heading').qq|
 |.$locale->text('Account') .qq|
|.$locale->text('Is this a summary account to record').qq| {AR}> |.$locale->text('AR') .qq| {AP}> |.$locale->text('AP') .qq| {IC}> |.$locale->text('Inventory') .qq|
|.$locale->text('Include in drop-down menus').qq|
|.$locale->text('AR').qq| |.$locale->text('AP').qq| |.$locale->text('Tracking Items').qq| |.$locale->text('Non-tracking Items').qq|
{AR_amount}> |.$locale->text('Lineitem').qq|
{AR_paid}> |.$locale->text('Payment').qq|
{AR_discount}> |.$locale->text('Discount').qq|
{AR_tax}> |.$locale->text('Tax') .qq| 		{AP_amount}> |.$locale->text('Lineitem').qq|
{AP_paid}> |.$locale->text('Payment').qq|
{AP_discount}> |.$locale->text('Discount').qq|
{AP_tax}> |.$locale->text('Tax') .qq| 		{IC_sale}> |.$locale->text('Income').qq|
{IC_cogs}> |.$locale->text('COGS').qq|
{IC_taxpart}> |.$locale->text('Tax') .qq| 		{IC_income}> |.$locale->text('Income').qq|
{IC_expense}> |.$locale->text('Expense').qq|
{IC_taxservice}> |.$locale->text('Tax') .qq|
|.$locale->text('GIFI').qq|
|; } sub form_footer { $form->hide_form(qw(callback path login)); my %button; if ($form->{id}) { $button{'Save'} = { ndx => 3, key => 'S', value => $locale->text('Save') }; $button{'Save as new'} = { ndx => 7, key => 'N', value => $locale->text('Save as new') } if $form->{type} ne 'currency'; if ($form->{orphaned}) { $button{'Delete'} = { ndx => 16, key => 'D', value => $locale->text('Delete') }; } } else { $button{'Save'} = { ndx => 3, key => 'S', value => $locale->text('Save') }; } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub save_account { $form->isblank("accno", $locale->text('Account Number missing!')); $form->isblank("category", $locale->text('Account Type missing!')); # check for conflicting accounts if ($form->{AR} || $form->{AP} || $form->{IC}) { my $a = ""; for (qw(AR AP IC)) { $a .= $form->{$_} } $form->error($locale->text('Cannot set account for more than one of AR, AP or IC')) if length $a > 2; for (qw(AR_amount AR_tax AR_paid AP_amount AP_tax AP_paid IC_taxpart IC_taxservice IC_sale IC_cogs IC_income IC_expense)) { $form->error("$form->{AR}$form->{AP}$form->{IC} ". $locale->text('account cannot be set to any other type of account')) if $form->{$_} } } foreach my $item (qw(AR AP)) { my $i = 0; for ("${item}_amount", "${item}_paid", "${item}_discount", "${item}_tax") { $i++ if $form->{$_} } $form->error($locale->text('Cannot set multiple options for')." $item") if $i > 1; } if (AM->save_account(\%myconfig, \%$form)) { $form->redirect($locale->text('Account saved!')); } else { $form->error($locale->text('Cannot save account!')); } } sub list_account { CA->all_accounts(\%myconfig, \%$form); $form->{title} = $locale->text('Chart of Accounts'); # construct callback my $callback = "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}"; my %dropdown = ( AR => $locale->text('AR'), AP => $locale->text('AP'), AR_paid => $locale->text('AR Payment'), AR_amount => $locale->text('AR Amount'), AR_tax => $locale->text('Tax collected'), AR_discount => $locale->text('Early Payment Discount given'), AP_paid => $locale->text('AP Payment'), AP_amount => $locale->text('AP Amount'), AP_tax => $locale->text('Tax paid'), AP_discount => $locale->text('Early Payment Discount received'), IC => $locale->text('Inventory'), IC_sale => $locale->text('Tracking Item Income'), IC_income => $locale->text('Non-tracking Item Income'), IC_cogs => $locale->text('COGS'), IC_expense => $locale->text('Non-tracking Item Expense'), IC_taxpart => $locale->text('Tracking Item Tax'), IC_taxservice => $locale->text('Non-tracking Item Tax') ); my %category = ( A => $locale->text('Asset'), L => $locale->text('Liability'), Q => $locale->text('Equity'), I => $locale->text('Income'), E => $locale->text('Expense') ); my @column_index = qw(accno gifi_accno description category contra dropdown); my %column_data; $column_data{accno} = qq||.$locale->text('Account').qq||; $column_data{gifi_accno} = qq||.$locale->text('GIFI').qq||; $column_data{description} = qq||.$locale->text('Description').qq||; $column_data{dropdown} = qq||.$locale->text('Drop-down').qq||; $column_data{category} = qq||.$locale->text('Type').qq||; $column_data{contra} = qq||.$locale->text('C').qq||; $form->helpref("list_account", $myconfig{countrycode}); $form->header; my $colspan = $#column_index + 1; print qq| |; for (@column_index) { print "$column_data{$_}\n" } print qq| |; # escape callback $callback = $form->escape($callback); foreach my $ref (@{ $form->{CA} }) { $ref->{dropdown} = join '
', map { $dropdown{$_} } split /:/, $ref->{link}; my $gifi_accno = $form->escape($ref->{gifi_accno}); if ($ref->{charttype} eq "H") { print qq||; $column_data{accno} = qq||; $column_data{gifi_accno} = qq||; $column_data{description} = qq||; $column_data{dropdown} = qq||; $column_data{category} = qq||; $column_data{contra} = qq||; } else { $i++; $i %= 2; print qq| |; $column_data{accno} = qq||; $column_data{gifi_accno} = qq||; $column_data{description} = qq||; $column_data{dropdown} = qq||; $column_data{category} = qq||; $ref->{contra} = ($ref->{contra}) ? '*' : ' '; $column_data{contra} = qq||; } for (@column_index) { print "$column_data{$_}\n" } print "\n"; } print qq|
$form->{helpref}$form->{title}
{script}?action=edit_account&id=$ref->{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{accno}{script}?action=edit_gifi&accno=$gifi_accno&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{gifi_accno} $ref->{description}  $category{$ref->{category}}  
{script}?action=edit_account&id=$ref->{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{accno}{script}?action=edit_gifi&accno=$ref->{gifi_accno}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{gifi_accno} $ref->{description} $ref->{dropdown} $category{$ref->{category}} $ref->{contra}
|; } sub delete_account { $form->{title} = $locale->text('Delete Account'); for (qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id)) { if ($form->{id} == $form->{$_}) { $form->error($locale->text('Cannot delete default account!')); } } if (AM->delete_account(\%myconfig, \%$form)) { $form->redirect($locale->text('Account deleted!')); } else { $form->error($locale->text('Cannot delete account!')); } } sub list_gifi { @{ $form->{fields} } = qw(accno description); $form->{table} = "gifi"; AM->gifi_accounts(\%myconfig, \%$form); $form->{title} = $locale->text('GIFI'); # construct callback my $callback = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}"; my @column_index = qw(accno description); my %column_data; $column_data{accno} = qq||.$locale->text('GIFI').qq||; $column_data{description} = qq||.$locale->text('Description').qq||; $form->helpref("list_gifi", $myconfig{countrycode}); $form->header; my $colspan = $#column_index + 1; print qq| |; for (@column_index) { print "$column_data{$_}\n" } print qq| |; # escape callback $callback = $form->escape($callback); my $i; foreach my $ref (@{ $form->{ALL} }) { $i++; $i %= 2; print qq| |; my $accno = $form->escape($ref->{accno}); $column_data{accno} = qq||; $column_data{description} = qq||; for (@column_index) { print "$column_data{$_}\n" } print "\n"; } print qq|
$form->{helpref}$form->{title}
{script}?action=edit_gifi&coa=1&accno=$accno&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{accno}$ref->{description} 
|; } sub add_gifi { $form->{title} = $locale->text('Add GIFI'); # construct callback $form->{callback} = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}"; $form->{coa} = 1; &gifi_header; &gifi_footer; } sub edit_gifi { $form->{title} = $locale->text('Edit GIFI'); AM->get_gifi(\%myconfig, \%$form); $form->error($locale->text('Account does not exist!')) unless $form->{accno}; &gifi_header; &gifi_footer; } sub gifi_header { for (qw(accno description)) { $form->{$_} = $form->quote($form->{$_}) } $form->helpref("gifi", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('GIFI').qq|
|.$locale->text('Description').qq|
|; } sub gifi_footer { $form->hide_form(qw(callback path login)); my %button; $button{'Save'} = { ndx => 3, key => 'S', value => $locale->text('Save') }; if ($form->{accno}) { if ($form->{orphaned}) { $button{'Delete'} = { ndx => 16, key => 'D', value => $locale->text('Delete') }; } } if ($form->{coa}) { $button{'Copy to COA'} = { ndx => 7, key => 'C', value => $locale->text('Copy to COA') }; } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub save_gifi { $form->isblank("accno", $locale->text('GIFI missing!')); AM->save_gifi(\%myconfig, \%$form); $form->redirect($locale->text('GIFI saved!')); } sub copy_to_coa { $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"; &account_header; &form_footer; } sub delete_gifi { AM->delete_gifi(\%myconfig, \%$form); $form->redirect($locale->text('GIFI deleted!')); } sub add_department { $form->{title} = $locale->text('Add Department'); $form->{role} = "P"; $form->{callback} = "$form->{script}?action=add_department&path=$form->{path}&login=$form->{login}" unless $form->{callback}; &department_header; &form_footer; } sub edit_department { $form->{title} = $locale->text('Edit Department'); AM->get_department(\%myconfig, \%$form); &department_header; &form_footer; } sub list_department { AM->departments(\%myconfig, \%$form); my $href = "$form->{script}?action=list_department&direction=$form->{direction}&path=$form->{path}&login=$form->{login}"; $form->sort_order(); $form->{callback} = "$form->{script}?action=list_department&direction=$form->{direction}&path=$form->{path}&login=$form->{login}"; my $callback = $form->escape($form->{callback}); $form->{title} = $locale->text('Departments'); my @column_index = qw(description cost profit); my %column_data; $column_data{description} = qq||.$locale->text('Description').qq||; $column_data{cost} = qq||.$locale->text('Cost Center').qq||; $column_data{profit} = qq||.$locale->text('Profit Center').qq||; $form->helpref("list_department", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
|; for (@column_index) { print "$column_data{$_}\n" } print qq| |; my $i; my $costcenter; my $profitcenter; foreach my $ref (@{ $form->{ALL} }) { $i++; $i %= 2; print qq| |; $costcenter = ($ref->{role} eq "C") ? "*" : " "; $profitcenter = ($ref->{role} eq "P") ? "*" : " "; $column_data{description} = qq||; $column_data{cost} = qq||; $column_data{profit} = qq||; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } print qq|
{script}?action=edit_department&id=$ref->{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{description}$costcenter$profitcenter

{script}> |; $form->{type} = "department"; $form->hide_form(qw(type callback path login)); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub department_header { $form->{description} = $form->quote($form->{description}); my $rows; my $description; if (($rows = $form->numtextrows($form->{description}, 60)) > 1) { $description = qq||; } else { $description = qq||; } my %checked; $checked{C} = "checked" if $form->{role} eq "C"; $checked{P} = "checked" if $form->{role} eq "P"; $form->helpref("department", $myconfig{countrycode}); $form->header; print qq|
{script}> {id}>
$form->{helpref}$form->{title}
|.$locale->text('Description').qq| $description
|.$locale->text('Cost Center').qq| |.$locale->text('Profit Center').qq|
|; } sub save_department { $form->isblank("description", $locale->text('Description missing!')); AM->save_department(\%myconfig, \%$form); $form->redirect($locale->text('Department saved!')); } sub delete_department { AM->delete_department(\%myconfig, \%$form); $form->redirect($locale->text('Department deleted!')); } sub add_business { $form->{title} = $locale->text('Add Business'); $form->{callback} = "$form->{script}?action=add_business&path=$form->{path}&login=$form->{login}" unless $form->{callback}; &business_header; &form_footer; } sub edit_business { $form->{title} = $locale->text('Edit Business'); AM->get_business(\%myconfig, \%$form); &business_header; $form->{orphaned} = 1; &form_footer; } sub list_business { AM->business(\%myconfig, \%$form); my $href = "$form->{script}?action=list_business&direction=$form->{direction}&path=$form->{path}&login=$form->{login}"; $form->sort_order(); $form->{callback} = "$form->{script}?action=list_business&direction=$form->{direction}&path=$form->{path}&login=$form->{login}"; my $callback = $form->escape($form->{callback}); $form->{title} = $locale->text('Type of Business'); my @column_index = qw(description discount); my %column_data; $column_data{description} = qq||.$locale->text('Description').qq||; $column_data{discount} = qq||.$locale->text('Discount').qq| %|; $form->helpref("list_business", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
|; for (@column_index) { print "$column_data{$_}\n" } print qq| |; my $i; my $discount; foreach my $ref (@{ $form->{ALL} }) { $i++; $i %= 2; print qq| |; $discount = $form->format_amount(\%myconfig, $ref->{discount} * 100, $form->{precision}, " "); $column_data{description} = qq||; $column_data{discount} = qq||; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } print qq|
{script}?action=edit_business&id=$ref->{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{description}$discount

{script}> |; $form->{type} = "business"; $form->hide_form(qw(type callback path login)); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub business_header { $form->{description} = $form->quote($form->{description}); $form->{discount} = $form->format_amount(\%myconfig, $form->{discount} * 100); $form->helpref("business", $myconfig{countrycode}); $form->header; print qq|
{script}> {id}>
$form->{helpref}$form->{title}
|.$locale->text('Type of Business').qq|
|.$locale->text('Discount').qq| % {discount}>
|; } sub save_business { $form->isblank("description", $locale->text('Description missing!')); AM->save_business(\%myconfig, \%$form); $form->redirect($locale->text('Business saved!')); } sub delete_business { AM->delete_business(\%myconfig, \%$form); $form->redirect($locale->text('Business deleted!')); } sub add_payment_method { $form->{title} = $locale->text('Add Payment Method'); $form->{callback} = "$form->{script}?action=add_payment_method&path=$form->{path}&login=$form->{login}" unless $form->{callback}; $form->{roundchange} = 0; &paymentmethod_header; &form_footer; } sub edit_paymentmethod { $form->{title} = $locale->text('Edit Payment Method'); AM->get_paymentmethod(\%myconfig, \%$form); &paymentmethod_header; $form->{orphaned} = 1; &form_footer; } sub list_paymentmethod { AM->paymentmethod(\%myconfig, \%$form); my $href = "$form->{script}?action=list_paymentmethod&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}"; $form->sort_order(); $form->{callback} = "$form->{script}?action=list_paymentmethod&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}"; my $callback = $form->escape($form->{callback}); $form->{title} = $locale->text('Method of Payment'); my @column_index = qw(rn description fee roundchange up down); my %column_data; $column_data{rn} = qq||.$locale->text('No').qq||; $column_data{description} = qq||.$locale->text('Description').qq||; $column_data{fee} = qq||.$locale->text('Fee').qq||; $column_data{roundchange} = qq||.$locale->text('Round').qq||; $column_data{up} = qq| |; $column_data{down} = qq| |; $form->helpref("list_paymentmethod", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
|; for (@column_index) { print "$column_data{$_}\n" } print qq| |; my $i; my $fee; foreach my $ref (@{ $form->{ALL} }) { $i++; $i %= 2; print qq| |; $fee = $form->format_amount(\%myconfig, $ref->{fee}, $form->{precision}, " "); $roundchange = $form->format_amount(\%myconfig, $ref->{roundchange}, $form->{precision}, " "); $column_data{rn} = qq||; $column_data{description} = qq||; $column_data{fee} = qq||; $column_data{roundchange} = qq||; $column_data{up} = qq||; $column_data{down} = qq||; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } print qq|
$ref->{rn}{script}?action=edit_paymentmethod&id=$ref->{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{description}$fee$roundchange{script}?action=move&db=paymentmethod&fld=id&id=$ref->{id}&move=up&path=$form->{path}&login=$form->{login}&callback=$callback>+{script}?action=move&db=paymentmethod&fld=id&id=$ref->{id}&move=down&path=$form->{path}&login=$form->{login}&callback=$callback>-

{script}> |; $form->{type} = "paymentmethod"; $form->hide_form(qw(type callback path login)); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub paymentmethod_header { $form->{description} = $form->quote($form->{description}); $form->{fee} = $form->format_amount(\%myconfig, $form->{fee}, $form->{precision}); $roundchange{$form->{roundchange}} = "checked"; $form->helpref("paymentmethod", $myconfig{countrycode}); $form->header; print qq|
{script}> {id}>
$form->{helpref}$form->{title}
|.$locale->text('Payment Method').qq|
|.$locale->text('Round').qq| 0 |.$form->format_amount(\%myconfig, 0.05, $form->{precision}).qq| |.$form->format_amount(\%myconfig, 0.10, $form->{precision}).qq| |.$form->format_amount(\%myconfig, 0.20, $form->{precision}).qq| |.$form->format_amount(\%myconfig, 0.25, $form->{precision}).qq| |.$form->format_amount(\%myconfig, 0.50, $form->{precision}).qq| |.$form->format_amount(\%myconfig, 1.00, $form->{precision}).qq|
|.$locale->text('Fee').qq| {fee}>
|; } sub save_paymentmethod { $form->isblank("description", $locale->text('Description missing!')); AM->save_paymentmethod(\%myconfig, \%$form); $form->redirect($locale->text('Payment Method saved!')); } sub delete_paymentmethod { AM->delete_paymentmethod(\%myconfig, \%$form); $form->redirect($locale->text('Payment Method deleted!')); } sub add_sic { $form->{title} = $locale->text('Add SIC'); $form->{callback} = "$form->{script}?action=add_sic&path=$form->{path}&login=$form->{login}" unless $form->{callback}; &sic_header; &form_footer; } sub edit_sic { $form->{title} = $locale->text('Edit SIC'); $form->{code} =~ s/\\'/'/g; $form->{code} =~ s/\\\\/\\/g; AM->get_sic(\%myconfig, \%$form); $form->{id} = $form->{code}; &sic_header; $form->{orphaned} = 1; &form_footer; } sub list_sic { AM->sic(\%myconfig, \%$form); my $href = "$form->{script}?action=list_sic&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}"; $form->sort_order(); $form->{callback} = "$form->{script}?action=list_sic&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}"; my $callback = $form->escape($form->{callback}); $form->{title} = $locale->text('Standard Industrial Codes'); my @column_index = $form->sort_columns(qw(code description)); my %column_data; $column_data{code} = qq||.$locale->text('Code').qq||; $column_data{description} = qq||.$locale->text('Description').qq||; $form->helpref("list_sic", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
|; for (@column_index) { print "$column_data{$_}\n" } print qq| |; my $i; foreach my $ref (@{ $form->{ALL} }) { $i++; $i %= 2; if ($ref->{sictype} eq 'H') { print qq| |; $column_data{code} = qq||; $column_data{description} = qq||; } else { print qq| |; $column_data{code} = qq||; $column_data{description} = qq||; } for (@column_index) { print "$column_data{$_}\n" } print qq| |; } print qq|
{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{code}$ref->{description}
{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{code}$ref->{description}

{script}> |; $form->{type} = "sic"; $form->hide_form(qw(type callback path login)); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub sic_header { for (qw(code description)) { $form->{$_} = $form->quote($form->{$_}) } my %checked; $checked{H} = ($form->{sictype} eq 'H') ? "checked" : ""; $form->helpref("sic", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Code').qq|
|.$locale->text('Heading').qq|
|.$locale->text('Description').qq|
|; } sub save_sic { $form->isblank("code", $locale->text('Code missing!')); $form->isblank("description", $locale->text('Description missing!')); AM->save_sic(\%myconfig, \%$form); $form->redirect($locale->text('SIC saved!')); } sub delete_sic { AM->delete_sic(\%myconfig, \%$form); $form->redirect($locale->text('SIC deleted!')); } sub add_language { $form->{title} = $locale->text('Add Language'); $form->{callback} = "$form->{script}?action=add_language&path=$form->{path}&login=$form->{login}" unless $form->{callback}; &language_header; &form_footer; } sub edit_language { $form->{title} = $locale->text('Edit Language'); $form->{code} =~ s/\\'/'/g; $form->{code} =~ s/\\\\/\\/g; AM->get_language(\%myconfig, \%$form); $form->{id} = $form->{code}; &language_header; $form->{orphaned} = 1; &form_footer; } sub list_language { AM->language(\%myconfig, \%$form); my $href = "$form->{script}?action=list_language&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}"; $form->sort_order(); $form->{callback} = "$form->{script}?action=list_language&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}"; my $callback = $form->escape($form->{callback}); $form->{title} = $locale->text('Languages'); my @column_index = $form->sort_columns(qw(code description)); my %column_data; $column_data{code} = qq||.$locale->text('Code').qq||; $column_data{description} = qq||.$locale->text('Description').qq||; $form->helpref("list_language", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
|; for (@column_index) { print "$column_data{$_}\n" } print qq| |; my $i; foreach my $ref (@{ $form->{ALL} }) { $i++; $i %= 2; print qq| |; $column_data{code} = qq||; $column_data{description} = qq||; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } print qq|
{script}?action=edit_language&code=$ref->{code}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{code}$ref->{description}

{script}> |; $form->{type} = "language"; $form->hide_form(qw(type callback path login)); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub language_header { for (qw(code description)) { $form->{$_} = $form->quote($form->{$_}) } $form->helpref("language", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Code').qq|
|.$locale->text('Description').qq|
|; } sub save_language { $form->isblank("code", $locale->text('Code missing!')); $form->isblank("description", $locale->text('Description missing!')); $form->{code} =~ s/(\.\.|\*)//g; AM->save_language(\%myconfig, \%$form); if (! -d "$templates/$myconfig{dbname}/$form->{code}") { umask(002); if (mkdir "$templates/$myconfig{dbname}/$form->{code}", oct("771")) { umask(007); opendir TEMPLATEDIR, "$templates/$myconfig{dbname}" or $form->error("$templates/$myconfig{dbname} : $!"); my @templates = grep !/^(\.|\.\.)/, readdir TEMPLATEDIR; closedir TEMPLATEDIR; foreach my $file (@templates) { if (-f "$templates/$myconfig{dbname}/$file") { open(TEMP, "$templates/$myconfig{dbname}/$file") or $form->error("$templates/$myconfig{dbname}/$file : $!"); open(NEW, ">$templates/$myconfig{dbname}/$form->{code}/$file") or $form->error("$templates/$myconfig{dbname}/$form->{code}/$file : $!"); while (my $line = ) { print NEW $line; } close(TEMP); close(NEW); } } } else { $form->error("${templates}/$form->{code} : $!"); } } $form->redirect($locale->text('Language saved!')); } sub delete_language { $form->{title} = $locale->text('Confirm!'); $form->header; print qq| {script}> |; for (qw(action nextsub)) { delete $form->{$_} } $form->hide_form; print qq|

$form->{title}

|.$locale->text('Deleting a language will also delete the templates for the language').qq| $form->{invnumber}

|; } sub yes_delete_language { AM->delete_language(\%myconfig, \%$form); # delete templates my $dir = "$templates/$myconfig{dbname}/$form->{code}"; if (-d $dir) { unlink <$dir/*>; rmdir "$templates/$myconfig{dbname}/$form->{code}"; } $form->redirect($locale->text('Language deleted!')); } sub display_stylesheet { $form->{file} = "css/$myconfig{stylesheet}"; &display_form; } sub list_templates { AM->language(\%myconfig, \%$form); if (! @{ $form->{ALL} }) { $form->{file} = "$templates/$myconfig{dbname}/$form->{file}"; &display_form; exit; } unshift @{ $form->{ALL} }, { code => '.', description => $locale->text('Default Template') }; my $href = "$form->{script}?action=list_templates&direction=$form->{direction}&oldsort=$form->{oldsort}&file=$form->{file}&path=$form->{path}&login=$form->{login}"; $form->sort_order(); chomp $myconfig{dbname}; $form->{file} =~ s/$templates\/$myconfig{dbname}//; $form->{file} =~ s/\///; $form->{title} = $form->{file}; my @column_index = $form->sort_columns(qw(code description)); my %column_data; $column_data{code} = qq||.$locale->text('Code').qq||; $column_data{description} = qq||.$locale->text('Description').qq||; $form->helpref("list_templates", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
|; for (@column_index) { print "$column_data{$_}\n" } print qq| |; my $i; foreach my $ref (@{ $form->{ALL} }) { $i++; $i %= 2; print qq| |; $column_data{code} = qq||; $column_data{description} = qq||; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } print qq|
{script}?action=display_form&file=$templates/$myconfig{dbname}/$ref->{code}/$form->{file}&path=$form->{path}&login=$form->{login}>$ref->{code}$ref->{description}

|; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq| |; } sub display_form { $form->{callback} = qq|$form->{script}?action=display_form&file=$form->{file}&path=$form->{path}&login=$form->{login}| unless $form->{callback}; my $callback = $form->escape($form->{callback}); $form->{file} =~ s/^(.:)*?\/|\.\.\/|\.\///g; $form->{file} =~ s/^\/*//g; $form->{file} =~ s/$userspath//; $form->{file} =~ s/$memberfile//; @f = split /\//, $form->{file}; $file = pop @f; $basedir = join '/', @f; AM->load_template(\%$form); $form->{title} = $form->{file}; $form->{body} =~ s/<%include\s+?(\S+)?\s+?(\S+)?%>/$1 <%include $2%>/g; $form->{body} =~ s/<%include\s+?(\S+)?%>/{script}\?action=display_form&file=$basedir\/$1&path=$form->{path}&login=$form->{login}&callback=$callback>$1<\/a>/g; $form->{body} =~ s/<%templates%>/$templates\/$myconfig{dbname}/g; $form->{body} =~ s/<%language_code%>/$form->{language_code}/g; $form->{body} =~ s/<%if .*?%>|<%foreach .*?%>|<%end .*?%>//g; if ($form->{file} =~ /\.txt$/) { $str = $form->{body}; while ($str) { $lpos = index $str, '<%'; $rpos = index $str, '%>'; $pos = $rpos + 2; $tmpstr = substr $str, $lpos, $rpos - $lpos + 2; if ($tmpstr =~ /(align|width|offset)=/) { $var = substr $tmpstr, 2; $var =~ s/\s.*//; $form->{temp} = $var; $tmpstr =~ s/$var/temp/; $tmpstr = $form->format_line($tmpstr); $form->{body} =~ s/<%((.*?) (align|width|offset)=.*?)%>/$tmpstr/; } $str = substr $str, $pos; } } $form->{body} =~ s/<%(.*?)%>/$1/g; if ($form->{file} !~ /\.(html|xml)$/) { $form->{body} = "
\n$form->{body}\n
"; } $form->helpref("display_form", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
$form->{body} |; $extension = $form->{file}; $extension =~ s/.*?\.//; print qq|
{script}> |; $form->{type} = "template"; $form->hide_form(qw(file type path login callback)); print qq|

|; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq| |; } sub edit_template { AM->load_template(\%$form); $form->{title} = $form->{file}; # convert   to &nbsp; $form->{body} =~ s/ /&nbsp;/gi; $form->{callback} = "$form->{script}?action=display_form&file=$form->{file}&path=$form->{path}&login=$form->{login}" unless $form->{callback}; $form->helpref("edit_form", $myconfig{countrycode}); $form->header; $form->{type} = "template"; print qq|
{script}>
$form->{helpref}$form->{title}

|; $form->hide_form(qw(file type path login callback)); if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub save_template { AM->save_template(\%$form); $form->redirect($locale->text('Template saved!')); } sub taxes { # get tax account numbers AM->taxes(\%myconfig, \%$form); my $i = 0; foreach my $ref (@{ $form->{taxrates} }) { $i++; $form->{"taxrate_$i"} = $ref->{rate}; $form->{"taxdescription_$i"} = $ref->{description}; for (qw(accno taxnumber validto)) { $form->{"${_}_$i"} = $ref->{$_} } $form->{taxaccounts} .= "$ref->{id}_$i "; } chop $form->{taxaccounts}; &display_taxes; } sub display_taxes { $form->{title} = $locale->text('Taxes'); $form->{type} = "taxes"; $form->helpref("display_taxes", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|; my $sametax; for (split(/ /, $form->{taxaccounts})) { my ($null, $i) = split /_/, $_; $form->{"taxrate_$i"} = $form->format_amount(\%myconfig, $form->{"taxrate_$i"}, undef, 0); $form->hide_form(map { "${_}_$i" } qw(taxdescription accno)); print qq| |; if ($form->{"taxdescription_$i"} eq $sametax) { print qq| |; } else { print qq||; print qq||; } print qq| |; $sametax = $form->{"taxdescription_$i"}; } print qq|
|.$locale->text('Account').qq| |.$locale->text('Description').qq| |.$locale->text('Rate').qq| (%) |.$locale->text('Number').qq| |.$locale->text('Valid To').qq|
$form->{"accno_$i"}$form->{"taxdescription_$i"}{"taxrate_$i"}>
|; $form->hide_form(qw(type taxaccounts path login)); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub update { &{ "update_$form->{type}" } } sub update_taxes { my @a = split / /, $form->{taxaccounts}; my $ndx = $#a + 1; my @t; my $j; my $k; foreach my $item (@a) { my ($accno, $i) = split /_/, $item; push @t, $accno; if ($form->{"validto_$i"}) { $j = $i + 1; if ($form->{"taxdescription_$i"} ne $form->{"taxdescription_$j"}) { #insert line for ($j = $ndx + 1; $j > $i; $j--) { $k = $j - 1; for (qw(taxrate taxdescription taxnumber validto)) { $form->{"${_}_$j"} = $form->{"${_}_$k"} } } $ndx++; $k = $i + 1; for (qw(taxdescription taxnumber)) { $form->{"${_}_$k"} = $form->{"${_}_$i"} } for (qw(taxrate validto)) { $form->{"${_}_$k"} = "" } push @t, $accno; } } else { # remove line $j = $i + 1; if ($form->{"taxdescription_$i"} eq $form->{"taxdescription_$j"}) { for ($j = $i + 1; $j <= $ndx; $j++) { $k = $j + 1; for (qw(taxrate taxdescription taxnumber validto)) { $form->{"${_}_$j"} = $form->{"${_}_$k"} } } $ndx--; splice @t, $i-1, 1; } } } $i = 1; $form->{taxaccounts} = ""; for (@t) { $form->{taxaccounts} .= "${_}_$i "; $i++; } chop $form->{taxaccounts}; &display_taxes; } sub defaults { # get defaults for account numbers and last numbers AM->defaultaccounts(\%myconfig, \%$form); foreach my $key (keys %{ $form->{accno} }) { foreach my $accno (sort keys %{ $form->{accno}{$key} }) { $form->{"select$key"} .= "$accno--$form->{accno}{$key}{$accno}{description}\n"; if ($form->{accno}{$key}{$accno}{id} == $form->{defaults}{$key}) { $form->{$key} = qq|$accno--$form->{accno}{$key}{$accno}{description}|; } } } for (qw(accno defaults)) { delete $form->{$_} } my %checked; $checked{cash} = "checked" if $form->{method} eq 'cash'; $checked{cdt} = "checked" if $form->{cdt}; $checked{namesbynumber} = "checked" if $form->{namesbynumber}; $checked{company} = "checked" unless $form->{typeofcontact}; $checked{person} = "checked" if $form->{typeofcontact} eq 'person'; $roundchange{$form->{roundchange}} = "checked"; $form->{title} = $locale->text('System Defaults'); $form->helpref("system_defaults", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Company Name').qq|
|.$locale->text('Address').qq|
|.$locale->text('Phone').qq|
|.$locale->text('Fax').qq|
|.$locale->text('E-Mail').qq|
|.$locale->text('Website').qq|
|.$locale->text('Business Number').qq|
|.$locale->text('Reporting Method').qq|  |.$locale->text('Cash').qq|
|.$locale->text('Cash Discount').qq|  |.$locale->text('Taxable').qq|
|.$locale->text('Precision').qq|
|.$locale->text('Reference Documents').qq|
|.$locale->text('Round').qq| 0.01
0.05
0.10
0.20
0.50
1.00
|.$locale->text('Weight Unit').qq|
|.$locale->text('Sort Names by').qq|  |.$locale->text('Number').qq|
|.$locale->text('Type of Contact').qq|  |.$locale->text('Company').qq|  |.$locale->text('Person').qq|
|.$locale->text('Last Numbers & Default Accounts').qq|
|.$locale->text('Inventory').qq|
|.$locale->text('Income').qq|
|.$locale->text('Expense').qq|
|.$locale->text('Foreign Exchange Gain').qq|
|.$locale->text('Foreign Exchange Loss').qq|
|.$locale->text('Cash Over/Short').qq|
|.$locale->text('GL Reference Number').qq|
|.$locale->text('Sales Invoice/AR Transaction Number').qq|
|.$locale->text('Sales Order Number').qq|
|.$locale->text('Vendor Invoice/AP Transaction Number').qq|
|.$locale->text('Batch Number').qq|
|.$locale->text('Voucher Number').qq|
|.$locale->text('Purchase Order Number').qq|
|.$locale->text('Sales Quotation Number').qq|
|.$locale->text('RFQ Number').qq|
|.$locale->text('Part Number').qq|
|.$locale->text('Job/Project Number').qq|
|.$locale->text('Employee Number').qq|
|.$locale->text('Customer Number').qq|
|.$locale->text('Vendor Number').qq|
|; $form->{optional} = "company address tel fax companyemail companywebsite yearend weightunit businessnumber closedto revtrans audittrail method cdt namesbynumber typeofcontact roundchange referenceurl"; @f = qw(closedto revtrans audittrail); for (qw(printer opendrawer poledisplay poledisplayon)) { if ($form->{$_}) { push @f, $_; $form->{optional} .= " $_"; } } for (keys %$form) { if ($_ =~ /_\d+/) { push @f, $_; $form->{optional} .= " $_"; } } $form->hide_form(@f) if @f; $form->hide_form(qw(optional path login)); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub workstations { # get printers etc. if (! $form->{have}) { AM->workstations(\%myconfig, \%$form); } $form->{title} = $locale->text('Workstations'); $form->{numworkstations} ||= 1; $form->{numprinters} ||= 1; $form->{numprinters_1} ||= 1; $form->helpref("workstations", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Default').qq|
|; for (2 .. $form->{numprinters}) { print qq| |; } $checked = "checked" if $form->{"poledisplayon"}; print qq| |; print qq|
  |.$locale->text('Description').qq| |.$locale->text('Command').qq|
|.$locale->text('Printer').qq|
 
|.$locale->text('Cash Drawer').qq|  
|.$locale->text('Pole Display').qq|   |.$locale->text('On').qq|
|.$locale->text('Workstations').qq|
|; for $i (1 .. $form->{numworkstations}) { print qq| |; for (2 .. $form->{"numprinters_$i"}) { print qq| |; } $checked = ($form->{"poledisplayon_$i"}) ? "checked" : ""; print qq| |; if ($i != $form->{numworkstations}) { print qq| |; } } print qq|
|.$locale->text('Workstation').qq|
|.$locale->text('Printer').qq|
 
|.$locale->text('Cash Drawer').qq|  
|.$locale->text('Pole Display').qq|   |.$locale->text('On').qq|
|; $form->hide_form(qw(numprinters numworkstations path login)); $form->hide_form(map { "numprinters_$_" } (1 .. $form->{numworkstations})); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub update_workstations { @p = (); for (1 .. $form->{numprinters}) { if ($form->{"printer_$_"} && $form->{"command_$_"}) { push @p, { printer => $form->{"printer_$_"}, command => $form->{"command_$_"} }; } } $i = 1; for (@p) { $form->{"printer_$i"} = $_->{printer}; $form->{"command_$i"} = $_->{command}; $i++; } $form->{numprinters} = $i; %ws = (); $j = 1; for $i (1 .. $form->{numworkstations}) { if ($form->{"workstation_$i"}) { $ws{$j}{workstation} = $form->{"workstation_$i"}; $ws{$j}{poledisplayon} = $form->{"poledisplayon_$i"}; $ws{$j}{cashdrawer} = $form->{"cashdrawer_$i"}; $ws{$j}{poledisplay} = $form->{"poledisplay_$i"}; @{$ws{$j}{p}} = (); $form->{"numprinters_$i"}++; for (1 .. $form->{"numprinters_$i"}) { if ($form->{"printer_${i}_$_"} && $form->{"command_${i}_$_"}) { push @{$ws{$j}{p}}, { printer => $form->{"printer_${i}_$_"}, command => $form->{"command_${i}_$_"} }; } } $j++; } for (qw(workstation poledisplayon cashdrawer poledisplay)) { delete $form->{"${_}_$i"} } for (1 .. $form->{"numprinters_$i"}) { delete $form->{"printer_${i}_$_"}; delete $form->{"command_${i}_$_"}; } delete $form->{"numprinters_$i"}; } $i = 1; for $j (sort { $a <=> $b } keys %ws) { $form->{"workstation_$i"} = $ws{$j}{workstation}; $form->{"poledisplayon_$i"} = $ws{$j}{poledisplayon}; $form->{"cashdrawer_$i"} = $ws{$j}{cashdrawer}; $form->{"poledisplay_$i"} = $ws{$j}{poledisplay}; $k = 1; for (@{$ws{$j}{p}}) { $form->{"printer_${i}_$k"} = $_->{printer}; $form->{"command_${i}_$k"} = $_->{command}; $k++; } $form->{"numprinters_$i"} = $k; $i++; } $form->{numworkstations} = $i; $form->{have} = 1; &workstations; } sub save_workstations { if (AM->save_workstations(\%myconfig, \%$form)) { $form->redirect($locale->text('Workstations saved!')); } else { $form->error($locale->text('Failed to save workstations!')); } } sub config { AM->get_defaults(\%myconfig, \%$form); for (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) { $form->{selectdateformat} .= "$_\n" } for (qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00)) { $form->{selectnumberformat} .= "$_\n" } $form->{signature} = $form->quote($myconfig{signature}); $form->{signature} =~ s/\\n/\n/g; $form->{oldpassword} = $myconfig{password}; my %countrycodes = User->country_codes; for (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) { $form->{selectcountrycode} .= qq|${_}--$countrycodes{$_}|; } $form->{selectcountrycode} = qq|--English\n$form->{selectcountrycode}|; opendir CSS, "css/."; my @all = grep /.*\.css$/, readdir CSS; closedir CSS; for (@all) { $form->{selectstylesheet} .= "$_\n" } $form->{selectstylesheet} .= "\n"; if (@{ $form->{all_printer} }) { $form->{selectprinter} = "\n"; for (@{ $form->{all_printer} }) { $form->{selectprinter} .= "$_->{printer}\n" } chomp $form->{selectprinter}; $printer = qq| |.$locale->text('Printer').qq| |; $myconfig{outputformat} ||= "Postscript"; } my $selectoutputformat = qq|html--|.$locale->text('html').qq| xml--|.$locale->text('XML').qq| txt--|.$locale->text('Text'); if ($latex) { $selectoutputformat .= qq| ps--Postscript pdf--PDF|; } my $outputformat = qq| |.$locale->text('Output Format').qq| |; $form->{title} = $locale->text('Edit Preferences for').qq| $form->{login}|; $form->helpref("user_preferences", $myconfig{countrycode}); $form->{type} = "preferences"; $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Password').qq|
|.$locale->text('Confirm').qq|
|.$locale->text('Signature').qq|
$outputformat $printer
|.$locale->text('Date Format').qq|
|.$locale->text('Number Format').qq|
|.$locale->text('Dropdown Limit').qq|
|.$locale->text('Menu Width').qq|
|.$locale->text('Language').qq|
|.$locale->text('Session Timeout').qq|
|.$locale->text('Stylesheet').qq|
|; $form->hide_form(qw(type name email oldpassword path login)); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub save_defaults { if (AM->save_defaults(\%myconfig, \%$form)) { $form->redirect($locale->text('Defaults saved!')); } else { $form->error($locale->text('Cannot save defaults!')); } } sub save_taxes { if (AM->save_taxes(\%myconfig, \%$form)) { $form->redirect($locale->text('Taxes saved!')); } else { $form->error($locale->text('Cannot save taxes!')); } } sub save_preferences { $form->{stylesheet} = $form->{usestylesheet}; if ($form->{new_password} eq $form->{oldpassword}) { $form->{encrypted} = 1; } else { if ($form->{new_password} ne $form->{confirm_password}) { $form->error($locale->text('Password does not match!')); } } $form->{password} = $form->{new_password}; $form->{pin} = $myconfig{pin}; if (AM->save_preferences(\%$form, $memberfile, $userspath)) { $form->redirect($locale->text('Preferences saved!')); } else { $form->error($locale->text('Cannot save preferences!')); } } sub backup { if ($form->{media} eq 'email') { $form->error($locale->text('No email address for')." $myconfig{name}") unless ($myconfig{email}); $form->{OUT} = "$sendmail"; } $SIG{INT} = 'IGNORE'; AM->backup(\%myconfig, \%$form, $userspath, $gzip); if ($form->{media} eq 'email') { $form->redirect($locale->text('Backup sent to').qq| $myconfig{email}|); } } sub restore { $form->{title} = $locale->text('Restore'); $form->helpref("restore", $myconfig{countrycode}); $form->header; $form->error($locale->text('Must be logged in as admin!')) unless $form->{admin};; $form->{nextsub} = "get_dataset"; $form->{action} = "continue"; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Backup File').qq|
|; $form->hide_form(qw(nextsub login path)); print qq|
|; } sub get_dataset { if ($form->{"content-type"} =~ /application\/.*?gzip/) { if ($gzip) { ($gzip) = split / /, $gzip; } else { unlink "$userspath/$form->{tmpfile}"; $form->error($locale->text('Cannot process gzipped file!')); } @args = ("$gzip", '-d', "$userspath/$form->{tmpfile}"); system(@args) == 0 or $form->error($locale->text('gzip failed!')); $form->{tmpfile} =~ s/\..*//; @e = split /\./, $form->{filename}; pop @e; if (@e) { $form->{filename} = join '.', @e; } } open(FH, "$userspath/$form->{tmpfile}") or $form->error("$userspath/$form->{tmpfile} : $!"); open(SP, ">$spool/$myconfig{dbname}/$form->{filename}") or $form->error("$spool/$myconfig{dbname}/$form->{filename} : $!"); for () { print SP $_; if (/-- Version:/) { @d = split / /, $_; $form->{restoredbversion} = $d[2]; chop $form->{restoredbversion}; } if (/-- Dataset:/) { @d = split / /, $_; $form->{restoredbname} = $d[2]; chop $form->{restoredbname}; } } close(FH); close(SP); unlink "$userspath/$form->{tmpfile}"; unless ($form->{restoredbversion} && $form->{restoredbname}) { unlink "$spool/$myconfig{dbname}/$form->{filename}"; $form->error($locale->text('Not a SQL-Ledger backup!')); } if ($myconfig{dbname} ne $form->{restoredbname}) { $dbname = qq| |.$locale->text('Dataset different!').qq|
$myconfig{dbname} |. $locale->text('will be restored with data from').qq| $form->{restoredbname} |; } if ($form->{dbversion} ne $form->{restoredbversion}) { if ($form->{restoredbversion} gt $form->{dbversion}) { unlink "$spool/$myconfig{dbname}/$form->{filename}"; $form->error($locale->text('Dataset version newer, SQL-Ledger must first be upgraded!')); } $dbversion = qq| |.$locale->text('Dataset Version different!').qq|
|. $locale->text('Dataset will be upgraded to').qq| $form->{dbversion} |; } $form->{title} = $locale->text('Restore'); $form->helpref("restore", $myconfig{countrycode}); $form->header; print qq|
{script}> $dbname $dbversion
$form->{helpref}$form->{title}

|; $form->{nextsub} = "do_restore"; $form->{action} = "do_restore"; $form->hide_form(qw(restoredbversion filename nextsub action login path)); print qq|
|; } sub do_restore { $form->header; $form->error($locale->text('Must be logged in as admin!')) unless $form->{admin}; open FH, ">$userspath/$myconfig{dbname}.LCK" or $form->error($!); close(FH); $form->info($locale->text('Restoring dataset version')." $form->{restoredbversion}\n"); if ($ok = AM->restore(\%myconfig, \%$form, "$spool/$myconfig{dbname}/$form->{filename}")) { $form->info($locale->text('done')."\n"); } else { $form->info($locale->text('failed!')."\n"); } unlink "$spool/$myconfig{dbname}/$form->{filename}"; if ($ok) { if ($form->{dbversion} ne $form->{restoredbversion}) { &upgrade_dataset; } } unlink "$userspath/$myconfig{dbname}.LCK"; } sub upgrade_dataset { $user = new User $memberfile, $form->{login}; open FH, ">$userspath/$myconfig{dbname}.LCK" or $form->error($!); for (qw(dbname dbhost dbport dbdriver dbuser)) { $form->{$_} = $myconfig{$_} } $form->{dbpasswd} = unpack 'u', $myconfig{dbpasswd}; $form->info($locale->text('Upgrading to Version')." $form->{dbversion} ... \n"); # required for Oracle $form->{dbdefault} = $sid; $user->dbupdate(\%$form); unlink "$userspath/$myconfig{dbname}.LCK"; $form->info($locale->text('done')); } sub audit_control { $form->{title} = $locale->text('Audit Control'); AM->closedto(\%myconfig, \%$form); my %checked; for (qw(revtrans audittrail)) { $checked{$_} = "checked" if $form->{$_} } $form->helpref("audit_control", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Enforce transaction reversal for all dates').qq|
|.$locale->text('Close Books up to').qq| {closedto}>
|.$locale->text('Activate Audit trail').qq|
|.$locale->text('Remove Audit trail up to').qq|

|; $form->{nextsub} = "doclose"; $form->{action} = "doclose"; $form->hide_form(qw(nextsub action login path)); print qq|
|; } sub doclose { AM->closebooks(\%myconfig, \%$form); my $msg; if ($form->{revtrans}) { $msg = $locale->text('Transaction reversal enforced for all dates'); } else { if ($form->{closedto}) { $msg = $locale->text('Books closed up to') ." ".$locale->date(\%myconfig, $form->{closedto}, 1); } else { $msg = $locale->text('Books are open'); } } $msg .= "

"; if ($form->{audittrail}) { $msg .= $locale->text('Audit trail enabled'); } else { $msg .= $locale->text('Audit trail disabled'); } $msg .= "

"; if ($form->{removeaudittrail}) { $msg .= $locale->text('Audit trail removed up to') ." ".$locale->date(\%myconfig, $form->{removeaudittrail}, 1); } $form->redirect($msg); } sub add_warehouse { $form->{title} = $locale->text('Add Warehouse'); $form->{callback} = "$form->{script}?action=add_warehouse&path=$form->{path}&login=$form->{login}" unless $form->{callback}; &warehouse_header; &form_footer; } sub edit_warehouse { $form->{title} = $locale->text('Edit'); AM->get_warehouse(\%myconfig, \%$form); &warehouse_header; &form_footer; } sub list_warehouse { AM->warehouses(\%myconfig, \%$form); my $href = "$form->{script}?action=list_warehouse&direction=$form->{direction}&path=$form->{path}&login=$form->{login}"; $form->sort_order(); $form->{callback} = "$form->{script}?action=list_warehouse&direction=$form->{direction}&path=$form->{path}&login=$form->{login}"; my $callback = $form->escape($form->{callback}); $form->{title} = $locale->text('Warehouses'); my @column_index = qw(description address); my %column_data; $column_data{description} = qq||.$locale->text('Description').qq||; $column_data{address} = qq||.$locale->text('Address').qq||; $form->helpref("list_warehouse", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
|; for (@column_index) { print "$column_data{$_}\n" } print qq| |; my $i; foreach my $ref (@{ $form->{ALL} }) { $i++; $i %= 2; print qq| |; $column_data{description} = qq||; $column_data{address} = qq||; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } print qq|
{script}?action=edit_warehouse&id=$ref->{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{description}$ref->{address1} $ref->{address2} $ref->{city} $ref->{state} $ref->{zipcode} $ref->{country}

{script}> |; $form->{type} = "warehouse"; $form->hide_form(qw(type callback path login)); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub warehouse_header { $form->{description} = $form->quote($form->{description}); my $description; my $rows; if (($rows = $form->numtextrows($form->{description}, 60)) > 1) { $description = qq||; } else { $description = qq||; } $form->helpref("warehouse", $myconfig{countrycode}); $form->header; print qq|
{script}> {id}>
$form->{helpref}$form->{title}
|.$locale->text('Description').qq| $description
|.$locale->text('Address').qq|
|.$locale->text('City').qq|
|.$locale->text('State/Province').qq|
|.$locale->text('Zip/Postal Code').qq|
|.$locale->text('Country').qq|
|; } sub save_warehouse { $form->isblank("description", $locale->text('Description missing!')); if (AM->save_warehouse(\%myconfig, \%$form)) { $form->redirect($locale->text('Warehouse saved!')); } $form->error($locale->text('Failed to save Warehouse!')); } sub delete_warehouse { if (AM->delete_warehouse(\%myconfig, \%$form)) { $form->redirect($locale->text('Warehouse deleted!')); } $form->error($locale->text('Failed to delete Warehouse!')); } sub yearend { AM->earningsaccounts(\%myconfig, \%$form); for (@{ $form->{chart} }) { $form->{selectchart} .= "$_->{accno}--$_->{description}\n" } $checked{accrual} = "checked" if $form->{method} eq 'accrual'; $checked{cash} = "checked" if $form->{method} eq 'cash'; $form->{title} = $locale->text('Yearend'); $form->helpref("yearend", $myconfig{countrycode}); $form->header; print qq| {script}> {precision}>
$form->{helpref}$form->{title}
|.$locale->text('Date').qq| *
|.$locale->text('Reference').qq|
|.$locale->text('Description').qq|
|.$locale->text('Retained Earnings').qq|
|.$locale->text('Method').qq|  |.$locale->text('Accrual').qq|  |.$locale->text('Cash').qq|
|; $form->hide_form(qw(path login)); print qq| |; } sub generate_yearend { $form->isblank("todate", $locale->text('Yearend date missing!')); RP->yearend_statement(\%myconfig, \%$form); $form->{transdate} = $form->{todate}; my $earnings = 0; my $ok; $form->{rowcount} = 1; for (keys %{ $form->{I} }) { if ($form->{I}{$_}{charttype} eq "A") { $form->{"debit_$form->{rowcount}"} = $form->{I}{$_}{this}; $earnings += $form->{I}{$_}{this}; $form->{"accno_$form->{rowcount}"} = $_; $form->{rowcount}++; $ok = 1; } } for (keys %{ $form->{E} }) { if ($form->{E}{$_}{charttype} eq "A") { $form->{"credit_$form->{rowcount}"} = $form->{E}{$_}{this} * -1; $earnings += $form->{E}{$_}{this}; $form->{"accno_$form->{rowcount}"} = $_; $form->{rowcount}++; $ok = 1; } } if ($earnings > 0) { $form->{"credit_$form->{rowcount}"} = $earnings; $form->{"accno_$form->{rowcount}"} = $form->{accno} } else { $form->{"debit_$form->{rowcount}"} = $earnings * -1; $form->{"accno_$form->{rowcount}"} = $form->{accno} } if ($ok) { if (AM->post_yearend(\%myconfig, \%$form)) { $form->redirect($locale->text('Yearend posted!')); } else { $form->error($locale->text('Yearend posting failed!')); } } else { $form->error('Nothing to do!'); } } sub company_logo { AM->company_defaults(\%myconfig, \%$form); $form->{address} =~ s/\n/
/g; $form->{stylesheet} = $myconfig{stylesheet}; $form->{title} = $locale->text('About'); if ($form->{username}) { $user = qq| |.$locale->text('User').qq| $form->{username} |; } if ($myconfig{dbhost}) { $dbhost = qq| |.$locale->text('Database Host').qq| $myconfig{dbhost} |; } # create the logo screen $form->header; print qq|

|.$locale->text('Version').qq| $form->{version}

|.$locale->text('Licensed to').qq|

$form->{company}
$form->{address}

$user $dbhost
|.$locale->text('Dataset').qq| $myconfig{dbname}

|; } sub recurring_transactions { # $locale->text('Day') # $locale->text('Days') # $locale->text('Month') # $locale->text('Months') # $locale->text('Week') # $locale->text('Weeks') # $locale->text('Year') # $locale->text('Years') $form->{stylesheet} = $myconfig{stylesheet}; $column_data{id} = ""; AM->recurring_transactions(\%myconfig, \%$form); $form->{title} = $locale->text('Recurring Transactions') . " / $form->{company}"; my $href = "$form->{script}?action=recurring_transactions"; for (qw(path login)) { $href .= qq|&$_=$form->{$_}| } my $callback = $href; for (qw(direction oldsort)) { $href .= qq|&$_=$form->{$_}| } $form->sort_order(); my @column_index = qw(ndx reference description name vcnumber); push @column_index, qw(nextdate enddate id amount curr repeat howmany recurringemail recurringprint); my %column_data; $form->{allbox} = ($form->{allbox}) ? "checked" : ""; $action = ($form->{deselect}) ? "deselect_all" : "select_all"; $column_data{ndx} = qq|{allbox} onChange="CheckAll(); javascript:document.forms[0].submit()">|; $column_data{reference} = "".$locale->text('Reference').qq""; $column_data{id} = "".$locale->text('ID').""; $column_data{description} = "".$locale->text('Description').""; $column_data{name} = "".$locale->text('Company Name').""; $column_data{vcnumber} = "".$locale->text('Company Number').""; $column_data{nextdate} = "".$locale->text('Next').""; $column_data{enddate} = "".$locale->text('Ends').""; $column_data{amount} = "".$locale->text('Amount').""; $column_data{curr} = " "; $column_data{repeat} = "".$locale->text('Every').""; $column_data{howmany} = "".$locale->text('Times').""; $column_data{recurringemail} = "".$locale->text('E-mail').""; $column_data{recurringprint} = "".$locale->text('Print').""; if ($form->{direction} eq 'ASC') { $callback .= "&direction=DESC"; } else { $callback .= "&direction=ASC"; } $callback = $form->escape("$callback&sort=$form->{sort}"); $form->helpref("recurring_transactions", $myconfig{countrycode}); # create the logo screen $form->header; print qq| {script}>
$form->{helpref}$form->{title}
|; for (@column_index) { print "\n$column_data{$_}" } print qq| |; my $i = 1; my $j; my $k; my $colspan = $#column_index + 1; my %tr = ( ar => $locale->text('AR'), ap => $locale->text('AP'), gl => $locale->text('GL'), so => $locale->text('Sales Orders'), po => $locale->text('Purchase Orders'), ); my %f = &formnames; my @f; my $ref; my $unit; my $repeat; my $reference; my $module; my $type; foreach my $transaction (sort keys %{ $form->{transactions} }) { print qq| |; foreach $ref (@{ $form->{transactions}{$transaction} }) { for (@column_index) { $column_data{$_} = "" } for (qw(nextdate enddate)) { $column_data{$_} = "" } if ($ref->{repeat} > 1) { $unit = $locale->text(ucfirst $ref->{unit}); $repeat = "$ref->{repeat} $unit"; } else { chop $ref->{unit}; $unit = $locale->text(ucfirst $ref->{unit}); $repeat = $unit; } $column_data{ndx} = qq||; if (!$ref->{expired}) { $k++; $checked = ""; if ($ref->{overdue} <= 0) { $checked = "checked"; } if (exists $form->{deselect}) { $checked = ($form->{deselect}) ? "checked" : ""; } $column_data{ndx} = qq||; $column_data{nextdate} = qq||; } $reference = ($ref->{reference}) ? $ref->{reference} : $locale->text('Next Number'); $column_data{reference} = qq||; $module = "$ref->{module}.pl"; $type = ""; if ($ref->{module} eq 'ar') { $module = "is.pl" if $ref->{invoice}; $ref->{amount} /= $ref->{exchangerate}; $column_data{name} = qq||; } if ($ref->{module} eq 'ap') { $module = "ir.pl" if $ref->{invoice}; $ref->{amount} /= $ref->{exchangerate}; $column_data{name} = qq||; } if ($ref->{module} eq 'oe') { $type = ($ref->{vc} eq 'customer') ? "sales_order" : "purchase_order"; $column_data{name} = qq||; } $column_data{vcnumber} = qq||; $column_data{id} = qq||; $column_data{repeat} = ""; $column_data{howmany} = ""; $column_data{amount} = ""; $column_data{recurringemail} = ""; $column_data{recurringprint} = ""; $j++; $j %= 2; print qq| |; for (@column_index) { print "\n$column_data{$_}" } print qq| |; } } print qq|
$tr{$transaction}
$ref->{$_}$ref->{$_}{id} $checked>{script}?action=edit_recurring&id=$ref->{id}&vc=$ref->{vc}&path=$form->{path}&login=$form->{login}&module=$ref->{module}&invoice=$ref->{invoice}&transaction=$ref->{transaction}&recurringnextdate=$ref->{nextdate}&callback=$callback>$reference{path}&login=$form->{login}&action=edit&id=$ref->{name_id}&db=$ref->{vc}&callback=$callback>$ref->{name}{path}&login=$form->{login}&action=edit&id=$ref->{name_id}&db=$ref->{vc}&callback=$callback>$ref->{name}{path}&login=$form->{login}&action=edit&id=$ref->{name_id}&db=$ref->{vc}&callback=$callback>$ref->{name}$ref->{vcnumber} {id}&vc=$ref->{vc}&path=$form->{path}&login=$form->{login}&type=$type&callback=$callback>$ref->{id}$repeat".$form->format_amount(\%myconfig, $ref->{howmany})."".$form->format_amount(\%myconfig, $ref->{amount}, $form->{precision}).""; @f = split /:/, $ref->{recurringemail}; for (0 .. $#f) { $column_data{recurringemail} .= "$f{$f[$_]}
" } $column_data{recurringemail} .= "		"; @f = split /:/, $ref->{recurringprint}; for (0 .. $#f) { $column_data{recurringprint} .= "$f{$f[$_]}
" } $column_data{recurringprint} .= "
|; $form->{lastndx} = $k; $form->hide_form(qw(lastndx path login allbox)); %button = ('Select all' => { ndx => 2, key => 'A', value => $locale->text('Select all') }, 'Deselect all' => { ndx => 3, key => 'A', value => $locale->text('Deselect all') }, 'Process Transactions' => { ndx => 4, key => 'P', value => $locale->text('Process Transactions') } ); if ($form->{deselect}) { delete $button{'Select all'}; } else { delete $button{'Deselect all'}; } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub select_all { for (1 .. $form->{rowcount}) { $form->{"ndx_$_"} = 1 } $form->{allbox} = 1; $form->{deselect} = 1; &recurring_transactions; } sub deselect_all { for (1 .. $form->{rowcount}) { $form->{"ndx_$_"} = "" } $form->{allbox} = ""; $form->{deselect} = 0; &recurring_transactions; } sub edit_recurring { %links = ( ar => 'create_links', ap => 'create_links', gl => 'create_links', is => 'invoice_links', ir => 'invoice_links', oe => 'order_links', ); %prepare = ( is => 'prepare_invoice', ir => 'prepare_invoice', oe => 'prepare_order', ); $form->{type} = "transaction"; if ($form->{module} eq 'ar') { if ($form->{invoice}) { $form->{type} = "invoice"; $form->{module} = "is"; } } if ($form->{module} eq 'ap') { if ($form->{invoice}) { $form->{type} = "invoice"; $form->{module} = "ir"; } } if ($form->{module} eq 'oe') { %tr = ( so => sales_order, po => purchase_order, ); $form->{type} = $tr{$form->{transaction}}; } $form->{script} = "$form->{module}.pl"; do "$form->{path}/$form->{script}"; &{ $links{$form->{module}} }; # return if transaction doesn't exist $form->redirect unless $form->{recurring}; if ($prepare{$form->{module}}) { &{ $prepare{$form->{module}} }; } $form->{selectformat} = qq|html--|.$locale->text('html').qq| xml--|.$locale->text('XML').qq| txt--|.$locale->text('Text'); if ($latex) { $form->{selectformat} .= qq| ps--|.$locale->text('Postscript').qq| pdf--|.$locale->text('PDF'); } &schedule; } sub process_transactions { # save variables my $pt = new Form; for (keys %$form) { $pt->{$_} = $form->{$_} } my $defaultprinter; $myconfig{vclimit} = 0; my %f = &formnames; my $invfld; my $ok; my $ordfld; my $flabel; my $ordnumber; my $header; for (my $i = 1; $i <= $pt->{lastndx}; $i++) { if ($pt->{"ndx_$i"}) { my $id = $pt->{"ndx_$i"}; # process transaction AM->recurring_details(\%myconfig, \%$pt, $id); $pt->{nextdate} = $pt->{"nextdate_$i"} if $pt->{"nextdate_$i"}; $header = $form->{header}; # reset $form for (keys %$form) { delete $form->{$_}; } for (qw(login path stylesheet timeout precision)) { $form->{$_} = $pt->{$_}; } $form->{id} = $id; $form->{header} = $header; # post, print, email if ($pt->{arid} || $pt->{apid} || $pt->{oeid}) { if ($pt->{arid} || $pt->{apid}) { if ($pt->{arid}) { $form->{script} = ($pt->{invoice}) ? "is.pl" : "ar.pl"; $form->{ARAP} = "AR"; $form->{module} = "ar"; $invfld = "sinumber"; } else { $form->{script} = ($pt->{invoice}) ? "ir.pl" : "ap.pl"; $form->{ARAP} = "AP"; $form->{module} = "ap"; $invfld = "vinumber"; } do "$form->{path}/$form->{script}"; if ($pt->{invoice}) { &invoice_links; &prepare_invoice; for (keys %$form) { $form->{$_} = $form->unquote($form->{$_}) } } else { &create_links; $form->{type} = "transaction"; for (1 .. $form->{rowcount} - 1) { $form->{"amount_$_"} = $form->format_amount(\%myconfig, $form->{"amount_$_"}, $form->{precision}) } for (split / /, $form->{taxaccounts}) { $form->{"tax_$_"} = $form->format_amount(\%myconfig, $form->{"tax_$_"}, $form->{precision}) } } for (1 .. $form->{paidaccounts}) { $form->{"paid_$_"} = $form->format_amount(\%myconfig, $form->{"paid_$_"}, $form->{precision}) } $form->{discount_paid} = $form->format_amount(\%myconfig, $form->{discount_paid}, $form->{precision}); $defaultprinter = $form->{all_printer}[0]->{printer}; delete $form->{"$form->{ARAP}_links"}; for (qw(acc_trans invoice_details)) { delete $form->{$_} } for (qw(department employee language month partsgroup project years printer)) { delete $form->{"all_$_"} } $form->{invnumber} = $pt->{reference}; $form->{description} = $pt->{description}; $form->{transdate} = $pt->{nextdate}; # exchangerate if ($form->{currency} ne $form->{defaultcurrency}) { $exchangerate = $form->get_exchangerate(\%myconfig, undef, $form->{currency}, $form->{transdate}); $form->{exchangerate} = $form->format_amount(\%myconfig, $exchangerate) if $exchangerate; } # tax accounts $form->all_taxaccounts(\%myconfig, undef, $form->{transdate}); # calculate duedate $form->{duedate} = $form->add_date(\%myconfig, $form->{transdate}, $pt->{overdue}, "days"); if ($pt->{payment}) { # calculate date paid for ($j = 1; $j <= $form->{paidaccounts}; $j++) { $form->{"datepaid_$j"} = $form->add_date(\%myconfig, $form->{transdate}, $pt->{paid}, "days"); ($form->{"$form->{ARAP}_paid_$j"}) = split /--/, $form->{"$form->{ARAP}_paid_$j"}; delete $form->{"cleared_$j"}; if ($form->{currency} ne $form->{defaultcurrency}) { $form->{"exchangerate_$j"} = $form->{exchangerate}; $exchangerate = $form->get_exchangerate(\%myconfig, undef, $form->{currency}, $form->{"datepaid_$j"}); $form->{"exchangerate_$j"} = $form->format_amount(\%myconfig, $exchangerate) if $exchangerate; } } } else { delete $form->{"paid_1"}; $form->{"$form->{ARAP}_paid_1"} = $form->{payment_accno}; $form->{"paymentmethod_1"} = $form->{payment_method}; $form->{paidaccounts} = 1; } for (qw(id recurring printed emailed queued)) { delete $form->{$_} } ($form->{$form->{ARAP}}) = split /--/, $form->{$form->{ARAP}}; $form->{invnumber} = $form->update_defaults(\%myconfig, "$invfld") unless $form->{invnumber}; $form->{reference} = $form->{invnumber}; for (qw(invnumber reference description)) { $form->{$_} = $form->unquote($form->{$_}) } if ($pt->{invoice}) { if ($pt->{arid}) { $form->info("\n".$locale->text('Posting')." ".$locale->text('Sales Invoice')." $form->{invnumber} ... "); $ok = IS->post_invoice(\%myconfig, \%$form); } else { $form->info("\n".$locale->text('Posting')." ".$locale->text('Vendor Invoice')." $form->{invnumber} ... "); $ok = IR->post_invoice(\%myconfig, \%$form); } } else { $form->info("\n".$locale->text('Posting')." ".$locale->text('Transaction')." $form->{invnumber} ... "); $ok = AA->post_transaction(\%myconfig, \%$form); } if ($ok) { $form->info($locale->text('ok')); } else { $form->info($locale->text('failed')); } # print form if ($latex && $ok) { $ok = &print_recurring(\%$pt, $defaultprinter); } &email_recurring(\%$pt) if $ok; } else { # order $form->{script} = "oe.pl"; $form->{module} = "oe"; $ordnumber = "ordnumber"; if ($pt->{customer_id}) { $form->{vc} = "customer"; $form->{type} = "sales_order"; $ordfld = "sonumber"; $flabel = $locale->text('Sales Order'); } else { $form->{vc} = "vendor"; $form->{type} = "purchase_order"; $ordfld = "ponumber"; $flabel = $locale->text('Purchase Order'); } require "$form->{path}/$form->{script}"; &order_links; &prepare_order; $defaultprinter = $form->{all_printer}[0]->{printer}; for (keys %$form) { $form->{$_} = $form->unquote($form->{$_}) } $form->{$ordnumber} = $pt->{reference}; $form->{description} = $pt->{description}; $form->{transdate} = $pt->{nextdate}; # exchangerate if ($form->{currency} ne $form->{defaultcurrency}) { $exchangerate = $form->get_exchangerate(\%myconfig, undef, $form->{currency}, $form->{transdate}); $form->{exchangerate} = $form->format_amount(\%myconfig, $exchangerate) if $exchangerate; } # calculate reqdate $form->{reqdate} = $form->add_date(\%myconfig, $form->{transdate}, $pt->{req}, "days") if $form->{reqdate}; for (qw(id recurring printed emailed queued)) { delete $form->{$_} } for (1 .. $form->{rowcount}) { delete $form->{"orderitems_id_$_"} } $form->{$ordnumber} = $form->update_defaults(\%myconfig, "$ordfld") unless $form->{$ordnumber}; $form->{reference} = $form->{$ordnumber}; for ("$ordnumber", "reference", "description") { $form->{$_} = $form->unquote($form->{$_}) } $form->{closed} = 0; $form->info("\n".$locale->text('Saving')." ".$flabel." $form->{$ordnumber} ... "); if ($ok = OE->save(\%myconfig, \%$form)) { $form->info($locale->text('ok')); } else { $form->info($locale->text('failed')); } # print form if ($latex && $ok) { &print_recurring(\%$pt, $defaultprinter); } &email_recurring(\%$pt); } } else { # GL transaction GL->transaction(\%myconfig, \%$form); $form->{reference} = $pt->{reference}; $form->{description} = $pt->{description}; $form->{transdate} = $pt->{nextdate}; $form->{defaultcurrency} = substr($form->{currencies},0,3); # exchangerate if ($form->{currency} ne $form->{defaultcurrency}) { $exchangerate = $form->get_exchangerate(\%myconfig, undef, $form->{currency}, $form->{transdate}); $form->{exchangerate} = $form->format_amount(\%myconfig, $exchangerate) if $exchangerate; } $j = 1; foreach $ref (@{ $form->{GL} }) { $form->{"accno_$j"} = "$ref->{accno}--$ref->{description}"; $form->{"projectnumber_$j"} = "$ref->{projectnumber}--$ref->{project_id}" if $ref->{project_id}; $form->{"fx_transaction_$j"} = $ref->{fx_transaction}; if ($ref->{amount} < 0) { $form->{"debit_$j"} = $ref->{amount} * -1; } else { $form->{"credit_$j"} = $ref->{amount}; } $j++; } $form->{rowcount} = $j; for (qw(id recurring)) { delete $form->{$_} } $form->info("\n".$locale->text('Posting')." ".$locale->text('GL Transaction')." $form->{reference} ... "); if ($ok = GL->post_transaction(\%myconfig, \%$form)) { $form->info($locale->text('ok')); } else { $form->info($locale->text('failed')); } } AM->update_recurring(\%myconfig, \%$pt, $id) if $ok; } } $form->{callback} = "am.pl?action=recurring_transactions&path=$form->{path}&login=$form->{login}&header=$form->{header}"; $form->redirect; } sub print_recurring { my ($pt, $defaultprinter) = @_; my %f = &formnames; my @f; my $ok = 1; my $media; my @a; if ($pt->{recurringprint}) { @f = split /:/, $pt->{recurringprint}; for ($j = 0; $j <= $#f; $j += 3) { $media = $f[$j+2]; $media ||= $myconfig->{printer}; $media ||= $defaultprinter; $form->info("\n".$locale->text('Printing')." ".$locale->text($f{$f[$j]})." $form->{reference} ... "); @a = ("perl", "$form->{script}", "action=reprint&module=$form->{module}&type=$form->{type}&login=$form->{login}&path=$form->{path}&id=$form->{id}&formname=$f[$j]&format=$f[$j+1]&media=$media&vc=$form->{vc}&ARAP=$form->{ARAP}"); $ok = !(system(@a)); if ($ok) { $form->info($locale->text('ok')); } else { $form->info($locale->text('failed')); last; } } } $ok; } sub email_recurring { my ($pt) = @_; my %f = &formnames; my $ok = 1; if ($pt->{recurringemail}) { my @f = split /:/, $pt->{recurringemail}; for (my $j = 0; $j <= $#f; $j += 2) { $form->info("\n".$locale->text('Sending')." ".$locale->text($f{$f[$j]})." $form->{reference} ... "); # no email, bail out if (!$form->{email}) { $form->info($locale->text('E-mail address missing!')); last; } $message = $form->escape($pt->{message},1); @a = ("perl", "$form->{script}", "action=reprint&module=$form->{module}&type=$form->{type}&login=$form->{login}&path=$form->{path}&id=$form->{id}&formname=$f[$j]&format=$f[$j+1]&media=email&vc=$form->{vc}&ARAP=$form->{ARAP}&message=$message"); $ok = !(system(@a)); if ($ok) { $form->info($locale->text('ok')); } else { $form->info($locale->text('failed')); last; } } } $ok; } sub formnames { # $locale->text('Transaction') # $locale->text('Invoice') # $locale->text('Credit Invoice') # $locale->text('Credit Note') # $locale->text('Debit Invoice') # $locale->text('Debit Note') # $locale->text('Packing List') # $locale->text('Pick List') # $locale->text('Sales Order') # $locale->text('Work Order') # $locale->text('Purchase Order') # $locale->text('Bin List') # $locale->text('Barcode') # $locale->text('Remittance Voucher') return ( transaction => 'Transaction', invoice => 'Invoice', credit_invoice => 'Credit Invoice', credit_note => 'Credit Note', debit_invoice => 'Debit Invoice', debit_note => 'Debit Note', packing_list => 'Packing List', pick_list => 'Pick List', sales_order => 'Sales Order', work_order => 'Work Order', purchase_order => 'Purchase Order', bin_list => 'Bin List', barcode => 'Barcode', remittance_voucher => 'Remittance Voucher', ); } sub continue { &{ $form->{nextsub} } } sub yes { &{ $form->{nextsub} } } sub clear_semaphores { $form->{title} = $locale->text('Confirm!'); $form->header; print qq|
{script}> |; $form->{nextsub} = "remove_semaphores"; $form->hide_form; print qq|

$form->{title}

|.$locale->text('Remove semaphores?').qq|

|; } sub remove_semaphores { AM->remove_locks(\%myconfig, \%$form, $userspath); $form->info($locale->text('Semaphores removed!')); } sub lock_dataset { $form->{title} = $locale->text('Lock Dataset'); $form->helpref("lock_dataset", $myconfig{countrycode}); $form->error($locale->text('Must be logged in as admin!')) unless $form->{admin}; if (-f "$userspath/$myconfig{dbname}.LCK") { open FH, "$userspath/$myconfig{dbname}.LCK"; $form->{msg} = ; close(FH); } $form->header; $form->{nextsub} = "do_lock_dataset"; $form->{action} = "continue"; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Lock Message').qq|
|; $form->hide_form(qw(nextsub login path)); print qq|
|; } sub do_lock_dataset { open(FH, ">$userspath/$myconfig{dbname}.LCK") or $form->error("$userspath/$myconfig{dbname}.LCK : $!"); if ($form->{msg}) { print FH $form->{msg}; } close(FH); $form->redirect($locale->text('Dataset locked!')); } sub unlock_dataset { $form->error($locale->text('Must be logged in as admin!')) unless $form->{admin}; $form->{title} = $locale->text('Confirm!'); $form->header; print qq|
{script}> |; $form->{nextsub} = "do_unlock_dataset"; $form->hide_form; print qq|

$form->{title}

|.$locale->text('Unlock dataset?').qq|

|; } sub do_unlock_dataset { if (-f "$userspath/$myconfig{dbname}.LCK") { unlink "$userspath/$myconfig{dbname}.LCK"; } $form->info($locale->text('Dataset lock removed!')."\n"); } sub bank_accounts { AM->bank_accounts(\%myconfig, \%$form); $form->{title} = $locale->text('Bank Accounts'); $callback = "$form->{script}?action=bank_accounts"; for (qw(path login)) { $callback .= "&$_=$form->{$_}" } @column_index = qw(accno description name iban bic membernumber clearingnumber rvc dcn); $callback = $form->escape($callback); $column_header{accno} = qq||.$locale->text('Account').qq||; $column_header{description} = qq||.$locale->text('Description').qq||; $column_header{name} = qq||.$locale->text('Bank').qq||; $column_header{iban} = qq||.$locale->text('IBAN').qq||; $column_header{bic} = qq||.$locale->text('BIC').qq||; $column_header{address} = qq||.$locale->text('Address').qq||; $column_header{membernumber} = qq||.$locale->text('Member No.').qq||; $column_header{clearingnumber} = qq||.$locale->text('Clearing No.').qq||; $column_header{rvc} = qq||.$locale->text('RVC').qq||; $column_header{dcn} = qq||.$locale->text('DCN').qq||; $form->helpref("bank_accounts", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
|; for (@column_index) { print "$column_header{$_}\n" } print qq| |; foreach $ref (@{ $form->{ALL} }) { $ref->{address} =~ s/\n/
/g; for (qw(name description membernumber clearingnumber rvc dcn)) { $column_data{$_} = "" } for (qw(iban bic address)) { $column_data{$_} = "" } $column_data{accno} = ""; $j++; $j %= 2; print " "; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } print qq|
$ref->{$_} $ref->{$_} {script}?action=edit_bank&id=$ref->{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{accno}
|; } sub edit_bank { AM->get_bank(\%myconfig, \%$form); &bank_header; &bank_footer; } sub bank_header { $form->{title} = $locale->text('Bank Account Details'); $form->helpref("bank", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Bank Account').qq| $form->{account}
|.$locale->text('Bank').qq|
|.$locale->text('BIC').qq|
|.$locale->text('IBAN').qq|
|.$locale->text('Address').qq|
|.$locale->text('City').qq|
|.$locale->text('State/Province').qq|
|.$locale->text('Zip/Postal Code').qq|
|.$locale->text('Country').qq|
|.$locale->text('Member No.').qq|
|.$locale->text('Clearing No.').qq|
|.$locale->text('RVC').qq|
|.$locale->text('DCN').qq|
|; } sub bank_footer { %button = ( 'Save' => { ndx => 2, key => 'S', value => $locale->text('Save') } ); $form->{type} = "bank"; $form->hide_form(qw(id type login path account callback)); for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub save_bank { if (!AM->save_bank(\%myconfig, \%$form)) { $form->error($locale->text('Failed to save Bank!')); } $form->redirect($locale->text('Bank saved!')); } sub search_exchangerates { $form->{title} = $locale->text('Exchange Rates'); AM->exchangerates(\%myconfig, $form); $form->{nextsub} = "list_exchangerates"; # currencies @curr = split /:/, $form->{currencies}; $form->{defaultcurrency} = $curr[0]; shift @curr; $selectcurrency = "\n"; for (@curr) { $selectcurrency .= "$_\n" } if (@curr) { $selectcurrency = qq| |.$locale->text('Currency').qq| |; } else { $form->error($locale->text('No foreign currencies!')); } if (@{ $form->{all_years} }) { $selectaccountingyear = "\n"; for (@{ $form->{all_years} }) { $selectaccountingyear .= qq|$_\n| } $selectaccountingmonth = "\n"; for (sort keys %{ $form->{all_month} }) { $selectaccountingmonth .= qq|$_--| .$locale->text($form->{all_month}{$_}).qq|\n| } $selectfrom = qq| |.$locale->text('Period').qq|  |.$locale->text('Current').qq|  |.$locale->text('Month').qq|  |.$locale->text('Quarter').qq|  |.$locale->text('Year').qq| |; } $form->helpref("search_exchangerates", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
$selectcurrency $selectfrom
|.$locale->text('From').qq| |.$locale->text('To').qq|

|; $form->{sort} = "transdate"; $form->hide_form(qw(sort nextsub path login)); if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub list_exchangerates { AM->get_exchangerates(\%myconfig, \%$form); $href = "$form->{script}?action=list_exchangerates"; for (qw(direction oldsort path login)) { $href .= qq|&$_=$form->{$_}| } $form->sort_order(); $callback = "$form->{script}?action=list_exchangerates"; for (qw(direction oldsort path login)) { $callback .= qq|&$_=$form->{$_}| } if ($form->{currency}) { $callback .= "¤cy=".$form->escape($form->{currency},1); $href .= "¤cy=".$form->escape($form->{currency}); $option .= "\n
" if ($option); $option .= $locale->text('Currency')." : $form->{currency}"; } if ($form->{transdatefrom}) { $callback .= "&transdatefrom=$form->{transdatefrom}"; $href .= "&transdatefrom=$form->{transdatefrom}"; $option .= "\n
" if ($option); $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{transdatefrom}, 1); } if ($form->{transdateto}) { $callback .= "&transdateto=$form->{transdateto}"; $href .= "&transdateto=$form->{transdateto}"; $option .= "\n
" if ($option); $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1); } @column_index = qw(transdate); if ($form->{currency}) { @curr = ($form->{currency}); $form->{currencies} = $form->{currency}; push @column_index, $form->{currency}; $column_header{$form->{currency}} = "$form->{currency}"; } else { @curr = split /:/, $form->{currencies}; shift @curr; $form->{currencies} = join ':', @curr; for $curr (@curr) { push @column_index, $curr; $column_header{$curr} = "$curr"; } } $form->{title} = $locale->text('Exchange Rates'); $column_header{transdate} = "{sort}>".$locale->text('Date').""; $form->helpref("list_exchangerates", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
$option
|; for (@column_index) { print "\n$column_header{$_}" } print qq| |; @column_index = qw(transdate); if ($form->{currency}) { push @column_index, "$form->{currency}exchangerate"; } else { for $curr (@curr) { push @column_index, "${curr}exchangerate"; } } # escape callback for href $form->{callback} = $callback .= "&sort=$form->{sort}"; $callback = $form->escape($callback); if (@{ $form->{transactions} }) { $samedate = $form->{transactions}[0]{transdate}; foreach $curr (@curr) { $column_data{"${curr}exchangerate"} = ""; } } foreach $ref (@{ $form->{transactions} }) { if ($ref->{transdate} eq $samedate) { $href = "$form->{script}?action=edit_exchangerate&transdate=$ref->{transdate}¤cies=$form->{currencies}&path=$form->{path}&login=$form->{login}&callback=$callback"; $column_data{transdate} = ""; $column_data{"$ref->{curr}exchangerate"} = "|; } else { $j++; $j %= 2; print qq| |; for (@column_index) { print "\n$column_data{$_}" } print qq| |; foreach $curr (@curr) { $column_data{"${curr}exchangerate"} = ""; } $href = "$form->{script}?action=edit_exchangerate&transdate=$ref->{transdate}¤cies=$form->{currencies}&path=$form->{path}&login=$form->{login}&callback=$callback"; $column_data{transdate} = ""; $column_data{"$ref->{curr}exchangerate"} = "|; $samedate = $ref->{transdate}; } } $j++; $j %= 2; print qq| |; for (@column_index) { print "\n$column_data{$_}" } print qq|
 $ref->{transdate}".$form->format_amount(\%myconfig, $ref->{exchangerate}, undef, " ").qq|
 $ref->{transdate}".$form->format_amount(\%myconfig, $ref->{exchangerate}, undef, " ").qq|

{script}> |; $form->hide_form(qw(currencies sort callback path login)); if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub edit_exchangerate { $form->{title} = $locale->text('Edit Exchange Rate'); $form->{callback} = "$form->{script}?action=edit_exchangerate&transdate=$form->{transdate}¤cies=$form->{currencies}&path=$form->{path}&login=$form->{login}" unless $form->{callback}; for (qw(transdatefrom transdateto)) { $form->{$_} = $form->{transdate} }; $currencies = $form->{currencies}; for (split /:/, $form->{currencies}) { $curr{$_} = 1 }; AM->get_exchangerates(\%myconfig, \%$form); for $ref (@{ $form->{transactions} }) { $form->{"$ref->{curr}exchangerate"} = $ref->{exchangerate}; $curr{$ref->{curr}} = 1; } if ($currencies) { $form->{currencies} = $currencies; } else { $form->{currencies} = join ':', sort keys %curr; } &exchangerate_header; &form_footer; } sub add_exchange_rate { $form->{title} = $locale->text('Add Exchange Rate'); $form->{callback} = "$form->{script}?action=add_exchange_rate¤cies=$form->{currencies}&path=$form->{path}&login=$form->{login}" unless $form->{callback}; &exchangerate_header; &form_footer; } sub exchangerate_header { $form->helpref("exchangerates", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|; for (split /:/, $form->{currencies}) { print qq| |; } print qq|
|.$locale->text('Exchangerate').qq|
$_
|; $form->{type} = "exchangerate"; $form->{oldtransdate} = $form->{transdate}; $form->hide_form(qw(type id currencies oldtransdate)); } sub save_exchangerate { $form->isblank("transdate", $locale->text('Date missing!')); AM->save_exchangerate(\%myconfig, \%$form); $form->redirect($locale->text('Exchange Rate saved!')); } sub list_currencies { AM->currencies(\%myconfig, \%$form); my $href = "$form->{script}?action=list_currencies"; for (qw(direction oldsort path login)) { $href .= qq|&$_=$form->{$_}| } $form->sort_order(); my $callback = "$form->{script}?action=list_currencies"; for (qw(direction oldsort path login)) { $callback .= qq|&$_=$form->{$_}| } $form->{callback} = $callback .= "&sort=$form->{sort}"; $callback = $form->escape($callback); $form->{title} = $locale->text('Currencies'); my @column_index = $form->sort_columns(qw(rn curr prec up down)); my %column_data; $column_data{rn} = qq||.$locale->text('No').qq||; $column_data{curr} = qq||.$locale->text('Currency').qq||; $column_data{prec} = qq||.$locale->text('Precision').qq||; $column_data{up} = qq| |; $column_data{down} = qq| |; $form->helpref("list_currencies", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
|; for (@column_index) { print "$column_data{$_}\n" } print qq| |; my $i; foreach my $ref (@{ $form->{ALL} }) { $i++; $i %= 2; print qq| |; $ref->{curr} =~ s/ //g; $column_data{rn} = qq||; $column_data{curr} = qq||; $column_data{prec} = qq||; $column_data{up} = qq||; $column_data{down} = qq||; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } print qq|
$ref->{rn}{script}?action=edit_currency&curr=$ref->{curr}&rn=$ref->{rn}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{curr}$ref->{prec}{script}?action=move&db=curr&fld=curr&id=$ref->{curr}&move=up&path=$form->{path}&login=$form->{login}&callback=$callback>+{script}?action=move&db=curr&fld=curr&id=$ref->{curr}&move=down&path=$form->{path}&login=$form->{login}&callback=$callback>-

{script}> |; $form->{type} = "currency"; $form->hide_form(qw(type callback path login)); if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub add_currency { $form->{title} = $locale->text('Add Currency'); $form->{callback} = "$form->{script}?action=add_currency&path=$form->{path}&login=$form->{login}" unless $form->{callback}; ¤cy_header; &form_footer; } sub edit_currency { $form->{title} = $locale->text('Edit'); AM->get_currency(\%myconfig, \%$form); $form->{id} = 1; ¤cy_header; &form_footer; } sub delete_currency { if (AM->delete_currency(\%myconfig, \%$form)) { $form->redirect($locale->text('Currency deleted!')); } $form->error($locale->text('Failed to delete Currency!')); } sub move { AM->move(\%myconfig, \%$form); $form->redirect; } sub currency_header { $form->helpref("currency", $myconfig{countrycode}); $form->header; $form->{type} = "currency"; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Currency').qq| |.$locale->text('Precision').qq|
|; $form->hide_form(qw(type rn)); } sub save_currency { $form->isblank("curr", $locale->text('Currency missing!')); if (AM->save_currency(\%myconfig, \%$form)) { $form->redirect($locale->text('Currency saved!')); } $form->error($locale->text('Failed to save Currency!')); } sub list_roles { AM->roles(\%myconfig, \%$form); my $href = "$form->{script}?action=list_roles"; for (qw(direction oldsort path login)) { $href .= "&$_=$form->{$_}" } $form->sort_order(); my $callback = "$form->{script}?action=list_roles"; for (qw(direction oldsort path login)) { $callback .= "&$_=$form->{$_}" } $form->{callback} = $callback; $callback = $form->escape($form->{callback}); $form->{title} = $locale->text('Roles'); my @column_index = $form->sort_columns(qw(rn description acs up down)); my %column_data; $column_data{rn} = qq||.$locale->text('No').qq||; $column_data{description} = qq||.$locale->text('Description').qq||; $column_data{acs} = qq||.$locale->text('Disable').qq||; for (qw(up down)) { $column_data{$_} = qq| | } $form->helpref("list_roles", $myconfig{countrycode}); $form->header; print qq|
$form->{helpref}$form->{title}
|; for (@column_index) { print "$column_data{$_}\n" } print qq| |; $login = $form->{login}; $login =~ s/\@.*//; my $i; $lastitem = @{ $form->{ALL} }; foreach my $ref (@{ $form->{ALL} }) { $i++; $i %= 2; print qq| |; $column_data{rn} = qq||; $edit = 0; $edit = 1 if $form->{admin}; if ($edit) { $column_data{description} = qq||; } else { $column_data{description} = qq||; } chop $ref->{acs}; $acs = ""; for (split /;/, $ref->{acs}) { ($item) = split /--/, $_; s/--$item//; s/ / /g; $acs .= "$_
"; } $column_data{acs} = qq||; for (qw(up down)) { $column_data{$_} = qq|| } $edit = 0; $edit = 1 if $ref->{rn} > 1 && ($form->{role} && $form->{rn}{$form->{role}} < $ref->{rn} - 1); $edit = 1 if $form->{admin}; if ($edit) { $column_data{up} = qq||; } $edit = 0; $edit = 1 if $ref->{rn} < $lastitem && ($form->{role} && $form->{rn}{$form->{role}} < $ref->{rn}); $edit = 1 if $form->{admin}; if ($edit) { $column_data{down} = qq||; } for (@column_index) { print "$column_data{$_}\n" } print qq| |; } print qq|
$ref->{rn}{script}?action=edit_role&id=$ref->{id}&path=$form->{path}&login=$form->{login}&callback=$callback>$ref->{description}$ref->{description}$acs {script}?action=move&db=acsrole&fld=id&id=$ref->{id}&move=up&path=$form->{path}&login=$form->{login}&callback=$callback>+{script}?action=move&db=acsrole&fld=id&id=$ref->{id}&move=down&path=$form->{path}&login=$form->{login}&callback=$callback>-

{script}> |; $form->{type} = "role"; $form->hide_form(qw(type callback path login)); if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub add_role { $form->{title} = $locale->text('Add Role'); &role_header; &form_footer; } sub edit_role { $form->{title} = $locale->text('Edit Role'); AM->get_role(\%myconfig, \%$form); &role_header; &form_footer; } sub role_header { $menufile = "menu.ini"; $form->{type} = "role"; $form->helpref("roles", $myconfig{countrycode}); $form->header; print qq|
{script}> |; # access control open(FH, $menufile) or $form->error("$menufile : $!"); # scan for first menu level @a = ; close(FH); if (open(FH, "custom_$menufile")) { push @a, ; } close(FH); foreach $item (@a) { next unless $item =~ /\[\w+/; next if $item =~ /\#/; $item =~ s/(\[|\])//g; chop $item; if ($item =~ /--/) { ($level, $menuitem) = split /--/, $item, 2; } else { $level = $item; $menuitem = $item; push @acsorder, $item; } push @{ $acs{$level} }, $menuitem; } foreach $item (split /;/, $form->{acs}) { ($key, $value) = split /--/, $item, 2; $excl{$key}{$value} = 1; } foreach $key (@acsorder) { $checked = ($excl{$key}{$key}) ? "" : "checked"; # can't have variable names with & and spaces $item = $form->escape("${key}--$key",1); $acsheading = $key; $acsheading =~ s/ / /g; $acsheading = qq| \n|; $menuitems .= "$item;"; $acsdata = qq| |; print qq| $acsheading $acsdata |; } $form->{acs} = "$menuitems"; print qq|
$form->{helpref}$form->{title}
|.$locale->text('Description').qq|
|.$locale->text('Access Control').qq|
 $acsheading|; foreach $item (@{ $acs{$key} }) { next if ($key eq $item); $checked = ($excl{$key}{$item}) ? "" : "checked"; $acsitem = $form->escape("${key}--$item",1); $acsdata .= qq|
 $item|; $menuitems .= "$acsitem;"; } $acsdata .= qq|
|; $form->hide_form(qw(id type acs)); } sub save_role { $form->isblank("description", $locale->text('Description missing!')); if (AM->save_role(\%myconfig, \%$form)) { $form->redirect($locale->text('Role saved!')); } $form->error($locale->text('Failed to save Role!')); } sub delete_role { if (AM->delete_role(\%myconfig, \%$form)) { $form->redirect($locale->text('Role deleted!')); } $form->error($locale->text('Failed to delete Role!')); } sub monitor { $form->error($locale->text('Must be logged in as admin!')) unless $form->{admin}; $form->{title} = "Database Monitor"; $form->header; print qq|

$form->{title}

{script}> Enter a SQL command to send to the server

|; $form->hide_form(qw(path login)); print qq|

|; } sub run_sql_command { $form->isblank("sql", "SQL statement missing"); $form->error($locale->text('Must be logged in as admin!')) unless $form->{admin}; $form->{callback} = "$form->{script}?action=monitor&path=$form->{path}&login=$form->{login}&header=1"; # connect to database $dbh = $form->dbconnect(\%myconfig); $form->{title} = "SQL Run"; $form->header; if ($form->{sql} =~ /^select/i) { $sth = $dbh->prepare($form->{sql}); if ($sth->execute) { $form->info($form->{sql}); print qq| |; for (0 .. $sth->{NUM_OF_FIELDS} - 1) { print qq| |; } print qq|\n|; while (@arr = $sth->fetchrow_array) { $j++; $j %= 2; print ""; foreach $item (@arr) { print ""; } print "
$sth->{NAME}->[$_]
$item "; } print "
"; } $sth->finish; } else { if ($dbh->do($form->{sql})) { $form->info($form->{sql}); } } $dbh->disconnect; $form->redirect; }