Minor corrections

[koha.git] / request.pl

diff --git a/request.pl b/request.pl
index bcf7be7..568f221 100755 (executable)
--- a/request.pl
+++ b/request.pl
@@ -63,30 +63,11 @@ for (my $i=1; $i<=$num; $i++){
        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
@@ -124,6 +105,7 @@ foreach my $dat (sort {$b->{'dateaccessioned'} cmp $a->{'dateaccessioned'}} @dat
 
 #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'});
@@ -134,10 +116,9 @@ foreach my $res (sort {$a->{'found'} cmp $b->{'found'}} @$reserves){
                $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'};
+#              (next) unless $branches->{$br}->{'IS'};
                                # Only branches with the 'IS' branchrelation
                                # can issue books
                my %abranch;
@@ -161,6 +142,7 @@ foreach my $res (sort {$a->{'found'} cmp $b->{'found'}} @$reserves){
        $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');