ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

summary refs log tree commit diff

path: root/IkiWiki/Plugin/html.pm

diff options

Diffstat (limited to 'IkiWiki/Plugin/html.pm')

0 files changed, 0 insertions, 0 deletions

# 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')

# $locale->text('Balance Sheet')

# $locale->text('Income Statement')

# $locale->text('Trial Balance')

# $locale->text('AR Aging')

# $locale->text('AP Aging')

# $locale->text('Tax collected')

# $locale->text('Tax paid')

# $locale->text('Receipts')

# $locale->text('Payments')

# $locale->text('Project Transactions')

# $locale->text('Non-taxable Sales')

# $locale->text('Non-taxable Purchases')

sub report {

  %report = ( balance_sheet => { title => 'Balance Sheet' },

             income_statement   => { title => 'Income Statement' },

             trial_balance  => { title => 'Trial Balance' },

         ar_aging       => { title => 'AR Aging', vc => 'customer' },

         ap_aging       => { title => 'AP Aging', vc => 'vendor' },

         tax_collected  => { title => 'Tax collected', vc => 'customer' },

         tax_paid       => { title => 'Tax paid' },

         nontaxable_sales   => { title => 'Non-taxable Sales', vc => 'customer' },

         nontaxable_purchases => { title => 'Non-taxable Purchases' },

         receipts       => { title => 'Receipts', vc => 'customer' },

         payments       => { title => 'Payments' },

         projects       => { title => 'Project Transactions' },

);

  $form->{title} = $locale->text($report{$form->{report}}->{title});

  $gifi = qq|

<tr>

  <th align=right>|.$locale->text('Accounts').qq|</th>

  <td><input name=accounttype class=radio type=radio value=standard checked> |.$locale->text('Standard').qq|

      <input name=accounttype class=radio type=radio value=gifi> |.$locale->text('GIFI').qq|

</td>

</tr>

# get departments

  $form->all_departments(\%myconfig, undef, $report{$form->{report}}->{vc});

  if (@{ $form->{all_department} }) {

    $form->{selectdepartment} = "<option>\n";

    for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| }

}

  $department = qq|

<tr>

      <th align=right nowrap>|.$locale->text('Department').qq|</th>

      <td colspan=3><select name=department>$form->{selectdepartment}</select></td>

</tr>

| if $form->{selectdepartment};

  if (@{ $form->{all_years} }) {

# accounting years

    $form->{selectaccountingyear} = "<option>\n";

    for (@{ $form->{all_years} }) { $form->{selectaccountingyear} .= qq|<option>$_\n| }

    $form->{selectaccountingmonth} = "<option>\n";

    for (sort keys %{ $form->{all_month} }) { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| }

    $selectfrom = qq|

<tr>

      <th align=right>|.$locale->text('Period').qq|</th>

      <td colspan=3>

      <select name=month>$form->{selectaccountingmonth}</select>

      <select name=year>$form->{selectaccountingyear}</select>

      <input name=interval class=radio type=radio value=0 checked>&nbsp;|.$locale->text('Current').qq|

      <input name=interval class=radio type=radio value=1>&nbsp;|.$locale->text('Month').qq|

      <input name=interval class=radio type=radio value=3>&nbsp;|.$locale->text('Quarter').qq|

      <input name=interval class=radio type=radio value=12>&nbsp;|.$locale->text('Year').qq|

</td>

</tr>

    $selectto = qq|

<tr>

      <th align=right></th>

<td>

      <select name=month>$form->{selectaccountingmonth}</select>

      <select name=year>$form->{selectaccountingyear}</select>

</td>

</tr>

}

  $summary = qq|

<tr>

      <th></th>

      <td><input name=summary type=radio class=radio value=1 checked> |.$locale->text('Summary').qq|

      <input name=summary type=radio class=radio value=0> |.$locale->text('Detail').qq|

</td>

</tr>

# get projects

  $form->all_projects(\%myconfig);

  if (@{ $form->{all_project} }) {

    $form->{selectproject} = "<option>\n";

    for (@{ $form->{all_project} }) { $form->{selectproject} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| }

    $project = qq|

<tr>

      <th align=right nowrap>|.$locale->text('Project').qq|</th>

      <td colspan=3><select name=projectnumber>$form->{selectproject}</select></td>

</tr>|;

}

  $form->header;

print qq|

<body>

<form method=post action=$form->{script}>

<input type=hidden name=title value="$form->{title}">

<table width=100%>

<tr>

    <th class=listtop>$form->{title}</th>

</tr>

  <tr height="5"></tr>

<tr>

<td>

<table>

