|
Lines 44-49
BEGIN {
Link Here
|
| 44 |
&ModShelf |
44 |
&ModShelf |
| 45 |
&ShelfPossibleAction |
45 |
&ShelfPossibleAction |
| 46 |
&DelFromShelf &DelShelf |
46 |
&DelFromShelf &DelShelf |
|
|
47 |
&GetBibliosShelves |
| 47 |
); |
48 |
); |
| 48 |
@EXPORT_OK = qw( |
49 |
@EXPORT_OK = qw( |
| 49 |
&GetShelvesSummary &GetRecentShelves |
50 |
&GetShelvesSummary &GetRecentShelves |
|
Lines 532-537
sub DelShelf {
Link Here
|
| 532 |
return $sth->execute(shift); |
533 |
return $sth->execute(shift); |
| 533 |
} |
534 |
} |
| 534 |
|
535 |
|
|
|
536 |
=item GetBibShelves |
| 537 |
|
| 538 |
This finds all the lists that this bib record is in. |
| 539 |
|
| 540 |
=cut |
| 541 |
|
| 542 |
sub GetBibliosShelves { |
| 543 |
my ( $biblionumber ) = @_; |
| 544 |
my $dbh = C4::Context->dbh; |
| 545 |
my $sth = $dbh->prepare('SELECT vs.shelfname, vs.shelfnumber FROM virtualshelves vs LEFT JOIN virtualshelfcontents vc ON (vs.shelfnumber= vc.shelfnumber) WHERE vs.category != 1 AND vc.biblionumber= ?'); |
| 546 |
$sth->execute( $biblionumber ); |
| 547 |
my @lists; |
| 548 |
while (my $data = $sth->fetchrow_hashref){ |
| 549 |
push @lists,$data; |
| 550 |
} |
| 551 |
return \@lists; |
| 552 |
} |
| 553 |
|
| 535 |
=item RefreshShelvesSummary |
554 |
=item RefreshShelvesSummary |
| 536 |
|
555 |
|
| 537 |
($total, $pubshelves, $barshelves) = RefreshShelvesSummary($sessionID, $loggedinuser, $row_count); |
556 |
($total, $pubshelves, $barshelves) = RefreshShelvesSummary($sessionID, $loggedinuser, $row_count); |