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

[spadkins]

Author: spadkins
Date: Mon Sep  4 20:52:41 2006
New Revision: 6854

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

Log:
added dbioptions to the list of things App::Repository::MySQL takes into 
account in building its dsn

Modified: p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm       (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/MySQL.pm       Mon Sep  4 
20:52:41 2006
@@ -76,13 +76,14 @@
 
     my $dsn = $self->{dbdsn};
     if (!$dsn) {
+        my $dbhost     = $self->{dbhost};
+        my $dbport     = $self->{dbport};
+        my $dbsocket   = $self->{dbsocket};
         my $dbname     = $self->{dbname};
         my $dbuser     = $self->{dbuser};
         my $dbpass     = $self->{dbpass};
         my $dbschema   = $self->{dbschema};
-        my $dbhost     = $self->{dbhost};
-        my $dbport     = $self->{dbport};
-        my $dbsocket   = $self->{dbsocket};
+        my $dbioptions = $self->{dbioptions};
 
         die "ERROR: missing DBI driver and/or db name [$dbdriver,$dbname] in 
configuration.\n"
             if (!$dbdriver || !$dbname);
@@ -98,6 +99,7 @@
         $dsn .= ";host=$dbhost" if ($dbhost);
         $dsn .= ";port=$dbport" if ($dbport);
         $dsn .= ";mysql_socket=$dbsocket" if ($dbsocket);
+        $dsn .= ";$dbioptions" if ($dbioptions);
         $dsn .= ";mysql_client_found_rows=true";
     }