my $itemnumber = GetItemnumberFromBarcode( $barcode );

	my $item = GetItem(undef,$barcode,undef);

	my $itemnumber = $item->{itemnumber};

    if ( C4::Context->preference("UseBranchTransferLimits") == 1 ) {

	my $errMsg;

        if ( C4::Context->preference("item-level_itypes") && C4::Context->preference("BranchTransferLimitsType") eq 'itemtype' ) {

    ($dotransfer, $errMsg) = CheckBranchTransferAllowed( $tbr, $fbr, $item, $biblio );

            if ( ! IsBranchTransferAllowed( $tbr, $fbr, $biblio->{'itype'} ) ) {

    if ( ! $dotransfer ) {

                $messages->{'NotAllowed'} = $tbr . "::" . $biblio->{'itype'};

        $messages->{'NotAllowed'} = $errMsg;

                $dotransfer = 0;

            }

        } elsif ( ! IsBranchTransferAllowed( $tbr, $fbr, $biblio->{ C4::Context->preference("BranchTransferLimitsType") } ) ) {

            $messages->{'NotAllowed'} = $tbr . "::" . $biblio->{ C4::Context->preference("BranchTransferLimitsType") };

            $dotransfer = 0;

    	}

            my ( $tbr, $typecode ) = split( /::/,  $messages->{'NotAllowed'} );

            my ( $fbr, $tbr, $typecode ) = split( '->',  $messages->{'NotAllowed'} );

- 

use Modern::Perl;

use Test::More tests => 20;

use C4::Circulation;

use C4::Context;

use C4::Record;

my $dbh = C4::Context->dbh;

$dbh->{AutoCommit} = 0;

$dbh->{RaiseError} = 1;

my $originalBranchTransferLimitsType = C4::Context->preference('BranchTransferLimitsType');

### Preparing our tests we want to run ###

sub runTestsForCCodeOrItemtype {

    my ($itemCPLFull, $itemCPLLite, $biblioitem) = @_;

    print 'Running tests for '.C4::Context->preference("BranchTransferLimitsType")."\n";

    #howto use:               CheckBranchTransferAllowed( $toBranch, $fromBranch, $item, $biblioitem] );

    my $result = C4::Circulation::CheckBranchTransferAllowed( 'CPL', 'IPT', $itemCPLFull, $biblioitem );

    is ( $result, 1, "Successful branch transfer, full parameters" );

    $result = C4::Circulation::CheckBranchTransferAllowed( 'IPT', 'CPL', $itemCPLFull, $biblioitem );

    is ( $result, 0, "Failing branch transfer, full parameters" );

    $result = C4::Circulation::CheckBranchTransferAllowed( 'CPL', 'IPT', $itemCPLFull, undef );

    is ( $result, 1, "Successful branch transfer, full parameters, no Biblio defined" );

    $result = C4::Circulation::CheckBranchTransferAllowed( 'IPT', 'CPL', $itemCPLFull, undef );

    is ( $result, 0, "Failing branch transfer, full parameters, no Biblio defined" );

    $result = C4::Circulation::CheckBranchTransferAllowed( 'FFL', undef, $itemCPLFull, $biblioitem );

    is ( $result, 1, "Successful branch transfer, using defaults for \$fromBranch" );

    $result = C4::Circulation::CheckBranchTransferAllowed( 'IPT', undef, $itemCPLFull, $biblioitem );

    is ( $result, 0, "Failing branch transfer, using defaults for \$fromBranch" );

    $result = C4::Circulation::CheckBranchTransferAllowed( 'FFL', undef, $itemCPLFull, undef );

    is ( $result, 1, "Successful branch transfer, using minimum parameters" );

    $result = C4::Circulation::CheckBranchTransferAllowed( 'IPT', undef, $itemCPLFull, undef );

    is ( $result, 0, "Failing branch transfer, using minimum parameters" );

    $result = C4::Circulation::CheckBranchTransferAllowed( 'FFL', undef, $itemCPLLite, undef );

    is ( $result, 1, "Successful branch transfer, using minimum parameters, code is pulled from Biblio" );

    if (C4::Context->preference("BranchTransferLimitsType") eq 'ccode') {

        $result = C4::Circulation::CheckBranchTransferAllowed( 'IPT', undef, $itemCPLLite, undef );

        is ( $result, 1, "Not failing branch transfer even if should, because CCODE cannot be found from the item and it is not a part of the biblio." );

    }

    else {

        $result = C4::Circulation::CheckBranchTransferAllowed( 'IPT', undef, $itemCPLLite, undef );

        is ( $result, 0, "Failing branch transfer, using minimum parameters, itemtype is pulled from Biblio" );

    }

}

### Tests prepared

### Preparing our generic testing data ###

#Set the item variables

my $ccode = 'FANTASY';

my $itemtype = 'BK';

## Add a example Bibliographic record

my $bibFramework = ''; #Using the default bibliographic framework.

my $marcxml=qq(<?xml version="1.0" encoding="UTF-8"?>

<record format="MARC21" type="Bibliographic">

  <leader>00000cim a22000004a 4500</leader>

  <controlfield tag="001">1001</controlfield>

  <controlfield tag="005">2013-06-03 07:04:07+02</controlfield>

  <controlfield tag="007">ss||||j|||||||</controlfield>

  <controlfield tag="008">       uuuu    xxk|||||||||||||||||eng|c</controlfield>

  <datafield tag="020" ind1=" " ind2=" ">

    <subfield code="a">0-00-103147-3</subfield>

    <subfield code="c">14.46 EUR</subfield>

  </datafield>

  <datafield tag="041" ind1="0" ind2=" ">

    <subfield code="d">eng</subfield>

  </datafield>

  <datafield tag="084" ind1=" " ind2=" ">

    <subfield code="a">83.5</subfield>

    <subfield code="2">ykl</subfield>

  </datafield>

  <datafield tag="100" ind1="1" ind2=" ">

    <subfield code="a">SHAKESPEARE, WILLIAM.</subfield>

  </datafield>

  <datafield tag="245" ind1="1" ind2="4">

    <subfield code="a">THE TAMING OF THE SHREW /</subfield>

    <subfield code="c">WILLIAM SHAKESPEARE</subfield>

    <subfield code="h">[ÄÄNITE].</subfield>

  </datafield>

  <datafield tag="260" ind1=" " ind2=" ">

    <subfield code="a">LONDON :</subfield>

    <subfield code="b">COLLINS.</subfield>

  </datafield>

  <datafield tag="300" ind1=" " ind2=" ">

    <subfield code="a">2 ÄÄNIKASETTIA.</subfield>

  </datafield>

  <datafield tag="852" ind1=" " ind2=" ">

    <subfield code="a">FI-Jm</subfield>

    <subfield code="h">83.5</subfield>

  </datafield>

  <datafield tag="852" ind1=" " ind2=" ">

    <subfield code="a">FI-Konti</subfield>

    <subfield code="h">83.5</subfield>

  </datafield>

</record>

);

my $record=C4::Record::marcxml2marc($marcxml);

# Add a itemtype definition to the Record.

my ( $biblioitemtypeTagid, $biblioitemtypeSubfieldid ) =

            C4::Biblio::GetMarcFromKohaField( 'biblioitems.itemtype', $bibFramework );

my $itemtypeField = MARC::Field->new($biblioitemtypeTagid, '', '',

                                     $biblioitemtypeSubfieldid => $itemtype);

$record->append_fields( $itemtypeField );

my ( $newBiblionumber, $newBiblioitemnumber ) = C4::Biblio::AddBiblio( $record, $bibFramework, { defer_marc_save => 1 } );

## Add an item with a ccode.

my ($item_bibnum, $item_bibitemnum);

my ($itemCPLFull, $itemCPLFullId); #Item with a itemtype and ccode in its data.

my ($itemCPLLite, $itemCPLLiteId); #Item with no itemtype nor ccode in its data. Forces to look for it from the biblio.

($item_bibnum, $item_bibitemnum, $itemCPLFullId) = C4::Items::AddItem({ barcode => 'CPLFull', homebranch => 'CPL', holdingbranch => 'CPL', ccode => $ccode, itemtype => $itemtype}, $newBiblionumber);#, biblioitemnumber => $newBiblioitemnumber, biblionumber => $newBiblioitemnumber });

($item_bibnum, $item_bibitemnum, $itemCPLLiteId) = C4::Items::AddItem({ barcode => 'CPLLite', homebranch => 'CPL', holdingbranch => 'CPL'}, $newBiblionumber);# biblioitemnumber => $newBiblioitemnumber, biblionumber => $newBiblioitemnumber });

### Created the generic testing material. ###

### Setting preferences for ccode use-case ###

C4::Context->set_preference("BranchTransferLimitsType", 'ccode');

## Add the TransferLimit rules:

## IPT -> CPL -> FFL -> IPT

#                                            to     from

C4::Circulation::CreateBranchTransferLimit( 'IPT', 'CPL', $ccode );

C4::Circulation::CreateBranchTransferLimit( 'CPL', 'FFL', $ccode );

C4::Circulation::CreateBranchTransferLimit( 'FFL', 'IPT', $ccode );

## Ready to start testing ccode use-case ##

$itemCPLFull = C4::Items::GetItem($itemCPLFullId);

$itemCPLLite = C4::Items::GetItem($itemCPLLiteId);

my $biblioitem = C4::Biblio::GetBiblioFromItemNumber( $itemCPLFull->{itemnumber} );

runTestsForCCodeOrItemtype($itemCPLFull, $itemCPLLite, $biblioitem);

### ccode tested

### Setting preferences for itemtype use-case ###

C4::Context->set_preference("BranchTransferLimitsType", 'itemtype');

## Add the TransferLimit rules:

## IPT -> CPL -> FFL -> IPT

#                                            to     from

C4::Circulation::CreateBranchTransferLimit( 'IPT', 'CPL', $itemtype );

C4::Circulation::CreateBranchTransferLimit( 'CPL', 'FFL', $itemtype );

C4::Circulation::CreateBranchTransferLimit( 'FFL', 'IPT', $itemtype );

## Ready to start testing itemtype use-case ##

$itemCPLFull = C4::Items::GetItem($itemCPLFullId);

$itemCPLLite = C4::Items::GetItem($itemCPLLiteId);

$biblioitem = C4::Biblio::GetBiblioFromItemNumber( $itemCPLFull->{itemnumber} );

runTestsForCCodeOrItemtype($itemCPLFull, $itemCPLLite, $biblioitem);

### itemtype tested

### Reset default preferences

C4::Context->set_preference("BranchTransferLimitsType", $originalBranchTransferLimitsType);

$dbh->rollback;