summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/io.pl278
-rwxr-xr-xbin/oe.pl686
2 files changed, 482 insertions, 482 deletions
diff --git a/bin/io.pl b/bin/io.pl
index 8fbfb31e..df168219 100755
--- a/bin/io.pl
+++ b/bin/io.pl
@@ -123,14 +123,14 @@ sub display_row {
if ( $form->{type} eq "sales_order" ) {
push @column_index, "ship";
$column_data{ship} =
- qq|<th class=listheading align=center width="auto">|
+ qq|<th class="listheading" align="center" width="auto">|
. $locale->text('Ship')
. qq|</th>|;
}
if ( $form->{type} eq "purchase_order" ) {
push @column_index, "ship";
$column_data{ship} =
- qq|<th class=listheading align=center width="auto">|
+ qq|<th class="listheading" align="center" width="auto">|
. $locale->text('Recd')
. qq|</th>|;
}
@@ -171,32 +171,32 @@ qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;
for ( split / /, $form->{taxaccounts} ) { $form->{"${_}_base"} = 0 }
$column_data{runningnumber} =
- qq|<th class=listheading nowrap>| . $locale->text('Item') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Item') . qq|</th>|;
$column_data{partnumber} =
- qq|<th class=listheading nowrap>| . $locale->text('Number') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Number') . qq|</th>|;
$column_data{description} =
- qq|<th class=listheading nowrap>|
+ qq|<th class="listheading" nowrap>|
. $locale->text('Description')
. qq|</th>|;
$column_data{qty} =
- qq|<th class=listheading nowrap>| . $locale->text('Qty') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Qty') . qq|</th>|;
$column_data{unit} =
- qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Unit') . qq|</th>|;
$column_data{sellprice} =
- qq|<th class=listheading nowrap>| . $locale->text('Price') . qq|</th>|;
- $column_data{discount} = qq|<th class=listheading>%</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Price') . qq|</th>|;
+ $column_data{discount} = qq|<th class="listheading">%</th>|;
$column_data{linetotal} =
- qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Extended') . qq|</th>|;
$column_data{bin} =
- qq|<th class=listheading nowrap>| . $locale->text('Bin') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Bin') . qq|</th>|;
$column_data{onhand} =
- qq|<th class=listheading nowrap>| . $locale->text('OH') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('OH') . qq|</th>|;
print qq|
<tr>
<td>
- <table width=100%>
- <tr class=listheading>|;
+ <table width="100%">
+ <tr class="listheading">|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -271,13 +271,13 @@ qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;
$form->{"description_$i"} =
$form->quote( $form->{"description_$i"} );
$column_data{description} =
-qq|<td><textarea name="description_$i" rows=$rows cols=46 wrap=soft>$form->{"description_$i"}</textarea></td>|;
+qq|<td><textarea name="description_$i" rows="$rows" cols="46" wrap="soft">$form->{"description_$i"}</textarea></td>|;
}
else {
$form->{"description_$i"} =
$form->quote( $form->{"description_$i"} );
$column_data{description} =
-qq|<td><input name="description_$i" size=48 value="$form->{"description_$i"}"></td>|;
+qq|<td><input name="description_$i" size="48" value="$form->{"description_$i"}"></td>|;
}
for (qw(partnumber sku unit)) {
@@ -292,7 +292,7 @@ qq|<td><input name="description_$i" size=48 value="$form->{"description_$i"}"></
if ( $i < $numrows ) {
$partsgroup = qq|
<b>$group</b>
- <input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">|;
+ <input type="hidden" name="partsgroup_$i" value="$form->{"partsgroup_$i"}">|;
( $form->{"partsgroup_$i"} ) = split /--/,
$form->{"partsgroup_$i"};
$partsgroup .= $form->{"partsgroup_$i"};
@@ -301,43 +301,43 @@ qq|<td><input name="description_$i" size=48 value="$form->{"description_$i"}"></
}
$delivery = qq|
- <td colspan=2 nowrap>
+ <td colspan="2" nowrap>
<b>${$delvar}</b>
- <input name="${delvar}_$i" size=11 title="$myconfig{dateformat}" value="$form->{"${delvar}_$i"}"></td>
+ <input name="${delvar}_$i" size="11" title="$myconfig{dateformat}" value="$form->{"${delvar}_$i"}"></td>
|;
$column_data{runningnumber} =
- qq|<td><input name="runningnumber_$i" size=3 value=$i></td>|;
+ qq|<td><input name="runningnumber_$i" size="3" value="$i"></td>|;
$column_data{partnumber} =
-qq|<td><input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}" accesskey="$i" title="[Alt-$i]">$skunumber</td>|;
+qq|<td><input name="partnumber_$i" size="15" value="$form->{"partnumber_$i"}" accesskey="$i" title="[Alt-$i]">$skunumber</td>|;
$column_data{qty} =
-qq|<td align=right><input name="qty_$i" title="$form->{"onhand_$i"}" size=5 value=|
+qq|<td align="right"><input name="qty_$i" title="$form->{"onhand_$i"}" size="5" value="|
. $form->format_amount( \%myconfig, $form->{"qty_$i"} )
- . qq|></td>|;
+ . qq|"></td>|;
$column_data{ship} =
- qq|<td align=right><input name="ship_$i" size=5 value=|
+ qq|<td align="right"><input name="ship_$i" size="5" value="|
. $form->format_amount( \%myconfig, $form->{"ship_$i"} )
- . qq|></td>|;
+ . qq|"></td>|;
$column_data{unit} =
- qq|<td><input name="unit_$i" size=5 value="$form->{"unit_$i"}"></td>|;
+ qq|<td><input name="unit_$i" size="5" value="$form->{"unit_$i"}"></td>|;
$column_data{sellprice} =
- qq|<td align=right><input name="sellprice_$i" size=9 value=|
+ qq|<td align="right"><input name="sellprice_$i" size="9" value="|
. $form->format_amount( \%myconfig, $form->{"sellprice_$i"},
$decimalplaces )
- . qq|></td>|;
+ . qq|"></td>|;
$column_data{discount} =
- qq|<td align=right><input name="discount_$i" size=3 value=|
+ qq|<td align="right"><input name="discount_$i" size="3" value="|
. $form->format_amount( \%myconfig, $form->{"discount_$i"} )
- . qq|></td>|;
+ . qq|"></td>|;
$column_data{linetotal} =
- qq|<td align=right>|
+ qq|<td align="right">|
. $form->format_amount( \%myconfig, $linetotal, 2 )
. qq|</td>|;
$column_data{bin} = qq|<td>$form->{"bin_$i"}</td>|;
$column_data{onhand} = qq|<td>$form->{"onhand_$i"}</td>|;
print qq|
- <tr valign=top>|;
+ <tr valign="top">|;
for (@column_index) {
print "\n$column_data{$_}";
@@ -345,7 +345,7 @@ qq|<td align=right><input name="qty_$i" title="$form->{"onhand_$i"}" size=5 valu
print qq|
</tr>
-<input type=hidden name="oldqty_$i" value="$form->{"qty_$i"}">
+<input type="hidden" name="oldqty_$i" value="$form->{"qty_$i"}">
|;
for (
@@ -368,16 +368,16 @@ qq|<td align=right><input name="qty_$i" title="$form->{"onhand_$i"}" size=5 valu
{
$form->{"notes_$i"} = $form->quote( $form->{"notes_$i"} );
$notes =
-qq|<td><textarea name="notes_$i" rows=$rows cols=46 wrap=soft>$form->{"notes_$i"}</textarea></td>|;
+qq|<td><textarea name="notes_$i" rows="$rows" cols="46" wrap="soft">$form->{"notes_$i"}</textarea></td>|;
}
else {
$form->{"notes_$i"} = $form->quote( $form->{"notes_$i"} );
$notes =
-qq|<td><input name="notes_$i" size=48 value="$form->{"notes_$i"}"></td>|;
+qq|<td><input name="notes_$i" size="48" value="$form->{"notes_$i"}"></td>|;
}
$serial = qq|
- <td colspan=6 nowrap><b>$serialnumber</b> <input name="serialnumber_$i" value="$form->{"serialnumber_$i"}"></td>|
+ <td colspan="6" nowrap><b>$serialnumber</b> <input name="serialnumber_$i" value="$form->{"serialnumber_$i"}"></td>|
if $form->{type} !~ /_quotation/;
if ( $i == $numrows ) {
@@ -397,19 +397,19 @@ qq|<td><input name="notes_$i" size=48 value="$form->{"notes_$i"}"></td>|;
# print second and third row
print qq|
- <tr valign=top>
+ <tr valign="top">
$delivery
$notes
$serial
</tr>
- <tr valign=top>
- <td colspan=$colspan>
+ <tr valign="top">
+ <td colspan="$colspan">
$project
$partsgroup
</td>
</tr>
<tr>
- <td colspan=$colspan><hr size=1 noshade></td>
+ <td colspan="$colspan"><hr size="1" noshade></td>
</tr>
|;
@@ -432,11 +432,11 @@ qq|<td><input name="notes_$i" size=48 value="$form->{"notes_$i"}"></td>|;
print qq|
-<input type=hidden name=oldcurrency value=$form->{currency}>
+<input type="hidden" name="oldcurrency" value="$form->{currency}">
-<input type=hidden name=selectpartsgroup value="|
+<input type="hidden" name="selectpartsgroup" value="|
. $form->escape( $form->{selectpartsgroup}, 1 ) . qq|">
-<input type=hidden name=selectprojectnumber value="|
+<input type="hidden" name="selectprojectnumber" value="|
. $form->escape( $form->{selectprojectnumber}, 1 ) . qq|">
|;
@@ -456,17 +456,17 @@ sub select_item {
$column_data{ndx} = qq|<th>&nbsp;</th>|;
$column_data{partnumber} =
- qq|<th class=listheading>| . $locale->text('Number') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Number') . qq|</th>|;
$column_data{sku} =
- qq|<th class=listheading>| . $locale->text('SKU') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('SKU') . qq|</th>|;
$column_data{description} =
- qq|<th class=listheading>| . $locale->text('Description') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Description') . qq|</th>|;
$column_data{partsgroup} =
- qq|<th class=listheading>| . $locale->text('Group') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Group') . qq|</th>|;
$column_data{sellprice} =
- qq|<th class=listheading>| . $locale->text('Price') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Price') . qq|</th>|;
$column_data{onhand} =
- qq|<th class=listheading>| . $locale->text('Qty') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Qty') . qq|</th>|;
$exchangerate = ( $form->{exchangerate} ) ? $form->{exchangerate} : 1;
@@ -478,11 +478,11 @@ sub select_item {
print qq|
<body>
-<form method=post action="$form->{script}">
+<form method="post" action="$form->{script}">
-<table width=100%>
+<table width="100%">
<tr>
- <th class=listtop>$title</th>
+ <th class="listtop">$title</th>
</tr>
<tr height="5"></tr>
<tr>
@@ -490,8 +490,8 @@ sub select_item {
</tr>
<tr>
<td>
- <table width=100%>
- <tr class=listheading>|;
+ <table width="100%">
+ <tr class="listheading">|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -508,25 +508,25 @@ sub select_item {
}
$column_data{ndx} =
-qq|<td><input name="ndx_$i" class=checkbox type=checkbox value=$i></td>|;
+qq|<td><input name="ndx_$i" class="checkbox" type="checkbox" value="$i"></td>|;
for (qw(partnumber sku description partsgroup)) {
$column_data{$_} = qq|<td>$ref->{$_}&nbsp;</td>|;
}
- $column_data{sellprice} = qq|<td align=right>|
+ $column_data{sellprice} = qq|<td align="right">|
. $form->format_amount( \%myconfig, $ref->{sellprice} / $exchangerate,
2, "&nbsp;" )
. qq|</td>|;
$column_data{onhand} =
- qq|<td align=right>|
+ qq|<td align="right">|
. $form->format_amount( \%myconfig, $ref->{onhand}, '', "&nbsp;" )
. qq|</td>|;
$j++;
$j %= 2;
print qq|
- <tr class=listrow$j>|;
+ <tr class="listrow$j">|;
for (@column_index) {
print "\n$column_data{$_}";
@@ -541,7 +541,7 @@ qq|<td><input name="ndx_$i" class=checkbox type=checkbox value=$i></td>|;
)
{
print
- qq|<input type=hidden name="new_${_}_$i" value="$ref->{$_}">\n|;
+ qq|<input type="hidden" name="new_${_}_$i" value="$ref->{$_}">\n|;
}
}
@@ -550,11 +550,11 @@ qq|<td><input name="ndx_$i" class=checkbox type=checkbox value=$i></td>|;
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
-<input name=lastndx type=hidden value=$i>
+<input name="lastndx" type="hidden" value="$i">
|;
@@ -736,7 +736,7 @@ sub new_item {
print qq|
<body>
-<h4 class=error>| . $locale->text('Item not on file!') . qq|</h4>|;
+<h4 class="error">| . $locale->text('Item not on file!') . qq|</h4>|;
if ( $myconfig{acs} !~
/(Goods \& Services--Add Part|Goods \& Services--Add Service)/ )
@@ -745,20 +745,20 @@ sub new_item {
print qq|
<h4>| . $locale->text('What type of item is this?') . qq|</h4>
-<form method=post action=ic.pl>
+<form method="post" action="ic.pl">
<p>
- <input class=radio type=radio name=item value=part checked>&nbsp;|
+ <input class="radio" type="radio" name="item" value="part" checked>&nbsp;|
. $locale->text('Part') . qq|<br>
- <input class=radio type=radio name=item value=service>&nbsp;|
+ <input class="radio" type="radio" name="item" value="service">&nbsp;|
. $locale->text('Service')
. qq|
-<input type=hidden name=partnumber value="$form->{"partnumber_$i"}">
-<input type=hidden name=description value="$form->{"description_$i"}">
-<input type=hidden name=nextsub value=add>
-<input type=hidden name=action value=add>
+<input type="hidden" name="partnumber" value="$form->{"partnumber_$i"}">
+<input type="hidden" name="description" value="$form->{"description_$i"}">
+<input type="hidden" name="nextsub" value="add">
+<input type="hidden" name="action" value="add">
|;
$form->hide_form(qw(previousform rowcount path login sessionid));
@@ -1153,11 +1153,11 @@ sub create_form {
sub e_mail {
- $bcc = qq|<input type=hidden name=bcc value="$form->{bcc}">|;
+ $bcc = qq|<input type="hidden" name="bcc" value="$form->{bcc}">|;
if ( $myconfig{role} =~ /(admin|manager)/ ) {
$bcc = qq|
- <th align=right nowrap=true>| . $locale->text('Bcc') . qq|</th>
- <td><input name=bcc size=30 value="$form->{bcc}"></td>
+ <th align="right" nowrap="true">| . $locale->text('Bcc') . qq|</th>
+ <td><input name="bcc" size="30" value="$form->{bcc}"></td>
|;
}
@@ -1174,25 +1174,25 @@ sub e_mail {
print qq|
<body>
-<form method=post action="$form->{script}">
+<form method="post" action="$form->{script}">
-<table width=100%>
- <tr class=listtop>
- <th class=listtop>$title</th>
+<table width="100%">
+ <tr class="listtop">
+ <th class="listtop">$title</th>
</tr>
<tr height="5"></tr>
<tr>
<td>
- <table width=100%>
+ <table width="100%">
<tr>
- <th align=right nowrap>| . $locale->text('E-mail') . qq|</th>
- <td><input name=email size=30 value="$form->{email}"></td>
- <th align=right nowrap>| . $locale->text('Cc') . qq|</th>
- <td><input name=cc size=30 value="$form->{cc}"></td>
+ <th align="right" nowrap>| . $locale->text('E-mail') . qq|</th>
+ <td><input name="email" size="30" value="$form->{email}"></td>
+ <th align="right" nowrap>| . $locale->text('Cc') . qq|</th>
+ <td><input name="cc" size="30" value="$form->{cc}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Subject') . qq|</th>
- <td><input name=subject size=30 value="$form->{subject}"></td>
+ <th align="right" nowrap>| . $locale->text('Subject') . qq|</th>
+ <td><input name="subject" size="30" value="$form->{subject}"></td>
$bcc
</tr>
</table>
@@ -1200,12 +1200,12 @@ sub e_mail {
</tr>
<tr>
<td>
- <table width=100%>
+ <table width="100%">
<tr>
- <th align=left nowrap>| . $locale->text('Message') . qq|</th>
+ <th align="left" nowrap>| . $locale->text('Message') . qq|</th>
</tr>
<tr>
- <td><textarea name=message rows=15 cols=60 wrap=soft>$form->{message}</textarea></td>
+ <td><textarea name="message" rows="15" cols="60" wrap="soft">$form->{message}</textarea></td>
</tr>
</table>
</td>
@@ -1233,7 +1233,7 @@ sub e_mail {
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
@@ -1276,9 +1276,9 @@ sub print_options {
$form->{"selectlanguage"} =~
s/(<option value="\Q$form->{language_code}\E")/$1 selected/;
- $lang = qq|<select name=language_code>$form->{selectlanguage}</select>
- <input type=hidden name=oldlanguage_code value=$form->{oldlanguage_code}>
- <input type=hidden name=selectlanguage value="|
+ $lang = qq|<select name="language_code">$form->{selectlanguage}</select>
+ <input type="hidden" name="oldlanguage_code" value="$form->{oldlanguage_code}">
+ <input type="hidden" name="selectlanguage" value="|
. $form->escape( $form->{selectlanguage}, 1 ) . qq|">|;
}
@@ -1287,20 +1287,20 @@ sub print_options {
$form->{selectformname} =~
s/(<option value="\Q$form->{formname}\E")/$1 selected/;
- $type = qq|<select name=formname>$form->{selectformname}</select>
- <input type=hidden name=selectformname value="|
+ $type = qq|<select name="formname">$form->{selectformname}</select>
+ <input type="hidden" name="selectformname" value="|
. $form->escape( $form->{selectformname}, 1 ) . qq|">|;
if ( $form->{media} eq 'email' ) {
- $media = qq|<select name=sendmode>
- <option value=attachment $form->{SM}{attachment}>|
+ $media = qq|<select name="sendmode">
+ <option value="attachment" $form->{SM}{attachment}>|
. $locale->text('Attachment') . qq|
- <option value=inline $form->{SM}{inline}>|
+ <option value="inline" $form->{SM}{inline}>|
. $locale->text('In-line')
. qq|</select>|;
}
else {
- $media = qq|<select name=media>
+ $media = qq|<select name="media">
<option value="screen">| . $locale->text('Screen');
if ( %{LedgerSMB::Sysconfig::printer}
@@ -1332,14 +1332,14 @@ sub print_options {
<option value="pdf">| . $locale->text('PDF');
}
- $format = qq|<select name=format>$form->{selectformat}</select>|;
+ $format = qq|<select name="format">$form->{selectformat}</select>|;
$format =~ s/(<option value="\Q$form->{format}\E")/$1 selected/;
$format .= qq|
- <input type=hidden name=selectformat value="|
+ <input type="hidden" name="selectformat" value="|
. $form->escape( $form->{selectformat}, 1 ) . qq|">|;
print qq|
-<table width=100%>
+<table width="100%">
<tr>
<td>$type</td>
<td>$lang</td>
@@ -1353,7 +1353,7 @@ sub print_options {
{
print qq|
<td nowrap>| . $locale->text('Copies') . qq|
- <input name=copies size=2 value=$form->{copies}></td>
+ <input name="copies" size="2" value="$form->{copies}"></td>
|;
}
@@ -1369,7 +1369,7 @@ sub print_options {
recurring => 'Scheduled'
);
- print qq|<td align=right width=90%>|;
+ print qq|<td align="right" width="90%">|;
for (qw(printed emailed queued recurring)) {
if ( $form->{$_} =~ /$form->{formname}/ ) {
@@ -1391,23 +1391,23 @@ sub print_options {
print qq|
<tr>
- <td colspan=6>| . $locale->text('Group by') . qq| ->
- <input name=groupprojectnumber type=checkbox class=checkbox $form->{groupprojectnumber}>
+ <td colspan="6">| . $locale->text('Group by') . qq| ->
+ <input name="groupprojectnumber" type="checkbox" class="checkbox" $form->{groupprojectnumber}>
| . $locale->text('Project') . qq|
- <input name=grouppartsgroup type=checkbox class=checkbox $form->{grouppartsgroup}>
+ <input name="grouppartsgroup" type="checkbox" class="checkbox" $form->{grouppartsgroup}>
| . $locale->text('Group') . qq|
</td>
</tr>
<tr>
- <td colspan=6>| . $locale->text('Sort by') . qq| ->
- <input name=sortby type=radio class=radio value=runningnumber $sortby{runningnumber}>
+ <td colspan="6">| . $locale->text('Sort by') . qq| ->
+ <input name="sortby" type="radio" class="radio" value="runningnumber" $sortby{runningnumber}>
| . $locale->text('Item') . qq|
- <input name=sortby type=radio class=radio value=partnumber $sortby{partnumber}>
+ <input name="sortby" type="radio" class="radio" value="partnumber" $sortby{partnumber}>
| . $locale->text('Number') . qq|
- <input name=sortby type=radio class=radio value=description $sortby{description}>
+ <input name="sortby" type="radio" class="radio" value="description" $sortby{description}>
| . $locale->text('Description') . qq|
- <input name=sortby type=radio class=radio value=bin $sortby{bin}>
+ <input name="sortby" type="radio" class="radio" value="bin" $sortby{bin}>
| . $locale->text('Bin') . qq|
</td>
@@ -1666,7 +1666,7 @@ sub print_form {
$form->{IN} =~ s/$&$/tex/;
}
- $form->{pre} = "<body bgcolor=#ffffff>\n<pre>" if $form->{format} eq 'txt';
+ $form->{pre} = '<body bgcolor="#ffffff">\n<pre>' if $form->{format} eq 'txt';
if ( $form->{media} !~ /(screen|queue|email)/ ) {
$form->{OUT} = ${LedgerSMB::Sysconfig::printer}{ $form->{media} };
@@ -1871,86 +1871,86 @@ sub ship_to {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<table width=100%>
+<table width="100%">
<tr>
<td>
<table>
- <tr class=listheading>
- <th class=listheading colspan=2 width=50%>|
+ <tr class="listheading">
+ <th class="listheading" colspan="2" width="50%">|
. $locale->text('Billing Address')
. qq|</th>
- <th class=listheading width=50%>|
+ <th class="listheading" width="50%">|
. $locale->text('Shipping Address')
. qq|</th>
</tr>
<tr height="5"></tr>
<tr>
- <th align=right nowrap>$number</th>
+ <th align="right" nowrap>$number</th>
<td>$form->{"$form->{vc}number"}</td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Company Name') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('Company Name') . qq|</th>
<td>$form->{name}</td>
- <td><input name=shiptoname size=35 maxlength=64 value="$form->{shiptoname}"></td>
+ <td><input name="shiptoname" size="35" maxlength="64" value="$form->{shiptoname}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Address') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('Address') . qq|</th>
<td>$form->{address1}</td>
- <td><input name=shiptoaddress1 size=35 maxlength=32 value="$form->{shiptoaddress1}"></td>
+ <td><input name="shiptoaddress1" size="35" maxlength="32" value="$form->{shiptoaddress1}"></td>
</tr>
<tr>
<th></th>
<td>$form->{address2}</td>
- <td><input name=shiptoaddress2 size=35 maxlength=32 value="$form->{shiptoaddress2}"></td>
+ <td><input name="shiptoaddress2" size="35" maxlength="32" value="$form->{shiptoaddress2}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('City') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('City') . qq|</th>
<td>$form->{city}</td>
- <td><input name=shiptocity size=35 maxlength=32 value="$form->{shiptocity}"></td>
+ <td><input name="shiptocity" size="35" maxlength="32" value="$form->{shiptocity}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('State/Province') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('State/Province') . qq|</th>
<td>$form->{state}</td>
- <td><input name=shiptostate size=35 maxlength=32 value="$form->{shiptostate}"></td>
+ <td><input name="shiptostate" size="35" maxlength="32" value="$form->{shiptostate}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Zip/Postal Code') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('Zip/Postal Code') . qq|</th>
<td>$form->{zipcode}</td>
- <td><input name=shiptozipcode size=10 maxlength=10 value="$form->{shiptozipcode}"></td>
+ <td><input name="shiptozipcode" size="10" maxlength="10" value="$form->{shiptozipcode}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Country') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('Country') . qq|</th>
<td>$form->{country}</td>
- <td><input name=shiptocountry size=35 maxlength=32 value="$form->{shiptocountry}"></td>
+ <td><input name="shiptocountry" size="35" maxlength="32" value="$form->{shiptocountry}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Contact') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('Contact') . qq|</th>
<td>$form->{contact}</td>
- <td><input name=shiptocontact size=35 maxlength=64 value="$form->{shiptocontact}"></td>
+ <td><input name="shiptocontact" size="35" maxlength="64" value="$form->{shiptocontact}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Phone') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('Phone') . qq|</th>
<td>$form->{"$form->{vc}phone"}</td>
- <td><input name=shiptophone size=20 value="$form->{shiptophone}"></td>
+ <td><input name="shiptophone" size="20" value="$form->{shiptophone}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Fax') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('Fax') . qq|</th>
<td>$form->{"$form->{vc}fax"}</td>
- <td><input name=shiptofax size=20 value="$form->{shiptofax}"></td>
+ <td><input name="shiptofax" size="20" value="$form->{shiptofax}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('E-mail') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('E-mail') . qq|</th>
<td>$form->{email}</td>
- <td><input name=shiptoemail size=35 value="$form->{shiptoemail}"></td>
+ <td><input name="shiptoemail" size="35" value="$form->{shiptoemail}"></td>
</tr>
</table>
</td>
</tr>
</table>
-<input type=hidden name=nextsub value=$nextsub>
+<input type="hidden" name="nextsub" value="$nextsub">
|;
# delete shipto
@@ -1967,7 +1967,7 @@ sub ship_to {
print qq|
-<hr size=3 noshade>
+<hr size="3" noshade>
<br>
<button class="submit" type="submit" name="action" value="continue">|
diff --git a/bin/oe.pl b/bin/oe.pl
index 00617c8e..af15f373 100755
--- a/bin/oe.pl
+++ b/bin/oe.pl
@@ -354,10 +354,10 @@ sub form_header {
if ( $form->{id} ) {
$openclosed = qq|
<tr>
- <th nowrap align=right><input name=closed type=radio class=radio value=0 $checkedopen> |
+ <th nowrap align="right"><input name="closed" type="radio" class="radio" value="0" $checkedopen> |
. $locale->text('Open')
. qq|</th>
- <th nowrap align=left><input name=closed type=radio class=radio value=1 $checkedclosed> |
+ <th nowrap align="left"><input name="closed" type="radio" class="radio" value="1" $checkedclosed> |
. $locale->text('Closed')
. qq|</th>
</tr>
@@ -380,12 +380,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}
@@ -393,21 +393,21 @@ sub form_header {
{
if ( $form->{forex} ) {
$exchangerate .=
- qq|<th align=right>|
+ qq|<th align="right">|
. $locale->text('Exchange Rate')
. qq|</th><td>$form->{exchangerate}</td>
- <input type=hidden name=exchangerate value=$form->{exchangerate}>
+ <input type="hidden" name="exchangerate" value="$form->{exchangerate}">
|;
}
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>
|;
@@ -416,8 +416,8 @@ sub form_header {
$terms = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Terms') . qq|</th>
- <td nowrap><input name=terms size="3" maxlength="3" value=$form->{terms}> |
+ <th align="right" nowrap>| . $locale->text('Terms') . qq|</th>
+ <td nowrap><input name="terms" size="3" maxlength="3" value="$form->{terms}"> |
. $locale->text('days')
. qq|</td>
</tr>
@@ -426,8 +426,8 @@ sub form_header {
if ( $form->{business} ) {
$business = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Business') . qq|</th>
- <td colspan=3>$form->{business}
+ <th align="right" nowrap>| . $locale->text('Business') . qq|</th>
+ <td colspan="3">$form->{business}
&nbsp;&nbsp;&nbsp;|;
$business .= qq|
<b>| . $locale->text('Trade Discount') . qq|</b>
@@ -441,21 +441,21 @@ sub form_header {
if ( $form->{type} !~ /_quotation$/ ) {
$ordnumber = qq|
<tr>
- <th width=70% 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 width="70%" 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 nowrap>| . $locale->text('Order Date') . qq|</th>
- <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
+ <th align="right" nowrap>| . $locale->text('Order Date') . qq|</th>
+ <td><input name="transdate" size="11" title="$myconfig{dateformat}" value="$form->{transdate}"></td>
</tr>
<tr>
- <th align=right nowrap=true>| . $locale->text('Required by') . qq|</th>
- <td><input name=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate}></td>
+ <th align="right" nowrap="true">| . $locale->text('Required by') . qq|</th>
+ <td><input name="reqdate" size="11" title="$myconfig{dateformat}" value="$form->{reqdate}"></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>
|;
@@ -464,15 +464,15 @@ sub form_header {
$creditremaining = qq|
<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>
@@ -490,20 +490,20 @@ sub form_header {
if ( $form->{type} eq 'sales_quotation' ) {
$ordnumber = qq|
<tr>
- <th width=70% align=right nowrap>|
+ <th width="70%" align="right" nowrap>|
. $locale->text('Quotation Number')
. qq|</th>
- <td><input name=quonumber size=20 value="$form->{quonumber}"></td>
- <input type=hidden name=ordnumber value="$form->{ordnumber}">
+ <td><input name="quonumber" size="20" value="$form->{quonumber}"></td>
+ <input type="hidden" name="ordnumber" value="$form->{ordnumber}">
</tr>
|;
}
else {
$ordnumber = qq|
<tr>
- <th width=70% align=right nowrap>| . $locale->text('RFQ Number') . qq|</th>
- <td><input name=quonumber size=20 value="$form->{quonumber}"></td>
- <input type=hidden name=ordnumber value="$form->{ordnumber}">
+ <th width="70%" align="right" nowrap>| . $locale->text('RFQ Number') . qq|</th>
+ <td><input name="quonumber" size="20" value="$form->{quonumber}"></td>
+ <input type="hidden" name="ordnumber" value="$form->{ordnumber}">
</tr>
|;
@@ -512,50 +512,50 @@ sub form_header {
$ordnumber .= qq|
<tr>
- <th align=right nowrap>| . $locale->text('Quotation Date') . qq|</th>
- <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
+ <th align="right" nowrap>| . $locale->text('Quotation Date') . qq|</th>
+ <td><input name="transdate" size="11" title="$myconfig{dateformat}" value="$form->{transdate}"></td>
</tr>
<tr>
- <th align=right nowrap=true>$reqlabel</th>
- <td><input name=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate}></td>
+ <th align="right" nowrap="true">$reqlabel</th>
+ <td><input name="reqdate" size="11" title="$myconfig{dateformat}" value="$form->{reqdate}"></td>
</tr>
|;
}
$ordnumber .= qq|
-<input type=hidden name=oldtransdate value=$form->{oldtransdate}>|;
+<input type="hidden" name="oldtransdate" value="$form->{oldtransdate}">|;
if ( $form->{"select$form->{vc}"} ) {
- $vc = qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}</select>
- <input type=hidden name="select$form->{vc}" value="|
+ $vc = qq|<select name="$form->{vc}">$form->{"select$form->{vc}"}</select>
+ <input type="hidden" name="select$form->{vc}" value="|
. $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">|;
}
else {
- $vc = qq|<input name=$form->{vc} value="$form->{$form->{vc}}" size=35>|;
+ $vc = qq|<input name="$form->{vc}" value="$form->{$form->{vc}}" 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>
| if $form->{selectdepartment};
$employee = qq|
- <input type=hidden name=employee value="$form->{employee}">
+ <input type="hidden" name="employee" value="$form->{employee}">
|;
if ( $form->{type} eq 'sales_order' ) {
if ( $form->{selectemployee} ) {
$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>
|;
@@ -565,9 +565,9 @@ sub form_header {
if ( $form->{selectemployee} ) {
$employee = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Employee') . qq|</th>
- <td><select name=employee>$form->{selectemployee}</select></td>
- <input type=hidden name=selectemployee value="|
+ <th align="right" nowrap>| . $locale->text('Employee') . qq|</th>
+ <td><select name="employee">$form->{selectemployee}</select></td>
+ <input type="hidden" name="selectemployee" value="|
. $form->escape( $form->{selectemployee}, 1 ) . qq|"
</tr>
|;
@@ -582,7 +582,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(
@@ -590,38 +590,38 @@ 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>
+ <tr valign="top">
<td>
- <table width=100%>
+ <table width="100%">
<tr>
- <th align=right>$vclabel</th>
- <td colspan=3>$vc</td>
- <input type=hidden name=$form->{vc}_id value=$form->{"$form->{vc}_id"}>
- <input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
+ <th align="right">$vclabel</th>
+ <td colspan="3">$vc</td>
+ <input type="hidden" name="$form->{vc}_id" value="$form->{"$form->{vc}_id"}">
+ <input type="hidden" name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
</tr>
$creditremaining
$business
$department
$exchangerate
<tr>
- <th align=right>| . $locale->text('Shipping Point') . qq|</th>
- <td colspan=3><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td>
+ <th align="right">| . $locale->text('Shipping Point') . qq|</th>
+ <td colspan="3"><input name="shippingpoint" size="35" value="$form->{shippingpoint}"></td>
</tr>
<tr>
- <th align=right>| . $locale->text('Ship via') . qq|</th>
- <td colspan=3><input name=shipvia size=35 value="$form->{shipvia}"></td>
+ <th align="right">| . $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>
$openclosed
$employee
@@ -642,8 +642,8 @@ sub form_header {
for ( split / /, $form->{taxaccounts} ) {
print qq|
-<input type=hidden name="${_}_rate" value=$form->{"${_}_rate"}>
-<input type=hidden name="${_}_description" value="$form->{"${_}_description"}">
+<input type="hidden" name="${_}_rate" value="$form->{"${_}_rate"}">
+<input type="hidden" name="${_}_description" value="$form->{"${_}_description"}">
|;
}
@@ -661,9 +661,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" : "";
@@ -672,9 +672,9 @@ 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>| . $locale->text('Tax Included') . qq|</th>
+ <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>
|;
}
@@ -692,8 +692,8 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta
$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>
| if $form->{"${taccno}_base"};
}
@@ -703,8 +703,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>
|;
@@ -717,27 +717,27 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta
print qq|
<tr>
<td>
- <table width=100%>
- <tr valign=top>
+ <table width="100%">
+ <tr valign="top">
<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>
@@ -746,10 +746,10 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta
</table>
</td>
</tr>
-<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
-<input type=hidden name=oldtotalpaid value=$totalpaid>
+<input type="hidden" name="oldinvtotal" value="$form->{oldinvtotal}">
+<input type="hidden" name="oldtotalpaid" value="$totalpaid">
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
<tr>
<td>
@@ -765,22 +765,22 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta
<br>
|;
- # type=submit $locale->text('Update')
- # type=submit $locale->text('Print')
- # type=submit $locale->text('Schedule')
- # type=submit $locale->text('Save')
- # type=submit $locale->text('Print and Save')
- # type=submit $locale->text('Ship to')
- # type=submit $locale->text('Save as new')
- # type=submit $locale->text('Print and Save as new')
- # type=submit $locale->text('E-mail')
- # type=submit $locale->text('Delete')
- # type=submit $locale->text('Sales Invoice')
- # type=submit $locale->text('Vendor Invoice')
- # type=submit $locale->text('Quotation')
- # type=submit $locale->text('RFQ')
- # type=submit $locale->text('Sales Order')
- # type=submit $locale->text('Purchase Order')
+ # type="submit" $locale->text('Update')
+ # type="submit" $locale->text('Print')
+ # type="submit" $locale->text('Schedule')
+ # type="submit" $locale->text('Save')
+ # type="submit" $locale->text('Print and Save')
+ # type="submit" $locale->text('Ship to')
+ # type="submit" $locale->text('Save as new')
+ # type="submit" $locale->text('Print and Save as new')
+ # type="submit" $locale->text('E-mail')
+ # type="submit" $locale->text('Delete')
+ # type="submit" $locale->text('Sales Invoice')
+ # type="submit" $locale->text('Vendor Invoice')
+ # type="submit" $locale->text('Quotation')
+ # type="submit" $locale->text('RFQ')
+ # type="submit" $locale->text('Sales Order')
+ # type="submit" $locale->text('Purchase Order')
if ( !$form->{readonly} ) {
%button = (
@@ -1222,9 +1222,9 @@ sub search {
}
$l_employee =
-qq|<input name="l_employee" class=checkbox type=checkbox value=Y> $employee|;
+qq|<input name="l_employee" class="checkbox" type="checkbox" value="Y"> $employee|;
$l_manager =
- qq|<input name="l_manager" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_manager" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Manager');
if ( $form->{type} =~ /(ship|receive)_order/ ) {
@@ -1244,9 +1244,9 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
$warehouse = qq|
<tr>
- <th align=right>| . $locale->text('Warehouse') . qq|</th>
- <td><select name=warehouse>$form->{selectwarehouse}</select></td>
- <input type=hidden name=selectwarehouse value="|
+ <th align="right">| . $locale->text('Warehouse') . qq|</th>
+ <td><select name="warehouse">$form->{selectwarehouse}</select></td>
+ <input type="hidden" name="selectwarehouse" value="|
. $form->escape( $form->{selectwarehouse}, 1 ) . qq|">
</tr>
|;
@@ -1272,8 +1272,8 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
$selectemployee = qq|
<tr>
- <th align=right>$employee</th>
- <td colspan=3><select name=employee>$selectemployee</select></td>
+ <th align="right">$employee</th>
+ <td colspan="3"><select name="employee">$selectemployee</select></td>
</tr>
|;
}
@@ -1289,8 +1289,8 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
$vc =
($vc)
- ? qq|<select name=$form->{vc}><option>\n$vc</select>|
- : qq|<input name=$form->{vc} size=35>|;
+ ? qq|<select name="$form->{vc}"><option>\n$vc</select>|
+ : qq|<input name="$form->{vc}" size="35">|;
# departments
if ( @{ $form->{all_department} } ) {
@@ -1304,15 +1304,15 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
$department = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Department') . qq|</th>
- <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
+ <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
+ <td colspan="3"><select name="department">$form->{selectdepartment}</select></td>
</tr>
| if $form->{selectdepartment};
if ( $form->{type} =~ /(consolidate.*|generate.*|ship|receive)_order/ ) {
$openclosed = qq|
- <input type=hidden name="open" value=1>
+ <input type="hidden" name="open" value="1">
|;
}
@@ -1320,10 +1320,10 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
$openclosed = qq|
<tr>
- <td nowrap><input name="open" class=checkbox type=checkbox value=1 checked> |
+ <td nowrap><input name="open" class="checkbox" type="checkbox" value="1" checked> |
. $locale->text('Open')
. qq|</td>
- <td nowrap><input name="closed" class=checkbox type=checkbox value=1 $form->{closed}> |
+ <td nowrap><input name="closed" class="checkbox" type="checkbox" value="1" $form->{closed}> |
. $locale->text('Closed')
. qq|</td>
</tr>
@@ -1346,17 +1346,17 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\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>&nbsp;|
+ <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>&nbsp;|
. $locale->text('Current') . qq|
- <input name=interval class=radio type=radio value=1>&nbsp;|
+ <input name="interval" class="radio" type="radio" value="1">&nbsp;|
. $locale->text('Month') . qq|
- <input name=interval class=radio type=radio value=3>&nbsp;|
+ <input name="interval" class="radio" type="radio" value="3">&nbsp;|
. $locale->text('Quarter') . qq|
- <input name=interval class=radio type=radio value=12>&nbsp;|
+ <input name="interval" class="radio" type="radio" value="12">&nbsp;|
. $locale->text('Year') . qq|
</td>
</tr>
@@ -1366,46 +1366,46 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
if ( $form->{type} =~ /_order/ ) {
$ponumber = qq|
<tr>
- <th align=right>| . $locale->text('PO Number') . qq|</th>
- <td colspan=3><input name="ponumber" size=20></td>
+ <th align="right">| . $locale->text('PO Number') . qq|</th>
+ <td colspan="3"><input name="ponumber" size="20"></td>
</tr>
|;
$l_ponumber =
- qq|<input name="l_ponumber" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_ponumber" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('PO Number');
}
@a = ();
push @a,
- qq|<input name="l_runningnumber" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_runningnumber" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('No.');
- push @a, qq|<input name="l_id" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_id" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('ID');
push @a,
-qq|<input name="l_$ordnumber" class=checkbox type=checkbox value=Y checked> $ordlabel|;
+qq|<input name="l_$ordnumber" class="checkbox" type="checkbox" value="Y" checked> $ordlabel|;
push @a,
-qq|<input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
+qq|<input name="l_transdate" class="checkbox" type="checkbox" value="Y" checked> |
. $locale->text('Date');
push @a, $l_ponumber if $l_ponumber;
push @a,
-qq|<input name="l_reqdate" class=checkbox type=checkbox value=Y checked> $requiredby|;
+qq|<input name="l_reqdate" class="checkbox" type="checkbox" value="Y" checked> $requiredby|;
push @a,
-qq|<input name="l_name" class=checkbox type=checkbox value=Y checked> $vclabel|;
+qq|<input name="l_name" class="checkbox" type="checkbox" value="Y" checked> $vclabel|;
push @a, $l_employee if $l_employee;
push @a, $l_manager if $l_manager;
- push @a, qq|<input name="l_shipvia" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_shipvia" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Ship via');
push @a,
- qq|<input name="l_netamount" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_netamount" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Amount');
- push @a, qq|<input name="l_tax" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_tax" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Tax');
push @a,
- qq|<input name="l_amount" class=checkbox type=checkbox value=Y checked> |
+ qq|<input name="l_amount" class="checkbox" type="checkbox" value="Y" checked> |
. $locale->text('Total');
push @a,
- qq|<input name="l_curr" class=checkbox type=checkbox value=Y checked> |
+ qq|<input name="l_curr" class="checkbox" type="checkbox" value="Y" checked> |
. $locale->text('Currency');
$form->header;
@@ -1413,47 +1413,47 @@ qq|<input name="l_name" class=checkbox type=checkbox value=Y checked> $vclabel|;
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<table width=100%>
+<table width="100%">
<tr>
- <th class=listtop>$form->{title}</th>
+ <th class="listtop">$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
<td>
<table>
<tr>
- <th align=right>$vclabel</th>
- <td colspan=3>$vc</td>
+ <th align="right">$vclabel</th>
+ <td colspan="3">$vc</td>
</tr>
$warehouse
$department
$selectemployee
<tr>
- <th align=right>$ordlabel</th>
- <td colspan=3><input name="$ordnumber" size=20></td>
+ <th align="right">$ordlabel</th>
+ <td colspan="3"><input name="$ordnumber" size="20"></td>
</tr>
$ponumber
<tr>
- <th align=right>| . $locale->text('Ship via') . qq|</th>
- <td colspan=3><input name="shipvia" size=40></td>
+ <th align="right">| . $locale->text('Ship via') . qq|</th>
+ <td colspan="3"><input name="shipvia" size="40"></td>
</tr>
<tr>
- <th align=right>| . $locale->text('Description') . qq|</th>
- <td colspan=3><input name="description" size=40></td>
+ <th align="right">| . $locale->text('Description') . qq|</th>
+ <td colspan="3"><input name="description" size="40"></td>
</tr>
<tr>
- <th align=right>| . $locale->text('From') . qq|</th>
- <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
- <th align=right>| . $locale->text('To') . qq|</th>
- <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
+ <th align="right">| . $locale->text('From') . qq|</th>
+ <td><input name="transdatefrom" size="11" title="$myconfig{dateformat}"></td>
+ <th align="right">| . $locale->text('To') . qq|</th>
+ <td><input name="transdateto" size="11" title="$myconfig{dateformat}"></td>
</tr>
- <input type=hidden name=sort value=transdate>
+ <input type="hidden" name="sort" value="transdate">
$selectfrom
<tr>
- <th align=right>| . $locale->text('Include in Report') . qq|</th>
- <td colspan=3>
+ <th align="right">| . $locale->text('Include in Report') . qq|</th>
+ <td colspan="3">
<table>
$openclosed
|;
@@ -1468,7 +1468,7 @@ qq|<input name="l_name" class=checkbox type=checkbox value=Y checked> $vclabel|;
print qq|
<tr>
- <td><input name="l_subtotal" class=checkbox type=checkbox value=Y> |
+ <td><input name="l_subtotal" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Subtotal')
. qq|</td>
</tr>
@@ -1478,11 +1478,11 @@ qq|<input name="l_name" class=checkbox type=checkbox value=Y checked> $vclabel|;
</table>
</td>
</tr>
- <tr><td colspan=4><hr size=3 noshade></td></tr>
+ <tr><td colspan="4"><hr size="3" noshade></td></tr>
</table>
<br>
-<input type=hidden name=nextsub value=transactions>
+<input type="hidden" name="nextsub" value="transactions">
|;
$form->hide_form(qw(path login sessionid vc type));
@@ -1715,53 +1715,53 @@ qq|<button class="submit" type="submit" name="action" value="add">|
for ( split /;/, $myconfig{acs} ) { delete $button{$_} }
- $column_header{ndx} = qq|<th class=listheading>&nbsp;</th>|;
- $column_header{runningnumber} = qq|<th class=listheading>&nbsp;</th>|;
+ $column_header{ndx} = qq|<th class="listheading">&nbsp;</th>|;
+ $column_header{runningnumber} = qq|<th class="listheading">&nbsp;</th>|;
$column_header{id} =
- qq|<th><a class=listheading href=$href&sort=id>|
+ qq|<th><a class="listheading" href="$href&sort=id">|
. $locale->text('ID')
. qq|</a></th>|;
$column_header{transdate} =
- qq|<th><a class=listheading href=$href&sort=transdate>|
+ qq|<th><a class="listheading" href="$href&sort=transdate">|
. $locale->text('Date')
. qq|</a></th>|;
$column_header{reqdate} =
- qq|<th><a class=listheading href=$href&sort=reqdate>$requiredby</a></th>|;
+ qq|<th><a class="listheading" href="$href&sort=reqdate">$requiredby</a></th>|;
$column_header{ordnumber} =
- qq|<th><a class=listheading href=$href&sort=ordnumber>|
+ qq|<th><a class="listheading" href="$href&sort=ordnumber">|
. $locale->text('Order')
. qq|</a></th>|;
$column_header{ponumber} =
- qq|<th><a class=listheading href=$href&sort=ponumber>|
+ qq|<th><a class="listheading" href="$href&sort=ponumber">|
. $locale->text('PO Number')
. qq|</a></th>|;
$column_header{quonumber} =
-qq|<th><a class=listheading href=$href&sort=quonumber>$quotation</a></th>|;
+qq|<th><a class="listheading" href="$href&sort=quonumber">$quotation</a></th>|;
$column_header{name} =
- qq|<th><a class=listheading href=$href&sort=name>$name</a></th>|;
+ qq|<th><a class="listheading" href="$href&sort=name">$name</a></th>|;
$column_header{netamount} =
- qq|<th class=listheading>| . $locale->text('Amount') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Amount') . qq|</th>|;
$column_header{tax} =
- qq|<th class=listheading>| . $locale->text('Tax') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Tax') . qq|</th>|;
$column_header{amount} =
- qq|<th class=listheading>| . $locale->text('Total') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Total') . qq|</th>|;
$column_header{curr} =
- qq|<th><a class=listheading href=$href&sort=curr>|
+ qq|<th><a class="listheading" href="$href&sort=curr">|
. $locale->text('Curr')
. qq|</a></th>|;
$column_header{shipvia} =
- qq|<th><a class=listheading href=$href&sort=shipvia>|
+ qq|<th><a class="listheading" href="$href&sort=shipvia">|
. $locale->text('Ship via')
. qq|</a></th>|;
$column_header{open} =
- qq|<th class=listheading>| . $locale->text('O') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('O') . qq|</th>|;
$column_header{closed} =
- qq|<th class=listheading>| . $locale->text('C') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('C') . qq|</th>|;
$column_header{employee} =
- qq|<th><a class=listheading href=$href&sort=employee>$employee</a></th>|;
+ qq|<th><a class="listheading" href="$href&sort=employee">$employee</a></th>|;
$column_header{manager} =
- qq|<th><a class=listheading href=$href&sort=manager>|
+ qq|<th><a class="listheading" href="$href&sort=manager">|
. $locale->text('Manager')
. qq|</a></th>|;
@@ -1839,11 +1839,11 @@ qq|<th><a class=listheading href=$href&sort=quonumber>$quotation</a></th>|;
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<table width=100%>
+<table width="100%">
<tr>
- <th class=listtop>$form->{title}</th>
+ <th class="listtop">$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
@@ -1851,8 +1851,8 @@ qq|<th><a class=listheading href=$href&sort=quonumber>$quotation</a></th>|;
</tr>
<tr>
<td>
- <table width=100%>
- <tr class=listheading>|;
+ <table width="100%">
+ <tr class="listheading">|;
for (@column_index) { print "\n$column_header{$_}" }
@@ -1896,12 +1896,12 @@ qq|<th><a class=listheading href=$href&sort=quonumber>$quotation</a></th>|;
for (qw(netamount amount)) { $oe->{$_} *= $oe->{exchangerate} }
for (qw(netamount amount)) {
- $column_data{"fx_$_"} = "<td align=right>"
+ $column_data{"fx_$_"} = '<td align="right">'
. $form->format_amount( \%myconfig, $oe->{"fx_$_"}, 2,
"&nbsp;" )
. "</td>";
}
- $column_data{fx_tax} = "<td align=right>"
+ $column_data{fx_tax} = '<td align="right">'
. $form->format_amount( \%myconfig,
$oe->{fx_amount} - $oe->{fx_netamount},
2, "&nbsp;" )
@@ -1916,11 +1916,11 @@ qq|<th><a class=listheading href=$href&sort=quonumber>$quotation</a></th>|;
for (qw(netamount amount)) {
$column_data{$_} =
- "<td align=right>"
+ '<td align="right">'
. $form->format_amount( \%myconfig, $oe->{$_}, 2, "&nbsp;" )
- . "</td>";
+ . '</td>';
}
- $column_data{tax} = "<td align=right>"
+ $column_data{tax} = '<td align="right">'
. $form->format_amount( \%myconfig, $oe->{amount} - $oe->{netamount},
2, "&nbsp;" )
. "</td>";
@@ -1935,33 +1935,33 @@ qq|<th><a class=listheading href=$href&sort=quonumber>$quotation</a></th>|;
$column_data{transdate} = "<td>$oe->{transdate}&nbsp;</td>";
$column_data{reqdate} = "<td>$oe->{reqdate}&nbsp;</td>";
- $column_data{runningnumber} = qq|<td align=right>$i</td>|;
+ $column_data{runningnumber} = qq|<td align="right">$i</td>|;
$column_data{ndx} =
-qq|<td><input name="ndx_$i" class=checkbox type=checkbox value=$oe->{id} checked></td>|;
+qq|<td><input name="ndx_$i" class="checkbox" type="checkbox" value="$oe->{id}" checked></td>|;
$column_data{$ordnumber} =
-"<td><a href=$form->{script}?path=$form->{path}&action=$action&type=$form->{type}&id=$oe->{id}&warehouse=$warehouse&vc=$form->{vc}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$oe->{$ordnumber}</a></td>";
+qq|<td><a href="$form->{script}?path=$form->{path}&action=$action&type=$form->{type}&id=$oe->{id}&warehouse=$warehouse&vc=$form->{vc}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$oe->{$ordnumber}</a></td>|;
$name = $form->escape( $oe->{name} );
$column_data{name} =
-qq|<td><a href=ct.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&action=edit&id=$oe->{"$form->{vc}_id"}&db=$form->{vc}&callback=$callback>$oe->{name}</a></td>|;
+qq|<td><a href="ct.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&action=edit&id=$oe->{"$form->{vc}_id"}&db=$form->{vc}&callback=$callback">$oe->{name}</a></td>|;
for (qw(employee manager shipvia curr ponumber)) {
$column_data{$_} = "<td>$oe->{$_}&nbsp;</td>";
}
if ( $oe->{closed} ) {
- $column_data{closed} = "<td align=center>*</td>";
+ $column_data{closed} = '<td align="center">*</td>';
$column_data{open} = "<td>&nbsp;</td>";
}
else {
$column_data{closed} = "<td>&nbsp;</td>";
- $column_data{open} = "<td align=center>*</td>";
+ $column_data{open} = '<td align="center">*</td>';
}
$j++;
$j %= 2;
- print "
- <tr class=listrow$j>";
+ print qq|
+ <tr class="listrow$j">|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -1977,34 +1977,34 @@ qq|<td><a href=ct.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{s
# print totals
print qq|
- <tr class=listtotal>|;
+ <tr class="listtotal">|;
for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
$column_data{netamount} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalnetamount, 2, "&nbsp;" )
. "</th>";
- $column_data{tax} = "<th class=listtotal align=right>"
+ $column_data{tax} = '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalamount - $totalnetamount,
2, "&nbsp;" )
. "</th>";
$column_data{amount} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalamount, 2, "&nbsp;" ) . "</th>";
if ( $form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal} ) {
$column_data{fx_netamount} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalfxnetamount, 2, "&nbsp;" )
. "</th>";
- $column_data{fx_tax} = "<th class=listtotal align=right>"
+ $column_data{fx_tax} = '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig,
$totalfxamount - $totalfxnetamount,
2, "&nbsp;" )
. "</th>";
$column_data{fx_amount} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalfxamount, 2, "&nbsp;" )
. "</th>";
}
@@ -2017,7 +2017,7 @@ qq|<td><a href=ct.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{s
</table>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
@@ -2030,10 +2030,10 @@ qq|<td><a href=ct.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{s
print qq|
-<input type=hidden name=rowcount value=$i>
+<input type="hidden" name="rowcount" value="$i">
-<input type=hidden name=$form->{vc} value="$form->{$form->{vc}}">
-<input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
+<input type="hidden" name="$form->{vc}" value="$form->{$form->{vc}}">
+<input type="hidden" name="$form->{vc}_id" value="$form->{"$form->{vc}_id"}">
|;
@@ -2062,31 +2062,31 @@ sub subtotal {
for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
$column_data{netamount} =
- "<th class=listsubtotal align=right>"
+ '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalnetamount, 2, "&nbsp;" )
. "</th>";
- $column_data{tax} = "<td class=listsubtotal align=right>"
+ $column_data{tax} = '<td class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalamount - $subtotalnetamount,
2, "&nbsp;" )
. "</th>";
$column_data{amount} =
- "<th class=listsubtotal align=right>"
+ '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalamount, 2, "&nbsp;" )
. "</th>";
if ( $form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal} ) {
$column_data{fx_netamount} =
- "<th class=listsubtotal align=right>"
+ '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalfxnetamount, 2,
"&nbsp;" )
. "</th>";
- $column_data{fx_tax} = "<td class=listsubtotal align=right>"
+ $column_data{fx_tax} = '<td class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig,
$subtotalfxamount - $subtotalfxnetamount,
2, "&nbsp;" )
. "</th>";
$column_data{fx_amount} =
- "<th class=listsubtotal align=right>"
+ '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalfxamount, 2, "&nbsp;" )
. "</th>";
}
@@ -2097,9 +2097,9 @@ sub subtotal {
$subtotalfxnetamount = 0;
$subtotalfxamount = 0;
- print "
- <tr class=listsubtotal>
-";
+ print '
+ <tr class="listsubtotal">
+';
for (@column_index) { print "\n$column_data{$_}" }
@@ -2222,14 +2222,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>$msg $form->{$ordnumber}</h4>
<p>
@@ -2415,7 +2415,7 @@ sub backorder_exchangerate {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
|;
# delete action variable
@@ -2427,36 +2427,36 @@ sub backorder_exchangerate {
print qq|
-<input type=hidden name=exchangeratedate value=$orddate>
-<input type=hidden name=buysell value=$buysell>
+<input type="hidden" name="exchangeratedate" value="$orddate">
+<input type="hidden" name="buysell" value="$buysell">
-<table width=100%>
- <tr><th class=listtop>$form->{title}</th></tr>
+<table width="100%">
+ <tr><th class="listtop">$form->{title}</th></tr>
<tr height="5"></tr>
<tr>
<td>
<table>
<tr>
- <th align=right>| . $locale->text('Currency') . qq|</th>
+ <th align="right">| . $locale->text('Currency') . qq|</th>
<td>$form->{currency}</td>
</tr>
<tr>
- <th align=right>| . $locale->text('Date') . qq|</th>
+ <th align="right">| . $locale->text('Date') . qq|</th>
<td>$orddate</td>
</tr>
<tr>
- <th align=right>| . $locale->text('Exchange Rate') . qq|</th>
- <td><input name=exchangerate size=11></td>
+ <th align="right">| . $locale->text('Exchange Rate') . qq|</th>
+ <td><input name="exchangerate" size="11"></td>
</tr>
</table>
</td>
</tr>
</table>
-<hr size=3 noshade>
+<hr size="3" noshade>
<br>
-<input type=hidden name=nextsub value=save_exchangerate>
+<input type="hidden" name="nextsub" value="save_exchangerate">
<button name="action" class="submit" type="submit" value="continue">|
. $locale->text('Continue')
@@ -2674,18 +2674,18 @@ sub display_ship_receive {
$warehouse = qq|
<tr>
- <th align=right>| . $locale->text('Warehouse') . qq|</th>
- <td><select name=warehouse>$form->{selectwarehouse}</select></td>
- <input type=hidden name=selectwarehouse value="|
+ <th align="right">| . $locale->text('Warehouse') . qq|</th>
+ <td><select name="warehouse">$form->{selectwarehouse}</select></td>
+ <input type="hidden" name="selectwarehouse" value="|
. $form->escape( $form->{selectwarehouse}, 1 ) . qq|">
</tr>
| if $form->{selectwarehouse};
$employee = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Contact') . qq|</th>
- <td><select name=employee>$form->{selectemployee}</select></td>
- <input type=hidden name=selectemployee value="|
+ <th align="right" nowrap>| . $locale->text('Contact') . qq|</th>
+ <td><select name="employee">$form->{selectemployee}</select></td>
+ <input type="hidden" name="selectemployee" value="|
. $form->escape( $form->{selectemployee}, 1 ) . qq|">
</tr>
|;
@@ -2695,68 +2695,68 @@ sub display_ship_receive {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action=$form->{script}>
-<input type=hidden name=display_form value=display_ship_receive>
+<input type="hidden" name="display_form" value="display_ship_receive">
|;
$form->hide_form(qw(id type media format printed emailed queued vc));
print qq|
-<input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
+<input type="hidden" name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
-<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>
+ <tr valign="top">
<td>
- <table width=100%>
+ <table width="100%">
<tr>
- <th align=right>$vclabel</th>
- <td colspan=3>$form->{$form->{vc}}</td>
- <input type=hidden name=$form->{vc} value="$form->{$form->{vc}}">
- <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
+ <th align="right">$vclabel</th>
+ <td colspan="3">$form->{$form->{vc}}</td>
+ <input type="hidden" name="$form->{vc}" value="$form->{$form->{vc}}">
+ <input type="hidden" name="$form->{vc}_id" value="$form->{"$form->{vc}_id"}">
</tr>
$department
<tr>
- <th align=right>| . $locale->text('Shipping Point') . qq|</th>
- <td colspan=3>
- <input name=shippingpoint size=35 value="$form->{shippingpoint}">
+ <th align="right">| . $locale->text('Shipping Point') . qq|</th>
+ <td colspan="3">
+ <input name="shippingpoint" size="35" value="$form->{shippingpoint}">
</tr>
<tr>
- <th align=right>| . $locale->text('Ship via') . qq|</th>
- <td colspan=3>
- <input name=shipvia size=35 value="$form->{shipvia}">
+ <th align="right">| . $locale->text('Ship via') . qq|</th>
+ <td colspan="3">
+ <input name="shipvia" size="35" value="$form->{shipvia}">
</tr>
$warehouse
</table>
</td>
- <td align=right>
+ <td align="right">
<table>
$employee
<tr>
- <th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('Order Number') . qq|</th>
<td>$form->{ordnumber}</td>
- <input type=hidden name=ordnumber value="$form->{ordnumber}">
+ <input type="hidden" name="ordnumber" value="$form->{ordnumber}">
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Order Date') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('Order Date') . qq|</th>
<td>$form->{transdate}</td>
- <input type=hidden name=transdate value=$form->{transdate}>
+ <input type="hidden" name="transdate" value="$form->{transdate}">
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('PO Number') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('PO Number') . qq|</th>
<td>$form->{ponumber}</td>
- <input type=hidden name=ponumber value="$form->{ponumber}">
+ <input type="hidden" name="ponumber" value="$form->{ponumber}">
</tr>
<tr>
- <th align=right nowrap>$shipped</th>
- <td><input name=shippingdate size=11 value=$form->{shippingdate}></td>
+ <th align="right" nowrap>$shipped</th>
+ <td><input name="shippingdate" size="11" value="$form->{shippingdate}"></td>
</tr>
</table>
</td>
@@ -2775,13 +2775,13 @@ sub display_ship_receive {
if ( $form->{type} eq "ship_order" ) {
$column_data{ship} =
- qq|<th class=listheading>| . $locale->text('Ship') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Ship') . qq|</th>|;
}
if ( $form->{type} eq "receive_order" ) {
$column_data{ship} =
- qq|<th class=listheading>| . $locale->text('Recd') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Recd') . qq|</th>|;
$column_data{sku} =
- qq|<th class=listheading>| . $locale->text('SKU') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('SKU') . qq|</th>|;
push @column_index, "sku";
}
push @column_index, qw(description qty ship unit bin serialnumber);
@@ -2789,27 +2789,27 @@ sub display_ship_receive {
my $colspan = $#column_index + 1;
$column_data{partnumber} =
- qq|<th class=listheading nowrap>| . $locale->text('Number') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Number') . qq|</th>|;
$column_data{description} =
- qq|<th class=listheading nowrap>|
+ qq|<th class="listheading" nowrap>|
. $locale->text('Description')
. qq|</th>|;
$column_data{qty} =
- qq|<th class=listheading nowrap>| . $locale->text('Qty') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Qty') . qq|</th>|;
$column_data{unit} =
- qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Unit') . qq|</th>|;
$column_data{bin} =
- qq|<th class=listheading nowrap>| . $locale->text('Bin') . qq|</th>|;
+ qq|<th class="listheading" nowrap>| . $locale->text('Bin') . qq|</th>|;
$column_data{serialnumber} =
- qq|<th class=listheading nowrap>|
+ qq|<th class="listheading" nowrap>|
. $locale->text('Serial No.')
. qq|</th>|;
print qq|
<tr>
<td>
- <table width=100%>
- <tr class=listheading>|;
+ <table width="100%">
+ <tr class="listheading">|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -2831,29 +2831,29 @@ sub display_ship_receive {
$description =~ s/\r?\n/<br>/g;
$column_data{partnumber} =
-qq|<td>$form->{"partnumber_$i"}<input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|;
+qq|<td>$form->{"partnumber_$i"}<input type="hidden" name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|;
$column_data{sku} =
-qq|<td>$form->{"sku_$i"}<input type=hidden name="sku_$i" value="$form->{"sku_$i"}"></td>|;
+qq|<td>$form->{"sku_$i"}<input type="hidden" name="sku_$i" value="$form->{"sku_$i"}"></td>|;
$column_data{description} =
-qq|<td>$description<input type=hidden name="description_$i" value="$form->{"description_$i"}"></td>|;
+qq|<td>$description<input type="hidden" name="description_$i" value="$form->{"description_$i"}"></td>|;
$column_data{qty} =
- qq|<td align=right>|
+ qq|<td align="right">|
. $form->format_amount( \%myconfig, $form->{"qty_$i"} )
- . qq|<input type=hidden name="qty_$i" value="$form->{"qty_$i"}"></td>|;
+ . qq|<input type="hidden" name="qty_$i" value="$form->{"qty_$i"}"></td>|;
$column_data{ship} =
- qq|<td align=right><input name="ship_$i" size=5 value=|
+ qq|<td align="right"><input name="ship_$i" size="5" value="|
. $form->format_amount( \%myconfig, $form->{"ship_$i"} )
- . qq|></td>|;
+ . qq|"></td>|;
$column_data{unit} =
-qq|<td>$form->{"unit_$i"}<input type=hidden name="unit_$i" value="$form->{"unit_$i"}"></td>|;
+qq|<td>$form->{"unit_$i"}<input type="hidden" name="unit_$i" value="$form->{"unit_$i"}"></td>|;
$column_data{bin} =
-qq|<td>$form->{"bin_$i"}<input type=hidden name="bin_$i" value="$form->{"bin_$i"}"></td>|;
+qq|<td>$form->{"bin_$i"}<input type="hidden" name="bin_$i" value="$form->{"bin_$i"}"></td>|;
$column_data{serialnumber} =
-qq|<td><input name="serialnumber_$i" size=15 value="$form->{"serialnumber_$i"}"></td>|;
+qq|<td><input name="serialnumber_$i" size="15" value="$form->{"serialnumber_$i"}"></td>|;
print qq|
- <tr valign=top>|;
+ <tr valign="top">|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -2869,7 +2869,7 @@ qq|<td><input name="serialnumber_$i" size=15 value="$form->{"serialnumber_$i"}">
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
<tr>
<td>
@@ -2886,7 +2886,7 @@ qq|<td><input name="serialnumber_$i" size=15 value="$form->{"serialnumber_$i"}">
<br>
|;
- # type=submit $locale->text('Done')
+ # type="submit" $locale->text('Done')
%button = (
'update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
@@ -2985,46 +2985,46 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<table width=100%>
+<table width="100%">
<tr>
- <th class=listtop>$form->{title}</th>
+ <th class="listtop">$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
<td>
<table>
<tr>
- <th align=right nowrap>| . $locale->text('Transfer from') . qq|</th>
- <td><select name=fromwarehouse>$form->{selectwarehouse}</select></td>
+ <th align="right" nowrap>| . $locale->text('Transfer from') . qq|</th>
+ <td><select name="fromwarehouse">$form->{selectwarehouse}</select></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Transfer to') . qq|</th>
- <td><select name=towarehouse>$form->{selectwarehouse}</select></td>
+ <th align="right" nowrap>| . $locale->text('Transfer to') . qq|</th>
+ <td><select name="towarehouse">$form->{selectwarehouse}</select></td>
</tr>
<tr>
<th align="right" nowrap="true">| . $locale->text('Part Number') . qq|</th>
- <td><input name=partnumber size=20></td>
+ <td><input name="partnumber" size="20"></td>
</tr>
<tr>
<th align="right" nowrap="true">| . $locale->text('Description') . qq|</th>
- <td><input name=description size=40></td>
+ <td><input name="description" size="40"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Group') . qq|</th>
- <td><select name=partsgroup>$form->{selectpartsgroup}</select></td>
+ <th align="right" nowrap>| . $locale->text('Group') . qq|</th>
+ <td><select name="partsgroup">$form->{selectpartsgroup}</select></td>
</tr>
</table>
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
<br>
-<input type=hidden name=nextsub value=list_transfer>
+<input type="hidden" name="nextsub" value="list_transfer">
<button class="submit" type="submit" name="action" value="continue">|
. $locale->text('Continue')
@@ -3081,27 +3081,27 @@ sub list_transfer {
);
$column_header{partnumber} =
- qq|<th><a class=listheading href=$href&sort=partnumber>|
+ qq|<th><a class="listheading" href="$href&sort=partnumber">|
. $locale->text('Part Number')
. qq|</a></th>|;
$column_header{description} =
- qq|<th><a class=listheading href=$href&sort=description>|
+ qq|<th><a class="listheading" href="$href&sort=description">|
. $locale->text('Description')
. qq|</a></th>|;
$column_header{partsgroup} =
- qq|<th><a class=listheading href=$href&sort=partsgroup>|
+ qq|<th><a class="listheading" href="$href&sort=partsgroup">|
. $locale->text('Group')
. qq|</a></th>|;
$column_header{fromwarehouse} =
- qq|<th><a class=listheading href=$href&sort=warehouse>|
+ qq|<th><a class="listheading" href="$href&sort=warehouse">|
. $locale->text('From')
. qq|</a></th>|;
$column_header{towarehouse} =
- qq|<th class=listheading>| . $locale->text('To') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('To') . qq|</th>|;
$column_header{qty} =
- qq|<th class=listheading>| . $locale->text('Qty') . qq|</a></th>|;
+ qq|<th class="listheading">| . $locale->text('Qty') . qq|</a></th>|;
$column_header{transfer} =
- qq|<th class=listheading>| . $locale->text('Transfer') . qq|</a></th>|;
+ qq|<th class="listheading">| . $locale->text('Transfer') . qq|</a></th>|;
( $warehouse, $warehouse_id ) = split /--/, $form->{fromwarehouse};
@@ -3137,13 +3137,13 @@ sub list_transfer {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<input type=hidden name=warehouse_id value=$warehouse_id>
+<input type="hidden" name="warehouse_id" value="$warehouse_id">
-<table width=100%>
+<table width="100%">
<tr>
- <th class=listtop>$form->{title}</th>
+ <th class="listtop">$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
@@ -3151,8 +3151,8 @@ sub list_transfer {
</tr>
<tr>
<td>
- <table width=100%>
- <tr class=listheading>|;
+ <table width="100%">
+ <tr class="listheading">|;
for (@column_index) { print "\n$column_header{$_}" }
@@ -3170,22 +3170,22 @@ sub list_transfer {
$i++;
$column_data{partnumber} =
-qq|<td><input type=hidden name="id_$i" value=$ref->{id}>$ref->{partnumber}</td>|;
+qq|<td><input type="hidden" name="id_$i" value="$ref->{id}">$ref->{partnumber}</td>|;
$column_data{description} = "<td>$ref->{description}&nbsp;</td>";
$column_data{partsgroup} = "<td>$ref->{partsgroup}&nbsp;</td>";
$column_data{fromwarehouse} =
-qq|<td><input type=hidden name="warehouse_id_$i" value=$ref->{warehouse_id}>$ref->{warehouse}&nbsp;</td>|;
+qq|<td><input type="hidden" name="warehouse_id_$i" value="$ref->{warehouse_id}">$ref->{warehouse}&nbsp;</td>|;
$column_data{towarehouse} = qq|<td>$warehouse&nbsp;</td>|;
$column_data{qty} =
- qq|<td><input type=hidden name="qty_$i" value=$ref->{qty}>|
+ qq|<td><input type="hidden" name="qty_$i" value="$ref->{qty}">|
. $form->format_amount( \%myconfig, $ref->{qty} )
. qq|</td>|;
- $column_data{transfer} = qq|<td><input name="transfer_$i" size=4></td>|;
+ $column_data{transfer} = qq|<td><input name="transfer_$i" size="4"></td>|;
$j++;
$j %= 2;
- print "
- <tr class=listrow$j>";
+ print qq|
+ <tr class="listrow$j">|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -3201,15 +3201,15 @@ qq|<td><input type=hidden name="warehouse_id_$i" value=$ref->{warehouse_id}>$ref
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
<br>
-<input name=callback type=hidden value="$callback">
+<input name="callback" type="hidden" value="$callback">
-<input type=hidden name=rowcount value=$i>
+<input type="hidden" name="rowcount" value="$i">
|;
$form->{action} = "transfer";
@@ -3364,24 +3364,24 @@ sub po_orderitems {
qw(sku description partnumber leadtime fx lastcost curr required qty name);
$column_header{sku} =
- qq|<th class=listheading>| . $locale->text('SKU') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('SKU') . qq|</th>|;
$column_header{partnumber} =
- qq|<th class=listheading>| . $locale->text('Part Number') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Part Number') . qq|</th>|;
$column_header{description} =
- qq|<th class=listheading>| . $locale->text('Description') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Description') . qq|</th>|;
$column_header{name} =
- qq|<th class=listheading>| . $locale->text('Vendor') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Vendor') . qq|</th>|;
$column_header{qty} =
- qq|<th class=listheading>| . $locale->text('Order') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Order') . qq|</th>|;
$column_header{required} =
- qq|<th class=listheading>| . $locale->text('Req') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Req') . qq|</th>|;
$column_header{lastcost} =
- qq|<th class=listheading>| . $locale->text('Cost') . qq|</th>|;
- $column_header{fx} = qq|<th class=listheading>&nbsp;</th>|;
+ qq|<th class="listheading">| . $locale->text('Cost') . qq|</th>|;
+ $column_header{fx} = qq|<th class="listheading">&nbsp;</th>|;
$column_header{leadtime} =
- qq|<th class=listheading>| . $locale->text('Lead') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Lead') . qq|</th>|;
$column_header{curr} =
- qq|<th class=listheading>| . $locale->text('Curr') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Curr') . qq|</th>|;
$form->{title} = $locale->text('Generate Purchase Orders');
@@ -3390,17 +3390,17 @@ sub po_orderitems {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<table width=100%>
+<table width="100%">
<tr>
- <th class=listtop>$form->{title}</th>
+ <th class="listtop">$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
<td>
- <table width=100%>
- <tr class=listheading>|;
+ <table width="100%">
+ <tr class="listheading">|;
for (@column_index) { print "\n$column_header{$_}" }
@@ -3415,11 +3415,11 @@ sub po_orderitems {
}
for (qw(required leadtime lastcost fx)) {
- $column_data{$_} = qq|<td align=right>$form->{"${_}_$i"}</td>|;
+ $column_data{$_} = qq|<td align="right">$form->{"${_}_$i"}</td>|;
}
$column_data{qty} =
-qq|<td align=right><input name="qty_$i" size=6 value=$form->{"qty_$i"}></td>|;
+qq|<td align="right"><input name="qty_$i" size="6" value="$form->{qty_$i}"></td>|;
if ( $form->{"$form->{vc}_id_$i"} ) {
$name = $form->{"$form->{vc}_$i"};
@@ -3429,7 +3429,7 @@ qq|<td align=right><input name="qty_$i" size=6 value=$form->{"qty_$i"}></td>|;
}
else {
$column_data{name} =
-qq|<td><input name="ndx_$i" class=checkbox type=checkbox value="1"></td>|;
+qq|<td><input name="ndx_$i" class="checkbox" type="checkbox" value="1"></td>|;
}
$form->hide_form( map { "${_}_$i" }
@@ -3465,7 +3465,7 @@ qq|<td><input name="ndx_$i" class=checkbox type=checkbox value="1"></td>|;
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
@@ -3551,9 +3551,9 @@ sub select_vendor {
print qq|
<body onload="document.forms[0].vendor.focus()">
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<b>| . $locale->text('Vendor') . qq|</b> <input name=vendor size=40>
+<b>| . $locale->text('Vendor') . qq|</b> <input name="vendor" size="40">
|;