$department

  if ($form->{report} eq "projects") {

print qq|

$project

        <input type=hidden name=nextsub value=generate_projects>

<tr>

      <th align=right>|.$locale->text('From').qq|</th>

      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>

      <th align=right>|.$locale->text('To').qq|</th>

      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>

</tr>

$selectfrom

</table>

</td>

</tr>

<tr>

<td>

<table>

<tr>

      <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>

      <td><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|

      <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|</td>

</tr>

}

  if ($form->{report} eq "income_statement") {

print qq|

$project

        <input type=hidden name=nextsub value=generate_income_statement>

<tr>

      <th align=right>|.$locale->text('From').qq|</th>

      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>

      <th align=right>|.$locale->text('To').qq|</th>

      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>

</tr>

    if ($selectfrom) {

print qq|

<tr>

      <th align=right>|.$locale->text('Period').qq|</th>

      <td colspan=3>

      <select name=frommonth>$form->{selectaccountingmonth}</select>

      <select name=fromyear>$form->{selectaccountingyear}</select>

      <input name=interval class=radio type=radio value=0 checked>&nbsp;|.$locale->text('Current').qq|

      <input name=interval class=radio type=radio value=1>&nbsp;|.$locale->text('Month').qq|

      <input name=interval class=radio type=radio value=3>&nbsp;|.$locale->text('Quarter').qq|

      <input name=interval class=radio type=radio value=12>&nbsp;|.$locale->text('Year').qq|

</td>

</tr>

}

print qq|

<tr>

      <th align=right>|.$locale->text('Compare to').qq|</th>

</tr>

<tr>

      <th align=right>|.$locale->text('From').qq|</th>

      <td><input name=comparefromdate size=11 title="$myconfig{dateformat}"></td>

      <th align=right>|.$locale->text('To').qq|</th>

      <td><input name=comparetodate size=11 title="$myconfig{dateformat}"></td>

</tr>

    if ($selectto) {

print qq|

<tr>

      <th align=right>|.$locale->text('Period').qq|</th>

<td>

      <select name=comparemonth>$form->{selectaccountingmonth}</select>

      <select name=compareyear>$form->{selectaccountingyear}</select>

</td>

</tr>

}

print qq|

<tr>

      <th align=right>|.$locale->text('Decimalplaces').qq|</th>

      <td><input name=decimalplaces size=3 value=2></td>

</tr>

</table>

</td>

</tr>

<tr>

<td>

<table>

<tr>

      <th align=right>|.$locale->text('Method').qq|</th>

      <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|

      &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>

</tr>

<tr>

      <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>

      <td colspan=3><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|

      <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|

      <input name=l_accno class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Account Number').qq|</td>

</tr>

}

  if ($form->{report} eq "balance_sheet") {

print qq|

        <input type=hidden name=nextsub value=generate_balance_sheet>

<tr>

      <th align=right>|.$locale->text('as at').qq|</th>

      <td><input name=asofdate size=11 title="$myconfig{dateformat}" value=$form->{asofdate}></td>

   if ($selectfrom) {

print qq|

<td>

      <select name=asofmonth>$form->{selectaccountingmonth}</select>

      <select name=asofyear>$form->{selectaccountingyear}</select>

</td>

}

print qq|

</tr>

      <th align=right nowrap>|.$locale->text('Compare to').qq|</th>

      <td><input name=compareasofdate size=11 title="$myconfig{dateformat}"></td>

<td>

   if ($selectto) {

print qq|

      <select name=compareasofmonth>$form->{selectaccountingmonth}</select>

      <select name=compareasofyear>$form->{selectaccountingyear}</select>

</td>

}

print qq|

</tr>

<tr>

      <th align=right>|.$locale->text('Decimalplaces').qq|</th>

      <td><input name=decimalplaces size=3 value=2></td>

</tr>

</table>

</td>

</tr>

<tr>

<td>

<table>

<tr>

      <th align=right>|.$locale->text('Method').qq|</th>

      <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|

      &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>

</tr>

<tr>

      <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>

      <td><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|

      <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|

      <input name=l_accno class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Account Number').qq|</td>

</tr>

}

  if ($form->{report} eq "trial_balance") {

print qq|

        <input type=hidden name=nextsub value=generate_trial_balance>

<tr>

      <th align=right>|.$locale->text('From').qq|</th>

      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>

      <th align=right>|.$locale->text('To').qq|</th>

      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>

</tr>

$selectfrom

</table>

</td>

</tr>

<tr>

<td>

<table>

<tr>

      <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>

      <td><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|

      <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|

      <input name=all_accounts class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('All Accounts').qq|</td>

</tr>

}

  if ($form->{report} =~ /^tax_/) {

    $gifi = "";

    $form->{db} = ($form->{report} =~ /_collected/) ? "ar" : "ap";

    RP->get_taxaccounts(\%myconfig, \%$form);

print qq|

        <input type=hidden name=nextsub value=generate_tax_report>

<tr>

      <th align=right>|.$locale->text('From').qq|</th>

      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>

      <th align=right>|.$locale->text('To').qq|</th>

      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>

</tr>

$selectfrom

$summary

<tr>

      <th align=right>|.$locale->text('Report for').qq|</th>

      <td colspan=3>

  $checked = "checked";

  foreach $ref (@{ $form->{taxaccounts} }) {

    print qq|<input name=accno class=radio type=radio value=$ref->{accno} $checked>&nbsp;$ref->{description}

    <input name="$ref->{accno}_description" type=hidden value="$ref->{description}">

    <input name="$ref->{accno}_rate" type=hidden value="$ref->{rate}">|;

    $checked = "";

}

print qq|

  <input type=hidden name=db value=$form->{db}>

  <input type=hidden name=sort value=transdate>

</td>

</tr>

  if (@{ $form->{gifi_taxaccounts} }) {

print qq|

<tr>

      <th align=right>|.$locale->text('GIFI').qq|</th>

      <td colspan=3>

    foreach $ref (@{ $form->{gifi_taxaccounts} }) {

      print qq|<input name=accno class=radio type=radio value="gifi_$ref->{accno}">&nbsp;$ref->{description}

      <input name="gifi_$ref->{accno}_description" type=hidden value="$ref->{description}">

      <input name="gifi_$ref->{accno}_rate" type=hidden value="$ref->{rate}">|;

}

print qq|

</td>

</tr>

}

print qq|

<tr>

      <th align=right>|.$locale->text('Method').qq|</th>

      <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|

      &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>

</tr>

</table>

</td>

</tr>

<tr>

<td>

<table>

<tr>

      <th align=right>|.$locale->text('Include in Report').qq|</th>

<td>

<table>

<tr>

        <td><input name="l_id" class=checkbox type=checkbox value=Y></td>

        <td>|.$locale->text('ID').qq|</td>

        <td><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td>

        <td>|.$locale->text('Invoice').qq|</td>

        <td><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>

        <td>|.$locale->text('Date').qq|</td>

</tr>

<tr>

        <td><input name="l_name" class=checkbox type=checkbox value=Y checked></td>

  if ($form->{db} eq 'ar') {

    print qq|<td>|.$locale->text('Customer').qq|</td>|;

}

  if ($form->{db} eq 'ap') {

    print qq|<td>|.$locale->text('Vendor').qq|</td>|;

}

print qq|

            <td><input name="l_description" class=checkbox type=checkbox value=Y checked></td>

        <td>|.$locale->text('Description').qq|</td>

        <td><input name="l_netamount" class=checkbox type=checkbox value=Y checked></td>

        <td>|.$locale->text('Amount').qq|</td>

        <td><input name="l_tax" class=checkbox type=checkbox value=Y checked></td>

        <td>|.$locale->text('Tax').qq|</td>

                <td><input name="l_total" class=checkbox type=checkbox value=Y checked></td>

        <td>|.$locale->text('Total').qq|</td>

</tr>

<tr>

</tr>

<tr>

            <td><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>

        <td>|.$locale->text('Subtotal').qq|</td>

</tr>

</table>

</td>

</tr>

}

  if ($form->{report} =~ /^nontaxable_/) {

    $gifi = "";

    $form->{db} = ($form->{report} =~ /_sales/) ? "ar" : "ap";

print qq|

        <input type=hidden name=nextsub value=generate_tax_report>

        <input type=hidden name=db value=$form->{db}>

        <input type=hidden name=sort value=transdate>

        <input type=hidden name=report value=$form->{report}>

<tr>

      <th align=right>|.$locale->text('From').qq|</th>

      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>

      <th align=right>|.$locale->text('To').qq|</th>

      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>

</tr>

$selectfrom

$summary

<tr>

      <th align=right>|.$locale->text('Method').qq|</th>

      <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|

      &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>

</tr>

<tr>

      <th align=right>|.$locale->text('Include in Report').qq|</th>

      <td colspan=3>

<table>

<tr>

        <td><input name="l_id" class=checkbox type=checkbox value=Y></td>

        <td>|.$locale->text('ID').qq|</td>

        <td><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td>

        <td>|.$locale->text('Invoice').qq|</td>

        <td><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>

        <td>|.$locale->text('Date').qq|</td>

</tr>

<tr>

        <td><input name="l_name" class=checkbox type=checkbox value=Y checked></td>

  if ($form->{db} eq 'ar') {

    print qq|<td>|.$locale->text('Customer').qq|</td>|;

}

  if ($form->{db} eq 'ap') {

    print qq|<td>|.$locale->text('Vendor').qq|</td>|;

}

print qq|

            <td><input name="l_description" class=checkbox type=checkbox value=Y checked></td>

        <td>|.$locale->text('Description').qq|</td>

                <td><input name="l_netamount" class=checkbox type=checkbox value=Y checked></td>

        <td>|.$locale->text('Amount').qq|</td>

</tr>

<tr>

            <td><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>

        <td>|.$locale->text('Subtotal').qq|</td>

</tr>

</table>

</td>

</tr>

}

  if (($form->{report} eq "ar_aging") || ($form->{report} eq "ap_aging")) {

    $gifi = "";

    if ($form->{report} eq 'ar_aging') {

      $label = $locale->text('Customer');

      $form->{vc} = 'customer';

    } else {

      $label = $locale->text('Vendor');

      $form->{vc} = 'vendor';

}

    $nextsub = "generate_$form->{report}";

# setup vc selection

    $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");

    for (@{ $form->{"all_$form->{vc}"} }) { $vc .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }

    $vc = ($vc) ? qq|<select name=$form->{vc}><option>\n$vc</select>| : qq|<input name=$form->{vc} size=35>|;

    $postscript = "postscript" if $myconfig{printer};

print qq|

<tr>

      <th align=right>|.$locale->text($label).qq|</th>

      <td>$vc</td>

</tr>

<tr>

      <th align=right>|.$locale->text('To').qq|</th>

      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>

</tr>

$selectto

        <input type=hidden name=type value=statement>

        <input type=hidden name=format value=$postscript>

    <input type=hidden name=media value="$myconfig{printer}">

    <input type=hidden name=nextsub value=$nextsub>

    <input type=hidden name=action value=$nextsub>

$summary

<tr>

<table>

<tr>

          <th>|.$locale->text('Include in Report').qq|</th>

<td>

<table>

<tr>

                <td nowrap><input name=overdue type=radio class=radio value=0 checked> |.$locale->text('Aged').qq|</td>

                <td nowrap><input name=overdue type=radio class=radio value=1> |.$locale->text('Overdue').qq|</td>

</tr>

<tr>

            <td nowrap width=70><input name=c0 type=checkbox class=checkbox value=1 checked> |.$locale->text('Current').qq|</td>

            <td nowrap width=70><input name=c30 type=checkbox class=checkbox value=1 checked> 30</td>

            <td nowrap width=70><input name=c60 type=checkbox class=checkbox value=1 checked> 60</td>

            <td nowrap width=70><input name=c90 type=checkbox class=checkbox value=1 checked> 90</td>

</td>

</tr>

</table>

</td>

</tr>

</table>

</tr>

}

