23 |
F 686 10 CC |
F 686 10 CC |
24 |
F 990 11 Signatura |
F 990 11 Signatura |
25 |
F 991 12 Inventarni broj |
F 991 12 Inventarni broj |
26 |
F ISBN 13 ISBN |
F ISN 13 ISBN, ISSN |
27 |
F MFN 14 MFN |
F MFN 14 MFN |
28 |
F 215+ 15 Materijalni opis |
F 215+ 15 Materijalni opis |
29 |
|
F 101 16 Jezik |
30 |
|
F tip 17 Tip graπe |
31 |
"; |
"; |
32 |
|
|
33 |
$common::database_cf="/local/search/databases.cf"; |
$common::database_cf="/local/search/databases.cf"; |
56 |
$w =~ s/[]/ae/g; |
$w =~ s/[]/ae/g; |
57 |
$w =~ s/[]/ue/g; |
$w =~ s/[]/ue/g; |
58 |
$out .= "W $w $nr\n"; |
$out .= "W $w $nr\n"; |
59 |
|
# Irish Last names |
60 |
|
} elsif (($nr == 1 || $nr == 2 || $nr == 3 || $nr == 6 || $nr == 7 || $nr == 8) && $w =~ m/^Ma?c([A-Z].+)/) { |
61 |
|
$out .= "W Mc$1 $nr\n"; |
62 |
|
$out .= "W Mac$1 $nr\n"; |
63 |
} else { |
} else { |
64 |
$out .= "W $w $nr\n"; |
$out .= "W $w $nr\n"; |
65 |
} |
} |