use C4::Output;
use C4::Reserves;
use C4::Biblio;
+use C4::Items;
use C4::Auth qw/:DEFAULT get_session/;
use C4::Branch; # GetBranches
use C4::Koha;
+use C4::Members;
###############################################
# Getting state
if (!C4::Context->userenv){
my $sessionID = $query->cookie("CGISESSID");
- my $session = get_session($sessionID);
- if ($session->param('branch') eq 'NO_LIBRARY_SET'){
+ my $session;
+ $session = get_session($sessionID) if $sessionID;
+ if (!$session or $session->param('branch') eq 'NO_LIBRARY_SET'){
# no branch set we can't transfer
print $query->redirect("/cgi-bin/koha/circ/selectbranchprinter.pl");
exit;
query => $query,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { circulate => 1 },
+ flagsrequired => { circulate => "circulate_remaining_permissions" },
}
);
# set up the branchselect options....
my @branchoptionloop;
-foreach my $br ( keys %$branches ) {
+foreach my $br (sort {$branches->{$a}->{branchname} cmp $branches->{$b}->{branchname}} keys %$branches ) {
my %branch;
$branch{selected} = ( $br eq $tobranchcd );
$branch{code} = $br;
if ( $code eq 'WasReturned' ) {
$err{errwasreturned} = 1;
+ $err{borrowernumber}=$messages->{'WasReturned'};
+ my $borrower = GetMember($messages->{'WasReturned'},'borrowernumber');
+ $err{title}=$borrower->{'title'};
+ $err{firstname}=$borrower->{'firstname'};
+ $err{surname}=$borrower->{'surname'};
+ $err{cardnumber} =$borrower->{'cardnumber'};
}
push( @errmsgloop, \%err );
}