Cataloging database maintenance: find circulating titles with acquisition records

acq_circ.rb

require 'marc_tools'
# https://github.com/mark-cooper/marc_tools

# SCL branches (to exclude consortial partner branches)
BRANCHES = [
  'cent',
  'clov',
  'fore',
  'guer',
  'heal',
  'nort',
  'occi',
  'peta',
  'rinc',
  'rohn',
  'seba',
  'sono',
  'wind',
  'ext',
]

MARC::ForgivingReader.new('records/dvd.mrc').each do |r|
  r = MarcTools::MarcRecordWrapper.new(r)
  check = false
  r.grab('949').each do |item|
    check = true if item['a'] != 'r' and BRANCHES.include? item['m']
  end
  puts r.title if check
end