--TEST-- marc_lint_003: Tests for field 880 and for subfield 6 --SKIPIF-- --FILE-- setLeader("00000nam 22002538a 4500"); $rec->appendField( new File_MARC_Control_Field( '001', 'ttt07000001 ' ) ); $rec->appendField( new File_MARC_Control_Field( '003', 'TEST ' ) ); $rec->appendField( new File_MARC_Control_Field( '008', '070520s2007 ilu 000 0 eng d' ) ); $rec->appendField( new File_MARC_Data_Field( '040', array( new File_MARC_Subfield('a', 'TEST'), new File_MARC_Subfield('c', 'TEST') ), "", "" ) ); $rec->appendField( new File_MARC_Data_Field( '050', array( new File_MARC_Subfield('a', 'RZ999'), new File_MARC_Subfield('b', '.J66 2007') ), "", "4" ) ); $rec->appendField( new File_MARC_Data_Field( '082', array( new File_MARC_Subfield('a', '615.8/9'), new File_MARC_Subfield('2', '22') ), "0", "4" ) ); $rec->appendField( new File_MARC_Data_Field( '100', array( new File_MARC_Subfield('a', 'Jones, John') ), "1", "" ) ); $rec->appendField( new File_MARC_Data_Field( '245', array( new File_MARC_Subfield('6', '880-02'), new File_MARC_Subfield('a', 'Test 880.') ), "1", "0" ) ); $rec->appendField( new File_MARC_Data_Field( '260', array( new File_MARC_Subfield('a', 'Mount Morris, Ill. :'), new File_MARC_Subfield('b', "B. Baldus,"), new File_MARC_Subfield('c', '2007.') ), "", "" ) ); $rec->appendField( new File_MARC_Data_Field( '300', array( new File_MARC_Subfield('a', '1 v. ;'), new File_MARC_Subfield('c', '23 cm.') ), "", "" ) ); $rec->appendField( new File_MARC_Data_Field( '880', array( new File_MARC_Subfield('6', '245-02/$1'), new File_MARC_Subfield('a', '