SF.net SVN: ledger-smb:[5901] branches/1.3/bin/ic.pl

[..hidden..]

Revision: 5901
          http://sourceforge.net/p/ledger-smb/code/5901
Author:   tshvr
Date:     2013-07-04 09:51:33 +0000 (Thu, 04 Jul 2013)
Log Message:
-----------
go back to invoice after having added new part

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

Modified: branches/1.3/bin/ic.pl
===================================================================
--- branches/1.3/bin/ic.pl	2013-07-04 07:12:24 UTC (rev 5900)
+++ branches/1.3/bin/ic.pl	2013-07-04 09:51:33 UTC (rev 5901)
@@ -50,7 +50,6 @@
 # end of main
 
 sub add {
-
     %label = (
         part     => 'Part',
         service  => 'Service',
@@ -3602,7 +3601,6 @@
 }
 
 sub save {
-
     if ( $form->{obsolete} ) {
         $form->error(
             $locale->text(
@@ -3762,9 +3760,14 @@
     }
 
     if ($rc) {
-        edit();
-        # redirect
-        # $form->redirect("Part Saved");
+        #if(!$form->{id}){$form->{id}=$parts_id;}#tshvr4 form->id lost somewhere before but needed for edit IC->get_part
+        if($form->{id}){
+         edit();
+        }
+        # redirect, after having set values for last added invoice/order item 
+        else{
+         $form->redirect("Part Saved");
+       }
     }
     else {
         $form->error;

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