Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Modified getbranch() and getprinter() subroutines to not pop up a menu if

Browse source 
there is only one branch or one printer, but just select the single option
automatically.
This commit is contained in:
tonnesen 2001-01-05 17:39:25 +00:00
parent 1c9ef0371f
commit 21b18bf675
1 changed files with 20 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
C4/Circulation/Main.pm
View file

@ -65,17 +65,23 @@ sub getbranch {
my $query = "select * from branches order by branchcode";
my $sth = $dbh->prepare($query);
$sth->execute;
my @branches;
while (my $data = $sth->fetchrow_hashref) {
push @branches,$data;
if ($sth->rows>1) {
my @branches;
while (my $data = $sth->fetchrow_hashref) {
push @branches,$data;
}
brmenu ($env,\@branches);
} else {
my $data = $sth->fetchrow_hashref;
$env->{'branchcode'}=$data->{'branchcode'};
}
brmenu ($env,\@branches);
my $query = "select * from branches
where branchcode = '$env->{'branchcode'}'";
$sth = $dbh->prepare($query);
$sth->execute;
my $data = $sth->fetchrow_hashref;
$env->{'brdata'} = $data;
$env->{'branchname'} = $data->{'branchname'};
$sth->finish;
$dbh->disconnect;
}
@ -86,11 +92,17 @@ sub getprinter {
my $query = "select * from printers order by printername";
my $sth = $dbh->prepare($query);
$sth->execute;
my @printers;
while (my $data = $sth->fetchrow_hashref) {
push @printers,$data;
if ($sth->rows>1) {
my @printers;
while (my $data = $sth->fetchrow_hashref) {
push @printers,$data;
}
prmenu ($env,\@printers);
} else {
my $data=$sth->fetchrow_hashref;
$env->{'queue'}=$data->{'printqueue'};
$env->{'printtype'}=$data->{'printtype'};
}
prmenu ($env,\@printers);
$sth->finish;
$dbh->disconnect;
}