summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xmodules/conf/confmaker.pl21
1 files changed, 17 insertions, 4 deletions
diff --git a/modules/conf/confmaker.pl b/modules/conf/confmaker.pl
index f5e6f23..355e7e1 100755
--- a/modules/conf/confmaker.pl
+++ b/modules/conf/confmaker.pl
@@ -136,7 +136,7 @@ if ((length($language)>0) && (length($doc_lang)==0)) {
##GlobalOptionsFilter - prepare
my @doc_features = ('title', 'note', 'reference', 'q', 'figure', 'rdg');
-my @word_features = ('lemma', 'gloss', 'morph',);
+my @word_features = ('lemma', 'strong', 'gloss', 'morph',);
my @char_features = ('Hebrew Vowel Points', 'Arabic Vowel Points', 'Hebrew Cantillation', 'Greek Accents');
my %doc_filters = ( 'title' => "OSISHeadings",
@@ -154,7 +154,7 @@ my %doc_filters = ( 'title' => "OSISHeadings",
);
-my %doc_feature = ( 'lemma' => 'StrongsNumbers',
+my %doc_feature = ( 'strong' => 'StrongsNumbers',
'figure' => 'Images',
'p' => 'NoParagraphs',
@@ -163,7 +163,7 @@ my %doc_feature = ( 'lemma' => 'StrongsNumbers',
my %diacritics = ( 'Hebrew Vowel Points' => "UTF8HebrewPoints",
'Arabic Vowel Points' => 'UTF8ArabicPoints',
'Hebrew Cantillation' => 'UTF8Cantillation',
-# 'Greek Accents' => 'UTF8GreekAccents',
+ 'Greek Accents' => 'UTF8GreekAccents',
);
@@ -189,6 +189,20 @@ foreach my $f(@word_features) {
}
+if ($doc_has_feature{'lemma'}) {
+ foreach my $e(@elements) {
+ if ($e->hasAttribute('lemma')) {
+ my $lemma = $e->getAttribute('lemma');
+
+ if (index(lc($lemma), 'strong') != -1) {
+ $doc_has_feature{'strong'}=true;
+ last;
+ }
+ }
+ }
+}
+
+
my @paragraphs = $doc->getElementsByTagName('p');
if (@paragraphs==0) {$doc_has_feature{'p'}=true};
@@ -230,7 +244,6 @@ foreach (@word_features) {
}
foreach $filter(@char_features) {
-
my $tmp = new Sword::SWBuf($hs->parse($doc->toString()));
$manager->filterText($filter, $tmp);