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

Reply via email to