From d8d2bcf72205070de7ef177390a6748f893cfec2 Mon Sep 17 00:00:00 2001
From: Chris Travers <chris@efficito.com>
Date: Mon, 15 Sep 2014 01:08:42 -0700
Subject: [PATCH] Fixing bug 1205 by setting role_prefix on copy

--HG--
extra : source : 5e26055a66002625869a45e53f7bc874102dcaf1
---
 Changelog                  | 4 ++++
 LedgerSMB/Scripts/setup.pm | 6 ++++++
 2 files changed, 10 insertions(+)

diff --git a/Changelog b/Changelog
index fc67b70e7c..c2b22ff0e3 100644
--- a/Changelog
+++ b/Changelog
@@ -7,6 +7,10 @@ API Enhancements:
 Changelog for 1.4 Series
 Released 2014-09-15
 
+Changelog for 1.4.1
+* Fixing 1205, copy does not copy roles (Chris T)
+
+Changelog for 1.4.0
 General Enhancements:
 * Performance enhancements on menu routines (Chris T and Steven M)
 * Added +/- selection indicators to menu CSS (Chris T)
diff --git a/LedgerSMB/Scripts/setup.pm b/LedgerSMB/Scripts/setup.pm
index 5bf4d2b2dc..58757ed2f6 100644
--- a/LedgerSMB/Scripts/setup.pm
+++ b/LedgerSMB/Scripts/setup.pm
@@ -236,6 +236,12 @@ sub copy_db {
     my $database = _get_database($request);
     my $rc = $database->copy($request->{new_name}) 
            || die 'An error occurred. Please check your database logs.' ;
+    my $dbh = LedgerSMB::Database->new(
+           {%$database, (company_name => $request->{new_name})}
+    )->dbh;
+    $dbh->prepare("SELECT setting__set(?, ?)")->execute(
+           "role_prefix", "lsmb_$database->{company_name}__");
+    $dbh->disconnect;
     complete($request);
 }