+{
+ # Don't allow renewing onsite checkout
+ my $barcode = 'R00000XXX';
+ my $branch = 'CPL';
+
+ #Create another record
+ my $biblio = MARC::Record->new();
+ $biblio->append_fields(
+ MARC::Field->new('100', ' ', ' ', a => 'Anonymous'),
+ MARC::Field->new('245', ' ', ' ', a => 'A title'),
+ );
+ my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, '');
+
+ my (undef, undef, $itemnumber) = AddItem(
+ {
+ homebranch => $branch,
+ holdingbranch => $branch,
+ barcode => $barcode,
+ },
+ $biblionumber
+ );
+
+ my $borrowernumber = AddMember(
+ firstname => 'fn',
+ surname => 'dn',
+ categorycode => 'S',
+ branchcode => $branch,
+ );
+
+ my $borrower = GetMember( borrowernumber => $borrowernumber );
+ my $issue = AddIssue( $borrower, $barcode, undef, undef, undef, undef, { onsite_checkout => 1 } );
+ my ( $renewed, $error ) = CanBookBeRenewed( $borrowernumber, $itemnumber );
+ is( $renewed, 0, 'CanBookBeRenewed should not allow to renew on-site checkout' );
+ is( $error, 'onsite_checkout', 'A correct error code should be returned by CanBookBeRenewed for on-site checkout' );
+}
+