use C4::Output;
use C4::Reserves;
use C4::Biblio;
-use C4::Auth;
+use C4::Items;
+use C4::Auth qw/:DEFAULT get_session/;
use C4::Branch; # GetBranches
use C4::Koha;
+use C4::Members;
###############################################
# Getting state
my $query = new CGI;
+if (!C4::Context->userenv){
+ my $sessionID = $query->cookie("CGISESSID");
+ 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;
+ }
+}
+
+
#######################################################################################
# Make the page .....
my ( $template, $cookie );
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;
my %transfereditems;
my $transfered;
my $barcode = $query->param('barcode');
+# strip whitespace
+$barcode =~ s/\s*//g;
# warn "barcode : $barcode";
if ($barcode) {
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 );
}