PATH: //opt/cloudlinux/alt-php56/root/usr/share/pear/test/File_MARC/tests
FILE_BARU
CREATE
FOLDER_BARU
MKDIR
UPLOAD_FILE
GO
[ .. KEMBALI ]
📄 bad_example.mrc
↓
X
📄 bad_example.xml
↓
X
📄 bigarchive.xml
↓
X
📄 camel.mrc
↓
X
📄 example.mrc
↓
X
📄 marc_001.phpt
↓
X
📄 marc_002.phpt
↓
X
📄 marc_003.phpt
↓
X
📄 marc_004.phpt
↓
X
📄 marc_005.phpt
↓
X
📄 marc_006.phpt
↓
X
📄 marc_007.phpt
↓
X
📄 marc_008.phpt
↓
X
📄 marc_009.phpt
↓
X
📄 marc_010.phpt
↓
X
📄 marc_011.phpt
↓
X
📄 marc_012.phpt
↓
X
📄 marc_013.phpt
↓
X
📄 marc_014.phpt
↓
X
📄 marc_015.phpt
↓
X
📄 marc_016.phpt
↓
X
📄 marc_017.phpt
↓
X
📄 marc_018.phpt
↓
X
📄 marc_019.phpt
↓
X
📄 marc_020.phpt
↓
X
📄 marc_021.phpt
↓
X
📄 marc_022.phpt
↓
X
📄 marc_023.phpt
↓
X
📄 marc_16783.phpt
↓
X
📄 marc_field_001.phpt
↓
X
📄 marc_field_002.phpt
↓
X
📄 marc_field_003.phpt
↓
X
📄 marc_field_004.phpt
↓
X
📄 marc_field_005.phpt
↓
X
📄 marc_field_21246.phpt
↓
X
📄 marc_lint_001.phpt
↓
X
📄 marc_lint_002.phpt
↓
X
📄 marc_lint_003.phpt
↓
X
📄 marc_lint_004.phpt
↓
X
📄 marc_lint_005.phpt
↓
X
📄 marc_record_001.phpt
↓
X
📄 marc_subfield_001.phpt
↓
X
📄 marc_subfield_002.phpt
↓
X
📄 marc_xml_001.phpt
↓
X
📄 marc_xml_002.phpt
↓
X
📄 marc_xml_003.phpt
↓
X
📄 marc_xml_004.phpt
↓
X
📄 marc_xml_005.phpt
↓
X
📄 marc_xml_006.phpt
↓
X
📄 marc_xml_007.phpt
↓
X
📄 marc_xml_008.phpt
↓
X
📄 marc_xml_009.phpt
↓
X
📄 marc_xml_16642.phpt
↓
X
📄 marc_xml_namespace.phpt
↓
X
📄 marc_xml_namespace_prefix.phpt
↓
X
📄 marc_xml_rsinger.phpt
↓
X
📄 music.mrc
↓
X
📄 music.xml
↓
X
📄 namespace.xml
↓
X
📄 onerecord.xml
↓
X
📄 sandburg.mrc
↓
X
📄 sandburg.xml
↓
X
📄 skipif.inc
↓
X
📄 xmlescape.mrc
↓
X
SAVING...
BERHASIL DIUBAH!
EDITING: marc_014.phpt
--TEST-- marc_014: Add fields to a MARC record --SKIPIF-- <?php include('tests/skipif.inc'); ?> --FILE-- <?php $dir = dirname(__FILE__); require __DIR__ . '/bootstrap.php'; // Get ourselves a MARC record $marc_file = new File_MARC($dir . '/' . 'example.mrc'); $marc_record = $marc_file->next(); // create some subfields $subfields[] = new File_MARC_Subfield('a', 'nothing'); $subfields[] = new File_MARC_Subfield('z', 'everything'); // create a data field $data_field = new File_MARC_Data_Field('100', $subfields, '0'); // append the data field $marc_record->appendField($data_field); // create a control field $ctrl_field = new File_MARC_Control_Field('001', '01234567890'); // prepend the control field $marc_record->prependField($ctrl_field); // reproduce test case reported by Mark Jordan $subfields_966_2[] = new File_MARC_Subfield('l', 'web'); $subfields_966_2[] = new File_MARC_Subfield('r', '0'); $subfields_966_2[] = new File_MARC_Subfield('s', 'b'); $subfields_966_2[] = new File_MARC_Subfield('i', '49'); $subfields_966_2[] = new File_MARC_Subfield('c', '1'); $field_966_2 = new File_MARC_Data_Field('966', $subfields_966_2, null, null); $marc_record->appendField($field_966_2); // let's see the results print utf8_encode($marc_record); print "\n"; ?> --EXPECT-- LDR 01850 2200517 4500 001 01234567890 001 0000000044 003 EMILDA 008 980120s1998 fi j 000 0 swe 020 _a9515008808 _cFIM 72:00 035 _99515008808 040 _aNB 042 _9NB _9SEE 084 _aHcd,u _2kssb/6 084 _5NB _auHc _2kssb 084 _5SEE _aHcf _2kssb/6 084 _5Q _aHcd,uf _2kssb/6 100 1 _aJansson, Tove, _d1914-2001 245 04 _aDet osynliga barnet och andra berättelser / _cTove Jansson 250 _a7. uppl. 260 _aHelsingfors : _bSchildt, _c1998 ; _e(Falun : _fScandbook) 300 _a166, [4] s. : _bill. ; _c21 cm 440 0 _aMumin-biblioteket, _x99-0698931-9 500 _aOriginaluppl. 1962 599 _aLi: S 740 4 _aDet osynliga barnet 775 1 _z951-50-0385-7 _w9515003857 _907 841 _5Li _axa _b0201080u 0 4000uu |000000 _e1 841 _5SEE _axa _b0201080u 0 4000uu |000000 _e1 841 _5L _axa _b0201080u 0 4000uu |000000 _e1 841 _5NB _axa _b0201080u 0 4000uu |000000 _e1 841 _5Q _axa _b0201080u 0 4000uu |000000 _e1 841 _5S _axa _b0201080u 0 4000uu |000000 _e1 852 _5NB _bNB _cNB98:12 _hplikt _jR, 980520 852 _5Li _bLi _cCNB _hh,u 852 _5SEE _bSEE 852 _5Q _bQ _j98947 852 _5L _bL _c0100 _h98/ _j3043 H 852 _5S _bS _hSv97 _j7235 900 1s _aYanson, Tobe, _d1914-2001 _uJansson, Tove, _d1914-2001 900 1s _aJanssonová, Tove, _d1914-2001 _uJansson, Tove, _d1914-2001 900 1s _aJansone, Tuve, _d1914-2001 _uJansson, Tove, _d1914-2001 900 1s _aJanson, Tuve, _d1914-2001 _uJansson, Tove, _d1914-2001 900 1s _aJansson, Tuve, _d1914-2001 _uJansson, Tove, _d1914-2001 900 1s _aJanssonova, Tove, _d1914-2001 _uJansson, Tove, _d1914-2001 976 2 _aHcd,u _bSkönlitteratur 005 20050204111518.0 100 0 _anothing _zeverything 966 _lweb _r0 _sb _i49 _c1
SIMPAN PERUBAHAN