summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/is.pl170
1 files changed, 85 insertions, 85 deletions
diff --git a/bin/is.pl b/bin/is.pl
index 52e29a58..3322f695 100755
--- a/bin/is.pl
+++ b/bin/is.pl
@@ -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]?',