local changes

git-svn-id: file:///home/dpavlin/private/svn/webpac/branches/hidra@380 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/TODO.hidra b/TODO.hidra
index 0b8fa4d..b2d60cd 100644 (file)
--- a/TODO.hidra
+++ b/TODO.hidra
@@ -1,3 +1,52 @@
+
+
+
+
++ BIB: za jezik bi mo¾da trebalo ostaviti kod jezika jer na engleskom
+  pretra¾ivanju pi¹e Hrvatski, Engleski...
+       napravila nove filtere (/filter/lang_display_en.pm), 
+       pa sad pise ispravno
+       
++ sve ni¾e pojmove staviti u novi red bez obzira da li su dani kroz 553 
+  ili 461. Ovi od 461 idu u novi red ovi od 553 ne
+       pretpostavljam da ste ovdje mislili na sire pojmove iz polja 461 i 556.
+       kako god, sd sam svuda dodala da se ispisuje u novi red, pa bi trebalo
+       biti u redu.
+
+- kod prikaza zapisa u THS naziv rubrike "U¾i pojam" kod
+       "Podruèja" zamijeniti sa "Potpojmovnik"
+       "Potpojmovnika" zamijeniti sa "Deskriptor"
+       "Deskriptora" ostaje "U¾i pojam"
+
+- U polju 901^a pi¹e koja je vrsta zapisa - 
+         "Podruèje"    ostaje
+         "Mikrotezaurus" treba postati "Potpojmovnik"
+  Ti su nazivi ukljuèeni u nekim IF-ovima ako se ne varam, pa bi to
+  trebalo promijeniti kad ja napravim novu verziju podataka
+
+- poslati uputu kako pristupim na¹em serveru s ona dva programa s kojima 
+  sam pristupala va¹em (putty.exe i scite.exe) da mogu podmetati nove podatke
+
+- kod THS-a. Drugo ponavljanje, pretpostavljam i ostala ponavljanja, 
+  polja 450 se ne pokazuju u kazalu
+  Primjer je Hrvatski dr¾avni sabor. Prvo ponavljanje se uredno javlja
+  kao uputnica:
+  Sabor Republike Hrvatske [1991/1997]  >> Hrvatski sabor
+
+- BIB: predmetno kazalo - pripadni mikrotezaurus
+
++ Za adresare ste napravili THU-H i THU-E direktorije. To su vjerojatno
+  trebali biti TDU-H i TDU-E. U njima nema ni¹ta, a adresar radi za oba
+  jezika hrvatski, pretpostavljam da radi na direktorij ADR-H. Ako mo¾ete
+  vidjeti ¹to je s tim
+
++ kazalo korporativnih autora i predmetno kazalo za engleski vuku  iza
+  kose crte mikrotezaurus u koji pripadaju na hrvatskom jeziku, trebalo bi
+  iæi iz 258 polja
+  engleski - 258
+  francuski - 253
+  njemaèki - 254
+
 - KAD KLIKNEM NA GORNJE LINKOVE DOÐEM NA STRANICU
   ODREÐENOG PRETRA®IVAÈA ALI ME NE SLU©A STIL SLOVA. TEK KAD IDEM BACK ILI
   FORWARD ONDA MI POKA®E SLOVA KAKVA SU ZADANA STILOM.

diff --git a/all2xml.conf b/all2xml.conf
index 4375dbe..581a6bf 100644 (file)
--- a/all2xml.conf
+++ b/all2xml.conf
@@ -14,11 +14,11 @@
        lookup_newfile=/data/webpac-hidra2/thes.lookup
        line=.............................................................
 
-#[hidra-ths-e]
-#      isis_db=/data/hidra/THS-E/THS
-#      type=isis_hidra_ths_en
-#      lookup_newfile=/data/webpac-hidra2/thes-en.lookup
-#      line=.............................................................
+[hidra-ths-e]
+       isis_db=/data/hidra/THS-E/THS
+       type=isis_hidra_ths_en
+       lookup_newfile=/data/webpac-hidra2/thes-en.lookup
+       line=.............................................................
 
 
 ## BIB baze ##
@@ -35,7 +35,7 @@
        type=isis_hidra_bib_en
        collection_code=SDRH_E
        library_url=http://www.hidra.hr/
-       lookup_open=/data/webpac-hidra2/thes.lookup
+       lookup_open=/data/webpac-hidra2/thes-en.lookup
 
 #[hidra-sdsz-h]
 #      isis_db=/data/hidra/SDSZ-H/BIB

diff --git a/all2xml.pl b/all2xml.pl
index 11e49d6..c3388f1 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -168,6 +168,8 @@ sub data2xml {
                        ($s,$se,$d,$i) = (0,1,0,0);
                } elsif (lc($type) =~ /^lookup/) {
                        ($s,$se,$d,$i,$il) = (0,1,0,0,1);
+               } elsif ($type) {
+                       print STDERR "WARNING: unknown type: $type\n";
                }
                return ($s,$se,$d,$i,$il);
        }
