use CGI;
use C4::Acquisition;
use C4::Auth;
+use C4::Koha;
use C4::Output;
use C4::Interface::CGI::Output;
use C4::Context;
$template->param(Supplier=>$supplierlist{$supplierid}) if ($supplierid);
-my @select_branches;
-my %select_branches;
-push @select_branches,"";
-$select_branches{""}="";
-my ($count, @branches) = branches();
-#branches is IndependantBranches aware
-foreach my $branch (@branches){
- push @select_branches, $branch->{branchcode};
- $select_branches{$branch->{branchcode}}=$branch->{branchname};
+my $branches = getbranches;
+my @branchloop;
+foreach my $thisbranch (sort keys %$branches) {
+ my %row =(value => $thisbranch,
+ branchname => $branches->{$thisbranch}->{'branchname'},
+ );
+ push @branchloop, \%row;
}
-my $CGIbranch=CGI::scrolling_list( -name => 'branch',
- -values => \@select_branches,
- -labels => \%select_branches,
- -size => 1,
- -multiple => 0 );
my ($count, @lateorders) = getlateorders($delay,$supplierid,$branch);
my $total;
}
$template->param(delay=>$delay) if ($delay);
$template->param(
- CGIbranch => $CGIbranch,
+ branchloop => \@branchloop,
CGIsupplier => $CGIsupplier,
lateorders => \@lateorders,
total=>$total,
use C4::Auth;
use C4::Acquisition;
use C4::Suggestions;
+use C4::Biblio;
use C4::Search;
use C4::Output;
use C4::Input;
+use C4::Koha;
use C4::Interface::CGI::Output;
use HTML::Template;
$sth->finish;
# build branches list
-my @branches;
-my @select_branch;
-my %select_branches;
-my ($count2,@branches)=branches();
-for (my $i=0;$i<$count2;$i++){
- if ((!C4::Context->preference('IndependantBranches'))||(C4::Context->preference('IndependantBranches') && (C4::Context->userenv->{flags} ==1))
- ||((C4::Context->preference('IndependantBranches') && (C4::Context->userenv->{flags} !=1) && (C4::Context->userenv->{branch} eq $branches[$i]->{'branchcode'})))){
- push @select_branch, $branches[$i]->{'branchcode'};#
- $select_branches{$branches[$i]->{'branchcode'}} = $branches[$i]->{'branchname'};
- }
+my $branches = getbranches;
+my @branchloop;
+foreach my $thisbranch (sort keys %$branches) {
+ my %row =(value => $thisbranch,
+ branchname => $branches->{$thisbranch}->{'branchname'},
+ );
+ push @branchloop, \%row;
}
-my $CGIbranch=CGI::scrolling_list( -name => 'branch',
- -values => \@select_branch,
- -default => $data->{'branchcode'},
- -labels => \%select_branches,
- -size => 1,
- -multiple => 0 );
+$template->param(branchloop =>\@branchloop);
# build bookfund list
my $sthtemp = $dbh->prepare("Select flags, branchcode from borrowers where borrowernumber = ?");
$sthtemp->execute($loggedinuser);
my ($flags, $homebranch)=$sthtemp->fetchrow;
+my $count2;
my @bookfund;
my @select_bookfund;
my %select_bookfunds;
author => $data->{'author'},
copyrightdate => $data->{'copyrightdate'},
CGIitemtype => $CGIitemtype,
- CGIbranch => $CGIbranch,
CGIbookfund => $CGIbookfund,
isbn => $data->{'isbn'},
seriestitle => $data->{'seriestitle'},
my @loop_invoicecurrency;
for (my $i=0;$i<$count;$i++) {
if ($booksellers[0]->{'listprice'} eq $currencies->[$i]->{'currency'}) {
- push @loop_pricescurrency, { currency => "<option selected value=\"$currencies->[$i]->{'currency'}\">$currencies->[$i]->{'currency'}</option>" };
+ push @loop_pricescurrency, { currency => "<option selected=\"selected\" value=\"$currencies->[$i]->{'currency'}\">$currencies->[$i]->{'currency'}</option>" };
} else {
push @loop_pricescurrency, { currency => "<option value=\"$currencies->[$i]->{'currency'}\">$currencies->[$i]->{'currency'}</option>"};
}
if ($booksellers[0]->{'invoiceprice'} eq $currencies->[$i]->{'currency'}) {
- push @loop_invoicecurrency, { currency => "<option selected value=\"$currencies->[$i]->{'currency'}\">$currencies->[$i]->{'currency'}</option>"};
+ push @loop_invoicecurrency, { currency => "<option selected=\"selected\" value=\"$currencies->[$i]->{'currency'}\">$currencies->[$i]->{'currency'}</option>"};
} else {
push @loop_invoicecurrency, { currency => "<option value=\"$currencies->[$i]->{'currency'}\">$currencies->[$i]->{'currency'}</option>"};
}