diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/io.pl | 278 | ||||
| -rwxr-xr-x | bin/oe.pl | 686 |
2 files changed, 482 insertions, 482 deletions
@@ -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> </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->{$_} </td>|; } - $column_data{sellprice} = qq|<td align=right>| + $column_data{sellprice} = qq|<td align="right">| . $form->format_amount( \%myconfig, $ref->{sellprice} / $exchangerate, 2, " " ) . qq|</td>|; $column_data{onhand} = - qq|<td align=right>| + qq|<td align="right">| . $form->format_amount( \%myconfig, $ref->{onhand}, '', " " ) . 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> | + <input class="radio" type="radio" name="item" value="part" checked> | . $locale->text('Part') . qq|<br> - <input class=radio type=radio name=item value=service> | + <input class="radio" type="radio" name="item" value="service"> | . $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">| @@ -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} |; $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> | + <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> | . $locale->text('Current') . qq| - <input name=interval class=radio type=radio value=1> | + <input name="interval" class="radio" type="radio" value="1"> | . $locale->text('Month') . qq| - <input name=interval class=radio type=radio value=3> | + <input name="interval" class="radio" type="radio" value="3"> | . $locale->text('Quarter') . qq| - <input name=interval class=radio type=radio value=12> | + <input name="interval" class="radio" type="radio" value="12"> | . $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> </th>|; - $column_header{runningnumber} = qq|<th class=listheading> </th>|; + $column_header{ndx} = qq|<th class="listheading"> </th>|; + $column_header{runningnumber} = qq|<th class="listheading"> </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, " " ) . "</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, " " ) @@ -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, " " ) - . "</td>"; + . '</td>'; } - $column_data{tax} = "<td align=right>" + $column_data{tax} = '<td align="right">' . $form->format_amount( \%myconfig, $oe->{amount} - $oe->{netamount}, 2, " " ) . "</td>"; @@ -1935,33 +1935,33 @@ qq|<th><a class=listheading href=$href&sort=quonumber>$quotation</a></th>|; $column_data{transdate} = "<td>$oe->{transdate} </td>"; $column_data{reqdate} = "<td>$oe->{reqdate} </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->{$_} </td>"; } if ( $oe->{closed} ) { - $column_data{closed} = "<td align=center>*</td>"; + $column_data{closed} = '<td align="center">*</td>'; $column_data{open} = "<td> </td>"; } else { $column_data{closed} = "<td> </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> </td>" } $column_data{netamount} = - "<th class=listtotal align=right>" + '<th class="listtotal" align="right">' . $form->format_amount( \%myconfig, $totalnetamount, 2, " " ) . "</th>"; - $column_data{tax} = "<th class=listtotal align=right>" + $column_data{tax} = '<th class="listtotal" align="right">' . $form->format_amount( \%myconfig, $totalamount - $totalnetamount, 2, " " ) . "</th>"; $column_data{amount} = - "<th class=listtotal align=right>" + '<th class="listtotal" align="right">' . $form->format_amount( \%myconfig, $totalamount, 2, " " ) . "</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, " " ) . "</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, " " ) . "</th>"; $column_data{fx_amount} = - "<th class=listtotal align=right>" + '<th class="listtotal" align="right">' . $form->format_amount( \%myconfig, $totalfxamount, 2, " " ) . "</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> </td>" } $column_data{netamount} = - "<th class=listsubtotal align=right>" + '<th class="listsubtotal" align="right">' . $form->format_amount( \%myconfig, $subtotalnetamount, 2, " " ) . "</th>"; - $column_data{tax} = "<td class=listsubtotal align=right>" + $column_data{tax} = '<td class="listsubtotal" align="right">' . $form->format_amount( \%myconfig, $subtotalamount - $subtotalnetamount, 2, " " ) . "</th>"; $column_data{amount} = - "<th class=listsubtotal align=right>" + '<th class="listsubtotal" align="right">' . $form->format_amount( \%myconfig, $subtotalamount, 2, " " ) . "</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, " " ) . "</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, " " ) . "</th>"; $column_data{fx_amount} = - "<th class=listsubtotal align=right>" + '<th class="listsubtotal" align="right">' . $form->format_amount( \%myconfig, $subtotalfxamount, 2, " " ) . "</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} </td>"; $column_data{partsgroup} = "<td>$ref->{partsgroup} </td>"; $column_data{fromwarehouse} = -qq|<td><input type=hidden name="warehouse_id_$i" value=$ref->{warehouse_id}>$ref->{warehouse} </td>|; +qq|<td><input type="hidden" name="warehouse_id_$i" value="$ref->{warehouse_id}">$ref->{warehouse} </td>|; $column_data{towarehouse} = qq|<td>$warehouse </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> </th>|; + qq|<th class="listheading">| . $locale->text('Cost') . qq|</th>|; + $column_header{fx} = qq|<th class="listheading"> </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"> |; |