@@ -637,6 +639,10 @@ foreach my $database ($cfg->Sections) {
        my $lookup_file = $cfg -> val($database, 'lookup_newfile'); # optional
        if ($lookup_file) {
                #tie %lhash, 'GDBM_File', $lookup_file, &GDBM_NEWDB, 0644;
+               if (! -e $lookup_file) {
+                       open(LOOKUP, "> $lookup_file") || die "can't create $lookup_file': $!";
+                       close(LOOKUP);
+               }
                tie %lhash, 'TDB_File', $lookup_file, TDB_CLEAR_IF_FIRST, O_RDWR, 0644;
                print STDERR "creating lookup file '$lookup_file'\n";
                # delete memory cache for lookup file

diff --git a/filter/lang_display_en.pm b/filter/lang_display_en.pm
new file mode 100755 (executable)
index 0000000..8da9488
--- /dev/null
+++ b/filter/lang_display_en.pm
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+sub lang_display_en {
+       my @out;
+       foreach my $v1 (@_) {
+               $v1 =~ s/(HRV|CRO)/Croatian/gi;
+               $v1 =~ s/GER/German/gi;
+               $v1 =~ s/ENG/English/gi;
+               $v1 =~ s/ITA/Italian/gi;
+               $v1 =~ s/SLV/Slovenian/gi;
+               $v1 =~ s/RUS/Russian/gi;
+               $v1 =~ s/FRE/French/gi;
+               push @out,$v1;  # save modified version
+       }
+       return @out;
+}
+
+1;

diff --git a/httpd-hidra.conf b/httpd-hidra.conf
index 9c4067c..4d72ee5 100644 (file)
--- a/httpd-hidra.conf
+++ b/httpd-hidra.conf
@@ -1,6 +1,6 @@
 
 # make swish indexing interface available
-# Alias /webpac-hidra2 /data/webpac-hidra2/public_html-hidra
+#Alias /webpac-hidra2 /data/webpac-hidra2/public_html-hidra
 Alias /webpac-hidra2-bib /data/webpac-hidra2/public_html-hidra
 Alias /webpac-hidra2-bib-en /data/webpac-hidra2/public_html-hidra
 Alias /webpac-hidra2-adr /data/webpac-hidra2/public_html-hidra

diff --git a/import_xml/isis_hidra_bib_en.xml b/import_xml/isis_hidra_bib_en.xml
index 64a1b0c..9e58643 100644 (file)
--- a/import_xml/isis_hidra_bib_en.xml
+++ b/import_xml/isis_hidra_bib_en.xml
@@ -258,7 +258,7 @@
        </Series>
        
        <Language name="Language: " order="55">
-               <isis type="display" filter="lang_display" >
+               <isis type="display" filter="lang_display_en" >
                        <delimiter> ; </delimiter>
                        <value>101a</value>
                </isis>

diff --git a/import_xml/isis_hidra_ths.xml b/import_xml/isis_hidra_ths.xml
index 30431f0..18ba9fd 100644 (file)
--- a/import_xml/isis_hidra_ths.xml
+++ b/import_xml/isis_hidra_ths.xml
@@ -117,12 +117,21 @@
        </URL>
        
        <BroaderTerm name="©iri pojam: " order="90">
-               <isis type="display" format_name="IDths" format_delimiter=";;">5561;;556a</isis>
-               <isis type="display" format_name="IDths" format_delimiter=";;">4611;;461a</isis> 
+               <isis type="display" format_name="IDths" format_delimiter=";;">
+                       <delimiter><![CDATA[<br/>]]></delimiter>
+                       <value>5561;;556a</value>
+               </isis>
+               <isis type="display" format_name="IDths" format_delimiter=";;">
+                       <delimiter><![CDATA[<br/>]]></delimiter>
+                       <value>4611;;461a</value>
+               </isis> 
        </BroaderTerm>
 
        <NarrowerTerm name="U¾i pojam: " order="100">
-               <isis type="display" format_name="IDths" format_delimiter=";;">5531;;553a</isis>
+               <isis type="display" format_name="IDths" format_delimiter=";;">
+                       <delimiter><![CDATA[<br/>]]></delimiter>
+                       <value>5531;;553a</value>
+               </isis>
                <!--
                <isis type="display" format_name="IDths" format_delimiter=";;" filter="mem_lookup" >
                        <delimiter> * </delimiter>

diff --git a/import_xml/isis_hidra_ths_en.xml b/import_xml/isis_hidra_ths_en.xml
index 3b1384f..345a13e 100644 (file)
--- a/import_xml/isis_hidra_ths_en.xml
+++ b/import_xml/isis_hidra_ths_en.xml
@@ -279,7 +279,7 @@
        </IDths>
 
        <SubjectIndex name="Predmetno kazalo" order="301">
-               <isis type="lookup_val">eval{v901^a eq "Deskriptor"} / [5624] 562a</isis>
+               <isis type="lookup_val">eval{v901^a eq "Deskriptor"} / [5724] 572a</isis>
                <isis type="lookup_val">eval{v901^a eq "Deskriptor"} [251]</isis>
                <!--
                <isis type="lookup_val" append="1"> 562a</isis>