#=====================================================================
# 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_$_"}> <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 name=startdate size=11 title="($myconfig{dateformat})" value="$form->{startdate}"></td>
<th align=right>| . $locale->text('Enddate') . qq|</th>
<td><input 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>
$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->{$_} </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 name=startdatefrom size=11 title="($myconfig{'dateformat'})">|
. $locale->text('To') . qq|
<input 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> |
. $locale->text('Current') . qq|
<input name=interval class=radio type=radio value=1> |
. $locale->text('Month') . qq|
<input name=interval class=radio type=radio value=3> |
. $locale->text('Quarter') . qq|
<input name=interval class=radio type=radio value=12> |
. $locale->text('Year') . qq|
</td>
</tr>
|;
}
$orphaned = qq|
<input name=status class=radio type=radio value=orphaned> |
. $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 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> |
. $locale->text('All') . qq|
<input name=status class=radio type=radio value=active> |
. $locale->text('Active') . qq|
<input name=status class=radio type=radio value=inactive> |
. $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')
. " "
. $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') . " "
. $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->{$_} </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 name=startdate size=11 title="($myconfig{dateformat})" value="$form->{startdate}"></td>
<th align=right>| . $locale->text('Enddate') . qq|</th>
<td><input 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>
<td colspan=2><hr size=3 noshade></td>
</tr>
</table>
|;
}
sub partsgroup_footer {
$form->hide_form(qw(callback path login sessionid));
if ( $myconfig{acs} !~ /Goods \& Services--Add Group/ ) {
print qq|
<button type="submit" class="submit" name="action" value="save">|
. $locale->text('Save')
. qq|</button>
|;
if ( $form->{id} && $form->{orphaned} ) {
print qq|
<button type="submit" class="submit" name="action" value="delete">|
. $locale->text('Delete')
. qq|</button>|;
}
}
if ( $form->{lynx} ) {
require "bin/menu.pl";
&menubar;
}
print qq|
</form>
</body>
</html>
|;
}
sub pricegroup_report {
$form->{pricegroup} = $form->unescape( $form->{pricegroup} );
PE->pricegroups( \%myconfig, \%$form );
$href =
"$form->{script}?action=pricegroup_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=pricegroup_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->{pricegroup} ) {
$callback .= "&pricegroup=$form->{pricegroup}";
$option .=
"\n<br>" . $locale->text('Pricegroup') . " : $form->{pricegroup}";
}
@column_index = $form->sort_columns(qw(pricegroup));
$column_header{pricegroup} =
qq|<th><a class=listheading href=$href&sort=pricegroup width=90%>|
. $locale->text('Pricegroup')
. qq|</th>|;
$form->{title} = $locale->text('Pricegroups');
$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{pricegroup} =
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->{pricegroup}</td>|;
for (@column_index) { print "$column_data{$_}\n" }
print "
</tr>
";
}
$i = 1;
if ( $myconfig{acs} !~ /Goods \& Services--Goods \& Services/ ) {
$button{'Goods & Services--Add Pricegroup'}{code} =
qq|<button class="submit" type="submit" name="action" value="add_pricegroup">|
. $locale->text('Add Pricegroup')
. qq|</button> |;
$button{'Goods & Services--Add Pricegroup'}{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 pricegroup_header {
$form->{title} = $locale->text( ucfirst $form->{action} . " Pricegroup" );
# $locale->text('Add Pricegroup')
# $locale->text('Edit Pricegroup')
$form->{pricegroup} = $form->quote( $form->{pricegroup} );
$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('Pricegroup') . qq|</th>
<td><input name=pricegroup size=30 value="$form->{pricegroup}"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan=2><hr size=3 noshade></td>
</tr>
</table>
|;
}
sub pricegroup_footer {
$form->hide_form(qw(callback path login sessionid));
if ( $myconfig{acs} !~ /Goods \& Services--Add Pricegroup/ ) {
print qq|
<button type="submit" class="submit" name="action" value="save">|
. $locale->text('Save')
. qq|</button>
|;
if ( $form->{id} && $form->{orphaned} ) {
print qq|
<button type="submit" class="submit" name="action" value="delete">|
. $locale->text('Delete')
. qq|</button>|;
}
}
if ( $form->{lynx} ) {
require "bin/menu.pl";
&menubar;
}
print qq|
</form>
</body>
</html>
|;
}
sub translation {
if ( $form->{translation} eq 'description' ) {
$form->{title} = $locale->text('Description Translations');
$sort = qq|<input type=hidden name=sort value=partnumber>|;
$form->{number} = "partnumber";
$number = qq|
<tr>
<th align=right nowrap>| . $locale->text('Number') . qq|</th>
<td><input name=partnumber size=20></td>
</tr>
|;
}
if ( $form->{translation} eq 'partsgroup' ) {
$form->{title} = $locale->text('Group Translations');
$sort = qq|<input type=hidden name=sort value=partsgroup>|;
}
if ( $form->{translation} eq 'project' ) {
$form->{title} = $locale->text('Project Description Translations');
$form->{number} = "projectnumber";
$sort = qq|<input type=hidden name=sort value=projectnumber>|;
$number = qq|
<tr>
<th align=right nowrap>| . $locale->text('Project Number') . qq|</th>
<td><input name=projectnumber size=20></td>
</tr>
|;
}
$form->header;
print qq|
<body>
<form method=post action=$form->{script}>
|;
$form->hide_form(qw(translation title number));
print qq|
<table width="100%">
<tr><th class=listtop>$form->{title}</th></tr>
<tr height="5"></tr>
<tr valign=top>
<td>
<table>
$number
<tr>
<th align=right nowrap>| . $locale->text('Description') . qq|</th>
<td colspan=3><input name=description size=40></td>
</tr>
</table>
</td>
</tr>
<tr><td><hr size=3 noshade></td></tr>
</table>
<input type=hidden name=nextsub value=list_translations>
$sort
|;
$form->hide_form(qw(path login sessionid));
print qq|
<br>
<button class="submit" type="submit" name="action" value="continue">|
. $locale->text('Continue')
. qq|</button>
</form>
</body>
</html>
|;
}
sub list_translations {
$title = $form->escape( $form->{title}, 1 );
$callback =
"$form->{script}?action=list_translations&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&translation=$form->{translation}&number=$form->{number}&title=$title";
if ( $form->{"$form->{number}"} ) {
$callback .= qq|&$form->{number}=$form->{"$form->{number}"}|;
$option .=
$locale->text('Number') . qq| : $form->{"$form->{number}"}<br>|;
}
if ( $form->{description} ) {
$callback .= "&description=$form->{description}";
$description = $form->{description};
$description =~ s/\r?\n/<br>/g;
$option .=
$locale->text('Description') . qq| : $form->{description}<br>|;
}
if ( $form->{translation} eq 'partsgroup' ) {
@column_index = qw(description language translation);
$form->{sort} = "";
}
else {
@column_index =
$form->sort_columns( "$form->{number}", "description", "language",
"translation" );
}
&{"PE::$form->{translation}_translations"}( "", \%myconfig, \%$form );
$callback .= "&direction=$form->{direction}&oldsort=$form->{oldsort}";
$href = $callback;
$form->sort_order();
$callback =~ s/(direction=).*\&{1}/$1$form->{direction}\&/;
$column_header{"$form->{number}"} =
qq|<th nowrap><a class=listheading href=$href&sort=$form->{number}>|
. $locale->text('Number')
. qq|</a></th>|;
$column_header{description} =
qq|<th nowrap width=40%><a class=listheading href=$href&sort=description>|
. $locale->text('Description')
. qq|</a></th>|;
$column_header{language} =
qq|<th nowrap class=listheading>|
. $locale->text('Language')
. qq|</a></th>|;
$column_header{translation} =
qq|<th nowrap width=40% class=listheading>|
. $locale->text('Translation')
. qq|</a></th>|;
$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 "\n$column_header{$_}" }
print qq|
</tr>
|;
# add order to callback
$form->{callback} = $callback .= "&sort=$form->{sort}";
# escape callback for href
$callback = $form->escape($callback);
if ( @{ $form->{translations} } ) {
$sameitem = $form->{translations}->[0]->{ $form->{sort} };
}
foreach $ref ( @{ $form->{translations} } ) {
$ref->{description} =~ s/\r?\n/<br>/g;
for (@column_index) { $column_data{$_} = "<td>$ref->{$_} </td>" }
$column_data{description} =
"<td><a href=$form->{script}?action=edit_translation&translation=$form->{translation}&number=$form->{number}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description} </a></td>";
$i++;
$i %= 2;
print "<tr class=listrow$i>";
for (@column_index) { print "\n$column_data{$_}" }
print qq|
</tr>
|;
}
print qq|
</table>
</td>
</tr>
<tr><td><hr size=3 noshade></td></tr>
</table>
|;
print qq|
<br>
<form method=post action=$form->{script}>
<input name=callback type=hidden value="$form->{callback}">
|;
$form->hide_form(qw(path login sessionid));
if ( $form->{lynx} ) {
require "bin/menu.pl";
&menubar;
}
print qq|
</form>
</body>
</html>
|;
}
sub edit_translation {
&{"PE::$form->{translation}_translations"}( "", \%myconfig, \%$form );
$form->error( $locale->text('Languages not defined!') )
unless @{ $form->{all_language} };
$form->{selectlanguage} = qq|<option>\n|;
for ( @{ $form->{all_language} } ) {
$form->{selectlanguage} .=
qq|<option value="$_->{code}">$_->{description}\n|;
}
$form->{"$form->{number}"} =
$form->{translations}->[0]->{"$form->{number}"};
$form->{description} = $form->{translations}->[0]->{description};
$form->{description} =~ s/\r?\n/<br>/g;
shift @{ $form->{translations} };
$i = 1;
foreach $row ( @{ $form->{translations} } ) {
$form->{"language_code_$i"} = $row->{code};
$form->{"translation_$i"} = $row->{translation};
$i++;
}
$form->{translation_rows} = $i - 1;
$form->{title} = $locale->text('Edit Description Translations');
&translation_header;
&translation_footer;
}
sub translation_header {
$form->{translation_rows}++;
$form->{selectlanguage} = $form->unescape( $form->{selectlanguage} );
for $i ( 1 .. $form->{translation_rows} ) {
$form->{"selectlanguage_$i"} = $form->{selectlanguage};
if ( $form->{"language_code_$i"} ) {
$form->{"selectlanguage_$i"} =~
s/(<option value="\Q$form->{"language_code_$i"}\E")/$1 selected/;
}
}
$form->{selectlanguage} = $form->escape( $form->{selectlanguage}, 1 );
$form->header;
print qq|
<body>
<form method=post action=$form->{script}>
<input type=hidden name=$form->{number} value="|
. $form->quote( $form->{"$form->{number}"} ) . qq|">
<input type=hidden name=description value="|
. $form->quote( $form->{description} ) . qq|">
|;
$form->hide_form(
qw(id trans_id selectlanguage translation_rows number translation title)
);
print qq|
<table width="100%">
<tr><th class=listtop>$form->{title}</th></tr>
<tr height="5"></tr>
<tr valign=top>
<td>
<table width=100%>
<tr>
<td align=left>$form->{"$form->{number}"}</th>
<td align=left>$form->{description}</th>
</tr>
<tr>
<tr>
<th class=listheading>| . $locale->text('Language') . qq|</th>
<th class=listheading>| . $locale->text('Translation') . qq|</th>
</tr>
|;
for $i ( 1 .. $form->{translation_rows} ) {
if ( ( $rows = $form->numtextrows( $form->{"translation_$i"}, 40 ) ) >
1 )
{
$translation =
qq|<textarea name="translation_$i" rows=$rows cols=40 wrap=soft>$form->{"translation_$i"}</textarea>|;
}
else {
$translation =
qq|<input name="translation_$i" size=40 value="$form->{"translation_$i"}">|;
}
print qq|
<tr valign=top>
<td><select name="language_code_$i">$form->{"selectlanguage_$i"}</select></td>
<td>$translation</td>
</tr>
|;
}
print qq|
</table>
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
|;
}
sub translation_footer {
$form->hide_form(qw(path login sessionid callback));
%button = (
'update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
'save' => { ndx => 3, key => 'S', value => $locale->text('Save') },
'delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') },
);
if ( !$form->{trans_id} ) {
delete $button{'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 update {
if ( $form->{translation} ) {
@flds = qw(language translation);
$count = 0;
@a = ();
for $i ( 1 .. $form->{translation_rows} ) {
if ( $form->{"language_code_$i"} ne "" ) {
push @a, {};
$j = $#a;
for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} }
$count++;
}
}
$form->redo_rows( \@flds, \@a, $count, $form->{translation_rows} );
$form->{translation_rows} = $count;
&translation_header;
&translation_footer;
exit;
}
if ( $form->{type} =~ /(job|project)/ ) {
# $locale->text('Customer not on file!')
# $locale->text('Vendor not on file!')
for (qw(production listprice sellprice weight)) {
$form->{$_} = $form->parse_amount( \%myconfig, $form->{$_} );
}
$form->{projectnumber} =
$form->update_defaults( \%myconfig, "projectnumber" )
unless $form->{projectnumber};
if ( $form->{"select$form->{vc}"} ) {
if ( $form->{startdate} ne $form->{oldstartdate}
|| $form->{enddate} ne $form->{oldenddate} )
{
PE->get_customer( \%myconfig, \%$form );
if ( @{ $form->{"all_$form->{vc}"} } ) {
$form->{"select$form->{vc}"} = qq|<option>\n|;
for ( @{ $form->{"all_$form->{vc}"} } ) {
$form->{"select$form->{vc}"} .=
qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;
}
}
}
$form->{"old$form->{vc}"} = $form->{"$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"}|;
}
else {
$msg = ucfirst $form->{vc} . " not on file!";
$form->error( $locale->text($msg) );
}
}
}
}
&display_form;
}
sub select_name {
$label = ucfirst $form->{vc};
@column_index = qw(ndx name address);
$column_data{ndx} = qq|<th> </th>|;
$column_data{name} =
qq|<th class=listheading>| . $locale->text($label) . qq|</th>|;
$column_data{address} =
qq|<th class=listheading colspan=5>|
. $locale->text('Address')
. qq|</th>|;
$form->header;
$title = $locale->text('Select from one of the names below');
print qq|
<body>
<form method=post action=$form->{script}>
<table width=100%>
<tr>
<th class=listtop>$title</th>
</tr>
<tr space=5></tr>
<tr>
<td>
<table width=100%>
<tr class=listheading>|;
for (@column_index) { print "\n$column_data{$_}" }
print qq|
</tr>
|;
@column_index = qw(ndx name address city state zipcode country);
my $i = 0;
foreach $ref ( @{ $form->{name_list} } ) {
$checked = ( $i++ ) ? "" : "checked";
$ref->{name} = $form->quote( $ref->{name} );
$column_data{ndx} =
qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
$column_data{name} =
qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
$column_data{address} = qq|<td>$ref->{address1} $ref->{address2}</td>|;
for (qw(city state zipcode country)) {
$column_data{$_} = qq|<td>$ref->{$_} </td>|;
}
$j++;
$j %= 2;
print qq|
<tr class=listrow$j>|;
for (@column_index) { print "\n$column_data{$_}" }
print qq|
</tr>
<input name="new_id_$i" type=hidden value="$ref->{id}">
|;
}
print qq|
</table>
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
<input name=lastndx type=hidden value="$i">
|;
# delete variables
for (qw(action nextsub name_list)) { delete $form->{$_} }
$form->hide_form;
print qq|
<input type="hidden" name="nextsub" value="name_selected">
<br>
<button class="submit" type="submit" name="action" value="continue">|
. $locale->text('Continue')
. qq|</button>
</form>
</body>
</html>
|;
}
sub name_selected {
# replace the variable with the one checked
# index for new item
$i = $form->{ndx};
$form->{ $form->{vc} } = $form->{"new_name_$i"};
$form->{"$form->{vc}_id"} = $form->{"new_id_$i"};
$form->{"old$form->{vc}"} =
qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
# delete all the new_ variables
for $i ( 1 .. $form->{lastndx} ) {
for (qw(id name)) { delete $form->{"new_${_}_$i"} }
}
for (qw(ndx lastndx nextsub)) { delete $form->{$_} }
&display_form;
}
sub display_form {
&{"$form->{type}_header"};
&{"$form->{type}_footer"};
}
sub continue { &{ $form->{nextsub} } }
sub add_group { &add }
sub add_project { &add }
sub add_job { &add }
sub add_pricegroup { &add }
sub project_sales_order {
PE->project_sales_order( \%myconfig, \%$form );
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|;
}
$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> |
. $locale->text('Current') . qq|
<input name=interval class=radio type=radio value=1> |
. $locale->text('Month') . qq|
<input name=interval class=radio type=radio value=3> |
. $locale->text('Quarter') . qq|
<input name=interval class=radio type=radio value=12> |
. $locale->text('Year') . qq|
</td>
</tr>
|;
}
$fromto = qq|
<tr>
<th align=right nowrap>| . $locale->text('Transaction Dates') . qq|</th>
<td>|
. $locale->text('From')
. qq| <input name=transdatefrom size=11 title="$myconfig{dateformat}">
|
. $locale->text('To')
. qq| <input name=transdateto size=11 title="$myconfig{dateformat}"></td>
</tr>
$selectfrom
|;
if ( @{ $form->{all_project} } ) {
$form->{selectprojectnumber} = "<option>\n";
for ( @{ $form->{all_project} } ) {
$form->{selectprojectnumber} .=
qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
}
}
else {
$form->error( $locale->text('No open Projects!') );
}
if ( @{ $form->{all_employee} } ) {
$form->{selectemployee} = "<option>\n";
for ( @{ $form->{all_employee} } ) {
$form->{selectemployee} .=
qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;
}
$employee = qq|
<tr>
<th align=right nowrap>| . $locale->text('Employee') . qq|</th>
<td><select name=employee>$form->{selectemployee}</select></td>
</tr>
|;
}
$form->{title} = $locale->text('Generate Sales Orders');
$form->{vc} = "customer";
$form->{type} = "sales_order";
$form->header;
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 valign=top>
<td>
<table>
<tr>
<th align=right>| . $locale->text('Project') . qq|</th>
<td colspan=3><select name=projectnumber>$form->{selectprojectnumber}</select></td>
</tr>
$employee
$fromto
<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>
</table>
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
|;
$form->{nextsub} = "project_jcitems_list";
$form->hide_form(qw(path login sessionid nextsub type vc));
print qq|
<button type="submit" class="submit" name="action" value="continue">|
. $locale->text('Continue')
. qq|</button>
</form>
|;
if ( $form->{lynx} ) {
require "bin/menu.pl";
&menubar;
}
print qq|
</body>
</html>
|;
}
sub project_jcitems_list {
$form->{projectnumber} = $form->unescape( $form->{projectnumber} );
$form->{employee} = $form->unescape( $form->{employee} );
$form->{callback} = "$form->{script}?action=project_jcitems_list";
for (
qw(month year interval summary transdatefrom transdateto login path sessionid nextsub type vc)
)
{
$form->{callback} .= "&$_=$form->{$_}";
}
for (qw(employe projectnumber)) {
$form->{callback} .= "&$_=" . $form->escape( $form->{$_}, 1 );
}
PE->get_jcitems( \%myconfig, \%$form );
# flatten array
$i = 1;
foreach $ref ( @{ $form->{jcitems} } ) {
if ( $form->{summary} ) {
$thisitem =
qq|$ref->{project_id}:$ref->{"$form->{vc}_id"}:$ref->{parts_id}|;
if ( $thisitem eq $sameitem ) {
$i--;
for (qw(qty amount)) { $form->{"${_}_$i"} += $ref->{$_} }
$form->{"id_$i"} .= " $ref->{id}:$ref->{qty}";
if ( $form->{"notes_$i"} ) {
$form->{"notes_$i"} .= qq|\n\n$ref->{notes}|;
}
else {
$form->{"notes_$i"} = $ref->{notes};
}
}
else {
for ( keys %$ref ) { $form->{"${_}_$i"} = $ref->{$_} }
$form->{"checked_$i"} = 1;
$form->{"$form->{vc}_$i"} = $ref->{ $form->{vc} };
$form->{"id_$i"} = "$ref->{id}:$ref->{qty}";
}
$sameitem =
qq|$ref->{project_id}:$ref->{"$form->{vc}_id"}:$ref->{parts_id}|;
}
else {
for ( keys %$ref ) { $form->{"${_}_$i"} = $ref->{$_} }
$form->{"checked_$i"} = 1;
$form->{"id_$i"} = "$ref->{id}:$ref->{qty}";
}
$i++;
}
$form->{rowcount} = $i - 1;
for $i ( 1 .. $form->{rowcount} ) {
for (qw(qty allocated)) {
$form->{"${_}_$i"} =
$form->format_amount( \%myconfig, $form->{"${_}_$i"} );
}
for (qw(amount sellprice)) {
$form->{"${_}_$i"} =
$form->format_amount( \%myconfig, $form->{"${_}_$i"}, 2 );
}
}
&jcitems;
}
sub jcitems {
# $locale->text('Customer')
# $locale->text('Vendor')
$vc = ucfirst $form->{vc};
@column_index = qw(id projectnumber name);
if ( !$form->{summary} ) {
push @column_index, qw(transdate);
}
push @column_index, qw(partnumber description qty amount);
$column_header{id} = qq|<th> </th>|;
$column_header{transdate} =
qq|<th class=listheading>| . $locale->text('Date') . qq|</th>|;
$column_header{partnumber} =
qq|<th class=listheading>|
. $locale->text('Service Code')
. qq|<br>|
. $locale->text('Part Number')
. qq|</th>|;
$column_header{projectnumber} =
qq|<th class=listheading>| . $locale->text('Project Number') . qq|</th>|;
$column_header{description} =
qq|<th class=listheading>| . $locale->text('Description') . qq|</th>|;
$column_header{name} = qq|<th class=listheading>$vc</th>|;
$column_header{qty} =
qq|<th class=listheading>| . $locale->text('Qty') . qq|</th>|;
$column_header{amount} =
qq|<th class=listheading>| . $locale->text('Amount') . qq|</th>|;
if ( $form->{type} eq 'sales_order' ) {
$form->{title} = $locale->text('Generate Sales Orders');
}
$form->header;
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>
<table width=100%>
<tr class=listheading>|;
for (@column_index) { print "\n$column_header{$_}" }
print qq|
</tr>
|;
for $i ( 1 .. $form->{rowcount} ) {
for (@column_index) {
$column_data{$_} = qq|<td>$form->{"${_}_$i"}</td>|;
}
for (qw(qty amount)) {
$column_data{$_} = qq|<td align=right>$form->{"${_}_$i"}</td>|;
}
$checked = ( $form->{"checked_$i"} ) ? "checked" : "";
$column_data{id} =
qq|<td><input name="checked_$i" class=checkbox type=checkbox value="1" $checked></td>|;
if ( $form->{"$form->{vc}_id_$i"} ) {
$column_data{name} = qq|<td>$form->{"$form->{vc}_$i"}</td>|;
$form->hide_form( "$form->{vc}_id_$i", "$form->{vc}_$i" );
}
else {
$column_data{name} =
qq|<td><input name="ndx_$i" class=checkbox type=checkbox value="1"></td>|;
}
for (qw(projectnumber partnumber description notes)) {
$form->{"${_}_$i"} = $form->quote( $form->{"${_}_$i"} );
}
$form->hide_form( map { "${_}_$i" }
qw(id project_id parts_id projectnumber transdate partnumber description notes qty amount taxaccounts sellprice)
);
$j++;
$j %= 2;
print "
<tr class=listrow$j>";
for (@column_index) { print "\n$column_data{$_}" }
print qq|
</tr>
|;
}
print qq|
</table>
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
<br>
|;
$form->hide_form(
qw(path login sessionid vc nextsub rowcount type currency defaultcurrency taxaccounts summary callback)
);
for ( split / /, $form->{taxaccounts} ) { $form->hide_form("${_}_rate") }
if ( $form->{rowcount} ) {
print qq|
<button class="submit" type="submit" name="action" value="generate_sales_orders">|
. $locale->text('Generate Sales Orders')
. qq|</button>|;
print qq|
<button class="submit" type="submit" name="action" value="select_customer">|
. $locale->text('Select Customer')
. qq|</button>|;
}
if ( $form->{lynx} ) {
require "bin/menu.pl";
&menubar;
}
print qq|
</form>
</body>
</html>
|;
}
sub select_customer {
for ( 1 .. $form->{rowcount} ) {
last if ( $ok = $form->{"ndx_$_"} );
}
$form->error( $locale->text('Nothing selected!') ) unless $ok;
$label =
( $form->{vc} eq 'customer' )
? $locale->text('Customer')
: $locale->text('Vendor');
$form->header;
print qq|
<body onLoad="document.forms[0].$form->{vc}.focus()">
<form method=post action=$form->{script}>
<b>$label</b> <input name=$form->{vc} size=40>
|;
$form->{nextsub} = "$form->{vc}_selected";
$form->{action} = "$form->{vc}_selected";
$form->hide_form;
print qq|
<button class="submit" type="submit" name="action" value="continue">|
. $locale->text('Continue')
. qq|</button>
</form>
|;
print qq|
</body>
</html>
|;
}
sub customer_selected {
if (
(
$rv = $form->get_name( \%myconfig, $form->{vc}, $form->{startdate} )
) > 1
)
{
&select_name( $form->{vc} );
exit;
}
if ( $rv == 1 ) {
$form->{"$form->{vc}"} = $form->{name_list}[0]->{name};
$form->{"$form->{vc}_id"} = $form->{name_list}[0]->{id};
}
else {
$msg =
( $form->{vc} eq 'customer' )
? $locale->text('Customer not on file!')
: $locale->text('Vendor not on file!');
$form->error( $locale->text($msg) );
}
&display_form;
}
sub sales_order_header {
for ( 1 .. $form->{rowcount} ) {
if ( $form->{"ndx_$_"} ) {
$form->{"$form->{vc}_id_$_"} = $form->{"$form->{vc}_id"};
$form->{"$form->{vc}_$_"} = $form->{"$form->{vc}"};
}
}
}
sub sales_order_footer { &jcitems }
sub generate_sales_orders {
for $i ( 1 .. $form->{rowcount} ) {
$form->error( $locale->text('Customer missing!') )
if ( $form->{"checked_$i"} && !$form->{"customer_$i"} );
}
for $i ( 1 .. $form->{rowcount} ) {
if ( $form->{"checked_$i"} ) {
push @{ $form->{order}{qq|$form->{"customer_id_$i"}|} },
{
partnumber => $form->{"partnumber_$i"},
id => $form->{"parts_id_$i"},
description => $form->{"description_$i"},
qty => $form->{"qty_$i"},
sellprice => $form->{"sellprice_$i"},
projectnumber => qq|--$form->{"project_id_$i"}|,
reqdate => $form->{"transdate_$i"},
taxaccounts => $form->{"taxaccounts_$i"},
jcitems => $form->{"id_$i"},
notes => $form->{"notes_$i"},
};
}
}
$order = new Form;
$order->{dbh} = $form->{dbh};
for ( keys %{ $form->{order} } ) {
for (qw(type vc defaultcurrency login)) { $order->{$_} = $form->{$_} }
for (qw(currency)) { $order->{$_} = $form->{$_} }
for ( split / /, $form->{taxaccounts} ) {
$order->{"${_}_rate"} = $form->{"${_}_rate"};
}
$i = 0;
$order->{"$order->{vc}_id"} = $_;
AA->get_name( \%myconfig, \%$order );
PE->timecard_get_currency( \%$order );
foreach $ref ( @{ $form->{order}{$_} } ) {
$i++;
for ( keys %$ref ) { $order->{"${_}_$i"} = $ref->{$_} }
$taxaccounts = "";
for ( split / /, $order->{taxaccounts} ) {
$taxaccounts .= qq|$_ |
if ( $_ =~ /$order->{"taxaccounts_$i"}/ );
}
$order->{"taxaccounts_$i"} = $taxaccounts;
}
$order->{rowcount} = $i;
$order->{ordnumber} = $order->update_defaults( \%myconfig, 'sonumber' );
$order->{transdate} = $order->current_date( \%myconfig );
$order->{reqdate} = $order->{transdate};
for (qw(intnotes employee employee_id)) { delete $order->{$_} }
if ( OE->save( \%myconfig, \%$order ) ) {
if ( !PE->allocate_projectitems( \%myconfig, \%$order ) ) {
OE->delete( \%myconfig, \%$order,
${LedgerSMB::Sysconfig::spool} );
}
}
else {
$order->error( $locale->text('Failed to save order!') );
}
for ( keys %$order ) { delete $order->{$_} }
}
$form->redirect( $locale->text('Orders generated!') );
}