Inheritance diagram for MARC21Record:
Public Member Functions | |
| __construct () | |
| isTagValid ( $tag) | |
| assertTagValid ( $tag) | |
| isTagRepeatable ( $tag) | |
| tagOrder ( $a, $b) | |
| assertTagOrder ( $a, $b) | |
| loadFromBinaryString ( $string, $fuzzy=true) | |
| CheckField ( $field) | |
| loadFromMnemonicString ( $string) | |
| loadFromXMLString ( $string) | |
| asXMLString () | |
| loadFromString ( $string) | |
| ParseMnemonicLine ( $line) | |
| AppendField ( $field, $reorder=false) | |
| AsMnemonicString ( $leader_tag='LDR', $field_initiator='=', $tag_terminator=' ', $identifier_initiator='$', $field_terminator="\r\n", $record_terminator="\r\n", $space_replacer=' ') | |
| delFields ( $pattern) | |
 Public Member Functions inherited from ISO2709Record
| |
| __construct () | |
| isTagValid ( $tag) | |
| assertTagValid ( $tag) | |
| isTagRepeatable ( $tag) | |
| assertTagRepeatable ( $tag) | |
| tagOrder ( $a, $b) | |
| assertTagOrder ( $a, $b) | |
| exception ( $string) | |
| loadFromBinaryStream ( $filehandle) | |
| setLeader ( $string) | |
| loadFromBinaryString ( $string, $fuzzy=true) | |
| DataNotInDirectory () | |
| loadFromString ( $string) | |
| ParseBinaryField ( $tag, $data, $directoryEntry) | |
| AppendFieldBinary ( $tag, $data, $directoryEntry=array(), $reorder=false) | |
| CheckField ( $field) | |
| AppendField ( $field, $reorder=false) | |
| removeField ( $field) | |
| delFields ( $tag) | |
| getFields ( $tag) | |
| getTagPattern ( $patt) | |
| AsBinaryString () | |
| AsMnemonicString ( $leader_tag="LDR", $field_initiator="=", $tag_terminator=" ", $identifier_initiator="\$", $field_terminator="\r\n", $record_terminator="\r\n", $space_replacer=" ") | |
Protected Attributes | |
| $mnemonicType | |
|
Protected Attributes inherited from ISO2709Record
| |
| $identifierLength | |
| $indicatorLength | |
| $defaults | |
Additional Inherited Members | |
|
Public Attributes inherited from ISO2709Record
| |
| $leader | |
| $fields | |
| $exceptions | |
| $raw | |
|
Protected Member Functions inherited from ISO2709Record
| |
| set_default ( $name, $value) | |
Detailed Description
Definition at line 26 of file MARC21.php.
Constructor & Destructor Documentation
◆ __construct()
| MARC21Record::__construct | ( | ) |
Reimplemented from ISO2709Record.
Definition at line 28 of file MARC21.php.
28 {
29 parent::__construct();
35 $this->mnemonicType = "LC";
36 }
References ISO2709Record\set_default().
Member Function Documentation
◆ AppendField()
| MARC21Record::AppendField | ( | $field, | |
$reorder = false |
|||
| ) |
Reimplemented from ISO2709Record.
Definition at line 262 of file MARC21.php.
262 {
263 if( is_string( $field ) ) {
264 $field = $this->ParseMnemonicLine( $field );
265 }
266 if( is_a( $field, "ISO2709Field" ) ) return parent::AppendField( $field, $reorder );
267 }
References ParseMnemonicLine().
Referenced by loadFromMnemonicString(), and loadFromXMLString().
◆ AsMnemonicString()
| MARC21Record::AsMnemonicString | ( |
$leader_tag = 'LDR', |
|
$field_initiator = '=', |
|||
$tag_terminator = ' ', |
|||
$identifier_initiator = '$', |
|||
$field_terminator = "\r\n", |
|||
$record_terminator = "\r\n", |
|||
$space_replacer = ' ' |
|||
| ) |
Reimplemented from ISO2709Record.
Definition at line 270 of file MARC21.php.
270 {
271 if( $this->mnemonicType === "TRME" ) return parent::AsMnemonicString( "LDR", "=", " ", "\$", "\r\n", "\r\n", "\\" );
272 if( $this->mnemonicType === "LCMB" ) return parent::AsMnemonicString( "000", "=", " ", "\$", "\r\n", "\r\n", "#" );
273 if( $this->mnemonicType === "VGER" ) return parent::AsMnemonicString( "LEADER", "=", " ", "|", "\r\n", "\r\n", "#" );
274 #return parent::AsMnemonicString( "LDR", "=", " ", "\$", "\r\n", "\r\n", " " );
275 return parent::AsMnemonicString( $leader_tag, $field_initiator, $tag_terminator, $identifier_initiator, $field_terminator, $record_terminator, $space_replacer );
276 }
◆ assertTagOrder()
| MARC21Record::assertTagOrder | ( | $a, | |
| $b | |||
| ) |
Reimplemented from ISO2709Record.
Definition at line 72 of file MARC21.php.
72 {
73 if( self::tagOrder( $a, $b ) > 0 ) {
74 $this->exception("MARC21: 00* is ordered by ASCII, and the rest by century. Thus '$a' should not precede '$b'.");
75 return false;
76 }
77 return parent::assertTagOrder( $a, $b );
78 }
References ISO2709Record\exception().
◆ assertTagValid()
| MARC21Record::assertTagValid | ( | $tag | ) |
Reimplemented from ISO2709Record.
Definition at line 42 of file MARC21.php.
42 {
43 if( !self::isTagValid( $tag ) ) {
44 $this->exception("MARC21: Tags must be numeric and must be 3 bytes long. Thus '$tag' is not allowed.");
45 return false;
46 }
47 return parent::assertTagValid( $tag );
48 }
References ISO2709Record\exception().
◆ asXMLString()
| MARC21Record::asXMLString | ( | ) |
Definition at line 171 of file MARC21.php.
171 {
172 $str = '<record>';
173 $str .= '<leader>' . $this->leader . '</leader>';
174 foreach( $this->fields as $field ) {
175 $tag = escapeXmlAttribute($field->tag);
176 if ( isset($field->data ) ) {
177 $data = escapeXmlInnerText($field->data);
178 $str .= "<controlfield tag=\"$tag\">$data</controlfield>";
179 } else {
180 $ind1 = escapeXmlAttribute($field->indicators[0]);
181 $ind2 = escapeXmlAttribute($field->indicators[1]);
182 $str .= "<datafield tag=\"$tag\" ind1=\"$ind1\" ind2=\"$ind2\">";
183 foreach( $field->subfields as $subfield ) {
184 $code = escapeXmlAttribute($subfield->identifier);
185 $data = escapeXmlInnerText($subfield->data);
186 $str .= "<subfield code=\"$code\">$data</subfield>";
187 }
188 $str .= '</datafield>';
189 }
190 }
191 $str .= '</record>';
192 file_put_contents("/tmp/wiggle",$str);
193 return $str;
194 }
References escapeXmlAttribute(), and escapeXmlInnerText().
◆ CheckField()
| MARC21Record::CheckField | ( | $field | ) |
Reimplemented from ISO2709Record.
Definition at line 94 of file MARC21.php.
94 {
95 parent::CheckField( $field );
96 if( substr( $field->tag, 0, 2 ) === "00" ) {
97 // No extra requirements on control fields
98 } else {
99 // Indicators must be length 2, numeric, lower case, or space
100 if( !preg_match("/^[0-9a-z ]{2}$/", $field->indicators) )
101 $this->exception("MARC21 8.3.5: indicators should be length 2, and each character should be lower case, numeric, or a space. " .
102 "So field '{$field->tag}' with indicators '{$field->indicators}' is not allowed." );
103 // Subfield identifiers must be length 1, numeric, or lower case
104 foreach( $field->subfields as $subfield ) {
105 if( !preg_match("/^[0-9a-z]$/", $subfield->identifier) )
106 $this->exception("MARC21 8.3.5: subfield identifiers should be length 1, and each character should be lower case or numeric. " .
107 "So field '{$field->tag}' with subfield '{$subfield->identifier}' is not allowed." );
108 }
109 }
110 }
References ISO2709Record\exception().
◆ delFields()
| MARC21Record::delFields | ( | $pattern | ) |
Reimplemented from ISO2709Record.
Definition at line 278 of file MARC21.php.
278 {
279 foreach( $this->fields as $k => $v ) {
280 $vmne = $v->AsMnemonicString( "=", " ", "\$", "\r\n", '\\' );
281 if( preg_match( "@^" . $pattern . "@", $vmne ) ) unset( $this->fields[$k] );
282 }
283 $this->fields = array_values( $this->fields );
284 }
◆ isTagRepeatable()
| MARC21Record::isTagRepeatable | ( | $tag | ) |
Reimplemented from ISO2709Record.
Definition at line 50 of file MARC21.php.
50 {
51 return $tag != "001" and $tag != "005";
52 }
◆ isTagValid()
| MARC21Record::isTagValid | ( | $tag | ) |
Reimplemented from ISO2709Record.
Definition at line 38 of file MARC21.php.
38 {
39 return is_string( $tag ) and ctype_digit( $tag ) and strlen( $tag ) == 3 and $tag !== "000";
40 }
◆ loadFromBinaryString()
| MARC21Record::loadFromBinaryString | ( | $string, | |
$fuzzy = true |
|||
| ) |
Reimplemented from ISO2709Record.
Definition at line 80 of file MARC21.php.
80 {
81 $ret = parent::loadFromBinaryString( $string );
82 if( $ret === false ) return $ret;
83 if( strlen($this->leader) != 24 ) return false;
84 if(!ctype_print($this->leader))
85 $this->exception("MARC21: Leader can only contain 0x20 through 0x7E, not 0x" . bin2hex( $this->leader ) );
86 if($this->leader[23] != "0")
87 $this->exception("MARC21: Last character of leader is supposed to be '0' not '{$this->leader[23]}'");
88 return true;
89 // Check data order
90 # MARC21
91 # 00*-00* are in numeric-alpha order in both directory and data (with no intervening in either directory or data)
92 }
References ISO2709Record\exception().
Referenced by loadFromString().
◆ loadFromMnemonicString()
| MARC21Record::loadFromMnemonicString | ( | $string | ) |
Definition at line 112 of file MARC21.php.
112 {
113 $this->leader = array();
114 $this->fields = array();
115 $this->exceptions = array();
116 $this->raw = $string;
117 foreach( explode( "\r\n", $string ) as $line ) {
118 $field = $this->ParseMnemonicLine( $line );
120 }
121 }
References AppendField(), and ParseMnemonicLine().
Referenced by loadFromString().
◆ loadFromString()
| MARC21Record::loadFromString | ( | $string | ) |
Reimplemented from ISO2709Record.
Definition at line 196 of file MARC21.php.
196 {
197 if (preg_match("/^ *([^ ])/",$string,$m)) {
198 $starts_with = $m[1];
199 if ($starts_with == '<') {
201 }
202 if ($starts_with == '=') {
204 }
205 if (ctype_digit($starts_with)) {
207 }
208 return false;
209 }
210 return false;
211 }
loadFromBinaryString( $string, $fuzzy=true)
Definition: MARC21.php:80
References loadFromBinaryString(), loadFromMnemonicString(), and loadFromXMLString().
◆ loadFromXMLString()
| MARC21Record::loadFromXMLString | ( | $string | ) |
Definition at line 123 of file MARC21.php.
123 {
124 $this->leader = array(); # XXX ??
125 $this->fields = array();
126 $this->exceptions = array();
127 $this->raw = $string;
128
129 $doc = new DOMDocument();
130 $doc->loadXML($string);
131 $xpath = new DOMXpath($doc);
132
133 $leaderfield = $xpath->query('//record/leader');
134 if ($leaderfield) { # <leader>00838mas a2200301 a 4500</leader>
135 $leader = $leaderfield[0]->nodeValue;
137 $this->leader = $leader;
138 }
139
140 # $field = new ISO2709Field( $tag, $data, $indicators, $subfields, $directoryEntry, $this );
141
142 $controlfield = $xpath->query('//record/controlfield');
143 if ($controlfield) { # <controlfield tag="001"> 92005291 </controlfield>
144 foreach ($controlfield as $cfd) {
145 $tag = $cfd->getAttribute('tag');
146 $data = $cfd->nodeValue;
148 $this->AppendField( $field );
149 }
150 }
151
152 $datafield = $xpath->query('//record/datafield');
153 if ($datafield) { # <datafield ind1=" " ind2=" " tag="035"><subfield code="9">AHE8121LM</subfield></datafield>
154 foreach ($datafield as $dfd) {
155 $tag = $dfd->getAttribute('tag');
156 $indicators = $dfd->getAttribute('ind1') . $dfd->getAttribute('ind2');
157 $subfields = array();
158 foreach ($dfd->childNodes as $subf) {
159 if ($subf->nodeType == '1') { # Element
160 $code = $subf->getAttribute('code');
161 $value = $subf->nodeValue;
163 }
164 }
166 $this->AppendField( $field );
167 }
168 }
169 }
Definition: ISO2709.php:573
Definition: ISO2709.php:663
References ISO2709Record\$leader, and AppendField().
Referenced by loadFromString().
◆ ParseMnemonicLine()
| MARC21Record::ParseMnemonicLine | ( | $line | ) |
Definition at line 213 of file MARC21.php.
213 {
214 $equ = substr( $line, 0, 1 );
215 $tag = substr( $line, 1, 3 );
216 $spa = substr( $line, 4, 2 );
217 $dat = substr( $line, 6 );
218 if( $equ !== "=" or $spa !== " " ) {
220 return false;
221 }
222 if( $tag == "LDR" or $tag == "000" ) {
223 $this->leader = $dat;
224 $this->indicatorLength = 2;
225 $this->identifierLength = 2;
226 $this->mnemonicType = ($tag == "LDR") ? "TRME" : "LCMB";
227 return false;
228 }
229 if( $this->mnemonicType === "TRME" ) {
231 $dat = str_replace( '\\', ' ', $dat );
232 } else if( $this->mnemonicType === "LCMB" ) {
234 $dat = str_replace( '#', ' ', $dat );
235 /* // These might not really be applicable
236 } else if( $this->mnemonicType === "OCLC" ) {
237 $dat = str_replace( 'ǂ', ISO2709::SubfieldInitiator, $dat );
238 // no space translation
239 } else if( $this->mnemonicType === "VGER" ) {
240 $dat = str_replace( '‡', ISO2709::SubfieldInitiator, $dat );
241 // no space translation
242 } else if( $this->mnemonicType === "ALMA" ) {
243 $dat = str_replace( '$$', ISO2709::SubfieldInitiator, $dat );
244 */
245 } else {
246 if( substr($tag,0,2) === "00" ) {
247 $dat = str_replace( '#', ' ', $dat );
248 $dat = str_replace( '\\', ' ', $dat );
249 } else {
250 if( $dat[0] == '\\' ) $dat[0] = ' ';
251 if( $dat[1] == '\\' ) $dat[1] = ' ';
252 if( $dat[0] == '#' ) $dat[0] = ' ';
253 if( $dat[1] == '#' ) $dat[1] = ' ';
256 }
257 }
258 }
260 }
ParseBinaryField( $tag, $data, $directoryEntry)
Definition: ISO2709.php:384
References ISO2709Record\exception(), ISO2709Record\ParseBinaryField(), and ISO2709\SubfieldInitiator.
Referenced by AppendField(), and loadFromMnemonicString().
◆ tagOrder()
| MARC21Record::tagOrder | ( | $a, | |
| $b | |||
| ) |
Reimplemented from ISO2709Record.
Definition at line 55 of file MARC21.php.
55 {
56 if(!parent::isTagValid($a) || !parent::isTagValid($b)) return 0;
57 if( $a === $b ) return 0;
58 $a0 = substr( $a, 0, 2 );
59 $b0 = substr( $b, 0, 2 );
60 if( $a0 === $b0 and $a0 === "00" ) return strcmp( $a, $b );
61 if( $a0 === "00" ) { return -1; }
62 if( $b0 === "00" ) { return 1; }
63 $a0 = substr( $a, 0, 1 );
64 $b0 = substr( $b, 0, 1 );
65 if( $a0 === "0" and $b0 === "0" ) {
66 if( $a === "049" ) return 1;
67 if( $b === "049" ) return -1;
68 }
69 return strcmp( $a0, $b0 );
70 }
Member Data Documentation
◆ $mnemonicType
|
protected |
Definition at line 27 of file MARC21.php.
The documentation for this class was generated from the following file:
- grimas/MARC21.php
