use strict;
use warnings;
use XML::Simple qw(:strict);
use List::Util qw(uniq);
use List::MoreUtils qw(uniq);
use C4::SIP::Sip qw(siplog);
use Koha::Libraries;
-