I have posted 2 new Perl .pl programs to my website [1]. Both use a module, MARC::QBI::Misc, not currently available, but it is used only for file handling, so that section of the program should be revised according to local needs.
440to490-830.txt [2]: Converts 440 to 490-830 pairs. Retains subfield 'x' (ISSN) from 440; deletes all square brackets from 830, adds period at the end of the 830 if punctuation is not already present. If any quotes or apostrophes exist in the 440, a period is added before the quote(s) or apostrophe(s) in the 830. I've only done limited testing, so results may not be 100% correct yet. 008langblanktozxx.txt [3]: Converts 008/35-37 from 3 blank spaces to zxx. ############## Not yet started, but next on my list: -Convert 'c' in books 008/33 (comic strips) to 008/24-27 '6' (Comics/graphic novels); revise 008/33 to 0 or 1, depending on fiction vs. non-fiction. -Convert 041 subfield 'b' to 'j' for videorecording records. ############## I welcome any comments or corrections. [1] <http://home.inwave.com/eija/> [2] <http://home.inwave.com/eija/fullrecscripts/Cleanup_full_recs/440to490-830.txt> [3] <http://home.inwave.com/eija/fullrecscripts/Cleanup_full_recs/008langblanktozxx.txt> Thank you for your time, Bryan Baldus bryan.bal...@quality-books.com eij...@cpan.org http://home.inwave.com/eija
