SF.net SVN: ledger-smb:[6510] trunk/bin/am.pl

[..hidden..]

Revision: 6510
          http://sourceforge.net/p/ledger-smb/code/6510
Author:   einhverfr
Date:     2014-01-17 13:23:26 +0000 (Fri, 17 Jan 2014)
Log Message:
-----------
Warehouse fcgi fix for 1.4

Modified Paths:
--------------
    trunk/bin/am.pl

Modified: trunk/bin/am.pl
===================================================================
--- trunk/bin/am.pl	2014-01-17 13:16:36 UTC (rev 6509)
+++ trunk/bin/am.pl	2014-01-17 13:23:26 UTC (rev 6510)
@@ -951,17 +951,23 @@
 
     $form->isblank( "description", $locale->text('Description missing!') );
     AM->save_warehouse( \%myconfig, \%$form );
-    $form->redirect( $locale->text('Warehouse saved!') );
+    _warehouse_redirect();
 
 }
 
 sub delete_warehouse {
 
     AM->delete_warehouse( \%myconfig, \%$form );
-    $form->redirect( $locale->text('Warehouse deleted!') );
+    _warehouse_redirect();
 
 }
 
+sub _warehouse_redirect {
+    use LedgerSMB::Scripts::reports;
+    bless $form, 'LedgerSMB';
+    LedgerSMB::Scripts::reports::list_warehouse($lsmb);
+}
+
 sub company_logo {
 
     $myconfig{address} =~ s/\\n/<br>/g; # Template cleans this up

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


------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today. 
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits