diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/is.pl | 170 |
1 files changed, 85 insertions, 85 deletions
@@ -313,12 +313,12 @@ sub form_header { $exchangerate = qq|<tr>|; $exchangerate .= qq| - <th align=right nowrap>| . $locale->text('Currency') . qq|</th> - <td><select name=currency>$form->{selectcurrency}</select></td> + <th align="right" nowrap>| . $locale->text('Currency') . qq|</th> + <td><select name="currency">$form->{selectcurrency}</select></td> | if $form->{defaultcurrency}; $exchangerate .= qq| - <input type=hidden name=selectcurrency value="$form->{selectcurrency}"> - <input type=hidden name=defaultcurrency value=$form->{defaultcurrency}> + <input type="hidden" name="selectcurrency" value="$form->{selectcurrency}"> + <input type="hidden" name="defaultcurrency" value="$form->{defaultcurrency}"> |; if ( $form->{defaultcurrency} @@ -326,36 +326,36 @@ sub form_header { { if ( $form->{forex} ) { $exchangerate .= - qq|<th align=right>| + qq|<th align="right">| . $locale->text('Exchange Rate') - . qq|</th><td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>|; + . qq|</th><td>$form->{exchangerate}<input type="hidden" name="exchangerate" value="$form->{exchangerate}"></td>|; } else { $exchangerate .= - qq|<th align=right>| + qq|<th align="right">| . $locale->text('Exchange Rate') - . qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|; + . qq|</th><td><input name="exchangerate" size="10" value="$form->{exchangerate}"></td>|; } } $exchangerate .= qq| -<input type=hidden name=forex value=$form->{forex}> +<input type="hidden" name="forex" value="$form->{forex}"> </tr> |; if ( $form->{selectcustomer} ) { - $customer = qq|<select name=customer>$form->{selectcustomer}</select> - <input type=hidden name="selectcustomer" value="| + $customer = qq|<select name="customer">$form->{selectcustomer}</select> + <input type="hidden" name="selectcustomer" value="| . $form->escape( $form->{selectcustomer}, 1 ) . qq|">|; } else { - $customer = qq|<input name=customer value="$form->{customer}" size=35>|; + $customer = qq|<input name="customer" value="$form->{customer}" size="35">|; } $department = qq| <tr> <th align="right" nowrap>| . $locale->text('Department') . qq|</th> - <td colspan=3><select name=department>$form->{selectdepartment}</select> - <input type=hidden name=selectdepartment value="| + <td colspan="3"><select name="department">$form->{selectdepartment}</select> + <input type="hidden" name="selectdepartment" value="| . $form->escape( $form->{selectdepartment}, 1 ) . qq|"> </td> </tr> @@ -366,10 +366,10 @@ sub form_header { if ( $form->{business} ) { $business = qq| <tr> - <th align=right nowrap>| . $locale->text('Business') . qq|</th> + <th align="right" nowrap>| . $locale->text('Business') . qq|</th> <td>$form->{business}</td> - <td width=10></td> - <th align=right nowrap>| . $locale->text('Trade Discount') . qq|</th> + <td width="10"></td> + <th align="right" nowrap>| . $locale->text('Trade Discount') . qq|</th> <td>| . $form->format_amount( \%myconfig, $form->{tradediscount} * 100 ) . qq| %</td> @@ -378,14 +378,14 @@ sub form_header { } $employee = qq| - <input type=hidden name=employee value="$form->{employee}"> + <input type="hidden" name="employee" value="$form->{employee}"> |; $employee = qq| <tr> - <th align=right nowrap>| . $locale->text('Salesperson') . qq|</th> - <td><select name=employee>$form->{selectemployee}</select></td> - <input type=hidden name=selectemployee value="| + <th align="right" nowrap>| . $locale->text('Salesperson') . qq|</th> + <td><select name="employee">$form->{selectemployee}</select></td> + <input type="hidden" name="selectemployee" value="| . $form->escape( $form->{selectemployee}, 1 ) . qq|"> </tr> | if $form->{selectemployee}; @@ -398,7 +398,7 @@ sub form_header { print qq| <body onLoad="document.forms[0].${focus}.focus()"> -<form method=post action="$form->{script}"> +<form method="post" action="$form->{script}"> |; $form->hide_form( @@ -406,34 +406,34 @@ sub form_header { ); print qq| -<table width=100%> - <tr class=listtop> - <th class=listtop>$form->{title}</th> +<table width="100%"> + <tr class="listtop"> + <th class="listtop">$form->{title}</th> </tr> <tr height="5"></tr> <tr> <td> - <table width=100%> - <tr valign=top> + <table width="100%"> + <tr valign="top"> <td> <table> <tr> - <th align=right nowrap>| . $locale->text('Customer') . qq|</th> - <td colspan=3>$customer</td> - <input type=hidden name=customer_id value=$form->{customer_id}> - <input type=hidden name=oldcustomer value="$form->{oldcustomer}"> + <th align="right" nowrap>| . $locale->text('Customer') . qq|</th> + <td colspan="3">$customer</td> + <input type="hidden" name="customer_id" value="$form->{customer_id}"> + <input type="hidden" name="oldcustomer" value="$form->{oldcustomer}"> </tr> <tr> <td></td> - <td colspan=3> + <td colspan="3"> <table> <tr> - <th align=right nowrap>| . $locale->text('Credit Limit') . qq|</th> + <th align="right" nowrap>| . $locale->text('Credit Limit') . qq|</th> <td>| . $form->format_amount( \%myconfig, $form->{creditlimit}, 0, "0" ) . qq|</td> - <td width=10></td> - <th align=right nowrap>| . $locale->text('Remaining') . qq|</th> + <td width="10"></td> + <th align="right" nowrap>| . $locale->text('Remaining') . qq|</th> <td class="plus$n" nowrap>| . $form->format_amount( \%myconfig, $form->{creditremaining}, 0, "0" ) . qq|</td> @@ -443,45 +443,45 @@ sub form_header { </td> </tr> <tr> - <th align=right nowrap>| . $locale->text('Record in') . qq|</th> - <td colspan=3><select name=AR>$form->{selectAR}</select></td> - <input type=hidden name=selectAR value="$form->{selectAR}"> + <th align="right" nowrap>| . $locale->text('Record in') . qq|</th> + <td colspan="3"><select name="AR">$form->{selectAR}</select></td> + <input type="hidden" name="selectAR" value="$form->{selectAR}"> </tr> $department $exchangerate <tr> - <th align=right nowrap>| . $locale->text('Shipping Point') . qq|</th> - <td colspan=3><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td> + <th align="right" nowrap>| . $locale->text('Shipping Point') . qq|</th> + <td colspan="3"><input name="shippingpoint" size="35" value="$form->{shippingpoint}"></td> </tr> <tr> - <th align=right nowrap>| . $locale->text('Ship via') . qq|</th> - <td colspan=3><input name=shipvia size=35 value="$form->{shipvia}"></td> + <th align="right" nowrap>| . $locale->text('Ship via') . qq|</th> + <td colspan="3"><input name="shipvia" size="35" value="$form->{shipvia}"></td> </tr> </table> </td> - <td align=right> + <td align="right"> <table> $employee <tr> - <th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th> - <td><input name=invnumber size=20 value="$form->{invnumber}"></td> + <th align="right" nowrap>| . $locale->text('Invoice Number') . qq|</th> + <td><input name="invnumber" size="20" value="$form->{invnumber}"></td> </tr> <tr> - <th align=right nowrap>| . $locale->text('Order Number') . qq|</th> - <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td> -<input type=hidden name=quonumber value="$form->{quonumber}"> + <th align="right" nowrap>| . $locale->text('Order Number') . qq|</th> + <td><input name="ordnumber" size="20" value="$form->{ordnumber}"></td> +<input type="hidden" name="quonumber" value="$form->{quonumber}"> </tr> <tr> - <th align=right>| . $locale->text('Invoice Date') . qq|</th> - <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td> + <th align="right">| . $locale->text('Invoice Date') . qq|</th> + <td><input name="transdate" size="11" title="$myconfig{dateformat}" value=$form->{transdate}></td> </tr> <tr> - <th align=right>| . $locale->text('Due Date') . qq|</th> - <td><input name=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td> + <th align="right">| . $locale->text('Due Date') . qq|</th> + <td><input name="duedate" size="11" title="$myconfig{dateformat}" value="$form->{duedate}"></td> </tr> <tr> - <th align=right nowrap>| . $locale->text('PO Number') . qq|</th> - <td><input name=ponumber size=20 value="$form->{ponumber}"></td> + <th align="right" nowrap>| . $locale->text('PO Number') . qq|</th> + <td><input name="ponumber" size="20" value="$form->{ponumber}"></td> </tr> </table> </td> @@ -518,9 +518,9 @@ sub form_footer { } $rows = ( $rows > $introws ) ? $rows : $introws; $notes = -qq|<textarea name=notes rows=$rows cols=35 wrap=soft>$form->{notes}</textarea>|; +qq|<textarea name="notes" rows="$rows" cols="35" wrap="soft">$form->{notes}</textarea>|; $intnotes = -qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|; +qq|<textarea name="intnotes" rows="$rows" cols="35" wrap="soft">$form->{intnotes}</textarea>|; $form->{taxincluded} = ( $form->{taxincluded} ) ? "checked" : ""; @@ -529,8 +529,8 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta $taxincluded = qq| <tr height="5"></tr> <tr> - <td align=right> - <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td><th align=left>| + <td align="right"> + <input name="taxincluded" class="checkbox" type="checkbox" value="1" $form->{taxincluded}></td><th align="left">| . $locale->text('Tax Included') . qq|</th> </tr> @@ -546,8 +546,8 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta $form->round_amount( $form->{taxes}{$item}, 2 ), 2 ); $tax .= qq| <tr> - <th align=right>$form->{"${taccno}_description"}</th> - <td align=right>$form->{"${taccno}_total"}</td> + <th align="right">$form->{"${taccno}_description"}</th> + <td align="right">$form->{"${taccno}_total"}</td> </tr>|; } @@ -556,8 +556,8 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta $subtotal = qq| <tr> - <th align=right>| . $locale->text('Subtotal') . qq|</th> - <td align=right>$form->{invsubtotal}</td> + <th align="right">| . $locale->text('Subtotal') . qq|</th> + <td align="right">$form->{invsubtotal}</td> </tr> |; @@ -570,27 +570,27 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta print qq| <tr> <td> - <table width=100%> - <tr valign=bottom> + <table width="100%"> + <tr valign="bottom"> <td> <table> <tr> - <th align=left>| . $locale->text('Notes') . qq|</th> - <th align=left>| . $locale->text('Internal Notes') . qq|</th> + <th align="left">| . $locale->text('Notes') . qq|</th> + <th align="left">| . $locale->text('Internal Notes') . qq|</th> </tr> - <tr valign=top> + <tr valign="top"> <td>$notes</td> <td>$intnotes</td> </tr> </table> </td> - <td align=right> + <td align="right"> <table> $subtotal $tax <tr> - <th align=right>| . $locale->text('Total') . qq|</th> - <td align=right>$form->{invtotal}</td> + <th align="right">| . $locale->text('Total') . qq|</th> + <td align="right">$form->{invtotal}</td> </tr> $taxincluded </table> @@ -601,9 +601,9 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta </tr> <tr> <td> - <table width=100%> - <tr class=listheading> - <th colspan=6 class=listheading>| . $locale->text('Payments') . qq|</th> + <table width="100%"> + <tr class="listheading"> + <th colspan="6" class="listheading">| . $locale->text('Payments') . qq|</th> </tr> |; @@ -652,29 +652,29 @@ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/; if ( $form->{currency} ne $form->{defaultcurrency} ) { if ( $form->{"forex_$i"} ) { $exchangerate = -qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|; +qq|<input type="hidden" name="exchangerate_$i" value="$form->{"exchangerate_$i"}">$form->{"exchangerate_$i"}|; } else { $exchangerate = -qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|; +qq|<input name="exchangerate_$i" size=10 value="$form->{"exchangerate_$i"}">|; } } $exchangerate .= qq| -<input type=hidden name="forex_$i" value=$form->{"forex_$i"}> +<input type="hidden" name="forex_$i" value="$form->{"forex_$i"}"> |; $column_data{paid} = -qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|; - $column_data{exchangerate} = qq|<td align=center>$exchangerate</td>|; +qq|<td align="center"><input name="paid_$i" size="11" value="$form->{"paid_$i"}"></td>|; + $column_data{exchangerate} = qq|<td align="center">$exchangerate</td>|; $column_data{AR_paid} = -qq|<td align=center><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|; +qq|<td align="center"><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|; $column_data{datepaid} = -qq|<td align=center><input name="datepaid_$i" size=11 title="$myconfig{dateformat}" value=$form->{"datepaid_$i"}></td>|; +qq|<td align="center"><input name="datepaid_$i" size="11" title="$myconfig{dateformat}" value="$form->{"datepaid_$i"}"></td>|; $column_data{source} = -qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|; +qq|<td align="center"><input name="source_$i" size="11" value="$form->{"source_$i"}"></td>|; $column_data{memo} = -qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|; +qq|<td align="center"><input name="memo_$i" size="11" value="$form->{"memo_$i"}"></td>|; for (@column_index) { print qq|$column_data{$_}\n| } print " @@ -689,7 +689,7 @@ qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></t </td> </tr> <tr> - <td><hr size=3 noshade></td> + <td><hr size="3" noshade></td> </tr> <tr> <td> @@ -1129,14 +1129,14 @@ sub delete { print qq| <body> -<form method=post action=$form->{script}> +<form method="post" action="$form->{script}"> |; $form->{action} = "yes"; $form->hide_form; print qq| -<h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2> +<h2 class="confirm">| . $locale->text('Confirm!') . qq|</h2> <h4>| . $locale->text( 'Are you sure you want to delete Invoice Number [_1]?', |