Changeset 32536 for main/trunk/greenstone2/perllib/gssql.pm
- Timestamp:
- 2018-10-24T20:11:33+13:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/gssql.pm
r32531 r32536 31 31 no strict 'subs'; 32 32 33 use GreenstoneXMLPlugout; 34 use docprint; 35 36 use DBI; # the central package for this plugout 33 use DBI; # the central package for this module used by GreenstoneSQL Plugout and Plugin 37 34 38 35 # Need params_map keys: … … 151 148 } 152 149 150 # will attempt to load the specified db and the <coll>_metadata and <coll>_fulltxt for this 151 # collection, or create any of these (db, tables) that don't yet exist. At the end 152 # it will have loaded the requested database (in MySQL: "use <db>;") 153 153 sub load_db_and_tables { 154 154 my $self= shift (@_); … … 205 205 } 206 206 207 # this will terminate if the db does not exist208 # it will not attempt to create the requested db (nor its tables)209 # The upcoming GreenstoneSQLPlugin can use this.207 # GreenstoneSQLPlugin calls this method to load an existing db. 208 # This will terminate if the db does not exist. Unlike load_db_and_tables() above, used by 209 # GreenstoneSQLPlugout, this method will not attempt to create the requested db (nor its tables) 210 210 sub use_db { 211 211 my $self= shift (@_); … … 370 370 } 371 371 372 # returns database handle, dbh 373 sub get_db_handle { 374 my $self= shift (@_); 375 return $self->{'db_handle'}; 376 } 377 372 378 373 379 # I can get my version of table_exists to work, but it's not so ideal
Note:
See TracChangeset
for help on using the changeset viewer.