use strict;

use warnings;

use MARC::Batch;

print '

';

print "\nEnter name of MARC input file:\n";

my $input_marc_file = <STDIN>;

chomp $input_marc_file;

print "\nProcessing File:\nThis may take a few minutes...\n";

my $batch = MARC::Batch->new('USMARC',$input_marc_file);

open(MARCOUTPUT, "> $input_marc_file out.mrc") or die $!;

open(MARCDROPPED, "> $input_marc_file dropped.mrc") or die $!;

$batch->strict_off();

$batch->warnings_off();

my $recordcount;

my $itemcount;

my $marc_drop;

while (my $record = $batch->next()) {

## Increment the record counter

$recordcount++;

## We import the record unless we know better

$marc_drop = 0;

## Get the record's unicorn holdings. Unicorn's 999 and Koha's 952 are repeatable, so we are using a list context

my @unicorn_holdings = $record->field('999');

foreach my $unicorn_holding (@unicorn_holdings) {

## Load the holdings information from the proper subfields

## If you store information in different subfields,

## this is the place to change it.

my $full_call_number = $unicorn_holding->subfield('a');

my $copy_number = $unicorn_holding->subfield('c');

my $date_last_seen = &convert_date($unicorn_holding->subfield('d'));

my $date_last_borrowed = &convert_date($unicorn_holding->subfield('e'));

my $barcode = $unicorn_holding->subfield('i');

# In Koha, the shelving location code must be defined in Authorized Value category 'LOC' in default installation

# By default this is set up to remap some locations to those available in a default Koha install.

# Check out the convert_location subroutine later on to see if you need to make adjustments for your library

# Otherwise, you can comment out the reference to the subroutine that converts locations

#my $shelving_location = $unicorn_holding->subfield('l'); # Uncomment this line if you want to leave your locations as they are

my $shelving_location = &convert_location($unicorn_holding->subfield('k'),$unicorn_holding->subfield('l')); # Comment this line if you want to leave your locations as they are

# Check out the convert_status subroutine later on to see if you need to make adjustments for your library

my $status_lost = &convert_status($unicorn_holding->subfield('l'));

my $permanent_location = $unicorn_holding->subfield('m');

# Current location is usually the same as permanent location, but maybe not for your library

# In Koha, this code must be defined in System Administration -> Libraries, Branches and Groups

my $current_location = $unicorn_holding->subfield('m');

my $total_checkouts = $unicorn_holding->subfield('n');

# In Koha, the item type code must be defined in System Administration -> Item types and Circulation Codes

# By default this is set up to remap some item types to those available in a default Koha install.

# Check out the convert_item_type subroutine later on to see if you need to make adjustments for your library

# Otherwise, you can comment out the reference to the subroutine that converts item types

#my $item_type = $unicorn_holding->subfield('t'); # Uncomment this line if you want to leave your item types as they are

#my $item_type = &convert_item_type($unicorn_holding->subfield('t')); # Uncomment this line if you want to your koha item types to be base soley on Unicorn item types

my $item_type = &convert_item_type($unicorn_holding->subfield('t'),$unicorn_holding->subfield('x')); # Uncomment this line if you want your Koha item types to be based on Unicorn item types and Unicorn item category 1

my $date_acquired = &convert_date($unicorn_holding->subfield('u'));

my $source_of_classification_or_shelving_scheme = &convert_classification_source($unicorn_holding->subfield('w'));

## Collection codes are completely optional in Koha, but they are a coded value,

## meaning they must have a matching Authorized Value category ('CCODE' in default installation))

## This maps them from Unicorn's 'Item Category 1', but that may not make sense for you.

my $collection_code;

$collection_code = $unicorn_holding->subfield('x'); # Comment this line if you don't want to use your Unicorn item categories as collection codes in Koha.

## I just set everything to be lend-able and undamaged

my $not_for_loan = '0';

my $status_damaged = '0';

my $serial_enumeration_chronology;

## Stuff that Koha wants that I haven't mapped yet. Email suggestions to jsherman@usao.edu

my $status_withdrawn;

my $materials_specified;

my $use_restrictions;

my $normalized_classification_for_sort;

my $source_of_acquisition;

my $cost_normal_purchase_price;

my $shelving_control_number;

my $total_renewals;

my $total_holds;

my $checked_out;

my $uniform_resource_identifier;

my $cost_replacement_price;

my $date_price_effective_from;

## Create a new holdings object and insert it before the unicorn holdings field, then

my $koha_holdings = MARC::Field->new('952', '', '', 0=> $status_withdrawn, 1=> $status_lost, 2=> $source_of_classification_or_shelving_scheme, 3=> $materials_specified, 4=> $status_damaged, 5=> $use_restrictions, 6=> $normalized_classification_for_sort, 7=> $not_for_loan, 8=> $collection_code, a=> $permanent_location, b=> $current_location, c=> $shelving_location, d=> $date_acquired, e=> $source_of_acquisition, g=> $cost_normal_purchase_price, h=> $serial_enumeration_chronology, j=> $shelving_control_number, l=> $total_checkouts, m=> $total_renewals, n=> $total_holds, o=> $full_call_number, p=> $barcode, q=> $checked_out, r=> $date_last_seen, s=> $date_last_borrowed, t=> $copy_number, u=> $uniform_resource_identifier, v=> $cost_replacement_price, w=> $date_price_effective_from, y=> $item_type );