# above action can be removed if there is more than one input field

  if ($form->{report} =~ /(receipts|payments)$/) {

    $gifi = "";

    $form->{db} = ($form->{report} =~ /payments$/) ? "ap" : "ar";

    RP->paymentaccounts(\%myconfig, \%$form);

    $selection = "<option>\n";

    foreach $ref (@{ $form->{PR} }) {

      $paymentaccounts .= "$ref->{accno} ";

      $selection .= "<option>$ref->{accno}--$ref->{description}\n";

}

    chop $paymentaccounts;

print qq|

        <input type=hidden name=nextsub value=list_payments>

<tr>

      <th align=right nowrap>|.$locale->text('Account').qq|</th>

          <td colspan=3><select name=account>$selection</select>

        <input type=hidden name=paymentaccounts value="$paymentaccounts">

</td>

</tr>

<tr>

      <th align=right nowrap>|.$locale->text('Description').qq|</th>

          <td colspan=3><input name=description size=35></td>

</tr>

<tr>

      <th align=right nowrap>|.$locale->text('Source').qq|</th>

          <td colspan=3><input name=source></td>

</tr>

<tr>

      <th align=right nowrap>|.$locale->text('Memo').qq|</th>

          <td colspan=3><input name=memo size=30></td>

</tr>

<tr>

      <th align=right>|.$locale->text('From').qq|</th>

      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>

      <th align=right>|.$locale->text('To').qq|</th>

      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>

</tr>

$selectfrom

<tr>

      <td align=right><input type=checkbox class=checkbox name=fx_transaction value=1 checked></td>

      <td colspan=3>|.$locale->text('Include Exchange Rate Difference').qq|</td>

</tr>

<tr>

      <td align=right><input name=l_subtotal class=checkbox type=checkbox value=Y></td>

      <td align=left colspan=3>|.$locale->text('Subtotal').qq|</th>

</tr>

      <input type=hidden name=db value=$form->{db}>

      <input type=hidden name=sort value=transdate>

}

