| commit | author | age | ||
| 175a52 | 1 | <?php |
| JK | 2 | define('RECORD_SEPERATOR', chr(0x1e)); |
| 3 | define('UNIT_SEPERATOR', chr(0x1f)); | |
| 4 | ||
| 5 | class MARC21 { | |
| 6 | static function from_string($data) { | |
| 7 | $lead_len = 24; | |
| 8 | $lead = substr($data, 0, $lead_len); | |
| 9 | ||
| 10 | $file_length = substr($lead, 0, 5); | |
| 11 | $head_len = substr($lead, 12, 5); | |
| 12 | ||
| 13 | $cat_record_lof = substr($lead, 20, 1); | |
| 14 | $cat_record_scp = substr($lead, 21, 1); | |
| 15 | $cat_record_imp = substr($lead, 22, 1); | |
| 16 | $cat_record_len = 3 + $cat_record_lof + $cat_record_scp + $cat_record_imp; | |
| 17 | $cat_len = $head_len-$lead_len-1; | |
| 18 | ||
| 19 | $cat = substr($data, $lead_len, $cat_len); | |
| 20 | $info = substr($data, $head_len); | |
| 21 | ||
| 22 | $unit = FALSE; | |
| 23 | for($i=0; $i<$cat_len; $i += $cat_record_len) { | |
| 24 | $rec_num = substr($cat, $i, 3); | |
| 25 | ||
| 26 | if($rec_num>899) { | |
| 27 | continue; | |
| 28 | } | |
| 29 | ||
| 30 | $rec_len = substr($cat, $i+3, $cat_record_lof); | |
| 31 | $rec_start = substr($cat, $i+3+$cat_record_lof, $cat_record_scp); | |
| 32 | $rec = substr($info, $rec_start, $rec_len-1); | |
| 33 | ||
| 34 | $temp = array(); | |
| 35 | $unit = FALSE; | |
| 36 | $unit_letter = 'a'; | |
| 37 | ||
| 38 | for($j=0; $j<$rec_len; $j++) { | |
| 39 | $char = substr($rec, $j, 1); | |
| 40 | ||
| 41 | if(($j==0 || $j==1) && $rec_num>9 && $char!=' ') { | |
| 42 | if($j==0) { | |
| 43 | $temp['f0'] = $char; | |
| 44 | } | |
| 45 | elseif($j==1) { | |
| 46 | $temp['f1'] = $char; | |
| 47 | } | |
| 48 | } | |
| 49 | elseif($char == UNIT_SEPERATOR) { | |
| 50 | $unit = TRUE; | |
| 51 | } | |
| 52 | elseif($unit === TRUE) { | |
| 53 | $temp[$unit_letter] = trim($collect, ' :;,/'); | |
| 54 | $unit = FALSE; | |
| 55 | $unit_letter = $char; | |
| 56 | $collect = ''; | |
| 57 | } | |
| 58 | else | |
| 59 | { | |
| 60 | $collect .= $char; | |
| 61 | } | |
| 62 | } | |
| 63 | ||
| 64 | $temp[$unit_letter] = trim($collect, ' :;,/'); | |
| 65 | $collect = ''; | |
| 66 | ||
| 67 | $return[$rec_num][] = $temp; | |
| 68 | } | |
| 69 | ||
| 70 | return $return; | |
| 71 | } | |
| 72 | ||
| 73 | static function to_array($MARC) { | |
| 74 | if(!$MARC['020']) { | |
| 75 | $MARC['020'] = array(); | |
| 76 | } | |
| 77 | foreach($MARC['020'] as $value) { | |
| 78 | $value = (string)$value['a']; | |
| 79 | if(strlen($value)==9 AND strlen($value)!=13) { | |
| 80 | $value .= checksum::ISBN($value); | |
| 81 | } | |
| 82 | if( strlen($value) > strlen($ISBN) ) { | |
| 83 | $ISBN = $value; | |
| 84 | } | |
| 85 | } | |
| 86 | ||
| 87 | if(!$MARC['022']) { | |
| 88 | $MARC['022'] = array(); | |
| 89 | } | |
| 90 | foreach($MARC['022'] as $value) { | |
| 91 | $value = (int)$value['a']; | |
| 92 | if( strlen($value) > strlen($ISSN) ) { | |
| 93 | $ISSN = $value; | |
| 94 | } | |
| 95 | } | |
| 96 | ||
| 97 | if($MARC['100'][0]['f0']==1) { | |
| 98 | $autor = explode(', ', $MARC['100'][0]['a'], 2); | |
| 99 | $MARC['100'][0]['a'] = str_replace('.', '', $autor[1]).' '.$autor[0]; | |
| 100 | } | |
| 101 | ||
| 102 | if(empty($MARC['100'][0]['a'])) { | |
| 103 | $MARC['100'][0]['a'] = 'Praca zbiorowa'; | |
| 104 | } | |
| 105 | ||
| 106 | $MARC['260'][0]['b'] = str_replace( | |
| 107 | array( | |
| 108 | 'Wydaw.', | |
| 109 | 'Państ.', | |
| 110 | 'Państw.', | |
| 111 | 'PK', | |
| 112 | 'Min.', | |
| 113 | ), | |
| 114 | array( | |
| 115 | 'Wydawnictwo', | |
| 116 | 'Państwowy', | |
| 117 | 'Państwowe', | |
| 118 | 'Politechnika Krakowska', | |
| 119 | 'Ministerstwa', | |
| 120 | ), | |
| 121 | $MARC['260'][0]['b']); | |
| 122 | ||
| 123 | if($MARC['041'][0]['a'] == 'pol') { | |
| 124 | $MARC['041'][0]['a'] = 'polski'; | |
| 125 | } | |
| 126 | ||
| 127 | ||
| 128 | if(empty($MARC['041'][0]['a'])) { | |
| 129 | $MARC['041'][0]['a'] = 'polski'; | |
| 130 | } | |
| 131 | ||
| 132 | if(!empty($MARC['245'][0]['b'])) { | |
| 133 | $MARC['245'][0]['a'] = trim($MARC['245'][0]['a'], '().,\\/"\' ').'. '.ucfirst(trim($MARC['245'][0]['b'], '().,\\/"\' ')); | |
| 134 | } | |
| 135 | ||
| 136 | return array( | |
| 137 | 'tytul' => trim($MARC['245'][0]['a'], '().,\\/"\' '), | |
| 138 | 'autor' => trim($MARC['100'][0]['a'], '().,\\/"\' '), | |
| 139 | 'rok' => trim($MARC['260'][0]['c'], '().,\\/"\' '), | |
| 140 | 'miejsce' => trim($MARC['260'][0]['a'], '().,\\/"\' '), | |
| 141 | 'wydawnictwo' => trim($MARC['260'][0]['b'], '().,\\/"\' '), | |
| 142 | 'wydanie' => trim($MARC['250'][0]['a'], '().,\\/"\' '), | |
| 143 | 'jezyk' => $MARC['041'][0]['a'], | |
| 144 | 'ISBN' => $ISBN, | |
| 145 | 'ISSN' => $ISSN, | |
| 146 | /* stan */ | |
| 147 | ); | |
| 148 | } | |
| 149 | ||
| 150 | static function to_database($kod, $MARC) { | |
| 151 | if(!$MARC['020']) { | |
| 152 | $MARC['020'] = array(); | |
| 153 | } | |
| 154 | foreach($MARC['020'] as $value) { | |
| 155 | $value = (int)$value['a']; | |
| 156 | if( strlen($value) > strlen($ISBN) ) { | |
| 157 | $ISBN = $value; | |
| 158 | } | |
| 159 | } | |
| 160 | ||
| 161 | if(!$MARC['022']) { | |
| 162 | $MARC['022'] = array(); | |
| 163 | } | |
| 164 | foreach($MARC['022'] as $value) { | |
| 165 | $value = (int)$value['a']; | |
| 166 | if( strlen($value) > strlen($ISSN) ) { | |
| 167 | $ISSN = $value; | |
| 168 | } | |
| 169 | } | |
| 170 | ||
| 171 | db2::add('ksiazki', array( | |
| 172 | 'id' => $kod, | |
| 173 | 'tytul' => $MARC['245'][0]['a'], | |
| 174 | 'autor' => $MARC['100'][0]['a'], | |
| 175 | 'rok' => $MARC['260'][0]['c'], | |
| 176 | 'miejsce' => $MARC['260'][0]['a'], | |
| 177 | 'wydawnictwo' => $MARC['260'][0]['b'], | |
| 178 | 'wydanie' => $MARC['250'][0]['a'], | |
| 179 | 'jezyk' => $MARC['041'][0]['a'], | |
| 180 | 'ISBN' => $ISBN, | |
| 181 | 'ISSN' => $ISSN, | |
| 182 | /* stan */ | |
| 183 | )); | |
| 184 | } | |
| 185 | } | |
| 532779 | 186 | ?> |
