LP#1882937: Comment and dead-code cleanup
authorMike Rylander <mrylander@gmail.com>
Wed, 10 Jun 2020 19:29:16 +0000 (15:29 -0400)
committerMike Rylander <mrylander@gmail.com>
Wed, 10 Jun 2020 19:29:16 +0000 (15:29 -0400)
Adjust comments in Storage::Driver::Pg to remove references to
Class::DBI::Replication, which we did not end up using.

Also remove a commented-out sub that purported to make use of a function
that did not exist in the home-grown multi-db implementation.

NOTE: While unused, the multi-db implementation in Storage::Driver::Pg
intelligently decides when to use a read-only secondary based on the
existence of a transaction or the "write-iness" state controlled by the
caller, and does not require separate main (or primary) and secondary
db lists.

Signed-off-by: Mike Rylander <mrylander@gmail.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg.pm

index f556456..9050ca3 100644 (file)
@@ -1,12 +1,11 @@
 
 
-{ # The driver package itself just needs a db_Main method (or db_standbys if
-  #Class::DBI::Replication is in use) for Class::DBI to call.
+{ # The driver package itself just needs a db_Main method.
   #
   # Any other fixups can go in here too... Also, the drivers should subclass the
   # DBI driver that they are wrapping, or provide a 'quote()' method that calls
   # the DBD::xxx::quote() method on FTI's behalf.
   #
   #
   # Any other fixups can go in here too... Also, the drivers should subclass the
   # DBI driver that they are wrapping, or provide a 'quote()' method that calls
   # the DBD::xxx::quote() method on FTI's behalf.
   #
-  # The dirver MUST be a subclass of Class::DBI(::Replication) and
+  # The dirver MUST be a subclass of Class::DBI and
   # OpenILS::Application::Storage.
   #-------------------------------------------------------------------------------
     package OpenILS::Application::Storage::Driver::Pg;
   # OpenILS::Application::Storage.
   #-------------------------------------------------------------------------------
     package OpenILS::Application::Storage::Driver::Pg;
         return $self->db_Main->quote(@_)
     }
 
         return $self->db_Main->quote(@_)
     }
 
-#   sub tsearch2_trigger {
-#       my $self = shift;
-#       return unless ($self->value);
-#       $self->index_vector(
-#           $self->db_standbys->selectrow_array(
-#               "SELECT to_tsvector('default',?);",
-#               {},
-#               $self->value
-#           )
-#       );
-#   }
-
     my $_xact_session;
     my $_audit_session;
 
     my $_xact_session;
     my $_audit_session;