/[webpac-proto]/isis2stream.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /isis2stream.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dpavlin, Thu Jun 13 15:32:10 2002 UTC revision 1.18 by dpavlin, Wed Jul 17 16:55:24 2002 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use OpenIsis;  use OpenIsis;
5  use Getopt::Std;  use Getopt::Std;
6  #use Data::Dumper;  use Data::Dumper;
7    use common;
 my $install_dir="/local/index";  
 my $mpsindex="/local/mps-5.3/bin/mpsindex -l 9 -b";  
 my $isis_data="/var/autofs/misc/isis_data/";  
 #my $isis_data="/mnt/20020606/Isis/Data/";      # doma  
8    
9  my %opts;  my %opts;
10    
11  getopt('dD', \%opts);  getopts('d:m:q', \%opts);
12    
13  die "usage: $0 -d [database_dir] " if (! $opts{d});  die "usage: $0 -d [database_dir] -m [database1,database2] " if (! %opts);
14    
15  my $db_dir = $opts{d};  my $db_dir = $opts{d};
16    
17  mkdir "$install_dir/$db_dir" if (!-e "$install_dir/$db_dir");  mkdir "$common::install_dir/$db_dir" if (!-e "$common::install_dir/$db_dir");
18  mkdir "$install_dir/$db_dir/data" if (!-e "$install_dir/$db_dir/data");  mkdir "$common::install_dir/$db_dir/data" if (!-e "$common::install_dir/$db_dir/data");
19    
20  my $dir="$install_dir/$db_dir/data";  my $dir="$common::install_dir/$db_dir/data";
21    
22    
23  open(S,"> $dir/stream") || die "can't open output $dir/stram: $!";  open(S,"> $dir/stream") || die "can't open output $dir/stream: $!";
24  open(R,"> $dir/bib") || die "can't open output $dir/bib: $!";  open(R,"> $dir/bib") || die "can't open output $dir/bib: $!";
25  open(MPS,"| $mpsindex -d $install_dir/$db_dir -autokey") || die "can't start MPS indexer $mpsindex: $!";  open(MPS,"| $common::mpsindex -d $common::install_dir/$db_dir -autokey") || die "can't start MPS indexer $common::mpsindex: $!";
26  #open(MPS,"> /tmp/mpsindex") || die "mps: $!";  #open(MPS,"> /tmp/mpsindex") || die "mps: $!";
27    
28  my $s="V 5 3  print S $common::mps_header;
29  L hr-HR  print MPS $common::mps_header;
30  F 700+ 1 Autor  
31  F 200+ 2 Naslov  #--------------------------------------------------------------------
32  F 210 3 Izdavanje  # init array in_mps_header for config checks later
33  F 225 4 Nakladnika cjelina  
34  F 300+ 5 Napomene  my %in_mps_header;
35  F 330 6 Sadraj  foreach (split(/\n/,$common::mps_header)) {
36  F 464 7 Analitiki radovi          if (/^F /) {
37  F 610 8 Kljune rijei                  my (undef,$isis,$mps,undef) = split(/ /,$_,4);
38  F 675 9 UDK                  $in_mps_header{$mps}=$isis;
39  F 686 10 CC          }
40  F 990 11 Signatura  }
41  F 991 12 Inventarni broj  require "./search/config.pm";
 F 10 13 ISBN  
 ";  
