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

[..hidden..]

Revision: 4949
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4949&view=rev
Author:   einhverfr
Date:     2012-06-28 12:06:42 +0000 (Thu, 28 Jun 2012)
Log Message:
-----------
correcting redirect error when attaching files to parts

Modified Paths:
--------------
    branches/1.3/bin/ic.pl
    branches/1.3/bin/io.pl

Modified: branches/1.3/bin/ic.pl
===================================================================
--- branches/1.3/bin/ic.pl	2012-06-26 09:06:44 UTC (rev 4948)
+++ branches/1.3/bin/ic.pl	2012-06-28 12:06:42 UTC (rev 4949)
@@ -935,7 +935,7 @@
        print qq|
 </table>|;
        $callback = $form->escape(
-               lc($form->{ARAP}) . ".pl?action=edit&id=".$form->{id}
+               "ic.pl?action=edit&id=".$form->{id}
        );
        print qq|
 <a href="file.pl?action=show_attachment_screen&ref_key=$form->{id}&file_class=3&callback=$callback"

Modified: branches/1.3/bin/io.pl
===================================================================
--- branches/1.3/bin/io.pl	2012-06-26 09:06:44 UTC (rev 4948)
+++ branches/1.3/bin/io.pl	2012-06-28 12:06:42 UTC (rev 4949)
@@ -571,7 +571,7 @@
             qw(partnumber sku description partsgroup partsgroup_id bin weight 
                sellprice listprice lastcost onhand unit assembly 
                taxaccounts inventory_accno_id income_accno_id expense_accno_id 
-               pricematrix id notes)
+               pricematrix id image notes)
           )
         {
             print
@@ -637,7 +637,7 @@
             for (
                 qw(id partnumber sku description listprice lastcost
                   bin unit weight assembly taxaccounts pricematrix onhand notes 
-                  inventory_accno_id income_accno_id expense_accno_id)
+                  inventory_accno_id image income_accno_id expense_accno_id)
               )
             {
                 $form->{"${_}_$i"} = $form->{"new_${_}_$j"};
@@ -728,7 +728,7 @@
         for (
             qw(id partnumber sku description sellprice listprice lastcost 
                bin unit weight assembly taxaccounts pricematrix onhand
-               notes inventory_accno_id income_accno_id expense_accno_id)
+               notes inventory_accno_id income_accno_id expense_accno_id image)
           )
         {
             delete $form->{"new_${_}_$i"};
@@ -894,7 +894,7 @@
          sellprice discount oldqty orderitems_id bin weight listprice 
          lastcost taxaccounts pricematrix sku onhand assembly 
          inventory_accno_id income_accno_id expense_accno_id notes reqdate 
-         deliverydate serialnumber projectnumber);
+         deliverydate serialnumber projectnumber image);
 
     # remove any makes or model rows
     if ( $form->{item} eq 'part' ) {
@@ -1632,7 +1632,8 @@
             "partnumber_$i",    "description_$i",
             "projectnumber_$i", "partsgroup_$i",
             "serialnumber_$i",  "bin_$i",
-            "unit_$i",          "notes_$i"
+            "unit_$i",          "notes_$i", 
+            "image_$i",
           );
     }
     for ( split / /, $form->{taxaccounts} ) { push @vars, "${_}_description" }

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.