--- isis2stream.pl 2002/06/24 17:52:25 1.15 +++ isis2stream.pl 2002/09/23 18:46:21 1.21 @@ -49,7 +49,9 @@ if (/^database-name:([^=]+)=(.*)$/) { my ($db_name,$db_desc) = ($1,$2); $db_desc=~s/^##\w+##//g; - $DatabaseDescriptions{$db_name}=$db_desc; + # c_iso_852 is a cludge so that output format would be + # correct 8859-2 again... + $DatabaseDescriptions{$db_name}=c_iso_852($db_desc); } } close(CF); @@ -68,7 +70,7 @@ foreach my $w (@words) { # FIX: this should be replaced by stemmer! #$w =~ tr/ƾ/sSdDcCcCzZ/; - $w =~ tr/ܫȺ̪/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'-".'',"'Rr/; + $w =~ tr/ܫȺ̪/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'".'',"'Rr/; $w =~ s//ss/g; $out .= "W $w $nr\n"; } @@ -93,7 +95,7 @@ sub c_852_czs { my $tmp = $_[0]; $tmp =~ tr//ܫꔼȺ̪㍐슂ٝ/; - $tmp =~ tr/ܫȺ̪/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'-".'',"'Rr/; + $tmp =~ tr/ܫȺ̪/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'".'',"'Rr/; $tmp =~ s//ss/g; return $tmp; } @@ -309,6 +311,12 @@ if (-e "$common::isis_data/$db_dir/$_/PERI") { push @isis_dbs,"$common::isis_data/$db_dir/$_/PERI/PERI"; } + if (-e "$common::isis_data/$db_dir/$_/AMS") { + push @isis_dbs,"$common::isis_data/$db_dir/$_/AMS/AMS"; + } + if (-e "$common::isis_data/$db_dir/$_/ARTI") { +# push @isis_dbs,"$common::isis_data/$db_dir/$_/ARTI/ARTI"; + } } foreach my $isis_db (@isis_dbs) { @@ -317,6 +325,20 @@ my $db = OpenIsis::open( "$isis_db" ); + if (! defined $db) { + die "can't open '$isis_db'"; + } + + my $tip = $isis_db; $tip =~ s/^.+?\/([^\/]+)$/$1/; + if (defined $default::tip{$tip}) { + $tip=$default::tip{$tip}; + } elsif ($tip eq "AMS") { + $tip=$default::tip{'LIBRI'}; + } else { + die "can't find tip for database '$isis_db'"; + } + $tip = c_iso_852($tip); + my $max_rowid = OpenIsis::maxRowid( $db ); my $last_pcnt = 0; @@ -325,8 +347,13 @@ my $row = OpenIsis::read( $db, $row_id ); if (my $tmp = $row->{'200'}->[0]) { + my $bib; my $mps = "W $row->{mfn} 14\n"; + # tip gradje + $mps .= "W ".c_852_czs($tip)." 17\n"; + $bib .= "%tip $tip\n"; + my $pcnt = int($row->{mfn} * 100 / $max_rowid); if ($pcnt != $last_pcnt) { printf MPS ("M %5d / %5d -- %-2d %%\n",$row->{mfn},$max_rowid,$pcnt) if (! $opts{q}); @@ -349,11 +376,12 @@ $bib .= isis_to_bib($row,'701','%700+','ab',undef,'>',', '); $bib .= isis_to_bib($row,'701','%700+','cd',undef,'>',', '); - my $tmp = isis_sf($row,'710','abc', '', '', (' : ',', ')); + my $tmp; + $tmp = isis_sf($row,'710','abc', '', '', (' : ',', ')); $tmp .= isis_sf($row,'710','dfe', ' (', ')', ('', ' ; ',' ; ')); $bib .= "%700+ $tmp\n" if ($tmp); - my $tmp = isis_sf($row,'711','abc', '', '', (' : ',', ')); + $tmp = isis_sf($row,'711','abc', '', '', (' : ',', ')); $tmp .= isis_sf($row,'711','dfe', ' (', ')', ('', ' ; ',' ; ')); $bib .= "%700+ $tmp\n" if ($tmp); @@ -393,7 +421,6 @@ $mps .= isis_to_mps($row,'233',2,"ae"); - my $tmp; $tmp = isis_sf($row,'230','v'). isis_sf($row,'230','a',' : '). isis_sf($row,'250',undef,'. - '). @@ -479,9 +506,9 @@ $bib .= isis_to_bib($row,'610','%610'); $mps .= isis_to_mps($row,'610',8); - $bib .= isis_to_bib($row,'675','%675+'); + $bib .= isis_to_bib($row,'675','%675+','a'); $mps .= isis_to_mps($row,'675',9); - $bib .= isis_to_bib($row,'686','%675+'); + $bib .= isis_to_bib($row,'686','%675+','a'); $mps .= isis_to_mps($row,'686',10); $bib .= isis_to_bib($row,'990','%990'); @@ -490,6 +517,12 @@ $bib .= isis_to_bib($row,'991','%991'); $mps .= isis_to_mps($row,'991',12); + # Jezik + $bib .= isis_to_bib($row,'101','%101'); + $mps .= isis_to_mps($row,'101',16); + # Pismo + $bib .= isis_to_bib($row,'998','%101', 'a'); + sub isis_isn_to_mps { my $row = shift @_ || die; my $isis_id = shift @_ || die; @@ -517,10 +550,23 @@ $mps .= isis_isn_to_mps($row,'293',13); # ISSN - #store_isn($row->{11}->[0],14,'%ISSN'); + $bib .= isis_to_bib($row,'11','%ISSN'); + $mps .= isis_isn_to_mps($row,'11',13); $mps .= isis_to_mps($row,'532',1); + # Casopisi + $tmp = isis_to_bib($row,'326','%326'); + $tmp =~ s/g1/godinjak/; + $tmp =~ s/g6/dvomjesenik/; + $tmp =~ s/10/godinje 10 brojeva/; + $tmp =~ s/m1/mjesenik/; + $tmp =~ s/m2/polumjesenik/; + $tmp =~ s/nr/neredovito/; + $tmp =~ s/g4/etiri puta godinje/; + $bib .= c_iso_852($tmp); + $bib .= isis_to_bib($row,'992','%992'); + $bib .= '%knjiz '.$DatabaseDescriptions{$db_dir}.", ".$row->{mfn}."\n"; # headline if ($headline) {