42    
43  print S $s;  #--------------------------------------------------------------------
44  print MPS $s;  # read database configuration, store database names
45    open(CF,$common::database_cf) || die "$common::database_cf: $!";
46    my %DatabaseDescriptions;
47    while(<CF>) {
48            chomp;
49            if (/^database-name:([^=]+)=(.*)$/) {
50                    my ($db_name,$db_desc) = ($1,$2);
51                    $db_desc=~s/^##\w+##//g;
52                    # c_iso_852 is a cludge so that output format would be
53                    # correct 8859-2 again...
54                    $DatabaseDescriptions{$db_name}=c_iso_852($db_desc);
55            }
56    }
57    close(CF);
58    
59    #--------------------------------------------------------------------
60  #  #
61  # expand(nr,"space separated string");  # expand(nr,"space separated string");
62  #  #
63    
64  sub expand {  sub expand {
65          my $nr = shift @_;          my $nr = shift @_;
66            die "$nr is not in mps_header" if (!$in_mps_header{$nr});
67          my $out = "";          my $out = "";
68          while (my $fld = c_852_iso(shift @_)) {          while (my $fld = c_852_iso(shift @_)) {
69                  my @words=split(/\s+/,$fld);                  my @words=split(/\s+/,$fld);
# Line 71  sub expand { Line 80  sub expand {
80    
81  #--------------------------------------------------------------------  #--------------------------------------------------------------------
82    
 ################### ERASE###############3  
   
 # expand sub-fileds from ISIS field  
 # (^a.....^b....)  
 my %data;       # FIX  
 sub ex_sf {  
         %data = ();  
         my $in = $_[0];  
         if (my $tmp = $in) {  
 #               $tmp =~ tr/џ/ƾ/; # ISIS -> iso-8859-2  
                 $tmp =~ tr//ܫꔼȺ̪㍐슂ٝ/;  
                 if ($in =~ m/^\^/) {  
                         my @sub = split(/\^/,$in);  
                         foreach my $fld (@sub) {  
                                 $data{$1} = $2 if ($fld =~ m/^(\w+)(.+)$/)  
                         }  
                 } else {  
                         $data{all} = $in."<-- iz polja bez podpolja";  
                 }  
         }  
 }  
   
 # dump all sub-fields  
 sub all_sf {  
         my $nr = shift @_;  
         my $out="";  
         foreach my $k (sort keys %data) {  
                 $out.=expand($nr,$data{$k});  
         }  
         return $out;  
 }  
   
 sub all_sf_r {  
         my $nr = shift @_;  
         my $out="";  
         foreach my $k (sort {$b cmp $a} keys %data) {  
                 $out.=expand($nr,$data{$k});  
         }  
         return $out;  
 }  
   
 sub all_sf2bib {  
         my $nr = shift @_;  
         my $max_in_line=shift @_ || 0;  
         my $sep = shift @_ || ' ';  
         my $out;  
         my $i=0;  
         my $bib = "";  
         foreach my $k (sort keys %data) {  
                 if ($out) {  
                         $out.= $sep.$data{$k};  
                 } else {  
                         $out = $data{$k};  
                 }  
                 $i++;  
                 if ($i == $max_in_line) {  
                         $bib .= $nr." ".$out."\n" if ($out);  
                         $i=0;  
                         $out="";  
                 }  
         }  
         $bib .= $nr." ".$out."\n" if ($out);  
         return $bib;  
 }  
   
 sub all_sf2bib_r {  
         my $nr = shift @_;  
         my $max_in_line=shift @_ || 0;  
         my $sep = shift @_ || ' ';  
         my $out;  
         my $i=0;  
         my $bib = "";  
         foreach my $k (sort {$b cmp $a} keys %data) {  
                 if ($out) {  
                         $out.= $sep.$data{$k};  
                 } else {  
                         $out = $data{$k};  
                 }  
                 $i++;  
                 if ($i == $max_in_line) {  
                         $bib .= $nr." ".$out."\n" if ($out);  
                         $i=0;  
                         $out="";  
                 }  
         }  
         $bib .= $nr." ".$out."\n" if ($out);  
         return $bib;  
 }  
   
 #--------------------------------------------------------------------  
   
83  sub c_852_iso {  sub c_852_iso {
84          my $tmp = $_[0];          my $tmp = $_[0];
85          $tmp =~ tr//ܫꔼȺ̪㍐슂ٝ/ if ($tmp);          $tmp =~ tr//ܫꔼȺ̪㍐슂ٝ/ if ($tmp);
86          return $tmp;          return $tmp;
87  }  }
88    
89    sub c_iso_852 {
90            my $tmp = $_[0];
91            $tmp =~ tr/ܫꔼȺ̪㍐슂ٝ// if ($tmp);
92            return $tmp;
93    }
94    
95  sub c_852_czs {  sub c_852_czs {
96          my $tmp = $_[0];          my $tmp = $_[0];
97          $tmp =~ tr//ܫꔼȺ̪㍐슂ٝ/;          $tmp =~ tr//ܫꔼȺ̪㍐슂ٝ/;
# Line 177  sub c_852_czs { Line 101  sub c_852_czs {
101  }  }
102    
103  #--------------------------------------------------------------------  #--------------------------------------------------------------------
 #  
 # mps_expand(nr,"space separated string");  
 #  
   
 sub mps_expand {  
         my $nr = shift @_;  
         my $out = "";  
         while (my $fld = shift @_) {  
                 if ($fld =~ m/\s+/) {  
                         foreach my $w (split(/\s+/,$fld)) {  
                                 # FIX: this should be replaced by stemmer!  
                                 $out .= "W $w $nr\n";  
                         }  
                 } else {  
                         $out .= "W $fld $nr\n";  
                 }  
         }  
         return c_852_czs($out);  
 }  
   
 #--------------------------------------------------------------------  
104    
105  # $mps .= sf_to_mps($subfiled_hash,"subfields",mps_id);  # $mps .= sf_to_mps("subfields",$subfiled_hash)
106  #  #
107  # subfields options:  # subfields options:
108  #       * - all (no sort)  #       * - all (no sort)
# Line 230  sub subfields_str_2_arr { Line 133  sub subfields_str_2_arr {
133    
134  sub sf_to_mps {  sub sf_to_mps {
135          my ($sf_hash,$subfields,$mps_id) = @_;          my ($sf_hash,$subfields,$mps_id) = @_;
136            die "$mps_id is not in mps_header" if (!$in_mps_header{$mps_id});
137          my $out="";          my $out="";
138          my @sf_arr = subfields_str_2_arr($subfields,$sf_hash);          my @sf_arr = subfields_str_2_arr($subfields,$sf_hash);
139    
# Line 249  sub isis_to_mps { Line 153  sub isis_to_mps {
153          my $mps_id = shift @_ || die;          my $mps_id = shift @_ || die;
154          my $subfields = shift @_;          my $subfields = shift @_;
155    
156            die "$mps_id is not in mps_header" if (!$in_mps_header{$mps_id});
157    
158          my $i=0;          my $i=0;
159          my $out = "";          my $out = "";
160    
# Line 292  sub isis_to_bib { Line 198  sub isis_to_bib {
198          my $group_sort = shift @_ || '';          my $group_sort = shift @_ || '';
199          my $sep = shift @_ || ' ';          my $sep = shift @_ || ' ';
200    
201            my $fld = $bib_id; $fld =~ s/^%//;
202            die "$fld is not in FieldNames" if (!$default::FieldNames{$fld});
203    
204          my $i=0;          my $i=0;
205    
206          my $bib="";          my $bib="";
# Line 349  sub isis_to_bib { Line 258  sub isis_to_bib {
258  sub isis_sf {  sub isis_sf {
259          my $row = shift @_;          my $row = shift @_;
260          my $isis_id = shift @_;          my $isis_id = shift @_;
261          my $subfield = shift @_ || 'a';          my $subfield = shift @_;
262          my $prefix = shift @_ || '';          my $prefix = shift @_ || '';
263          my $postfix = shift @_ || '';          my $postfix = shift @_ || '';
264    
# Line 357  sub isis_sf { Line 266  sub isis_sf {
266    
267          if ($row->{$isis_id}->[0]) {          if ($row->{$isis_id}->[0]) {
268                  my $sf = OpenIsis::subfields($row->{$isis_id}->[0]);                  my $sf = OpenIsis::subfields($row->{$isis_id}->[0]);
269                  if (length($subfield) == 1) {                  if (! defined $subfield || length($subfield) == 0) {
270                            # subfield list undef, empty or no defined subfields for this record
271                            return $prefix . $row->{$isis_id}->[0] . $postfix;
272                    } elsif (length($subfield) == 1) {
273                          if ($sf->{$subfield}) {                          if ($sf->{$subfield}) {
274                                  return $prefix . $sf->{$subfield} . $postfix;                                  return $prefix . $sf->{$subfield} . $postfix;
275                          } else {                          } else {
# Line 381  sub isis_sf { Line 293  sub isis_sf {
293  }  }
294    
295  #--------------------------------------------------------------------  #--------------------------------------------------------------------
 #--------------------------------------------------------------------  
   
296    
297  my $last_tell=0;  my $last_tell=0;
298    
299  my $db = OpenIsis::open( "$isis_data/$db_dir/LIBRI/LIBRI" );  my @isis_dirs = ( '.' );        # use dirname as database name
300    
301    if ($opts{m}) {
302            @isis_dirs = split(/,/,$opts{m});
303    }
304    
305    my @isis_dbs;
306    
307    foreach (@isis_dirs) {
308            if (-e "$common::isis_data/$db_dir/$_/LIBRI") {
309                    push @isis_dbs,"$common::isis_data/$db_dir/$_/LIBRI/LIBRI";
310            }
311            if (-e "$common::isis_data/$db_dir/$_/PERI") {
312                    push @isis_dbs,"$common::isis_data/$db_dir/$_/PERI/PERI";
313            }
314    }
315    
316    foreach my $isis_db (@isis_dbs) {
317    
318  my $max_rowid = OpenIsis::maxRowid( $db );    print MPS "M reading ISIS from '$isis_db'...\n";
319    
320  my $last_pcnt = 0;    my $db = OpenIsis::open( "$isis_db" );
321    
322  for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) {    my $max_rowid = OpenIsis::maxRowid( $db );
323    
324      my $last_pcnt = 0;
325    
326      for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) {
327          my $row = OpenIsis::read( $db, $row_id );          my $row = OpenIsis::read( $db, $row_id );
328          if (my $tmp = $row->{'200'}->[0]) {          if (my $tmp = $row->{'200'}->[0]) {
329    
330                  my $bib = "%MFN $row->{mfn}\n";                  my $bib;
331                  my $mps;                  my $mps = "W $row->{mfn} 14\n";
332    
333                  my $pcnt = int($row->{mfn} * 100 / $max_rowid);                  my $pcnt = int($row->{mfn} * 100 / $max_rowid);
334                  if ($pcnt != $last_pcnt) {                  if ($pcnt != $last_pcnt) {
335                          printf MPS ("M %5d / %5d -- %-2d %%\n",$row->{mfn},$max_rowid,$pcnt);                          printf MPS ("M %5d / %5d -- %-2d %%\n",$row->{mfn},$max_rowid,$pcnt) if (! $opts{q});
336                          $last_pcnt = $pcnt;                          $last_pcnt = $pcnt;
337                  }                  }
338    
339                  my $headline;                  my $headline;
340                  $headline .= isis_sf($row,'200','a',"'");                  $headline .= isis_sf($row,'200','a');
341                  $headline .= isis_sf($row,'200','e'," : ","'");                  $headline .= isis_sf($row,'200','e'," : ");
342                    $headline .= isis_sf($row,'200','f'," / ");
343                    $headline .= isis_sf($row,'210','d'," , ");
344    
345                    # remove newlines, compress spaces
346                    $headline =~ s/[\n\r]//g;
347                    $headline =~ s/^\s+//g;
348                    $headline =~ s/\s+$//g;
349    
350                  # author                  # author
351                  $bib .= isis_to_bib($row,'700','%700+','*',2,'<');                  $bib .= isis_to_bib($row,'700','%700+','ab',undef,'>',', ');
352                  $bib .= isis_to_bib($row,'701','%700+','*',2,'<');                  $bib .= isis_to_bib($row,'701','%700+','ab',undef,'>',', ');
353                  $bib .= isis_to_bib($row,'710','%700+','*',2,'<');                  $bib .= isis_to_bib($row,'701','%700+','cd',undef,'>',', ');
354                  $bib .= isis_to_bib($row,'711','%700+','*',2,'<');  
355                  $bib .= isis_to_bib($row,'503','%700+','*',2,'<');                  my $tmp;
356                    $tmp = isis_sf($row,'710','abc', '', '', (' : ',', '));
357                    $tmp .= isis_sf($row,'710','dfe', ' (', ')', ('', ' ; ',' ; '));
358                    $bib .= "%700+ $tmp\n" if ($tmp);
359    
360                    $tmp = isis_sf($row,'711','abc', '', '', (' : ',', '));
361                    $tmp .= isis_sf($row,'711','dfe', ' (', ')', ('', ' ; ',' ; '));
362                    $bib .= "%700+ $tmp\n" if ($tmp);
363    
364                    $bib .= isis_to_bib($row,'503','%700+','ab',undef,'>',', ');
365    
366                  $mps .= isis_to_mps($row,'700',1);                  $mps .= isis_to_mps($row,'700',1);
367                  $mps .= isis_to_mps($row,'701',1);                  $mps .= isis_to_mps($row,'701',1);
# Line 422  for (my $row_id = 1; $row_id <= $max_row Line 369  for (my $row_id = 1; $row_id <= $max_row
369                  $mps .= isis_to_mps($row,'711',1);                  $mps .= isis_to_mps($row,'711',1);
370                  $mps .= isis_to_mps($row,'503',1);                  $mps .= isis_to_mps($row,'503',1);
371                  $mps .= isis_to_mps($row,'702',1);                  $mps .= isis_to_mps($row,'702',1);
372                    $mps .= isis_to_mps($row,'200',1,"fg");
373    
374                  $bib .= isis_to_bib($row,'205','%205');                  $bib .= isis_to_bib($row,'205','%205');
375    
# Line 437  for (my $row_id = 1; $row_id <= $max_row Line 385  for (my $row_id = 1; $row_id <= $max_row
385                  $book .= ". ".$sf->{c} if ($sf->{c});                  $book .= ". ".$sf->{c} if ($sf->{c});
386                  $book .= " / ".$sf->{x} if ($sf->{x});                  $book .= " / ".$sf->{x} if ($sf->{x});
387                  $book .= " ; ".$sf->{y} if ($sf->{y});                  $book .= " ; ".$sf->{y} if ($sf->{y});
388                  $bib .= "%200 $book\n" if ($book);                  $bib .= "%200+ $book\n" if ($book);
389    
390                  $mps .= isis_to_mps($row,'200',2,"akcde");                  $mps .= isis_to_mps($row,'200',2,"akcde");
391                  $mps .= isis_to_mps($row,'532',2);                  $mps .= isis_to_mps($row,'532',2);
392                  $mps .= isis_to_mps($row,'424',2);                  $mps .= isis_to_mps($row,'424',2);
393    
394                  $headline .= isis_sf($row,'700','b'," ");                  $mps .= isis_to_mps($row,'230',2,"ae");
395                  $headline .= isis_sf($row,'700','a'," ");                  $mps .= isis_to_mps($row,'231',2,"ae");
396                    $mps .= isis_to_mps($row,'232',2,"ae");
397                    $mps .= isis_to_mps($row,'233',2,"ae");
398    
399    
400                    $tmp =  isis_sf($row,'230','v').
401                            isis_sf($row,'230','a',' : ').
402                            isis_sf($row,'250',undef,'. - ').
403                            isis_sf($row,'260',undef,'. - ').
404                            isis_sf($row,'290',undef,'<br>ISBN ');
405                    $bib .= "%sv $tmp\n" if ($tmp);
406            
407                    $tmp =  isis_sf($row,'231','v','<br>').
408                            isis_sf($row,'231','a',' : ').
409                            isis_sf($row,'251',undef,'. - ').
410                            isis_sf($row,'261',undef,'. - ').
411                            isis_sf($row,'291',undef,'<br>ISBN ');
412                    $bib .= "%sv $tmp\n" if ($tmp);
413                    
414                    $tmp =  isis_sf($row,'232','v','<br>').
415                            isis_sf($row,'232','a',' : ').
416                            isis_sf($row,'252',undef,'. - ').
417                            isis_sf($row,'262',undef,'. - ').
418                            isis_sf($row,'292',undef,'<br>ISBN ');
419                    $bib .= "%sv $tmp\n" if ($tmp);
420    
421                    $tmp =  isis_sf($row,'233','v','<br>').
422                            isis_sf($row,'233','a',' : ').
423                            isis_sf($row,'253',undef,'. - ').
424                            isis_sf($row,'263',undef,'. - ').
425                            isis_sf($row,'293',undef,'<br>ISBN ');
426    
427                    $mps .= isis_to_mps($row,'270',2);
428                    $mps .= isis_to_mps($row,'271',2);
429                    $mps .= isis_to_mps($row,'272',2);
430                    $mps .= isis_to_mps($row,'273',2);
431    
432                  # izdavac                  # izdavac
433                  $mps .= isis_to_mps($row,'210',3);                  $mps .= isis_to_mps($row,'210',3);
434                    $mps .= isis_to_mps($row,'250',3);
435                    $mps .= isis_to_mps($row,'251',3);
436                    $mps .= isis_to_mps($row,'252',3);
437                    $mps .= isis_to_mps($row,'253',3);
438  #               if (my $sf = OpenIsis::subfields($row->{'210'}->[0])) {  #               if (my $sf = OpenIsis::subfields($row->{'210'}->[0])) {
439  #                       my $tmp;  #                       my $tmp;
440  #                       $tmp .= $sf->{a} if ($sf->{a});  #                       $tmp .= $sf->{a} if ($sf->{a});
# Line 455  for (my $row_id = 1; $row_id <= $max_row Line 442  for (my $row_id = 1; $row_id <= $max_row
442  #                       $tmp .= ", ".$sf->{d} if ($sf->{d});  #                       $tmp .= ", ".$sf->{d} if ($sf->{d});
443  #                       $bib .= "%210 $tmp\n" if ($tmp);  #                       $bib .= "%210 $tmp\n" if ($tmp);
444  #               }  #               }
445                  $bib .= "%210 ".isis_sf($row,'210','acd', '','', ('',' : ',', ') )."\n";                  $bib .= "%210+ ".isis_sf($row,'210','acd', '','', ('',' : ',', ') )."\n";
446    
447                  if (my $year = isis_sf($row,'210','d')) {                  if (my $year = isis_sf($row,'210','d')) {
448                          $year =~ s/^\s*cop\.*\s*//i;                          $year =~ s/^\s*cop\.*\s*//i;
449                          $year =~ s/[\[\]]*//g;                          $year =~ s/[\[\]]*//g;
450                            $year =~ s/[\n\r]//g;   # remove cr
451                          $mps .= "D ${year}\n" if ($year !~ m/\?/ && $year =~ /\d{4}/);                          $mps .= "D ${year}\n" if ($year !~ m/\?/ && $year =~ /\d{4}/);
                         $headline .= " ($year)";  
452                  }                  }
453    
454                  $bib .= isis_to_bib($row,'215','%215', '*', undef, undef, ', ');                  $mps .= isis_to_mps($row,'215',15);
455                    $mps .= isis_to_mps($row,'260',15);
456                    $mps .= isis_to_mps($row,'261',15);
457                    $mps .= isis_to_mps($row,'262',15);
458                    $mps .= isis_to_mps($row,'263',15);
459                    $bib .= isis_to_bib($row,'215','%215+', '*', undef, undef, ', ');
460    
461  #               $bib .= isis_to_bib($row,'225','%225', 'aehivw');  #               $bib .= isis_to_bib($row,'225','%225', 'aehivw');
462                  $bib .= "%225 ".isis_sf($row,'225','aevhiw', '(',')', ('',' : ',' ; ','. ',', ',' ; '))."\n";                  $bib .= "%225 ".isis_sf($row,'225','aevhiw', '(',')', ('',' : ',' ; ','. ',', ',' ; '))."\n";
# Line 476  for (my $row_id = 1; $row_id <= $max_row Line 468  for (my $row_id = 1; $row_id <= $max_row
468                  $mps .= isis_to_mps($row,'300',5);                  $mps .= isis_to_mps($row,'300',5);
469                  $mps .= isis_to_mps($row,'320',5);                  $mps .= isis_to_mps($row,'320',5);
470                  $mps .= isis_to_mps($row,'327',5);                  $mps .= isis_to_mps($row,'327',5);
471                    $mps .= isis_to_mps($row,'280',5);
472                    $mps .= isis_to_mps($row,'281',5);
473                    $mps .= isis_to_mps($row,'282',5);
474                    $mps .= isis_to_mps($row,'283',5);
475    
476                  $bib .= isis_to_bib($row,'330','%330');                  $bib .= isis_to_bib($row,'330','%330');
477                  $mps .= isis_to_mps($row,'330',6);                  $mps .= isis_to_mps($row,'330',6);
# Line 486  for (my $row_id = 1; $row_id <= $max_row Line 482  for (my $row_id = 1; $row_id <= $max_row
482                  $bib .= isis_to_bib($row,'610','%610');                  $bib .= isis_to_bib($row,'610','%610');
483                  $mps .= isis_to_mps($row,'610',8);                  $mps .= isis_to_mps($row,'610',8);
484    
485                  $bib .= isis_to_bib($row,'675','%675+');                  $bib .= isis_to_bib($row,'675','%675+','a');
486                  $mps .= isis_to_mps($row,'675',9);                  $mps .= isis_to_mps($row,'675',9);
487                  $bib .= isis_to_bib($row,'686','%675+');                  $bib .= isis_to_bib($row,'686','%675+','a');
488                  $mps .= isis_to_mps($row,'686',10);                  $mps .= isis_to_mps($row,'686',10);
489    
490                  $bib .= isis_to_bib($row,'990','%990');                  $bib .= isis_to_bib($row,'990','%990');
# Line 497  for (my $row_id = 1; $row_id <= $max_row Line 493  for (my $row_id = 1; $row_id <= $max_row
493                  $bib .= isis_to_bib($row,'991','%991');                  $bib .= isis_to_bib($row,'991','%991');
494                  $mps .= isis_to_mps($row,'991',12);                  $mps .= isis_to_mps($row,'991',12);
495    
496                  # ISBN                  # Jezik
497                  if (my $isbn = $row->{10}->[0]) {                  $bib .= isis_to_bib($row,'101','%101');
498                          $isbn =~ s/ +//g;       # remove spaces                  $mps .= isis_to_mps($row,'101',16);
499                          $mps .= "W $isbn 13\n";                  # Pismo
500                          $bib .= "%ISBN $isbn\n";                  $bib .= isis_to_bib($row,'998','%101', 'a');
501                          $isbn =~ s/-//g;  
502                          $mps .= "W $isbn 13\n";                  sub isis_isn_to_mps {
503                            my $row = shift @_ || die;
504                            my $isis_id = shift @_ || die;
505                            my $nr = shift @_ || die;
506                            my $i=0;
507                            my $mps='';
508                            while (my $isn=$row->{$isis_id}->[$i]) {
509                                    $isn =~ s/ +//g;        # remove spaces
510                                    $isn =~ s/[\n\r]//g;    # remove cr
511                                    $mps .= "W $isn $nr\n";
512                                    if ($isn =~ s/-//g) {
513                                            $mps .= "W $isn $nr\n";
514                                    }
515                                    $i++;
516                            }
517                            return $mps;
518                  }                  }
                 $mps .= isis_to_mps($row,'10',12);  
519    
520                  $mps .= isis_to_mps($row,'532',1);                  # ISBN
521                    $bib .= isis_to_bib($row,'10','%ISBN');
522                    $mps .= isis_isn_to_mps($row,'10',13);
523                    $mps .= isis_isn_to_mps($row,'290',13);
524                    $mps .= isis_isn_to_mps($row,'291',13);
525                    $mps .= isis_isn_to_mps($row,'292',13);
526                    $mps .= isis_isn_to_mps($row,'293',13);
527    
528                  $bib .= isis_to_bib($row,'994','%994a','a');                  # ISSN
529                    #store_isn($row->{11}->[0],14,'%ISSN');
530    
531                    $mps .= isis_to_mps($row,'532',1);
532    
533                    $bib .= '%knjiz '.$DatabaseDescriptions{$db_dir}.", ".$row->{mfn}."\n";
534                  # headline                  # headline
535                  if ($headline) {                  if ($headline) {
536                          $headline .= " [".$row->{mfn}."]";      ## debug MFN!                          $headline .= " <i>(".$DatabaseDescriptions{$db_dir}.", ".$row->{mfn}.")</i>";   ## debug MFN!
537                            $headline =~ s/&/&and;/g;
538                            $headline =~ s/</&lt;/g;
539                            $headline =~ s/>/&gt;/g;
540                          $mps .= "H ".c_852_iso($headline)."\n";                          $mps .= "H ".c_852_iso($headline)."\n";
541                  } else {                  } else {
542                          $mps .= "H nepoznato\n";                          $mps .= "H nepoznato\n";
# Line 529  for (my $row_id = 1; $row_id <= $max_row Line 552  for (my $row_id = 1; $row_id <= $max_row
552    
553                  print R c_852_iso($bib);                  print R c_852_iso($bib);
554    
555                    # check if all fields are defined
556                    foreach (split(/\n/,$bib)) {
557                            if (/^%(\w+)\s/ && !$default::FieldNames{$1}) {
558                                    die "field $1 used but not in FieldNames";
559                            }
560                    }
561    
562    #               print R "%perl ".Dumper($row)."\n";
563    
564                  $mps .= "T document text/plain ".(tell(R) - $last_tell)." $dir/bib $last_tell ".tell(R)."\n";                  $mps .= "T document text/plain ".(tell(R) - $last_tell)." $dir/bib $last_tell ".tell(R)."\n";
565                  $last_tell=tell(R);                  $last_tell=tell(R);
566    
# Line 540  for (my $row_id = 1; $row_id <= $max_row Line 572  for (my $row_id = 1; $row_id <= $max_row
572                  print S $mps;                  print S $mps;
573                  print MPS $mps;                  print MPS $mps;
574          }          }
575      }
576  }  }
577  print S "M over and out\nX\n";  print S "M over and out\nX\n";
578  print MPS "M over and out\nX\n";  print MPS "M over and out\nX\n";

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.26