[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SF.net SVN: ledger-smb:[4261] branches/1.3/bin
- Subject: SF.net SVN: ledger-smb:[4261] branches/1.3/bin
- From: ..hidden..
- Date: Tue, 10 Jan 2012 19:15:50 +0000
Revision: 4261
http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4261&view=rev
Author: ehuelsmann
Date: 2012-01-10 19:15:49 +0000 (Tue, 10 Jan 2012)
Log Message:
-----------
Patch to quote more HTML element attributes for easier parsing.
Patch by: John Locke
Tweaked by: me
Modified Paths:
--------------
branches/1.3/bin/ic.pl
branches/1.3/bin/io.pl
branches/1.3/bin/is.pl
branches/1.3/bin/oe.pl
Modified: branches/1.3/bin/ic.pl
===================================================================
--- branches/1.3/bin/ic.pl 2012-01-10 08:33:34 UTC (rev 4260)
+++ branches/1.3/bin/ic.pl 2012-01-10 19:15:49 UTC (rev 4261)
@@ -3931,21 +3931,21 @@
. qq|</td>|;
$column_data{rop} =
qq|<td align=right>|
- . $form->format_amount( \%myconfig, $ref->{rop}, '', " " )
- . qq|</td>|;
- $column_data{stock} =
- qq|<td width=10%><input name="qty_$i" size=10 value=|
- . $form->format_amount( \%myconfig, $ref->{stock} )
- . qq|></td>
- <input type=hidden name="stock_$i" value=$ref->{stock}>|;
-
- $j++;
- $j %= 2;
- print
-qq|<tr class=listrow$j><input name="id_$i" type=hidden value=$ref->{id}>\n|;
-
- for (@column_index) { print "\n$column_data{$_}" }
-
+ . $form->format_amount( \%myconfig, $ref->{rop}, '', " " )
+ . qq|</td>|;
+ $column_data{stock} =
+ qq|<td width=10%><input name="qty_$i" size="10" value="|
+ . $form->format_amount( \%myconfig, $ref->{stock} )
+ . qq|"></td>
+ <input type=hidden name="stock_$i" value="$ref->{stock}">|;
+
+ $j++;
+ $j %= 2;
+ print
+qq|<tr class=listrow$j><input name="id_$i" type=hidden value="$ref->{id}">\n|;
+
+ for (@column_index) { print "\n$column_data{$_}" }
+
print qq|
</tr>
|;
Modified: branches/1.3/bin/io.pl
===================================================================
--- branches/1.3/bin/io.pl 2012-01-10 08:33:34 UTC (rev 4260)
+++ branches/1.3/bin/io.pl 2012-01-10 19:15:49 UTC (rev 4261)
@@ -337,30 +337,30 @@
$column_data{runningnumber} =
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>|;
- $column_data{qty} =
-qq|<td align=right><input name="qty_$i" title="$form->{"onhand_$i"}" size=5 value=|
- . $form->format_amount( \%myconfig, $form->{"qty_$i"} )
- . qq|></td>|;
- $column_data{ship} =
- qq|<td align=right><input name="ship_$i" size=5 value=|
- . $form->format_amount( \%myconfig, $form->{"ship_$i"} )
- . qq|></td>|;
- $column_data{unit} =
- 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=|
- . $form->format_amount( \%myconfig, $form->{"sellprice_$i"},
- $form->{"precision_$i"} )
- . qq|></td>|;
- $column_data{discount} =
- qq|<td align=right><input name="discount_$i" size=3 value=|
- . $form->format_amount( \%myconfig, $form->{"discount_$i"} )
- . qq|></td>|;
- $column_data{linetotal} =
- qq|<td align=right>|
- . $form->format_amount( \%myconfig, $linetotal, 2 )
+ $column_data{partnumber} =
+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="|
+ . $form->format_amount( \%myconfig, $form->{"qty_$i"} )
+ . qq|"></td>|;
+ $column_data{ship} =
+ qq|<td align=right><input name="ship_$i" size="5" value="|
+ . $form->format_amount( \%myconfig, $form->{"ship_$i"} )
+ . qq|"></td>|;
+ $column_data{unit} =
+ 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="|
+ . $form->format_amount( \%myconfig, $form->{"sellprice_$i"},
+ $form->{"precision_$i"} )
+ . qq|"></td>|;
+ $column_data{discount} =
+ qq|<td align=right><input name="discount_$i" size="3" value="|
+ . $form->format_amount( \%myconfig, $form->{"discount_$i"} )
+ . qq|"></td>|;
+ $column_data{linetotal} =
+ 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>|;
Modified: branches/1.3/bin/is.pl
===================================================================
--- branches/1.3/bin/is.pl 2012-01-10 08:33:34 UTC (rev 4260)
+++ branches/1.3/bin/is.pl 2012-01-10 19:15:49 UTC (rev 4261)
@@ -341,63 +341,63 @@
s/option>\Q$form->{$_}\E/option selected>$form->{$_}/;
}
- for (qw(customer department employee)) {
- $form->{"select$_"} = $form->unescape( $form->{"select$_"} );
- $form->{"select$_"} =~ s/ selected//;
- $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;
- }
-
- $form->{exchangerate} =
+ for (qw(customer department employee)) {
+ $form->{"select$_"} = $form->unescape( $form->{"select$_"} );
+ $form->{"select$_"} =~ s/ selected//;
+ $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected="selected"/;
+ }
+
+ $form->{exchangerate} =
$form->format_amount( \%myconfig, $form->{exchangerate} );
- $exchangerate = qq|<tr>|;
- $exchangerate .= qq|
- <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}>
-|;
-
- if ( $form->{defaultcurrency}
+ $exchangerate = qq|<tr>|;
+ $exchangerate .= qq|
+ <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}">
+|;
+
+ if ( $form->{defaultcurrency}
&& $form->{currency} ne $form->{defaultcurrency} )
{
if ( $form->{forex} ) {
- $exchangerate .=
- qq|<th align=right>|
- . $locale->text('Exchange Rate')
- . qq|</th><td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>|;
- }
- else {
- $exchangerate .=
- qq|<th align=right>|
- . $locale->text('Exchange Rate')
- . qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|;
- }
- }
- $exchangerate .= qq|
-<input type=hidden name=forex value=$form->{forex}>
-</tr>
-|;
-
- if ( $form->{selectcustomer} ) {
- $customer = qq|<select name=customer>$form->{selectcustomer}</select>
- <input type=hidden name="selectcustomer" value="|
- . $form->escape( $form->{selectcustomer}, 1 ) . qq|">|;
- }
- else {
- $customer = qq|<input name=customer value="$form->{customer}" size=35>|;
- }
-
- $department = qq|
- <tr>
- <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
- <td colspan=3><select name=department>$form->{selectdepartment}</select>
- <input type=hidden name=selectdepartment value="|
- . $form->escape( $form->{selectdepartment}, 1 ) . qq|">
- </td>
- </tr>
+ $exchangerate .=
+ qq|<th align=right>|
+ . $locale->text('Exchange Rate')
+ . qq|</th><td>$form->{exchangerate}<input type="hidden" name="exchangerate" value="$form->{exchangerate}"></td>|;
+ }
+ else {
+ $exchangerate .=
+ qq|<th align=right>|
+ . $locale->text('Exchange Rate')
+ . qq|</th><td><input name="exchangerate size="10" value="$form->{exchangerate}"></td>|;
+ }
+ }
+ $exchangerate .= qq|
+<input type=hidden name="forex" value="$form->{forex}">
+</tr>
+|;
+
+ if ( $form->{selectcustomer} ) {
+ $customer = qq|<select name="customer">$form->{selectcustomer}</select>
+ <input type="hidden" name="selectcustomer" value="|
+ . $form->escape( $form->{selectcustomer}, 1 ) . qq|">|;
+ }
+ else {
+ $customer = qq|<input name="customer" value="$form->{customer}" size="35">|;
+ }
+
+ $department = qq|
+ <tr>
+ <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
+ <td colspan="3"><select name="department">$form->{selectdepartment}</select>
+ <input type="hidden" name="selectdepartment" value="|
+ . $form->escape( $form->{selectdepartment}, 1 ) . qq|">
+ </td>
+ </tr>
| if $form->{selectdepartment};
$n = ( $form->{creditremaining} < 0 ) ? "0" : "1";
@@ -414,21 +414,21 @@
. qq| %</td>
</tr>
|;
- }
+ }
+
+ $employee = qq|
+ <input type=hidden name="employee" value="$form->{employee}">
+|;
+
+ $employee = qq|
+ <tr>
+ <th align=right nowrap>| . $locale->text('Salesperson') . qq|</th>
+ <td><select name="employee">$form->{selectemployee}</select></td>
+ <input type=hidden name="selectemployee" value="|
+ . $form->escape( $form->{selectemployee}, 1 ) . qq|">
+ </tr>
+| if $form->{selectemployee};
- $employee = qq|
- <input type=hidden name=employee value="$form->{employee}">
-|;
-
- $employee = qq|
- <tr>
- <th align=right nowrap>| . $locale->text('Salesperson') . qq|</th>
- <td><select name=employee>$form->{selectemployee}</select></td>
- <input type=hidden name=selectemployee value="|
- . $form->escape( $form->{selectemployee}, 1 ) . qq|">
- </tr>
-| if $form->{selectemployee};
-
$i = $form->{rowcount} + 1;
$focus = "partnumber_$i";
@@ -477,14 +477,14 @@
<tr valign=top>
<td>
<table>
- <tr>
- <th align=right nowrap>| . $locale->text('Customer') . qq|</th>
- <td colspan=3>$customer</td>
- <input type=hidden name=customer_id value=$form->{customer_id}>
- <input type=hidden name=oldcustomer value="$form->{oldcustomer}">
- </tr>
- <tr>
- <td></td>
+ <tr>
+ <th align=right nowrap>| . $locale->text('Customer') . qq|</th>
+ <td colspan=3>$customer</td>
+ <input type=hidden name="customer_id" value="$form->{customer_id}">
+ <input type=hidden name="oldcustomer" value="$form->{oldcustomer}">
+ </tr>
+ <tr>
+ <td></td>
<td colspan=3>
<table>
<tr>
@@ -500,51 +500,51 @@
</tr>
$business
</table>
- </td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Record in') . qq|</th>
- <td colspan=3><select name=AR>$form->{selectAR}</select></td>
- <input type=hidden name=selectAR value="$form->{selectAR}">
- </tr>
- $department
- $exchangerate
- <tr>
- <th align=right nowrap>| . $locale->text('Shipping Point') . qq|</th>
- <td colspan=3><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Ship via') . qq|</th>
- <td colspan=3><input name=shipvia size=35 value="$form->{shipvia}"></td>
- </tr>
- </table>
- </td>
+ </td>
+ </tr>
+ <tr>
+ <th align="right" nowrap>| . $locale->text('Record in') . qq|</th>
+ <td colspan="3"><select name="AR">$form->{selectAR}</select></td>
+ <input type="hidden" name="selectAR" value="$form->{selectAR}">
+ </tr>
+ $department
+ $exchangerate
+ <tr>
+ <th align=right nowrap>| . $locale->text('Shipping Point') . qq|</th>
+ <td colspan=3><input name="shippingpoint" size="35" value="$form->{shippingpoint}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>| . $locale->text('Ship via') . qq|</th>
+ <td colspan=3><input name="shipvia" size="35" value="$form->{shipvia}"></td>
+ </tr>
+ </table>
+ </td>
<td align=right>
<table>
- $employee
- <tr>
- <th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
- <td><input name=invnumber size=20 value="$form->{invnumber}"></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
- <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td>
-<input type=hidden name=quonumber value="$form->{quonumber}">
- </tr>
- <tr>
- <th align=right>| . $locale->text('Invoice Date') . qq|</th>
- <td><input class="date" name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Due Date') . qq|</th>
- <td><input class="date" name=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('PO Number') . qq|</th>
- <td><input name=ponumber size=20 value="$form->{ponumber}"></td>
- </tr>
- </table>
- </td>
+ $employee
+ <tr>
+ <th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
+ <td><input name="invnumber" size="20" value="$form->{invnumber}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
+ <td><input name="ordnumber" size="20" value="$form->{ordnumber}"></td>
+<input type=hidden name="quonumber" value="$form->{quonumber}">
+ </tr>
+ <tr>
+ <th align=right>| . $locale->text('Invoice Date') . qq|</th>
+ <td><input class="date" name="transdate" size="11" title="$myconfig{dateformat}" value="$form->{transdate}"></td>
+ </tr>
+ <tr>
+ <th align=right>| . $locale->text('Due Date') . qq|</th>
+ <td><input class="date" name="duedate" size="11" title="$myconfig{dateformat}" value="$form->{duedate}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>| . $locale->text('PO Number') . qq|</th>
+ <td><input name="ponumber" size="20" value="$form->{ponumber}"></td>
+ </tr>
+ </table>
+ </td>
</tr>
</table>
</td>
@@ -609,25 +609,25 @@
}
if ( ( $introws = $form->numtextrows( $form->{intnotes}, 35, 8 ) ) < 2 ) {
$introws = 5;
- }
- $rows = ( $rows > $introws ) ? $rows : $introws;
- $notes =
-qq|<textarea name=notes rows=$rows cols=40 wrap=soft>$form->{notes}</textarea>|;
- $intnotes =
-qq|<textarea name=intnotes rows=$rows cols=40 wrap=soft>$form->{intnotes}</textarea>|;
-
- $form->{taxincluded} = ( $form->{taxincluded} ) ? "checked" : "";
-
+ }
+ $rows = ( $rows > $introws ) ? $rows : $introws;
+ $notes =
+qq|<textarea name="notes" rows="$rows" cols="40" wrap="soft">$form->{notes}</textarea>|;
+ $intnotes =
+qq|<textarea name="intnotes" rows="$rows" cols="40" wrap="soft">$form->{intnotes}</textarea>|;
+
+ $form->{taxincluded} = ( $form->{taxincluded} ) ? "checked" : "";
+
$taxincluded = "";
if ($form->{taxaccounts} ) {
$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>
- </tr>
+ <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>
+ </tr>
|;
}
@@ -826,35 +826,35 @@
$form->format_amount( \%myconfig, $form->{"exchangerate_$i"} );
$exchangerate = qq| |;
- if ( $form->{currency} ne $form->{defaultcurrency} ) {
- if ( $form->{"forex_$i"} ) {
- $exchangerate =
-qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|;
- }
- else {
- $exchangerate =
-qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;
- }
- }
-
- $exchangerate .= qq|
-<input type=hidden name="forex_$i" value=$form->{"forex_$i"}>
-|;
-
- $column_data{paid} =
-qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|;
- $column_data{exchangerate} = qq|<td align=center>$exchangerate</td>|;
- $column_data{AR_paid} =
-qq|<td align=center><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|;
- $column_data{datepaid} =
-qq|<td align=center><input class="date" name="datepaid_$i" size=11 title="$myconfig{dateformat}" value=$form->{"datepaid_$i"}></td>|;
- $column_data{source} =
-qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
- $column_data{memo} =
-qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|;
-
- for (@column_index) { print qq|$column_data{$_}\n| }
- print "
+ if ( $form->{currency} ne $form->{defaultcurrency} ) {
+ if ( $form->{"forex_$i"} ) {
+ $exchangerate =
+qq|<input type="hidden" name="exchangerate_$i" value="$form->{"exchangerate_$i"}">$form->{"exchangerate_$i"}|;
+ }
+ else {
+ $exchangerate =
+qq|<input name="exchangerate_$i" size="10" value="$form->{"exchangerate_$i"}">|;
+ }
+ }
+
+ $exchangerate .= qq|
+<input type="hidden" name="forex_$i" value="$form->{"forex_$i"}">
+|;
+
+ $column_data{paid} =
+qq|<td align="center"><input name="paid_$i" size="11" value="$form->{"paid_$i"}"></td>|;
+ $column_data{exchangerate} = qq|<td align="center">$exchangerate</td>|;
+ $column_data{AR_paid} =
+qq|<td align="center"><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|;
+ $column_data{datepaid} =
+qq|<td align="center"><input class="date" name="datepaid_$i" size="11" title="$myconfig{dateformat}" value="$form->{"datepaid_$i"}"></td>|;
+ $column_data{source} =
+qq|<td align="center"><input name="source_$i" size="11" value="$form->{"source_$i"}"></td>|;
+ $column_data{memo} =
+qq|<td align="center"><input name="memo_$i" size="11" value="$form->{"memo_$i"}"></td>|;
+
+ for (@column_index) { print qq|$column_data{$_}\n| }
+ print "
</tr>\n";
}
Modified: branches/1.3/bin/oe.pl
===================================================================
--- branches/1.3/bin/oe.pl 2012-01-10 08:33:34 UTC (rev 4260)
+++ branches/1.3/bin/oe.pl 2012-01-10 19:15:49 UTC (rev 4261)
@@ -2931,15 +2931,15 @@
qq|<td>$description<input type=hidden name="description_$i" value="$form->{"description_$i"}"></td>|;
$column_data{qty} =
qq|<td align=right>|
- . $form->format_amount( \%myconfig, $form->{"qty_$i"} )
- . 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=|
- . $form->format_amount( \%myconfig, $form->{"ship_$i"} )
- . qq|></td>|;
- $column_data{unit} =
-qq|<td>$form->{"unit_$i"}<input type=hidden name="unit_$i" value="$form->{"unit_$i"}"></td>|;
- $column_data{bin} =
+ . $form->format_amount( \%myconfig, $form->{"qty_$i"} )
+ . 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="|
+ . $form->format_amount( \%myconfig, $form->{"ship_$i"} )
+ . qq|"></td>|;
+ $column_data{unit} =
+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>|;
$column_data{serialnumber} =
@@ -3267,16 +3267,16 @@
$column_data{partnumber} =
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>|;
- $column_data{towarehouse} = qq|<td>$warehouse </td>|;
- $column_data{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{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>|;
+ $column_data{towarehouse} = qq|<td>$warehouse </td>|;
+ $column_data{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>|;
$j++;
$j %= 2;
@@ -3512,13 +3512,13 @@
for (qw(required leadtime lastcost fx)) {
$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>|;
-
- if ( $form->{"$form->{vc}_id_$i"} ) {
- $name = $form->{"$form->{vc}_$i"};
+ }
+
+ $column_data{qty} =
+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"};
$name =~ s/--.*//;
$column_data{name} = qq|<td>$name</td>|;
$form->hide_form( "$form->{vc}_id_$i", "$form->{vc}_$i" );
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.