#!/bin/sh

# find /data/idzebra/210/record/$SITE_CODE/ -type f -exec /www/opals/script/util/fixMARCXML {} \;

IN_FILE=$1

perl -pi -e 's/^\|.*[\r\n]$//' $IN_FILE
perl -pi -e 's/<subfield code=(.+)<record>$/<subfield code=$1<\/subfield><\/datafield><\/record><record>/' $IN_FILE
perl -pi -e 's/<controlfield tag="001">([\d]+)$/<controlfield tag="001">$1<\/controlfield>/' $IN_FILE

exit 0