print qq|

$gifi

</table>

</td>

</tr>

<tr>

    <td><hr size=3 noshade></td>

</tr>

</table>

<br>

<input type=hidden name=path value=$form->{path}>

<input type=hidden name=login value=$form->{login}>

<input type=hidden name=sessionid value=$form->{sessionid}>

<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">

</form>

  if ($form->{menubar}) {

    require "$form->{path}/menu.pl";

&menubar;

}

print qq|

</body>

</html>

}

sub continue { &{$form->{nextsub}} };

sub generate_income_statement {

  $form->{padding} = "&nbsp;&nbsp;";

  $form->{bold} = "<b>";

  $form->{endbold} = "</b>";

  $form->{br} = "<br>";

  RP->income_statement(\%myconfig, \%$form);

  ($form->{department}) = split /--/, $form->{department};

  ($form->{projectnumber}) = split /--/, $form->{projectnumber};

  $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);

  $form->{todate} = $form->current_date(\%myconfig) unless $form->{todate};

# if there are any dates construct a where

  if ($form->{fromdate} || $form->{todate}) {

    unless ($form->{todate}) {

      $form->{todate} = $form->current_date(\%myconfig);

}

    $longtodate = $locale->date(\%myconfig, $form->{todate}, 1);

    $shorttodate = $locale->date(\%myconfig, $form->{todate}, 0);

    $longfromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);

    $shortfromdate = $locale->date(\%myconfig, $form->{fromdate}, 0);

    $form->{this_period} = "$shortfromdate<br>\n$shorttodate";

    $form->{period} = $locale->text('for Period').qq|<br>\n$longfromdate |.$locale->text('To').qq| $longtodate|;

}

  if ($form->{comparefromdate} || $form->{comparetodate}) {

    $longcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 1);

    $shortcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 0);

    $longcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 1);

    $shortcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 0);

    $form->{last_period} = "$shortcomparefromdate<br>\n$shortcomparetodate";

    $form->{period} .= "<br>\n$longcomparefromdate ".$locale->text('To').qq| $longcomparetodate|;

}

# setup variables for the form

  @a = qw(company address businessnumber);

  for (@a) { $form->{$_} = $myconfig{$_} }

  $form->{address} =~ s/\\n/<br>/g;

  $form->{templates} = $myconfig{templates};

  $form->{IN} = "income_statement.html";

  $form->parse_template;

}

sub generate_balance_sheet {

  $form->{padding} = "&nbsp;&nbsp;";

  $form->{bold} = "<b>";

  $form->{endbold} = "</b>";

  $form->{br} = "<br>";

  RP->balance_sheet(\%myconfig, \%$form);

  $form->{asofdate} = $form->current_date(\%myconfig) unless $form->{asofdate};

  $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);

  ($form->{department}) = split /--/, $form->{department};

# define Current Earnings account

  $padding = ($form->{l_heading}) ? $form->{padding} : "";

  push(@{$form->{equity_account}}, $padding.$locale->text('Current Earnings'));

  $form->{this_period} = $locale->date(\%myconfig, $form->{asofdate}, 0);

  $form->{last_period} = $locale->date(\%myconfig, $form->{compareasofdate}, 0);

  $form->{IN} = "balance_sheet.html";

# setup company variables for the form

  for (qw(company address businessnumber nativecurr)) { $form->{$_} = $myconfig{$_} }

  $form->{address} =~ s/\\n/<br>/g;

  $form->{templates} = $myconfig{templates};

  $form->parse_template;

}

sub generate_projects {

  $form->{nextsub} = "generate_projects";

  $form->{title} = $locale->text('Project Transactions');

  RP->trial_balance(\%myconfig, \%$form);

&list_accounts;

}

# Antonio Gallardo

# D.S. Feb 16, 2001

# included links to display transactions for period entered

# added headers and subtotals

sub generate_trial_balance {

# get for each account initial balance, debits and credits

  RP->trial_balance(\%myconfig, \%$form);

  $form->{nextsub} = "generate_trial_balance";

  $form->{title} = $locale->text('Trial Balance');

  $form->{callback} = "$form->{script}?action=generate_trial_balance";

  for (qw(login path sessionid nextsub fromdate todate month year interval l_heading l_subtotal all_accounts accounttype title)) { $form->{callback} .= "&$_=$form->{$_}" }

  $form->{callback} = $form->escape($form->{callback});

&list_accounts;

}

