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

[..hidden..]

Revision: 5250
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5250&view=rev
Author:   einhverfr
Date:     2012-11-24 02:47:52 +0000 (Sat, 24 Nov 2012)
Log Message:
-----------
Fixing blank screen on post in fcgi.

Modified Paths:
--------------
    branches/1.3/bin/ir.pl
    branches/1.3/bin/is.pl
    branches/1.3/common.pl

Modified: branches/1.3/bin/ir.pl
===================================================================
--- branches/1.3/bin/ir.pl	2012-11-23 10:46:09 UTC (rev 5249)
+++ branches/1.3/bin/ir.pl	2012-11-24 02:47:52 UTC (rev 5250)
@@ -1329,8 +1329,7 @@
     ( $form->{AP_paid} ) = split /--/, $form->{AP_paid};
 
     if ( IR->post_invoice( \%myconfig, \%$form ) ) {
-        $form->redirect(
-            $locale->text( 'Invoice [_1] posted!', $form->{invnumber} ) );
+        edit();
     }
     else {
         $form->error( $locale->text('Cannot post invoice!') );

Modified: branches/1.3/bin/is.pl
===================================================================
--- branches/1.3/bin/is.pl	2012-11-23 10:46:09 UTC (rev 5249)
+++ branches/1.3/bin/is.pl	2012-11-24 02:47:52 UTC (rev 5250)
@@ -1386,10 +1386,7 @@
     ( $form->{AR_paid} ) = split /--/, $form->{AR_paid};
 
     if ( IS->post_invoice( \%myconfig, \%$form ) ) {
-	$form->{callback} =
-	    "$form->{script}?action=edit&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&id=$form->{id}";
-        $form->redirect(
-            $locale->text( 'Invoice [_1] posted!', $form->{invnumber} ) );
+        &edit;
     }
     else {
         $form->error( $locale->text('Cannot post invoice!') );

Modified: branches/1.3/common.pl
===================================================================
--- branches/1.3/common.pl	2012-11-23 10:46:09 UTC (rev 5249)
+++ branches/1.3/common.pl	2012-11-24 02:47:52 UTC (rev 5250)
@@ -36,11 +36,11 @@
         print "Content-type: text/html\n\n";
         return;
     }
-    if (first { $_ eq $script } @{LedgerSMB::Sysconfig::newscripts}){
+    #if (first { $_ eq $script } @{LedgerSMB::Sysconfig::newscripts}){
         print "Location: $form->{callback}\n";
         print "Content-type: text/html\n\n";
         return;
-    }
+    #}
     $form->error(
         $locale->text(
             __FILE__ . ':' . __LINE__ . ':' . $script . ':' . "Invalid Redirect"

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