Changeset 29045
- Timestamp:
- 2014-05-08T17:59:47+12:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone3/bin/script/convert_coll_from_gs2.pl
r29008 r29045 127 127 $indexstem = $buildcfg->{'indexstem'}; 128 128 } 129 #my $indexstem = $buildcfg->{'indexstem'} || undef; 130 my $infodbtype = $buildcfg->{'infodbtype'} || "gdbm"; 131 my $earliestDatestamp = $buildcfg->{'earliestdatestamp'} || undef; 129 132 130 133 my $buildoutput = new IO::File(">$buildoutfile"); … … 184 187 &output_metadata($buildwriter,'', 'numDocs', $numdocs); 185 188 &output_metadata($buildwriter,'', 'buildType', $buildtype); 189 &output_metadata($buildwriter,'', 'indexStem', $indexstem) if(defined $indexstem); 190 &output_metadata($buildwriter,'', 'infodbType', $infodbtype); 191 &output_metadata($buildwriter,'', 'earliestDatestamp', $earliestDatestamp) if(defined $earliestDatestamp); 186 192 $buildwriter->endTag('metadataList'); 187 193 … … 431 437 if (defined $indexstem) { 432 438 $buildwriter->emptyTag('indexStem', 'name'=>$indexstem); 433 } 439 } 440 $buildwriter->emptyTag('databaseType', 'name'=>$infodbtype) if (defined $infodbtype); 441 434 442 # close off the Retrieve service 435 443 $buildwriter->endTag('serviceRack'); … … 473 481 if (defined $indexstem) { 474 482 $buildwriter->emptyTag('indexStem', 'name'=>$indexstem); 475 } 483 } 484 $buildwriter->emptyTag('databaseType', 'name'=>$infodbtype) if (defined $infodbtype); 476 485 477 486 $buildwriter->startTag('classifierList'); … … 490 499 $content = @$cl[$i+1]; 491 500 } 492 501 502 # remove "ex." prefix from "ex.metaname" but not from "ex.namespace.metaname" 503 $content =~ s@ex\.([^.]+)(,|;|$)@$1$2@g; #$content =~ s@ex\.([A-Z])@$1@g; 493 504 } 494 505 } … … 564 575 $buildwriter->startTag('serviceRack', 'name'=>'GS2'.$service_type.'Search'); 565 576 #$buildwriter->emptyTag('defaultIndex', 'shortname'=>$defaultindex); 577 $buildwriter->emptyTag('defaultIndex', 'shortname'=>$indexmap->{$defaultindex}); 566 578 $buildwriter->startTag('indexList'); 567 579 #for each index … … 573 585 if (defined $indexstem) { 574 586 $buildwriter->emptyTag('indexStem', 'name'=>$indexstem); 575 } 587 } 588 $buildwriter->emptyTag('databaseType', 'name'=>$infodbtype) if (defined $infodbtype); 576 589 577 590 # index options … … 597 610 # level info 598 611 $buildwriter->emptyTag('defaultLevel', 'shortname'=>$default_search_level_shortname); 599 $buildwriter->emptyTag('default GDBMLevel', 'shortname'=>$default_retrieve_level);612 $buildwriter->emptyTag('defaultDBLevel', 'shortname'=>$default_retrieve_level); 600 613 $buildwriter->startTag('levelList'); 601 614 foreach my $l (@levellist) { … … 689 702 $writer->startTag('metadata', 'name'=>$metaname); 690 703 } 691 $writer->characters($metavalue) ;704 $writer->characters($metavalue) if(defined $metavalue); 692 705 $writer->endTag('metadata'); 693 706 }
Note:
See TracChangeset
for help on using the changeset viewer.