Поддерживаем альтернативные идентификаторы

squadette · Oct 30, 2009 · f939f67 · f939f67
1 parent 28b0d7f
commit f939f67
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 4 deletions.
diff --git a/01-a.txt b/01-a.txt
@@ -101,7 +101,7 @@
 вблизи городов создают защитные посадки саксаула.
 
 
-> Адриатическая~бора&#x0301;
+> Адриатическая~бора&#x0301; {Адриатическая бора}
 
 Холодный и сильный (иногда до 60 м/с) северный или северо-восточный
 ветер, дующий с горных перевалов между Альпами и Динарским нагорьем в

diff --git a/01-a.xml b/01-a.xml
@@ -104,7 +104,7 @@ linkend="брикфильдер">Брикфильдер</glossterm>.  </para></g
 наносов вблизи городов создают защитные посадки саксаула.  </para></glossdef>
 </glossentry>
 
-<glossentry id="адриатическая~бора&#x0301;"><glossterm>Адриатическая~бора&#x0301;</glossterm>
+<glossentry id="адриатическая-бора"><glossterm>Адриатическая~бора&#x0301;</glossterm>
 
 <glossdef><para>Холодный и сильный (иногда до 60 м/с) северный
 или северо-восточный ветер, дующий с горных перевалов между

diff --git a/missed b/missed
@@ -26,7 +26,6 @@
       1 греголь.
       1 желтый-ветер.
       1 зефирос.
-      1 изюм-кельтеми.
       1 индекс-муссонности.
       1 иохвинд.
       1 испанский-ветер.
@@ -144,4 +143,3 @@
       9 пыльные-вихри.
      14 бури-равноденствия.
      15 пыльная-буря.
-     17 адриатическая-бора.
diff --git a/to-docbook.pl b/to-docbook.pl
@@ -28,6 +28,8 @@
 	    $equiv = $2;
 	}
 
+	$terms =~ s/\s*\{.*\}//;
+
 	print qq{<glossentry id=\"$id\"><glossterm>$terms</glossterm>
 
 <glossdef>};
@@ -63,6 +65,10 @@ sub first_term {
 sub id_from_term {
     my $term = shift;
 
+    if ($term =~ /\{(.*)\}/) {
+	$term = $1;
+    }
+
     $term =~ s/[,\(].*$//;
     $term =~ s/\s+$//s;
     $term =~ s/\s/-/g;