

#=====================================================================
# LedgerSMB
# Small Medium Business Accounting software
# http://www.ledgersmb.org/
#
#
# See COPYRIGHT file for copyright information
#======================================================================
#
# This file has NOT undergone whitespace cleanup.
#
#======================================================================
#
# project/job administration
# partsgroup administration
# translation maintainance
#
#======================================================================

use LedgerSMB::PE;
use LedgerSMB::AA;
use LedgerSMB::OE;

1;

# end of main

sub add {

    # construct callback
    $form->{callback} =
"$form->{script}?action=add&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"
      unless $form->{callback};

    &{"prepare_$form->{type}"};

    $form->{orphaned} = 1;
    &display_form;

}

sub edit {

    &{"prepare_$form->{type}"};
    &display_form;

}

sub prepare_partsgroup {
    PE->get_partsgroup( \%myconfig, \%$form )
      if $form->{id};
}
sub prepare_pricegroup {
    PE->get_pricegroup( \%myconfig, \%$form )
      if $form->{id};
}

sub prepare_job {

    # $locale->text('Add Job')
    # $locale->text('Edit Job')

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

    PE->get_job( \%myconfig, \%$form );

    $form->{taxaccounts} = "";
    for ( keys %{ $form->{IC_links} } ) {

        $form->{"select$_"} = "";
        foreach $ref ( @{ $form->{IC_links}{$_} } ) {
            if (/IC_tax/) {
                if (/taxpart/) {
                    $form->{taxaccounts} .= "$ref->{accno} ";
                    $form->{"IC_tax_$ref->{accno}_description"} =
                      "$ref->{accno}--$ref->{description}";
                    if ( $form->{id} ) {
                        if ( $form->{amount}{ $ref->{accno} } ) {
                            $form->{"IC_tax_$ref->{accno}"} = "checked";
                        }
                    }
                    else {
                        $form->{"IC_tax_$ref->{accno}"} = "checked";
                    }
                }
            }
            else {
                $form->{"select$_"} .=
                  "<option>$ref->{accno}--$ref->{description}\n";
            }
        }
    }
    chop $form->{taxaccounts};

    $form->{selectIC_income} = $form->{selectIC_sale};
    $form->{IC_income}       = $form->{IC_sale};

    $form->{IC_income} = qq|$form->{income_accno}--$form->{income_description}|;

    delete $form->{IC_links};

    $form->{"old$form->{vc}"} =
      qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|;

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

    $form->get_partsgroup( \%myconfig, { all => 1 } );
    $form->{partsgroup} =
      $form->quote( $form->{partsgroup} ) . "--$form->{partsgroup_id}";
    if ( @{ $form->{all_partsgroup} } ) {
        $form->{selectpartsgroup} = qq|<option>\n|;
        for ( @{ $form->{all_partsgroup} } ) {
            $form->{selectpartsgroup} .=
                qq|<option value="|
              . $form->quote( $_->{partsgroup} )
              . qq|--$_->{id}">$_->{partsgroup}\n|;
        }
    }

    $form->{locked} =
      ( $form->{revtrans} )
      ? '1'
      : ( $form->datetonum( \%myconfig, $form->{transdate} ) <=
          $form->datetonum( \%myconfig, $form->{closedto} ) );

    $form->{readonly} = 1 if $myconfig{acs} =~ /Job Costing--Add Job/;

}

