From 8e10f6bdd05d64307c68ea10ac4c0c8f5bc3ce90 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Tue, 5 Nov 2013 18:16:10 +0100
Subject: [PATCH] add database handle to the objects internal data structure
---
textarchive/lib/TA/ObjReg.pm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/textarchive/lib/TA/ObjReg.pm b/textarchive/lib/TA/ObjReg.pm
index 9cf064f..0f12710 100644
--- a/textarchive/lib/TA/ObjReg.pm
+++ b/textarchive/lib/TA/ObjReg.pm
@@ -726,12 +726,12 @@ sub connect_MongoDB
my $cmm= $cfg->{'MongoDB'};
# print "cmm: ", main::Dumper ($cmm);
- my ($col0, $col1, $col2);
+ my ($db, $col0, $col1, $col2);
eval
{
my $connection= MongoDB::Connection->new(host => $cmm->{'host'});
$connection->authenticate($cmm->{'db'}, $cmm->{'user'}, $cmm->{'pass'});
- my $db= $connection->get_database($cmm->{'db'});
+ $db= $connection->get_database($cmm->{'db'});
$col0= $db->get_collection($cmm->{'maint'});
$col1= $db->get_collection($cmm->{'catalog'});
@@ -744,6 +744,7 @@ sub connect_MongoDB
return undef;
}
+ $obj->{'_mongo'}= $db;
$obj->{'_maint'}= $col0;
$obj->{'_cat'}= $col1;
$obj->{'_keys'}= $col2;
--
GitLab