- foreach $item (@all) {
- if ($item eq $myconfig{stylesheet}) {
- $selectstylesheet .= qq|<option selected>$item\n|;
- } else {
- $selectstylesheet .= qq|<option>$item\n|;
- }
- }
- $selectstylesheet .= "<option>\n";
-
-
- $form->{title} = $locale->text('Edit Preferences for').qq| $form->{login}|;
-
- $form->header;
-
- 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>
- <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} ";
- }