sub job_header {

    for (qw(partnumber partdescription description notes unit)) {
        $form->{$_} = $form->quote( $form->{$_} );
    }

    for (qw(production weight)) {
        $form->{$_} = $form->format_amount( \%myconfig, $form->{$_} );
    }
    for (qw(listprice sellprice)) {
        $form->{$_} = $form->format_amount( \%myconfig, $form->{$_}, 2 );
    }

    if ( ( $rows = $form->numtextrows( $form->{partdescription}, 60 ) ) > 1 ) {
        $partdescription =
qq|<textarea name="partdescription" rows=$rows cols=60 style="width: 100%" wrap=soft>$form->{partdescription}</textarea>|;
    }
    else {
        $partdescription =
qq|<input name=partdescription size=60 value="$form->{partdescription}">|;
    }

    if ( ( $rows = $form->numtextrows( $form->{description}, 60 ) ) > 1 ) {
        $description =
qq|<textarea name="description" rows=$rows cols=60 style="width: 100%" wrap=soft>$form->{description}</textarea>|;
    }
    else {
        $description =
          qq|<input name=description size=60 value="$form->{description}">|;
    }

    if ( ( $rows = $form->numtextrows( $form->{notes}, 40 ) ) < 2 ) {
        $rows = 2;
    }

    $notes =
qq|<textarea name=notes rows=$rows cols=40 wrap=soft>$form->{notes}</textarea>|;

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

    $label = ucfirst $form->{vc};
    if ( $form->{"select$form->{vc}"} ) {
        $name = qq|
    <tr>
      <th align=right nowrap>| . $locale->text($label) . qq|</th>
      <td colspan=3><select name="$form->{vc}">$form->{"select$form->{vc}"}</select></td>
      <input type=hidden name="select$form->{vc}" value="|
          . $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">
    </tr>
|;
    }
    else {
        $name = qq|
    <tr>
      <th align=right nowrap>| . $locale->text($label) . qq|</th>
      <td colspan=3><input name="$form->{vc}" value="$form->{"$form->{vc}"}" size=35></td>
      <input type=hidden name="select$form->{vc}" value="|
          . $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">
    </tr>
|;
    }

    if ( $form->{orphaned} ) {

        for (qw(income)) {
            $form->{"selectIC_$_"} =~ s/ selected//;
            $form->{"selectIC_$_"} =~
              s/option>\Q$form->{"IC_$_"}\E/option selected>$form->{"IC_$_"}/;
        }

        $production = qq|
    <tr>
      <th align=right nowrap>| . $locale->text('Production') . qq|</th>
      <td><input name=production size=10 value="$form->{production}"></td>
      <th align=right nowrap>| . $locale->text('Completed') . qq|</th>
      <td>$form->{completed}</td>
    </tr>
|;

    }
    else {

        $form->{selectIC_income} = qq|<option selected>$form->{IC_income}|;

        $production = qq|
    <tr>
      <th align=right nowrap>| . $locale->text('Production') . qq|</th>
      <td><input type=hidden name=production value="$form->{production}">$form->{production}</td>
      <th align=right nowrap>| . $locale->text('Completed') . qq|</th>
      <td>$form->{completed}</td>
    </tr>
|;

    }

    for ( split / /, $form->{taxaccounts} ) {
        $form->{"IC_tax_$_"} = ( $form->{"IC_tax_$_"} ) ? "checked" : "";
    }

    if ( $form->{selectpartsgroup} ) {
        $form->{selectpartsgroup} =
          $form->unescape( $form->{selectpartsgroup} );

        $partsgroup =
          qq|<input type=hidden name=selectpartsgroup value="|
          . $form->escape( $form->{selectpartsgroup}, 1 ) . qq|">|;
        $form->{partsgroup} = $form->quote( $form->{partsgroup} );
        $form->{selectpartsgroup} =~
          s/(<option value="\Q$form->{partsgroup}\E")/$1 selected/;

        $partsgroup .=
          qq|\n<select name=partsgroup>$form->{selectpartsgroup}</select>|;
        $group = $locale->text('Group');
    }

    $linkaccounts = qq|
    <tr>
      <th align=right nowrap>| . $locale->text('Income') . qq|</th>
      <td><select name=IC_income>$form->{selectIC_income}</select></td>
    </tr>
|;

    for ( split / /, $form->{taxaccounts} ) {
        $tax .= qq|
        <input class=checkbox type=checkbox name="IC_tax_$_" value=1 $form->{"IC_tax_$_"}>&nbsp;<b>$form->{"IC_tax_${_}_description"}</b>
    <br><input type=hidden name=IC_tax_${_}_description value="$form->{"IC_tax_${_}_description"}">
|;
    }

    if ($tax) {
        $linkaccounts .= qq|
              <tr>
            <th align=right>| . $locale->text('Tax') . qq|</th>
        <td>$tax</td>
          </tr>
|;
    }

    $partnumber = qq|
    <tr>
      <td>
        <table>
          <tr valign=top>
            <th align=left>| . $locale->text('Number') . qq|</th>
        <th align=left>| . $locale->text('Description') . qq|</th>
        <th align=left>$group</th>
          </tr>
          <tr valign=top>
            <td><input name=partnumber value="$form->{partnumber}" size=20></td>
        <td>$partdescription</td>
        <td>$partsgroup</td>
          </tr>
        </table>
      </td>
    </tr>
|;

    $form->{title} =
      ( $form->{id} ) ? $locale->text('Edit Job') : $locale->text('Add Job');

    $form->header;

    print qq|
<body>

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

    for (qw(partnumber startdate enddate)) { $form->{"old$_"} = $form->{$_} }

    print qq|<input type=hidden name="selectIC_income" value="|
      . $form->escape( $form->{"selectIC_income"}, 1 )
      . qq|">\n|;

    $form->hide_form(
        "id",             "type",
        "old$form->{vc}", "$form->{vc}_id",
        "orphaned",       "taxaccounts",
        "vc",             "project"
    );

    print qq|
  
<table width=100%>
  <tr>
    <th class=listtop>$form->{title}</th>
  </tr>
  <tr height="5"></tr>
  <tr>
    <td>
      <table>
    <tr>
      <th align=right>| . $locale->text('Number') . qq|</th>
      <td><input name=projectnumber size=20 value="$form->{projectnumber}"></td>
      <th align=right>| . $locale->text('Description') . qq|</th>
      <td>$description</td>
    </tr>
    $name
    <tr>
      <th align=right>| . $locale->text('Startdate') . qq|</th>
      <td><input class="date" name=startdate size=11 title="($myconfig{dateformat})" value=$form->{startdate}></td>
      <th align=right>| . $locale->text('Enddate') . qq|</th>
      <td><input class="date" name=enddate size=11 title="($myconfig{dateformat})" value=$form->{enddate}></td>
    </tr>
    $production
      </table>
    </td>
  </tr>
  <tr class="listheading">
    <th class="listheading" align="center">|
      . $locale->text('Assembly')
      . qq|</th>
  </tr>
  <tr>
    <td>
      <table width=100%>
    $partnumber
    <tr>
      <td colspan=3>
        <table width=100%>
          <tr>
            <td width=70%>
          <table width=100%>
            <tr class="listheading">
              <th class="listheading" align="center" colspan=2>|
      . $locale->text('Link Accounts')
      . qq|</th>
            </tr>
            $linkaccounts
            <tr>
              <th align="left">| . $locale->text('Notes') . qq|</th>
            </tr>
            <tr>
              <td colspan=2>
            $notes
              </td>
            </tr>
          </table>
        </td>
        <td align=right>
          <table>
            <tr>
              <th align="right" nowrap="true">| . $locale->text('Updated') . qq|</th>
              <td><input name=priceupdate size=11 title="$myconfig{dateformat}" value=$form->{priceupdate}></td>
            </tr>
            <tr>
              <th align="right" nowrap="true">|
      . $locale->text('List Price')
      . qq|</th>
              <td><input name=listprice size=11 value=$form->{listprice}></td>
            </tr>
            <tr>
              <th align="right" nowrap="true">|
      . $locale->text('Sell Price')
      . qq|</th>
              <td><input name=sellprice size=11 value=$form->{sellprice}></td>
            </tr>
            <tr>
              <th align="right" nowrap="true">| . $locale->text('Weight') . qq|</th>
              <td>
            <table>
              <tr>
                <td>
                  <input name=weight size=10 value=$form->{weight}>
                </td>
                <th>
                  &nbsp;
                  $form->{weightunit}
                  <input type=hidden name=weightunit value=$form->{weightunit}>
                </th>
              </tr>
            </table>
              </td>
            <tr>
              <th align="right" nowrap="true">| . $locale->text('Bin') . qq|</th>
              <td><input name=bin size=10 value="$form->{bin}"></td>
            </tr>
            <tr>
              <th align="right" nowrap="true">| . $locale->text('Unit') . qq|</th>
              <td><input name=unit size=5 value="$form->{unit}"></td>
            </tr>
          </table>
        </td>
          </tr>
        </table>
      </td>
    </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td><hr size=3 noshade></td>
  </tr>
</table>
|;

}

