elsif ( $l =~ /^available$/ ) {
push @new_lim, 'onloan:0';
}
elsif ( $l =~ /^mc-loc/ ) {
my ($location) = ($l =~ /^mc-loc:(.*)$/ );
push @new_lim, "location:$location";
else {
push @new_lim, $l;
-