- Timestamp:
- 2018-10-23T15:33:31+13:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/GreenstoneSQLPlugout.pm
r32530 r32531 245 245 my $self = shift (@_); 246 246 my ($doc_obj) = @_; 247 my $doc_oid = $doc_obj->get_OID(); # this method processes a single doc at a time, so it uses the same OID throughout 247 248 my $root_section = $doc_obj->get_top_section(); 248 my $doc_oid = $doc_obj->get_OID(); # we're processing a single doc at a time, so single OID249 249 250 250 # load the prepared INSERT statement handles for both tables (can be undef for any table depending on whether meta_only or txt_only are set) … … 269 269 270 270 my $debug_out = $self->{'debug_outhandle'}; 271 print STDERR "#### Meta stmt: " . $metadata_table_sth->{'Statement'} . "\n";272 print STDERR "#### Full stmt: " . $fulltxt_table_sth->{'Statement'} . "\n";271 # print STDERR "#### Meta stmt: " . $metadata_table_sth->{'Statement'} . "\n"; 272 # print STDERR "#### Full stmt: " . $fulltxt_table_sth->{'Statement'} . "\n"; 273 273 274 274 #my $proc_mode = $self->{'process_mode'}; … … 318 318 # output all subsections: RECURSIVE CALL 319 319 foreach my $subsection (@{$section_ptr->{'subsection_order'}}) { 320 &recursive_write_meta_and_text($doc_obj, $doc_oid, "$section.$subsection", $metadata_table_sth, $fulltxt_table_sth);320 $self->recursive_write_meta_and_text($doc_obj, $doc_oid, "$section.$subsection", $metadata_table_sth, $fulltxt_table_sth); 321 321 } 322 322 }
Note:
See TracChangeset
for help on using the changeset viewer.