sub job_footer {

    $form->hide_form(qw(callback path login sessionid));

    # type=submit $locale->text('Update')
    # type=submit $locale->text('Save')
    # type=submit $locale->text('Delete')

    %button =
      ( 'update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
      );

    if ( $myconfig{acs} !~ /Job Costing--Add Job/ ) {
        $button{'save'} =
          { ndx => 3, key => 'S', value => $locale->text('Save') };

        if ( $form->{id} && $form->{orphaned} ) {
            $button{'delete'} =
              { ndx => 16, key => 'D', value => $locale->text('Delete') };
        }
    }

    for ( sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button ) {
        $form->print_button( \%button, $_ );
    }

    if ( $form->{lynx} ) {
        require "bin/menu.pl";
        &menubar;
    }

    print qq|
</form>

</body>
</html>
|;

}

sub list_stock {

    PE->list_stock( \%myconfig, \%$form );

    $form->{title}  = $locale->text('Stock Finished Goods');
    $form->{action} = "list_stock";

    $href = "$form->{script}?";
    for (qw(action direction oldsort type path login sessionid status)) {
        $href .= "$_=$form->{$_}&";
    }

    $form->sort_order();

    $callback = "$form->{script}?";
    for (qw(action direction oldsort type path login sessionid status)) {
        $callback .= "$_=$form->{$_}&";
    }

    @column_index =
      $form->sort_columns(
        qw(projectnumber description startdate partnumber production completed stock)
      );

    if ( $form->{projectnumber} ) {
        $href .= "&projectnumber=" . $form->escape( $form->{projectnumber} );
        $callback .= "&projectnumber=$form->{projectnumber}";
        ($var) = split /--/, $form->{projectnumber};
        $option .= "\n<br>" . $locale->text('Job Number') . " : $var";
    }
    if ( $form->{stockingdate} ) {
        $href   .= "&stockingdate=$form->{stockingdate}";
        $option .= "\n<br>"
          . $locale->text('As of') . " : "
          . $locale->date( \%myconfig, $form->{stockingdate}, 1 );
    }

    $column_header{projectnumber} =
        qq|<th width=30%><a class=listheading href=$href&sort=projectnumber>|
      . $locale->text('Number')
      . qq|</a></th>|;
    $column_header{description} =
        qq|<th width=50%><a class=listheading href=$href&sort=description>|
      . $locale->text('Description')
      . qq|</a></th>|;
    $column_header{startdate} =
        qq|<th width=10%><a class=listheading href=$href&sort=startdate>|
      . $locale->text('Startdate')
      . qq|</a></th>|;
    $column_header{partnumber} =
        "<th><a class=listheading href=$href&sort=partnumber>"
      . $locale->text('Assembly')
      . "</a></th>";
    $column_header{production} =
      "<th class=listheading>" . $locale->text('Production') . "</a></th>";
    $column_header{completed} =
      "<th class=listheading>" . $locale->text('Completed') . "</a></th>";
    $column_header{stock} =
      "<th class=listheading>" . $locale->text('Add') . "</a></th>";

    $form->header;

    if ( @{ $form->{all_project} } ) {
        $sameitem = $form->{all_project}->[0]->{ $form->{sort} };
    }

    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%>
    <tr class=listheading>
|;

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

    print qq|
        </tr>
|;

    # escape callback
    $form->{callback} = $callback .= "&sort=$form->{sort}";

    # escape callback for href
    $callback = $form->escape($callback);

    # flip direction
    $direction = ( $form->{direction} eq 'ASC' ) ? "ASC" : "DESC";
    $href =~ s/&direction=(\w+)&/&direction=$direction&/;

    $i = 0;
    foreach $ref ( @{ $form->{all_project} } ) {

        $i++;

        for (qw(projectnumber description startdate enddate partnumber)) {
            $column_data{$_} = qq|<td>$ref->{$_}&nbsp;</td>|;
        }
        for (qw(production completed)) {
            $column_data{$_} =
                qq|<td align=right>|
              . $form->format_amount( \%myconfig, $ref->{$_} )
              . qq|</td>|;
        }
        $column_data{stock} = qq|<td><input name="stock_$i" size=6></td>|;

        $j++;
        $j %= 2;

        print qq|
        <tr valign=top class=listrow$j>
    <input type=hidden name="id_$i" value=$ref->{id}>
|;

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

        print "
        </tr>
";
    }

    print qq|
      </table>
    </td>
  </tr>
  <tr>
    <td><hr size=3 noshade></td>
  </tr>
</table>
|;

    $form->hide_form(qw(callback type path login sessionid status));

    print qq|
<input type="hidden" name="nextsub" value="stock">
<br>
<button type="submit" class="submit" name="action" value="continue">|
      . $locale->text('Continue')
      . qq|</button>
</form>

</body>
</html>
|;

}

