Corrected and error in ztest.pl
[simpleserver-moved-to-github.git] / OID.pm
1 package Net::Z3950::OID;
2
3 my $prefix = "1.2.840.10003.5.";
4
5 sub unimarc     { $prefix . '1' }
6 sub intermarc   { $prefix . '2' }
7 sub ccf         { $prefix . '3' }
8 sub usmarc      { $prefix . '10' }
9 sub ukmarc      { $prefix . '11' }
10 sub normarc     { $prefix . '12' }
11 sub librismarc  { $prefix . '13' }
12 sub danmarc     { $prefix . '14' }
13 sub finmarc     { $prefix . '15' }
14 sub mab         { $prefix . '16' }
15 sub canmarc     { $prefix . '17' }
16 sub sbn         { $prefix . '18' }
17 sub picamarc    { $prefix . '19' }
18 sub ausmarc     { $prefix . '20' }
19 sub ibermarc    { $prefix . '21' }
20 sub carmarc     { $prefix . '22' }
21 sub malmarc     { $prefix . '23' }
22 sub jpmarc      { $prefix . '24' }
23 sub swemarc     { $prefix . '25' }
24 sub siglemarc   { $prefix . '26' }
25 sub isdsmarc    { $prefix . '27' }
26 sub rusmarc     { $prefix . '28' }
27 sub explain     { $prefix . '100' }
28 sub sutrs       { $prefix . '101' }
29 sub opac        { $prefix . '102' }
30 sub summary     { $prefix . '103' }
31 sub grs0        { $prefix . '104' }
32 sub grs1        { $prefix . '105' }
33 sub extended    { $prefix . '106' }
34 sub fragment    { $prefix . '107' }
35 sub pdf         { $prefix . '109.1' }
36 sub postscript  { $prefix . '109.2' }
37 sub html        { $prefix . '109.3' }
38 sub tiff        { $prefix . '109.4' }
39 sub gif         { $prefix . '109.5' }
40 sub jpeg        { $prefix . '109.6' }
41 sub png         { $prefix . '109.7' }
42 sub mpeg        { $prefix . '109.8' }
43 sub sgml        { $prefix . '109.9' }
44 sub tiffb       { $prefix . '110.1' }
45 sub wav         { $prefix . '110.2' }
46 sub sqlrs       { $prefix . '111' }
47 sub soif        { $prefix . '1000.81.2' }
48 sub textxml     { $prefix . '109.10' }
49 sub xml         { $prefix . '109.10' }
50 sub appxml      { $prefix . '109.11' }
51
52