sub list_accounts {

  $title = $form->escape($form->{title});

  if ($form->{department}) {

    ($department) = split /--/, $form->{department};

    $options = $locale->text('Department')." : $department<br>";

    $department = $form->escape($form->{department});

}

  if ($form->{projectnumber}) {

    ($projectnumber) = split /--/, $form->{projectnumber};

    $options .= $locale->text('Project Number')." : $projectnumber<br>";

    $projectnumber = $form->escape($form->{projectnumber});

}

# if there are any dates

  if ($form->{fromdate} || $form->{todate}) {

    if ($form->{fromdate}) {

      $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);

}

    if ($form->{todate}) {

      $todate = $locale->date(\%myconfig, $form->{todate}, 1);

}

    $form->{period} = "$fromdate - $todate";

  } else {

    $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);

}

  $options .= $form->{period};

  @column_index = qw(accno description begbalance debit credit endbalance);

  $column_header{accno} = qq|<th class=listheading>|.$locale->text('Account').qq|</th>|;

  $column_header{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</th>|;

  $column_header{debit} = qq|<th class=listheading>|.$locale->text('Debit').qq|</th>|;

  $column_header{credit} = qq|<th class=listheading>|.$locale->text('Credit').qq|</th>|;

  $column_header{begbalance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|;

  $column_header{endbalance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|;

  if ($form->{accounttype} eq 'gifi') {

    $column_header{accno} = qq|<th class=listheading>|.$locale->text('GIFI').qq|</th>|;

}

  $form->header;

print qq|

<body>

<table width=100%>

<tr>

    <th class=listtop>$form->{title}</th>

</tr>

  <tr height="5"></tr>

<tr>

    <td>$options</td>

</tr>

<tr>

<td>

      <table width=100%>

<tr>|;

  for (@column_index) { print "$column_header{$_}\n" }

print qq|

</tr>

# sort the whole thing by account numbers and display

  foreach $ref (sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} }) {

    $description = $form->escape($ref->{description});

    $href = qq|ca.pl?path=$form->{path}&action=list_transactions&accounttype=$form->{accounttype}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&sort=transdate&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title&nextsub=$form->{nextsub}&prevreport=$form->{callback}|;

    if ($form->{accounttype} eq 'gifi') {

      $href .= "&gifi_accno=$ref->{accno}&gifi_description=$description";

      $na = $locale->text('N/A');

      if (!$ref->{accno}) {

    for (qw(accno description)) { $ref->{$_} = $na }

}

    } else {

      $href .= "&accno=$ref->{accno}&description=$description";

}

    $ml = ($ref->{category} =~ /(A|E)/) ? -1 : 1;

    $ml *= -1 if $ref->{contra};

    $debit = $form->format_amount(\%myconfig, $ref->{debit}, 2, "&nbsp;");

    $credit = $form->format_amount(\%myconfig, $ref->{credit}, 2, "&nbsp;");

    $begbalance = $form->format_amount(\%myconfig, $ref->{balance} * $ml, 2, "&nbsp;");

    $endbalance = $form->format_amount(\%myconfig, ($ref->{balance} + $ref->{amount}) * $ml, 2, "&nbsp;");

    if ($ref->{charttype} eq "H" && $subtotal && $form->{l_subtotal}) {

      if ($subtotal) {

    for (qw(accno begbalance endbalance)) { $column_data{$_} = "<th>&nbsp;</th>" }

    $subtotalbegbalance = $form->format_amount(\%myconfig, $subtotalbegbalance, 2, "&nbsp;");

    $subtotalendbalance = $form->format_amount(\%myconfig, $subtotalendbalance, 2, "&nbsp;");

    $subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, "&nbsp;");

    $subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, "&nbsp;");

    $column_data{description} = "<th class=listsubtotal>$subtotaldescription</th>";

    $column_data{begbalance} = "<th align=right class=listsubtotal>$subtotalbegbalance</th>";

    $column_data{endbalance} = "<th align=right class=listsubtotal>$subtotalendbalance</th>";

    $column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</th>";

    $column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</th>";

print qq|

      <tr class=listsubtotal>

    for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

}

    if ($ref->{charttype} eq "H") {

      $subtotal = 1;

      $subtotaldescription = $ref->{description};

      $subtotaldebit = $ref->{debit};

      $subtotalcredit = $ref->{credit};

      $subtotalbegbalance = 0;

      $subtotalendbalance = 0;

      if ($form->{l_heading}) {

    if (! $form->{all_accounts}) {

      if (($subtotaldebit + $subtotalcredit) == 0) {

        $subtotal = 0;

next;

}

      } else {

    $subtotal = 0;

    if ($form->{all_accounts} || ($form->{l_subtotal} && (($subtotaldebit + $subtotalcredit) != 0))) {

      $subtotal = 1;

}

next;

}

      for (qw(accno debit credit begbalance endbalance)) { $column_data{$_} = "<th>&nbsp;</th>" }

      $column_data{description} = "<th class=listheading>$ref->{description}</th>";

}

    if ($ref->{charttype} eq "A") {

      $column_data{accno} = "<td><a href=$href>$ref->{accno}</a></td>";

      $column_data{description} = "<td>$ref->{description}</td>";

      $column_data{debit} = "<td align=right>$debit</td>";

      $column_data{credit} = "<td align=right>$credit</td>";

      $column_data{begbalance} = "<td align=right>$begbalance</td>";

      $column_data{endbalance} = "<td align=right>$endbalance</td>";

      $totaldebit += $ref->{debit};

      $totalcredit += $ref->{credit};

      $cml = ($ref->{contra}) ? -1 : 1;

      $subtotalbegbalance += $ref->{balance} * $ml * $cml;

      $subtotalendbalance += ($ref->{balance} + $ref->{amount}) * $ml * $cml;

}

    if ($ref->{charttype} eq "H") {

print qq|

      <tr class=listheading>

}

    if ($ref->{charttype} eq "A") {

      $i++; $i %= 2;

print qq|

      <tr class=listrow$i>

}

    for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

}

# print last subtotal

  if ($subtotal && $form->{l_subtotal}) {

    for (qw(accno begbalance endbalance)) { $column_data{$_} = "<th>&nbsp;</th>" }

    $subtotalbegbalance = $form->format_amount(\%myconfig, $subtotalbegbalance, 2, "&nbsp;");

    $subtotalendbalance = $form->format_amount(\%myconfig, $subtotalendbalance, 2, "&nbsp;");

    $subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, "&nbsp;");

    $subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, "&nbsp;");

    $column_data{description} = "<th class=listsubtotal>$subtotaldescription</th>";

    $column_data{begbalance} = "<th align=right class=listsubtotal>$subtotalbegbalance</th>";

    $column_data{endbalance} = "<th align=right class=listsubtotal>$subtotalendbalance</th>";

    $column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</th>";

    $column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</th>";