sub stock {

    if ( PE->stock_assembly( \%myconfig, \%$form ) ) {
        $form->redirect( $locale->text('Assembly stocked!') );
    }
    else {
        $form->error( $locale->text('Cannot stock Assembly!') );
    }

}

sub prepare_project {

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

    PE->get_project( \%myconfig, \%$form );

    $form->{title} =
      ( $form->{id} )
      ? $locale->text('Edit Project')
      : $locale->text('Add Project');

    $form->{"old$form->{vc}"} =
      qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|;

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

}

sub search {

    # accounting years
    $form->all_years( \%myconfig );

    if ( @{ $form->{all_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|;
        }

        $fromto = qq|
    <tr>
      <th align=right>| . $locale->text('Startdate') . qq|</th>
      <td>|
          . $locale->text('From')
          . qq| <input class="date" name=startdatefrom size=11 title="($myconfig{'dateformat'})">|
          . $locale->text('To') . qq|
      <input class="date" name=startdateto size=11 title="($myconfig{'dateformat'})"></td>
    </tr>
|;

        $selectperiod = 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>
|;
    }

    $orphaned = qq|
      <input name=status class=radio type=radio value=orphaned>&nbsp;|
      . $locale->text('Orphaned');

    if ( $form->{type} eq 'project' ) {
        $report        = "project_report";
        $sort          = "projectnumber";
        $form->{title} = $locale->text('Projects');

        $number = qq|
    <tr>
      <th align=right width=1%>| . $locale->text('Number') . qq|</th>
      <td><input name=projectnumber size=20></td>
    </tr>
    <tr>
      <th align=right>| . $locale->text('Description') . qq|</th>
      <td><input name=description size=60></td>
    </tr>
|;
    }

    if ( $form->{type} eq 'stock' ) {
        $report = "list_stock";
        $form->{title} = $locale->text('Stock Finished Goods');
        PE->list_stock( \%myconfig, \%$form );

        $selectperiod = "";
        $orphaned     = "";
        $fromto       = qq|
        <tr>
      <th align=right nowrap>| . $locale->text('As of') . qq|</th>
      <td><input class="date" name=stockingdate size=11 title="$myconfig{dateformat}"></td>
    </tr>
|;

        $number = qq|
    <tr>
      <th align=right width=1%>| . $locale->text('Job Number') . qq|</th>
      <td><input name=projectnumber size=20></td>
    </tr>
    <tr>
      <th align=right>| . $locale->text('Description') . qq|</th>
      <td><input name=description size=60></td>
    </tr>
|;
    }

    if ( $form->{type} eq 'job' ) {
        $report        = "job_report";
        $sort          = "projectnumber";
        $form->{title} = $locale->text('Jobs');

        $number = qq|
    <tr>
      <th align=right width=1%>| . $locale->text('Number') . qq|</th>
      <td><input name=projectnumber size=20></td>
    </tr>
    <tr>
      <th align=right>| . $locale->text('Description') . qq|</th>
      <td><input name=description size=60></td>
    </tr>
|;
    }

    if ( $form->{type} eq 'partsgroup' ) {
        $report        = "partsgroup_report";
        $sort          = 'partsgroup';
        $form->{title} = $locale->text('Groups');

        $fromto       = "";
        $selectperiod = "";
        $number       = qq|
    <tr>
      <th align=right width=1%>| . $locale->text('Group') . qq|</th>
      <td><input name=partsgroup size=20></td>
    </tr>
|;
    }

    if ( $form->{type} eq 'pricegroup' ) {
        $report        = "pricegroup_report";
        $sort          = 'pricegroup';
        $form->{title} = $locale->text('Pricegroups');

        $fromto       = "";
        $selectperiod = "";
        $number       = qq|
    <tr>
      <th align=right width=1%>| . $locale->text('Pricegroup') . qq|</th>
      <td><input name=pricegroup size=20></td>
    </tr>
|;
    }

    $form->header;

    print qq|
<body>

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

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

<table width=100%>
  <tr>
    <th class=listtop>$form->{title}</th>
  </tr>
  <tr height="5"></tr>
  <tr>
    <td>
      <table width=100%>
        $number
    $fromto
    $selectperiod
    <tr>
      <td></td>
      <td><input name=status class=radio type=radio value=all checked>&nbsp;|
      . $locale->text('All') . qq|
      <input name=status class=radio type=radio value=active>&nbsp;|
      . $locale->text('Active') . qq|
      <input name=status class=radio type=radio value=inactive>&nbsp;|
      . $locale->text('Inactive') . qq|
      $orphaned</td>
    </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td><hr size=3 noshade></td>
  </tr>
</table>

<input type=hidden name=nextsub value=$report>
|;

    $form->hide_form(qw(path login sessionid title));

    print qq|
<button class="submit" type="submit" name="action" value="continue">|
      . $locale->text('Continue')
      . qq|</button>
</form>
|;

    if ( $form->{lynx} ) {
        require "bin/menu.pl";
        &menubar;
    }

    print qq|
 
</body>
</html>
|;

}

sub job_report {

    for (qw(projectnumber description)) {
        $form->{$_} = $form->unescape( $form->{$_} );
    }
    PE->jobs( \%myconfig, \%$form );

    $form->{action} = "job_report";
    &list_projects;

}

sub project_report {

    for (qw(projectnumber description)) {
        $form->{$_} = $form->unescape( $form->{$_} );
    }
    PE->projects( \%myconfig, \%$form );

    $form->{action} = "project_report";
    &list_projects;

}

sub list_projects {

    $href = "$form->{script}?";
    for (
        qw(action direction oldsort type path login sessionid status startdatefrom startdateto)
      )
    {
        $href .= "$_=$form->{$_}&";
    }

    $form->sort_order();

    $callback = "$form->{script}?";
    for (
        qw(action direction oldsort type path login sessionid status startdatefrom startdateto)
      )
    {
        $callback .= "$_=$form->{$_}&";
    }

    @column_index =
      $form->sort_columns(qw(projectnumber description name startdate enddate));

    if ( $form->{status} eq 'all' ) {
        $option = $locale->text('All');
    }
    if ( $form->{status} eq 'orphaned' ) {
        $option .= $locale->text('Orphaned');
    }
    if ( $form->{status} eq 'active' ) {
        $option = $locale->text('Active');
        @column_index =
          $form->sort_columns(qw(projectnumber description name startdate));
    }
    if ( $form->{status} eq 'inactive' ) {
        $option = $locale->text('Inactive');
    }

    if ( $form->{type} eq 'project' ) {
        $label = $locale->text('Project');
        $form->{title} = $locale->text('Projects');
    }
    else {
        $label = $locale->text('Job');
        push @column_index, qw(partnumber production completed);
        $form->{title} = $locale->text('Jobs');
    }

    if ( $form->{projectnumber} ) {
        $href .= "&projectnumber=" . $form->escape( $form->{projectnumber} );
        $callback .= "&projectnumber=$form->{projectnumber}";
        $option   .= "\n<br>$label : $form->{projectnumber}";
    }
    if ( $form->{description} ) {
        $href     .= "&description=" . $form->escape( $form->{description} );
        $callback .= "&description=$form->{description}";
        $option .=
          "\n<br>" . $locale->text('Description') . " : $form->{description}";
    }
    if ( $form->{startdatefrom} ) {
        $href   .= "&startdatefrom=$form->{startdatefrom}";
        $option .= "\n<br>"
          . $locale->text('From')
          . "&nbsp;"
          . $locale->date( \%myconfig, $form->{startdatefrom}, 1 );
    }
    if ( $form->{startdateto} ) {
        $href .= "&startdateto=$form->{startdateto}";
        if ( $form->{startdatefrom} ) {
            $option .= " ";
        }
        else {
            $option .= "\n<br>" if ($option);
        }
        $option .=
            $locale->text('To') . "&nbsp;"
          . $locale->date( \%myconfig, $form->{startdateto}, 1 );
    }

    $column_header{projectnumber} =
        qq|<th><a class=listheading href=$href&sort=projectnumber>|
      . $locale->text('Number')
      . qq|</a></th>|;
    $column_header{description} =
        qq|<th><a class=listheading href=$href&sort=description>|
      . $locale->text('Description')
      . qq|</a></th>|;
    $column_header{startdate} =
        qq|<th width=10><a class=listheading href=$href&sort=startdate>|
      . $locale->text('Startdate')
      . qq|</a></th>|;
    $column_header{enddate} =
        qq|<th width=10><a class=listheading href=$href&sort=enddate>|
      . $locale->text('Enddate')
      . qq|</a></th>|;

    $column_header{partnumber} =
        "<th><a class=listheading href=$href&sort=partnumber>"
      . $locale->text('Assembly')
      . "</a></th>";
    $column_header{production} =
      "<th width=10 class=listheading>" . $locale->text('Production') . "</th>";
    $column_header{completed} =
      "<th width=10 class=listheading>" . $locale->text('Completed') . "</th>";
    $column_header{name} =
      "<th class=listheading>" . $locale->text('Customer') . "</th>";

    $form->header;

    if ( @{ $form->{all_project} } ) {
        $sameitem = $form->{all_project}->[0]->{ $form->{sort} };
    }

    print qq|
<body>

<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%>
    <tr class=listheading>
|;

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

    print qq|
        </tr>
|;

    # escape callback
    $form->{callback} = $callback .= "&sort=$form->{sort}";

    # escape callback for href
    $callback = $form->escape($callback);

    # flip direction
    $direction = ( $form->{direction} eq 'ASC' ) ? "ASC" : "DESC";
    $href =~ s/&direction=(\w+)&/&direction=$direction&/;

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

        for (qw(description startdate enddate name)) {
            $column_data{$_} = qq|<td>$ref->{$_}&nbsp;</td>|;
        }

        for (qw(production completed)) {
            $column_data{$_} =
              qq|<td align=right>|
              . $form->format_amount( \%myconfig, $ref->{$_} );
        }

        $column_data{projectnumber} =
qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&project=$form->{project}&callback=$callback>$ref->{projectnumber}</td>|;
        $column_data{partnumber} =
qq|<td><a href=ic.pl?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partnumber}</td>|;

        $j++;
        $j %= 2;

        print qq|
        <tr valign=top class=listrow$j>
|;

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

        print "
        </tr>
";
    }

    $i = 1;
    if ( $form->{type} eq 'project' ) {
        if ( $myconfig{acs} !~ /Projects--Projects/ ) {
            $button{'Projects--Add Project'}{code} =
qq|<button class="submit" type="submit" name="action" value="add_project">|
              . $locale->text('Add Project')
              . qq|</button> |;
            $button{'Projects--Add Project'}{order} = $i++;

            for ( split /;/, $myconfig{acs} ) {
                delete $button{$_};
            }
        }
    }
    else {
        if ( $myconfig{acs} !~ /Job Costing--Job Costing/ ) {
            $button{'Job Costing--Add Job'}{code} =
qq|<button class="submit" type="submit" name="action" value="add_job">|
              . $locale->text('Add Job')
              . qq|</button> |;
            $button{'Job Costing--Add Job'}{order} = $i++;

            for ( split /;/, $myconfig{acs} ) {
                delete $button{$_};
            }
        }
    }

    print qq|
      </table>
    </td>
  </tr>
  <tr>
    <td><hr size=3 noshade></td>
  </tr>
