query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { circulate => 1 },
+ flagsrequired => { circulate => "circulate_remaining_permissions" },
debug => $debug,
}
);
my $reserveinfo = GetReserveInfo($borrowernumber,$biblionumber );
my $pulldate = C4::Dates->new();
-use Data::Dumper;
-warn Dumper($reserveinfo);
$reserveinfo->{'pulldate'} = $pulldate->output();
$reserveinfo->{'branchname'} = GetBranchName($reserveinfo->{'branchcode'});
$reserveinfo->{'transferrequired'} = $transfer;