From 58e6e8f1e63ab00135f8da3f8e233b0fc893c322 Mon Sep 17 00:00:00 2001
From: Erik Huelsmann <ehuels@gmail.com>
Date: Thu, 1 Aug 2013 20:47:02 +0000
Subject: [PATCH] Uncomment code commented-out-for-debugging in r5250. Fixes
 #873.

git-svn-id: svn://svn.code.sf.net/p/ledger-smb/code/branches/1.3@5928 4979c152-3d1c-0410-bac9-87ea11338e46
---
 common.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/common.pl b/common.pl
index 93a45c095a..751d6e84d5 100644
--- a/common.pl
+++ b/common.pl
@@ -36,11 +36,11 @@ sub redirect {
         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"