</table>

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

    $form->hide_form(qw(callback type path login sessionid));

    foreach $item ( sort { $a->{order} <=> $b->{order} } %button ) {
        print $item->{code};
    }

    if ( $form->{lynx} ) {
        require "bin/menu.pl";
        &menubar;
    }

    print qq|
  </form>
  
</body>
</html>
|;

}

sub project_header {

    $form->{description} = $form->quote( $form->{description} );

    if ( ( $rows = $form->numtextrows( $form->{description}, 60 ) ) > 1 ) {
        $description =
qq|<textarea name="description" rows=$rows cols=60 style="width: 100%" wrap=soft>$form->{description}</textarea>|;
    }
    else {
        $description =
          qq|<input name=description size=60 value="$form->{description}">|;
    }

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

    $label = ucfirst $form->{vc};
    if ( $form->{"select$form->{vc}"} ) {
        $name = qq|
    <tr>
      <th align=right nowrap>| . $locale->text($label) . qq|</th>
      <td colspan=3><select name="$form->{vc}">$form->{"select$form->{vc}"}</select></td>
      <input type=hidden name="select$form->{vc}" value="|
          . $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">
    </tr>
|;
    }
    else {
        $name = qq|
    <tr>
      <th align=right nowrap>| . $locale->text($label) . qq|</th>
      <td colspan=3><input name="$form->{vc}" value="$form->{"$form->{vc}"}" size=35></td>
      <input type=hidden name="select$form->{vc}" value="|
          . $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">
    </tr>
|;
    }

    $form->header;

    print qq|
<body>

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

    $form->hide_form(
        "id",             "type",
        "old$form->{vc}", "$form->{vc}_id",
        "orphaned",       "vc",
        "title"
    );

    print qq|
<table width=100%>
  <tr>
    <th class=listtop>$form->{title}</th>
  </tr>
  <tr height="5"></tr>
  <tr>
    <td>
      <table>
    <tr>
      <th align=right>| . $locale->text('Number') . qq|</th>
      <td><input name=projectnumber size=20 value="$form->{projectnumber}"></td>
      <th align=right>| . $locale->text('Description') . qq|</th>
      <td>$description</td>
    </tr>
    $name
    <tr>
      <th align=right>| . $locale->text('Startdate') . qq|</th>
      <td><input class="date" name=startdate size=11 title="($myconfig{dateformat})" value=$form->{startdate}></td>
      <th align=right>| . $locale->text('Enddate') . qq|</th>
      <td><input class="date" name=enddate size=11 title="($myconfig{dateformat})" value=$form->{enddate}></td>
    </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td><hr size=3 noshade></td>
  </tr>
</table>
|;

}

sub project_footer {

    $form->hide_form(qw(callback path login sessionid));

    %button =
      ( 'update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
      );

    if ( $myconfig{acs} !~ /Projects--Add Project/ ) {
        $button{'save'} =
          { ndx => 3, key => 'S', value => $locale->text('Save') };

        if ( $form->{id} && $form->{orphaned} ) {
            $button{'delete'} =
              { ndx => 16, key => 'D', value => $locale->text('Delete') };
        }
    }

    for ( sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button ) {
        $form->print_button( \%button, $_ );
    }

    if ( $form->{lynx} ) {
        require "bin/menu.pl";
        &menubar;
    }

    print qq|
</form>

</body>
</html>
|;

}

sub save {

    if ( $form->{translation} ) {
        PE->save_translation( \%myconfig, \%$form );
        $form->redirect( $locale->text('Translations saved!') );
        exit;
    }

    if ( $form->{type} eq 'project' ) {
        if ( $form->{"select$form->{vc}"} ) {
            ( $null, $form->{"$form->{vc}_id"} ) = split /--/,
              $form->{"$form->{vc}"};
        }
        else {
            if ( $form->{"old$form->{vc}"} ne
                qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}| )
            {

                if (
                    (
                        $rv = $form->get_name(
                            \%myconfig, $form->{vc}, $form->{startdate}
                        )
                    ) > 1
                  )
                {
                    &select_name;
                    exit;
                }

                if ( $rv == 1 ) {
                    $form->{"$form->{vc}_id"} = $form->{name_list}[0]->{id};
                    $form->{"$form->{vc}"}    = $form->{name_list}[0]->{name};
                    $form->{"old$form->{vc}"} =
                      qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|;
                }
            }
        }

        PE->save_project( \%myconfig, \%$form );
        $form->redirect( $locale->text('Project saved!') );
    }

    if ( $form->{type} eq 'partsgroup' ) {
        $form->isblank( "partsgroup", $locale->text('Group missing!') );
        PE->save_partsgroup( \%myconfig, \%$form );
        $form->redirect( $locale->text('Group saved!') );
    }

    if ( $form->{type} eq 'pricegroup' ) {
        $form->isblank( "pricegroup", $locale->text('Pricegroup missing!') );
        PE->save_pricegroup( \%myconfig, \%$form );
        $form->redirect( $locale->text('Pricegroup saved!') );
    }

    if ( $form->{type} eq 'job' ) {
        if ( $form->{"select$form->{vc}"} ) {
            ( $null, $form->{"$form->{vc}_id"} ) = split /--/,
              $form->{"$form->{vc}"};
        }
        else {
            if ( $form->{"old$form->{vc}"} ne
                qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}| )
            {

                if (
                    (
                        $rv = $form->get_name(
                            \%myconfig, $form->{vc}, $form->{startdate}
                        )
                    ) > 1
                  )
                {
                    &select_name;
                    exit;
                }

                if ( $rv == 1 ) {
                    $form->{"$form->{vc}_id"} = $form->{name_list}[0]->{id};
                    $form->{"$form->{vc}"}    = $form->{name_list}[0]->{name};
                    $form->{"old$form->{vc}"} =
                      qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|;
                }
            }
        }

        PE->save_job( \%myconfig, \%$form );
        $form->redirect( $locale->text('Job saved!') );
    }

}

sub delete {

    if ( $form->{translation} ) {
        PE->delete_translation( \%myconfig, \%$form );
        $form->redirect( $locale->text('Translation deleted!') );

    }
    else {

        if ( $form->{type} eq 'project' ) {
            PE->delete_project( \%myconfig, \%$form );
            $form->redirect( $locale->text('Project deleted!') );
        }
        if ( $form->{type} eq 'job' ) {
            PE->delete_job( \%myconfig, \%$form );
            $form->redirect( $locale->text('Job deleted!') );
        }
        if ( $form->{type} eq 'partsgroup' ) {
            PE->delete_partsgroup( \%myconfig, \%$form );
            $form->redirect( $locale->text('Group deleted!') );
        }
        if ( $form->{type} eq 'pricegroup' ) {
            PE->delete_pricegroup( \%myconfig, \%$form );
            $form->redirect( $locale->text('Pricegroup deleted!') );
        }
    }

}

sub partsgroup_report {

    $form->{partsgroup} = $form->unescape( $form->{partsgroup} );
    PE->partsgroups( \%myconfig, \%$form );

    $href =
"$form->{script}?action=partsgroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";

    $form->sort_order();

    $callback =
"$form->{script}?action=partsgroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";

    if ( $form->{status} eq 'all' ) {
        $option = $locale->text('All');
    }
    if ( $form->{status} eq 'orphaned' ) {
        $option .= $locale->text('Orphaned');
    }
    if ( $form->{partsgroup} ) {
        $callback .= "&partsgroup=$form->{partsgroup}";
        $option .= "\n<br>" . $locale->text('Group') . " : $form->{partsgroup}";
    }

    @column_index = $form->sort_columns(qw(partsgroup));

    $column_header{partsgroup} =
        qq|<th><a class=listheading href=$href&sort=partsgroup width=90%>|
      . $locale->text('Group')
      . qq|</a></th>|;

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

    $form->header;

    print qq|
<body>

<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%>
    <tr class=listheading>
|;

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

    print qq|
        </tr>
|;

    # escape callback
    $form->{callback} = $callback;

    # escape callback for href
    $callback = $form->escape($callback);

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

        $i++;
        $i %= 2;

        print qq|
        <tr valign=top class=listrow$i>
|;

        $column_data{partsgroup} =
qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partsgroup}</td>|;
        for (@column_index) { print "$column_data{$_}\n" }

        print "
        </tr>
