use strict;
use C4::Search;
use C4::Output;
+use C4::Interface::CGI::Output;
use C4::Auth;
use C4::Reserves2;
use C4::Biblio;
push(@optionloop, \%option);
}
-
-# get branch information
-my $branch = $input->cookie('branch');
-($branch) || ($branch = 'L');
-my $branches = getbranches();
-# make branch selection options...
-my @branchloop;
-foreach my $br (keys %$branches) {
-# (next) unless $branches->{$br}->{'IS'};
-# # Only branches with the 'IS' branchrelation
-# # can issue books
- my %abranch;
- $abranch{'selected'}=($br eq $branch);
- $abranch{'branch'}=$br;
- $abranch{'branchname'}=$branches->{$br}->{'branchname'};
- push(@branchloop,\%abranch);
-}
-
-
# todays date
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
$year=$year+1900;
$mon++;
-my $date="$mday/$mon/$year";
+my $date=format_date("$year-$mon-$mday");
# get biblioitem information and build rows for form
#existingreserves building
my @reserveloop;
+my $branches = getbranches();
foreach my $res (sort {$a->{'found'} cmp $b->{'found'}} @$reserves){
my %reserve;
# my $prioropt = priorityoptions($totalcount, $res->{'priority'});
$option{selected}=($i==$res->{'priority'});
push(@optionloop, \%option);
}
-# my $bropt = branchoptions($res->{'branchcode'});
-# my @branchloop;
-# foreach my $br (keys %$branches) {
-# (next) unless $branches->{$br}->{'IS'};
-# # Only branches with the 'IS' branchrelation
-# # can issue books
-# my %abranch;
-# $abranch{'selected'}=($br eq $res->{'branchcode'});
-# $abranch{'branch'}=$br;
-# $abranch{'branchname'}=$branches->{$br}->{'branchname'};
-# push(@branchloop,\%abranch);
-# }
+ my @branchloop;
+ foreach my $br (keys %$branches) {
+# (next) unless $branches->{$br}->{'IS'};
+ # Only branches with the 'IS' branchrelation
+ # can issue books
+ my %abranch;
+ $abranch{'selected'}=($br eq $res->{'branchcode'});
+ $abranch{'branch'}=$br;
+ $abranch{'branchname'}=$branches->{$br}->{'branchname'};
+ push(@branchloop,\%abranch);
+ }
if ($res->{'found'} eq 'W') {
my %env;
$reserve{'biblionumber'}=$res->{'biblionumber'};
$reserve{'bornum'}=$res->{'borrowernumber'};
$reserve{'firstname'}=$res->{'firstname'};
+ $reserve{'surname'}=$res->{'surname'};
$reserve{'bornum'}=$res->{'borrowernumber'};
$reserve{'notes'}=$res->{'reservenotes'};
$reserve{'wait'}=($res->{'found'} eq 'W');
bib => $bib,
title =>$dat->{title});
# printout the page
-print $input->header(-expires=>'now'), $template->output;
+print $input->header(
+ -type => C4::Interface::CGI::Output::guesstype($template->output),
+ -expires=>'now'
+), $template->output;