print qq|

    <tr class=listsubtotal>

    for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

}

  $totaldebit = $form->format_amount(\%myconfig, $totaldebit, 2, "&nbsp;");

  $totalcredit = $form->format_amount(\%myconfig, $totalcredit, 2, "&nbsp;");

  for (qw(accno description begbalance endbalance)) { $column_data{$_} = "<th>&nbsp;</th>" }

  $column_data{debit} = qq|<th align=right class=listtotal>$totaldebit</th>|;

  $column_data{credit} = qq|<th align=right class=listtotal>$totalcredit</th>|;

print qq|

        <tr class=listtotal>

  for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

</table>

</td>

</tr>

<tr>

    <td><hr size=3 noshade></td>

</tr>

</table>

</body>

</html>

}

sub generate_ar_aging {

# split customer

  ($form->{customer}) = split(/--/, $form->{customer});

  $customer = $form->escape($form->{customer},1);

  $title = $form->escape($form->{title},1);

  $media = $form->escape($form->{media},1);

  $form->{ct} = "customer";

  $form->{arap} = "ar";

  RP->aging(\%myconfig, \%$form);

  $form->{callback} = qq|$form->{script}?path=$form->{path}&action=generate_ar_aging&login=$form->{login}&sessionid=$form->{sessionid}&todate=$form->{todate}&customer=$customer&title=$title&type=$form->{type}&format=$form->{format}&media=$media&summary=$form->{summary}|;

&aging;

}

sub generate_ap_aging {

# split vendor

  ($form->{vendor}) = split(/--/, $form->{vendor});

  $vendor = $form->escape($form->{vendor},1);

  $title = $form->escape($form->{title},1);

  $media = $form->escape($form->{media},1);

  $form->{ct} = "vendor";

  $form->{arap} = "ap";

  RP->aging(\%myconfig, \%$form);

  $form->{callback} = qq|$form->{script}?path=$form->{path}&action=generate_ap_aging&login=$form->{login}&sessionid=$form->{sessionid}&todate=$form->{todate}&vendor=$vendor&title=$title&type=$form->{type}&format=$form->{format}&media=$media&summary=$form->{summary}|;

&aging;

}

sub aging {

  $form->header;

  $column_header{statement} = qq|<th class=listheading width=1%>&nbsp;</th>|;

  $column_header{ct} = qq|<th class=listheading width=60%>|.$locale->text(ucfirst $form->{ct}).qq|</th>|;

  $column_header{language} = qq|<th class=listheading>|.$locale->text('Language').qq|</th>|;

  $column_header{invnumber} = qq|<th class=listheading>|.$locale->text('Invoice').qq|</th>|;

  $column_header{ordnumber} = qq|<th class=listheading>|.$locale->text('Order').qq|</th>|;

  $column_header{transdate} = qq|<th class=listheading nowrap>|.$locale->text('Date').qq|</th>|;

  $column_header{duedate} = qq|<th class=listheading nowrap>|.$locale->text('Due Date').qq|</th>|;

  $column_header{c0} = qq|<th class=listheading width=10% nowrap>|.$locale->text('Current').qq|</th>|;

  $column_header{c30} = qq|<th class=listheading width=10% nowrap>30</th>|;

  $column_header{c60} = qq|<th class=listheading width=10% nowrap>60</th>|;

  $column_header{c90} = qq|<th class=listheading width=10% nowrap>90</th>|;

  $column_header{total} = qq|<th class=listheading width=10% nowrap>|.$locale->text('Total').qq|</th>|;

  @column_index = qw(statement ct);

  if (@{ $form->{all_language} } && $form->{arap} eq 'ar') {

    push @column_index, "language";

    $form->{selectlanguage} = qq|<option>\n|;

    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }

}

