From 9c29e3cb945721f8daa02bd4ee3203c86932db61 Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph@amissah.com>
Date: Thu, 1 Aug 2013 18:27:38 -0400
Subject: v5: concordance, fix

---
 lib/sisu/v5/concordance.rb | 35 ++++++++++++-----------------------
 1 file changed, 12 insertions(+), 23 deletions(-)

(limited to 'lib/sisu/v5')

diff --git a/lib/sisu/v5/concordance.rb b/lib/sisu/v5/concordance.rb
index 48ac1aac..96f293f2 100644
--- a/lib/sisu/v5/concordance.rb
+++ b/lib/sisu/v5/concordance.rb
@@ -239,25 +239,13 @@ WOK
         %{<a href="doc#{@md.lang_code_insert}#{Sfx[:html]}\##{wordlocation}">#{wordlocation}</a>;  }
       end
       def location_seg(wordlocation,show) ##fix
-        case wordlocation
-        when /@rxp_t1|@rxp_t2|@rxp_t3/
-          fnh={
-            fn: 'doc',
-            lng: @md.lang_code_insert
-          }
-          fn=@md.file.base_filename.html_seg(fnh)
-          %{[<a href="#{fn}##{show}">H</a>]#{show},  }
-        else
-          if not wordlocation.nil? \
-          and wordlocation =~ /(.+?)\#(\d+)/
-            seg,loc=/(.+?)\#(\d+)/.match(wordlocation)[1,2]
-            fnh={
-              fn: seg,
-              lng: @md.lang_code_insert
-            }
-            fn=@md.file.base_filename.html_seg(fnh)
-            word_location_seg=%{#{fn}##{loc}}
-            %{<a href="#{word_location_seg}">#{show}</a>,  }
+        unless wordlocation.nil?
+          wl=wordlocation.gsub(/(.+?)\#(\d+)/,"\\1#{@md.lang_code_insert}#{Sfx[:html]}#\\2")
+          case wordlocation
+          when /#{@rxp_t1}|@rxp_t2}|#{@rxp_t3}/
+            %{[<a href="doc#{@md.lang_code_insert}#{Sfx[:html]}##{show}">H</a>]#{show},  }
+          when /(.+?)\#(\d+)/
+             %{<a href="#{wl}">#{show}</a>,  }
           end
         end
       end
@@ -327,10 +315,11 @@ WOK
                     end
                     @freq[word] +=1
                     @word_map[word] ||= []
-                    if line !~@rxp_lv1 \
-                    and line !~@rxp_lv2 \
-                    and line !~@rxp_lv3 #fix @rxp_lv #  Mx[:lv_o]
-                      @word_map[word] << location_seg("#{@seg}\##{ocn}",ocn)
+                    if line !~ /#{@rxp_lv1}|#{@rxp_lv2}|#{@rxp_lv3}/
+                      loc_=%{#{location_seg("#{@seg}\##{ocn}",ocn).to_s}}
+                      unless loc_.empty?
+                        @word_map[word] << loc_
+                      end
                     else
                       @word_map[word] << case line
                       when @rxp_lv1; location_seg('T1',ocn) #fix @rxp_lv #  Mx[:lv_o]
-- 
cgit v1.2.3