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

Author: spadkins
Date: Mon Sep 18 12:59:54 2006
New Revision: 7841

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

Log:
change xyz_dbname to xyz.dbname as App::Options name to set attributes of an App::Repository::DBI service

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 18 12:59:54 2006
@@ -345,7 +345,7 @@
             if ($self->{$var}) {
                 $config_from_options = 0;
             }
-            if ($options->{"${name}_${var}"}) {
+            if ($options->{"${name}.${var}"}) {
                 $config_from_ext_options = 1;
             }
         }
@@ -353,8 +353,8 @@
         if ($config_from_options) {
             if ($config_from_ext_options) {
                 foreach my $var qw(dbdsn dbdriver dbhost dbport dbsocket dbname dbuser dbpass dbschema dbioptions) {
-                    if (defined $options->{"${name}_${var}"}) {
-                        $self->{$var} = $options->{"${name}_${var}"};
+                    if (defined $options->{"${name}.${var}"}) {
+                        $self->{$var} = $options->{"${name}.${var}"};
                     }
                 }
             }
@@ -2403,6 +2403,75 @@
     $retval;
 }
 
+#############################################################################
+# begin()
+#############################################################################
+
+=head2 begin()
+
+    * Signature: $rep->begin();
+    * Param:     void
+    * Return:    void
+    * Throws:    App::Exception::Repository
+    * Since:     0.01
+
+    Sample Usage: 
+
+    $rep->begin();
+
+=cut
+
+sub begin {
+    my $self = shift;
+    $self->_do("begin");
+}
+
+#############################################################################
+# commit()
+#############################################################################
+
+=head2 commit()
+
+    * Signature: $rep->commit();
+    * Param:     void
+    * Return:    void
+    * Throws:    App::Exception::Repository
+    * Since:     0.01
+
+    Sample Usage: 
+
+    $rep->commit();
+
+=cut
+
+sub commit {
+    my $self = shift;
+    $self->_do("commit");
+}
+
+#############################################################################
+# rollback()
+#############################################################################
+
+=head2 rollback()
+
+    * Signature: $rep->rollback();
+    * Param:     void
+    * Return:    void
+    * Throws:    App::Exception::Repository
+    * Since:     0.01
+
+    Sample Usage: 
+
+    $rep->rollback();
+
+=cut
+
+sub rollback {
+    my $self = shift;
+    $self->_do("rollback");
+}
+
 sub explain_sql {
     my ($self, $sql) = @_;
     # to be overridden in each Repository class