[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb:[4261] branches/1.3/bin



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}, '', "&nbsp;" )
-          . 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}, '', "&nbsp;" )
+          . 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|&nbsp;|;
-        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}&nbsp;</td>";
-        $column_data{partsgroup}  = "<td>$ref->{partsgroup}&nbsp;</td>";
-        $column_data{fromwarehouse} =
-qq|<td><input type=hidden name="warehouse_id_$i" value=$ref->{warehouse_id}>$ref->{warehouse}&nbsp;</td>|;
-        $column_data{towarehouse} = qq|<td>$warehouse&nbsp;</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}&nbsp;</td>";
+        $column_data{partsgroup}  = "<td>$ref->{partsgroup}&nbsp;</td>";
+        $column_data{fromwarehouse} =
+qq|<td><input type=hidden name="warehouse_id_$i" value="$ref->{warehouse_id}">$ref->{warehouse}&nbsp;</td>|;
+        $column_data{towarehouse} = qq|<td>$warehouse&nbsp;</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.