@c = ();

  for (qw(c0 c30 c60 c90)) {

    if ($form->{$_}) {

      push @c, $_;

      $form->{callback} .= "&$_=$form->{$_}";

}

  if (!$form->{summary}) {

    push @column_index, qw(invnumber ordnumber transdate duedate);

}

  push @column_index, @c;

  push @column_index, "total";

  $option = $locale->text('Aged');

  if ($form->{overdue}) {

    $option= $locale->text('Aged Overdue');

    $form->{callback} .= "&overdue=$form->{overdue}";

}

  if ($form->{department}) {

      $option .= "\n<br>" if $option;

      ($department) = split /--/, $form->{department};

      $option .= $locale->text('Department')." : $department";

      $department = $form->escape($form->{department},1);

      $form->{callback} .= "&department=$department";

}

  if ($form->{arap} eq 'ar') {

    if ($form->{customer}) {

      $option .= "\n<br>" if $option;

      $option .= $form->{customer};

}

  if ($form->{arap} eq 'ap') {

    shift @column_index;

    if ($form->{vendor}) {

      $option .= "\n<br>" if $option;

      $option .= $form->{vendor};

}

  $todate = $locale->date(\%myconfig, $form->{todate}, 1);

  $option .= "\n<br>" if $option;

  $option .= $locale->text('for Period')." ".$locale->text('To')." $todate";

print qq|

<body>

<form method=post action=$form->{script}>

<table width=100%>

<tr>

    <th class=listtop>$form->{title}</th>

</tr>

  <tr height="5"></tr>

<tr>

    <td>$option</td>

</tr>

<tr>

<td>

      <table width=100%>

  $ctid = 0;

  $i = 0;

  $k = 0;

  $l = $#{ $form->{AG} };

  foreach $ref (@{ $form->{AG} }) {

    if ($curr ne $ref->{curr}) {

      $ctid = 0;

      for (@column_index) { $column_data{$_} = qq|<th>&nbsp;</th>| }

      if ($curr) {

    $c0total = $form->format_amount(\%myconfig, $c0total, 2, "&nbsp");

    $c30total = $form->format_amount(\%myconfig, $c30total, 2, "&nbsp");

    $c60total = $form->format_amount(\%myconfig, $c60total, 2, "&nbsp");

    $c90total = $form->format_amount(\%myconfig, $c90total, 2, "&nbsp");

    $total = $form->format_amount(\%myconfig, $total, 2, "&nbsp");

    for (qw(ct statement language)) { $column_data{$_} = qq|<td>&nbsp;</td>| }

    $column_data{c0} = qq|<th align=right>$c0total</th>|;

    $column_data{c30} = qq|<th align=right>$c30total</th>|;

    $column_data{c60} = qq|<th align=right>$c60total</th>|;

    $column_data{c90} = qq|<th align=right>$c90total</th>|;

    $column_data{total} = qq|<th align=right>$total</th>|;

print qq|

    <tr class=listtotal>

    for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

    $c0subtotal = 0;

    $c30subtotal = 0;

    $c60subtotal = 0;

    $c90subtotal = 0;

    $subtotal = 0;

    $c0total = 0;

    $c30total = 0;

    $c60total = 0;

    $c90total = 0;

    $total = 0;

}

      $curr = $ref->{curr};

print qq|

<tr>

      <td></td>

      <th>$curr</th>

</tr>

    <tr class=listheading>

      for (@column_index) { print "$column_header{$_}\n" }

print qq|

</tr>

}

$k++;

    if ($ctid != $ref->{ctid}) {

$i++;

      $column_data{ct} = qq|<td>$ref->{name}</td>|;

      if ($form->{selectlanguage}) {

    $form->{"selectlanguage_$i"} = $form->{selectlanguage};

    $form->{"selectlanguage_$i"} =~ s/(<option value="\Q$ref->{language_code}\E")/$1 selected/;

    $column_data{language} = qq|<td><select name="language_code_$i">$form->{"selectlanguage_$i"}</select></td>|;

}

      $column_data{statement} = qq|<td><input name="statement_$i" type=checkbox class=checkbox value=1 $ref->{checked}>

      <input type=hidden name="$form->{ct}_id_$i" value=$ref->{ctid}>

      <input type=hidden name="curr_$i" value=$ref->{curr}>

</td>|;

}

    $ctid = $ref->{ctid};

    for (qw(c0 c30 c60 c90)) { $ref->{$_} = $form->round_amount($ref->{$_} / $ref->{exchangerate}, 2) }

    $c0subtotal += $ref->{c0};

    $c30subtotal += $ref->{c30};

    $c60subtotal += $ref->{c60};

    $c90subtotal += $ref->{c90};

    $c0total += $ref->{c0};

    $c30total += $ref->{c30};

    $c60total += $ref->{c60};

    $c90total += $ref->{c90};

    $ref->{total} = ($ref->{c0} + $ref->{c30} + $ref->{c60} + $ref->{c90});

    $subtotal += $ref->{total};

    $total += $ref->{total};

    $ref->{c0} = $form->format_amount(\%myconfig, $ref->{c0}, 2, "&nbsp;");

    $ref->{c30} = $form->format_amount(\%myconfig, $ref->{c30}, 2, "&nbsp;");

    $ref->{c60} = $form->format_amount(\%myconfig, $ref->{c60}, 2, "&nbsp;");

    $ref->{c90} = $form->format_amount(\%myconfig, $ref->{c90}, 2, "&nbsp;");

    $ref->{total} = $form->format_amount(\%myconfig, $ref->{total}, 2, "&nbsp;");

    $href = qq|$ref->{module}.pl?path=$form->{path}&action=edit&id=$ref->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=|.$form->escape($form->{callback});

    $column_data{invnumber} = qq|<td><a href=$href>$ref->{invnumber}</a></td>|;

    for (qw(ordnumber transdate duedate)) { $column_data{$_} = qq|<td>$ref->{$_}</td>| }

    for (qw(c0 c30 c60 c90 total)) { $column_data{$_} = qq|<td align=right>$ref->{$_}</td>| }

    if (!$form->{summary}) {

      $j++; $j %= 2;

print qq|

        <tr class=listrow$j>

      for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

      for (qw(ct statement language)) { $column_data{$_} = qq|<td>&nbsp;</td>| }

}

# print subtotal

    $nextid = ($k <= $l) ? $form->{AG}->[$k]->{ctid} : 0;

    if ($ctid != $nextid) {

      $c0subtotal = $form->format_amount(\%myconfig, $c0subtotal, 2, "&nbsp");

      $c30subtotal = $form->format_amount(\%myconfig, $c30subtotal, 2, "&nbsp");

      $c60subtotal = $form->format_amount(\%myconfig, $c60subtotal, 2, "&nbsp");

      $c90subtotal = $form->format_amount(\%myconfig, $c90subtotal, 2, "&nbsp");

      $subtotal = $form->format_amount(\%myconfig, $subtotal, 2, "&nbsp");

      if ($form->{summary}) {

    $column_data{c0} = qq|<td align=right>$c0subtotal</th>|;

    $column_data{c30} = qq|<td align=right>$c30subtotal</th>|;

    $column_data{c60} = qq|<td align=right>$c60subtotal</th>|;

    $column_data{c90} = qq|<td align=right>$c90subtotal</th>|;

    $column_data{total} = qq|<td align=right>$subtotal</th>|;

    $j++; $j %= 2;

print qq|

      <tr class=listrow$j>

    for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

      } else {

    for (@column_index) { $column_data{$_} = qq|<th>&nbsp;</th>| }

    $column_data{c0} = qq|<th class=listsubtotal align=right>$c0subtotal</th>|;

    $column_data{c30} = qq|<th class=listsubtotal align=right>$c30subtotal</th>|;

    $column_data{c60} = qq|<th class=listsubtotal align=right>$c60subtotal</th>|;

    $column_data{c90} = qq|<th class=listsubtotal align=right>$c90subtotal</th>|;

    $column_data{total} = qq|<th class=listsubtotal align=right>$subtotal</th>|;

# print subtotals

print qq|

    <tr class=listsubtotal>

    for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

}

      $c0subtotal = 0;

      $c30subtotal = 0;

      $c60subtotal = 0;

      $c90subtotal = 0;

      $subtotal = 0;

}

print qq|

</tr>

        <tr class=listtotal>

  for (@column_index) { $column_data{$_} = qq|<th>&nbsp;</th>| }

  $c0total = $form->format_amount(\%myconfig, $c0total, 2, "&nbsp;");

  $c30total = $form->format_amount(\%myconfig, $c30total, 2, "&nbsp;");

  $c60total = $form->format_amount(\%myconfig, $c60total, 2, "&nbsp;");

  $c90total = $form->format_amount(\%myconfig, $c90total, 2, "&nbsp;");

  $total = $form->format_amount(\%myconfig, $total, 2, "&nbsp;");

  $column_data{c0} = qq|<th align=right class=listtotal>$c0total</th>|;

  $column_data{c30} = qq|<th align=right class=listtotal>$c30total</th>|;

  $column_data{c60} = qq|<th align=right class=listtotal>$c60total</th>|;

  $column_data{c90} = qq|<th align=right class=listtotal>$c90total</th>|;

  $column_data{total} = qq|<th align=right class=listtotal>$total</th>|;

  for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

    <input type=hidden name=rowcount value=$i>

</table>

</td>

</tr>

<tr>

<td>

  &print_options if ($form->{arap} eq 'ar');

print qq|

</td>

</tr>

<tr>

    <td><hr size=3 noshade></td>

</tr>

</table>

  if ($form->{arap} eq 'ar') {

    $form->hide_form(qw(todate title summary overdue c0 c30 c60 c90 callback arap ct department path login sessionid));

print qq|

<input type=hidden name=$form->{ct} value="$form->{$form->{ct}}">

# type=submit $locale->text('Select all')

# type=submit $locale->text('Print')

# type=submit $locale->text('E-mail')

    %button = ('Select all' => { ndx => 1, key => 'A', value => $locale->text('Select all') },

               'Print' => { ndx => 2, key => 'P', value => $locale->text('Print') },

           'E-mail' => { ndx => 5, key => 'E', value => $locale->text('E-mail') },

);

    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|

</form>

</body>

</html>

}

sub select_all {

  RP->aging(\%myconfig, \%$form);

  for (@{ $form->{AG} }) { $_->{checked} = "checked" }

&aging;

}

sub print_options {

  $form->{sendmode} = "attachment";

  $form->{copies} = 1 unless $form->{copies};

  $form->{PD}{$form->{type}} = "selected";

  $form->{DF}{$form->{format}} = "selected";

  $form->{SM}{$form->{sendmode}} = "selected";

  $format = qq|

            <option value=html $form->{PD}{format}>html|;

  $type = qq|

        <option value=statement $form->{PD}{statement}>|.$locale->text('Statement');

  if ($form->{media} eq 'email') {

    $media = qq|

            <td><select name=sendmode>

        <option value=attachment $form->{SM}{attachment}>|.$locale->text('Attachment').qq|

        <option value=inline $form->{SM}{inline}>|.$locale->text('In-line');

  } else {

    $media = qq|

            <td><select name=media>

        <option value=screen>|.$locale->text('Screen');

    if (%printer && $latex) {

      for (sort keys %printer) { $media .= qq|

            <option value="$_">$_| }

}

  $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/;

  $media .= qq|</select></td>|;

  if ($latex) {

    $format .= qq|

            <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq|

        <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF');

}

print qq|

<table>

<tr>

    <td><select name=type>$type</select></td>

    <td><select name=format>$format</select></td>

$media

  if (%printer && $latex && $form->{media} ne 'email') {

print qq|

      <td>|.$locale->text('Copies').qq|

      <input name=copies size=2 value=$form->{copies}></td>

}

print qq|

</tr>

</table>

}

sub e_mail {

# get name and email addresses

  for $i (1 .. $form->{rowcount}) {

    if ($form->{"statement_$i"}) {

      $form->{"$form->{ct}_id"} = $form->{"$form->{ct}_id_$i"};

      $form->{"statement_1"} = 1;

      $form->{"language_code_1"} = $form->{"language_code_$i"};

      $form->{"curr_1"} = $form->{"curr_$i"};

      RP->get_customer(\%myconfig, \%$form);

      $selected = 1;


context:
space:
mode: