- if ($myconfig{menustyle} eq "old") { $oldS = "checked"; }
- else { $newS = "checked"; }
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=old_password value=$myconfig{password}>
-<input type=hidden name=type value=preferences>
-<input type=hidden name=role value=$myconfig{role}>
-
-<table width=100%>
- <tr><th class=listtop>$form->{title}</th></tr>
- <tr>
- <td>
- <table>
- <tr>
- <th align=right>| . $locale->text('Name') . qq|</th>
- <td><input name=name size=15 value="$myconfig{name}"></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Password') . qq|</th>
- <td><input type=password name=new_password size=10 value=$myconfig{password}></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('E-mail') . qq|</th>
- <td><input name=email size=30 value="$myconfig{email}"></td>
- </tr>
- <tr valign=top>
- <th align=right>| . $locale->text('Signature') . qq|</th>
- <td><textarea name=signature rows=3 cols=50>$myconfig{signature}</textarea></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Phone') . qq|</th>
- <td><input name=tel size=14 value="$myconfig{tel}"></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Fax') . qq|</th>
- <td><input name=fax size=14 value="$myconfig{fax}"></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Company') . qq|</th>
- <td><input name=company size=30 value="$myconfig{company}"></td>
- </tr>
- <tr valign=top>
- <th align=right>| . $locale->text('Address') . qq|</th>
- <td><textarea name=address rows=4 cols=50>$myconfig{address}</textarea></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Date Format') . qq|</th>
- <td><select name=dateformat>$dateformat</select></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Number Format') . qq|</th>
- <td><select name=numberformat>$numberformat</select></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Dropdown Limit') . qq|</th>
- <td><input name=vclimit size=10 value="$myconfig{vclimit}"></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Language') . qq|</th>
- <td><select name=countrycode>$countrycodes</select></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Character Set') . qq|</th>
- <td><input name=charset size=20 value="$myconfig{charset}"></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Stylesheet') . qq|</th>
- <td><select name=usestylesheet>$selectstylesheet</select></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Setup Menu') . qq|</th>
- <td><input name=menustyle type=radio class=radio value=neu $newS> New
- <input name=menustyle type=radio class=radio value=old $oldS> Old</td>
- </tr>
- <input name=printer type=hidden value="$myconfig{printer}">
- <tr class=listheading>
- <th colspan=2> </th>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Business Number') . qq|</th>
- <td><input name=businessnumber size=25 value="$myconfig{businessnumber}"></td>
- </tr>
- <tr>
- <td colspan=2>
- <table width=100%>
- <tr>
- <th align=right>| . $locale->text('Year End') . qq| (mm/dd)</th>
- <td><input name=yearend size=5 value=$form->{defaults}{yearend}></td>
- <th align=right>| . $locale->text('Weight Unit') . qq|</th>
- <td><input name=weightunit size=5 value="$form->{defaults}{weightunit}"></td>
- </tr>
- </table>
- </td>
- </tr>
- <tr class=listheading>
- <th colspan=2>|
- . $locale->text('Last Numbers & Default Accounts') . qq|</th>
- </tr>
- <tr>
- <td colspan=2>
- <table width=100%>
- <tr>
- <th align=right nowrap>| . $locale->text('Inventory Account') . qq|</th>
- <td><select name=inventory_accno>$myconfig{IC}</select></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Revenue Account') . qq|</th>
- <td><select name=income_accno>$myconfig{IC_income}</select></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Expense Account') . qq|</th>
- <td><select name=expense_accno>$myconfig{IC_expense}</select></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Foreign Exchange Gain') . qq|</th>
- <td><select name=fxgain_accno>$myconfig{FX_gain}</select></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Foreign Exchange Loss') . qq|</th>
- <td><select name=fxloss_accno>$myconfig{FX_loss}</select></td>
- </tr>
- <tr>
- <td colspan=2>|
- . $locale->text(
- 'Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies'
- )
- . qq|<br><input name=curr size=40 value="$form->{defaults}{curr}"></td>
- </tr>
- </table>
- </td>
- </tr>
- <tr>
- <td colspan=2>
- <table width=100%>
- <tr>
- <th align=right nowrap>| . $locale->text('Last Invoice Number') . qq|</th>
- <td><input name=invnumber size=10 value=$form->{defaults}{invnumber}></td>
- <th align=right nowrap>|
- . $locale->text('Last Customer Number') . qq|</th>
- <td><input name=customernumber size=10 value=$form->{defaults}{customernumber}></td>
- </tr>
- <tr>
- <th align=right nowrap>|
- . $locale->text('Last Sales Order Number') . qq|</th>
- <td><input name=sonumber size=10 value=$form->{defaults}{sonumber}></td>
- <th align=right nowrap>|
- . $locale->text('Last Vendor Number') . qq|</th>
- <td><input name=vendornumber size=10 value=$form->{defaults}{vendornumber}></td>
- </tr>
- <tr>
- <th align=right nowrap>|
- . $locale->text('Last Purchase Order Number') . qq|</th>
- <td><input name=ponumber size=10 value=$form->{defaults}{ponumber}></td>
- <th align=right nowrap>|
- . $locale->text('Last Article Number') . qq|</th>
- <td><input name=articlenumber size=10 value=$form->{defaults}{articlenumber}></td>
- </tr>
- <tr>
- <th align=right nowrap>|
- . $locale->text('Last Sales Quotation Number') . qq|</th>
- <td><input name=sqnumber size=10 value=$form->{defaults}{sqnumber}></td>
- <th align=right nowrap>|
- . $locale->text('Last Service Number') . qq|</th>
- <td><input name=servicenumber size=10 value=$form->{defaults}{servicenumber}></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Last RFQ Number') . qq|</th>
- <td><input name=rfqnumber size=10 value=$form->{defaults}{rfqnumber}></td>
- <th align=right nowrap></th>
- <td></td>
- </tr>
- </table>
- </td>
- </tr>
- <tr class=listheading>
- <th colspan=2>| . $locale->text('Tax Accounts') . qq|</th>
- </tr>
- <tr>
- <td colspan=2>
- <table>
- <tr>
- <th> </th>
- <th>| . $locale->text('Rate') . qq| (%)</th>
- <th>| . $locale->text('Number') . qq|</th>
- </tr>
-|;
-
- foreach $accno (sort keys %{ $form->{taxrates} }) {
- print qq|
- <tr>
- <th align=right>$form->{taxrates}{$accno}{description}</th>
- <td><input name=$form->{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}></td>
- <td><input name="taxnumber_$form->{taxrates}{$accno}{id}" value="$form->{taxrates}{$accno}{taxnumber}"></td>
- </tr>
-|;
- $form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} ";
- }
-
- chop $form->{taxaccounts};
-
- print qq|
-<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
-
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- <tr>
- <td><hr size=3 noshade></td>
- </tr>
-</table>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<br>
-<input type=submit class=submit name=action value="|
- . $locale->text('Save') . qq|">|;
-
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;