|
Lines 182-188
sub GetBranchName {
Link Here
|
| 182 |
$sth = $dbh->prepare("Select branchname from branches where branchcode=?"); |
182 |
$sth = $dbh->prepare("Select branchname from branches where branchcode=?"); |
| 183 |
$sth->execute($branchcode); |
183 |
$sth->execute($branchcode); |
| 184 |
my $branchname = $sth->fetchrow_array; |
184 |
my $branchname = $sth->fetchrow_array; |
| 185 |
$sth->finish; |
|
|
| 186 |
return ($branchname); |
185 |
return ($branchname); |
| 187 |
} |
186 |
} |
| 188 |
|
187 |
|
|
Lines 278-284
sub ModBranch {
Link Here
|
| 278 |
"insert into branchrelations (branchcode, categorycode) values(?, ?)" |
277 |
"insert into branchrelations (branchcode, categorycode) values(?, ?)" |
| 279 |
); |
278 |
); |
| 280 |
$sth->execute( $branchcode, $cat ); |
279 |
$sth->execute( $branchcode, $cat ); |
| 281 |
$sth->finish; |
|
|
| 282 |
} |
280 |
} |
| 283 |
foreach my $cat (@removecats) { |
281 |
foreach my $cat (@removecats) { |
| 284 |
my $sth = |
282 |
my $sth = |
|
Lines 286-292
sub ModBranch {
Link Here
|
| 286 |
"delete from branchrelations where branchcode=? and categorycode=?" |
284 |
"delete from branchrelations where branchcode=? and categorycode=?" |
| 287 |
); |
285 |
); |
| 288 |
$sth->execute( $branchcode, $cat ); |
286 |
$sth->execute( $branchcode, $cat ); |
| 289 |
$sth->finish; |
|
|
| 290 |
} |
287 |
} |
| 291 |
} |
288 |
} |
| 292 |
|
289 |
|
|
Lines 422-428
sub GetBranchesInCategory {
Link Here
|
| 422 |
while (my $branch = $sth->fetchrow) { |
419 |
while (my $branch = $sth->fetchrow) { |
| 423 |
push @branches, $branch; |
420 |
push @branches, $branch; |
| 424 |
} |
421 |
} |
| 425 |
$sth->finish(); |
|
|
| 426 |
return( \@branches ); |
422 |
return( \@branches ); |
| 427 |
} |
423 |
} |
| 428 |
|
424 |
|
|
Lines 467-477
sub GetBranchInfo {
Link Here
|
| 467 |
while ( my ($cat) = $nsth->fetchrow_array ) { |
463 |
while ( my ($cat) = $nsth->fetchrow_array ) { |
| 468 |
push( @cats, $cat ); |
464 |
push( @cats, $cat ); |
| 469 |
} |
465 |
} |
| 470 |
$nsth->finish; |
|
|
| 471 |
$data->{'categories'} = \@cats; |
466 |
$data->{'categories'} = \@cats; |
| 472 |
push( @results, $data ); |
467 |
push( @results, $data ); |
| 473 |
} |
468 |
} |
| 474 |
$sth->finish; |
|
|
| 475 |
return \@results; |
469 |
return \@results; |
| 476 |
} |
470 |
} |
| 477 |
|
471 |
|
|
Lines 486-492
sub DelBranch {
Link Here
|
| 486 |
my $dbh = C4::Context->dbh; |
480 |
my $dbh = C4::Context->dbh; |
| 487 |
my $sth = $dbh->prepare("delete from branches where branchcode = ?"); |
481 |
my $sth = $dbh->prepare("delete from branches where branchcode = ?"); |
| 488 |
$sth->execute($branchcode); |
482 |
$sth->execute($branchcode); |
| 489 |
$sth->finish; |
|
|
| 490 |
} |
483 |
} |
| 491 |
|
484 |
|
| 492 |
=head2 ModBranchCategoryInfo |
485 |
=head2 ModBranchCategoryInfo |
|
Lines 503-515
sub ModBranchCategoryInfo {
Link Here
|
| 503 |
# we are doing an insert |
496 |
# we are doing an insert |
| 504 |
my $sth = $dbh->prepare("INSERT INTO branchcategories (categorycode,categoryname,codedescription,categorytype,show_in_pulldown) VALUES (?,?,?,?,?)"); |
497 |
my $sth = $dbh->prepare("INSERT INTO branchcategories (categorycode,categoryname,codedescription,categorytype,show_in_pulldown) VALUES (?,?,?,?,?)"); |
| 505 |
$sth->execute(uc( $data->{'categorycode'} ),$data->{'categoryname'}, $data->{'codedescription'},$data->{'categorytype'},$data->{'show_in_pulldown'} ); |
498 |
$sth->execute(uc( $data->{'categorycode'} ),$data->{'categoryname'}, $data->{'codedescription'},$data->{'categorytype'},$data->{'show_in_pulldown'} ); |
| 506 |
$sth->finish(); |
|
|
| 507 |
} |
499 |
} |
| 508 |
else { |
500 |
else { |
| 509 |
# modifying |
501 |
# modifying |
| 510 |
my $sth = $dbh->prepare("UPDATE branchcategories SET categoryname=?,codedescription=?,categorytype=?,show_in_pulldown=? WHERE categorycode=?"); |
502 |
my $sth = $dbh->prepare("UPDATE branchcategories SET categoryname=?,codedescription=?,categorytype=?,show_in_pulldown=? WHERE categorycode=?"); |
| 511 |
$sth->execute($data->{'categoryname'}, $data->{'codedescription'},$data->{'categorytype'},$data->{'show_in_pulldown'},uc( $data->{'categorycode'} ) ); |
503 |
$sth->execute($data->{'categoryname'}, $data->{'codedescription'},$data->{'categorytype'},$data->{'show_in_pulldown'},uc( $data->{'categorycode'} ) ); |
| 512 |
$sth->finish(); |
|
|
| 513 |
} |
504 |
} |
| 514 |
} |
505 |
} |
| 515 |
|
506 |
|
|
Lines 546-552
sub DelBranchCategory {
Link Here
|
| 546 |
my $dbh = C4::Context->dbh; |
537 |
my $dbh = C4::Context->dbh; |
| 547 |
my $sth = $dbh->prepare("delete from branchcategories where categorycode = ?"); |
538 |
my $sth = $dbh->prepare("delete from branchcategories where categorycode = ?"); |
| 548 |
$sth->execute($categorycode); |
539 |
$sth->execute($categorycode); |
| 549 |
$sth->finish; |
|
|
| 550 |
} |
540 |
} |
| 551 |
|
541 |
|
| 552 |
=head2 CheckBranchCategorycode |
542 |
=head2 CheckBranchCategorycode |
| 553 |
- |
|
|