[svn:p5ee] r6853 - p5ee/trunk/App-Repository/lib/App/Repository

[spadkins]

Author: spadkins
Date: Mon Sep  4 20:09:03 2006
New Revision: 6853

Modified:
   p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm

Log:
added dbsocket as a parameter which App::Repository::DBI automatically picks up 
from app.conf

Modified: p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm Mon Sep  4 20:09:03 2006
@@ -341,7 +341,7 @@
 
         my $config_from_options = 1;
         my $config_from_ext_options = 0;
-        foreach my $var qw(dbdsn dbdriver dbhost dbport dbname dbuser dbpass 
dbschema dbioptions) {
+        foreach my $var qw(dbdsn dbdriver dbhost dbport dbsocket dbname dbuser 
dbpass dbschema dbioptions) {
             if ($self->{$var}) {
                 $config_from_options = 0;
             }
@@ -352,14 +352,14 @@
 
         if ($config_from_options) {
             if ($config_from_ext_options) {
-                foreach my $var qw(dbdsn dbdriver dbhost dbport dbname dbuser 
dbpass dbschema dbioptions) {
+                foreach my $var qw(dbdsn dbdriver dbhost dbport dbsocket 
dbname dbuser dbpass dbschema dbioptions) {
                     if (defined $options->{"${name}_${var}"}) {
                         $self->{$var} = $options->{"${name}_${var}"};
                     }
                 }
             }
             else {
-                foreach my $var qw(dbdsn dbdriver dbhost dbport dbname dbuser 
dbpass dbschema dbioptions) {
+                foreach my $var qw(dbdsn dbdriver dbhost dbport dbsocket 
dbname dbuser dbpass dbschema dbioptions) {
                     if (defined $options->{$var}) {
                         $self->{$var} = $options->{$var};
                     }