";
    }

    $i = 1;
    if ( $myconfig{acs} !~ /Goods \& Services--Goods \& Services/ ) {
        $button{'Goods & Services--Add Group'}{code} =
qq|<button class="submit" type="submit" name="action" value="add_group">|
          . $locale->text('Add Group')
          . qq|</button> |;
        $button{'Goods & Services--Add Group'}{order} = $i++;

        foreach $item ( split /;/, $myconfig{acs} ) {
            delete $button{$item};
        }
    }

    print qq|
      </table>
    </td>
  </tr>
  <tr>
    <td><hr size=3 noshade></td>
  </tr>
</table>

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

    $form->hide_form(qw(callback type path login sessionid));

    foreach $item ( sort { $a->{order} <=> $b->{order} } %button ) {
        print $item->{code};
    }

    if ( $form->{lynx} ) {
        require "bin/menu.pl";
        &menubar;
    }

    print qq|
  </form>

</body>
</html>
|;

}

sub partsgroup_header {

    $form->{action} =~ s/_.*//;
    $form->{title} = $locale->text( ucfirst $form->{action} . " Group" );

    # $locale->text('Add Group')
    # $locale->text('Edit Group')

    $form->{partsgroup} = $form->quote( $form->{partsgroup} );

    $form->header;

    print qq|
<body>

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

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

<table width=100%>
  <tr>
    <th class=listtop>$form->{title}</th>
  </tr>
  <tr height="5"></tr>
  <tr>
    <td>
      <table width=100%>
    <tr>
      <th align=right>| . $locale->text('Group') . qq|</th>

          <td><input name=partsgroup size=30 value="$form->{partsgroup}"></td>
    </tr>
      </table>
    </td>
  </tr>
  <tr>