X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FRotatingCollections.pm;h=b5768680744659c3328502a137b8f1c50279f3be;hb=0c15a1ded4b8ad1dee26a222de5b144d412af739;hp=254453f88c756159d5e0b5af6381784ca02d2d98;hpb=8e0b1fe58f7e4f6e595b18d43c939c203833dac1;p=koha_gimpoz diff --git a/C4/RotatingCollections.pm b/C4/RotatingCollections.pm index 254453f88c..b576868074 100644 --- a/C4/RotatingCollections.pm +++ b/C4/RotatingCollections.pm @@ -18,11 +18,12 @@ package C4::RotatingCollections; # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; +#use warnings; FIXME - Bug 2505 require Exporter; @@ -44,8 +45,6 @@ C4::RotatingCollections - Functions for managing rotating collections =head1 FUNCTIONS -=over 2 - =cut @ISA = qw( Exporter ); @@ -66,7 +65,7 @@ C4::RotatingCollections - Functions for managing rotating collections GetCollectionItemBranches ); -=item CreateCollection +=head2 CreateCollection ( $success, $errorcode, $errormessage ) = CreateCollection( $title, $description ); Creates a new collection @@ -78,7 +77,9 @@ C4::RotatingCollections - Functions for managing rotating collections $success: 1 if all database operations were successful, 0 otherwise $errorCode: Code for reason of failure, good for translating errors in templates $errorMessage: English description of error + =cut + sub CreateCollection { my ( $title, $description ) = @_; @@ -101,12 +102,14 @@ sub CreateCollection { $sth->finish; return 1; - + } -=item UpdateCollection +=head2 UpdateCollection + ( $success, $errorcode, $errormessage ) = UpdateCollection( $colId, $title, $description ); - Updates a collection + +Updates a collection Input: $colId: id of the collection to be updated @@ -117,7 +120,9 @@ sub CreateCollection { $success: 1 if all database operations were successful, 0 otherwise $errorCode: Code for reason of failure, good for translating errors in templates $errorMessage: English description of error + =cut + sub UpdateCollection { my ( $colId, $title, $description ) = @_; @@ -146,7 +151,8 @@ sub UpdateCollection { } -=item DeleteCollection +=head2 DeleteCollection + ( $success, $errorcode, $errormessage ) = DeleteCollection( $colId ); Deletes a collection of the given id @@ -157,7 +163,9 @@ sub UpdateCollection { $success: 1 if all database operations were successful, 0 otherwise $errorCode: Code for reason of failure, good for translating errors in templates $errorMessage: English description of error + =cut + sub DeleteCollection { my ( $colId ) = @_; @@ -177,7 +185,8 @@ sub DeleteCollection { return 1; } -=item GetCollections +=head2 GetCollections + $collections = GetCollections(); Returns data about all collections @@ -187,7 +196,9 @@ sub DeleteCollection { On Failure: $errorCode: Code for reason of failure, good for translating errors in templates $errorMessage: English description of error + =cut + sub GetCollections { my $dbh = C4::Context->dbh; @@ -205,8 +216,10 @@ sub GetCollections { return \@results; } -=item GetItemsInCollection +=head2 GetItemsInCollection + ( $results, $success, $errorcode, $errormessage ) = GetItemsInCollection( $colId ); + Returns information about the items in the given collection Input: @@ -217,7 +230,9 @@ sub GetCollections { $success: 1 if all database operations were successful, 0 otherwise $errorCode: Code for reason of failure, good for translating errors in templates $errorMessage: English description of error + =cut + sub GetItemsInCollection { my ( $colId ) = @_; @@ -249,15 +264,19 @@ sub GetItemsInCollection { return \@results; } -=item GetCollection +=head2 GetCollection + ( $colId, $colTitle, $colDesc, $colBranchcode ) = GetCollection( $colId ); - Returns information about a collection + +Returns information about a collection Input: $colId: Id of the collection Output: $colId, $colTitle, $colDesc, $colBranchcode + =cut + sub GetCollection { my ( $colId ) = @_; @@ -280,9 +299,11 @@ sub GetCollection { } -=item AddItemToCollection +=head2 AddItemToCollection + ( $success, $errorcode, $errormessage ) = AddItemToCollection( $colId, $itemnumber ); - Adds an item to a rotating collection. + +Adds an item to a rotating collection. Input: $colId: Collection to add the item to. @@ -291,7 +312,9 @@ sub GetCollection { $success: 1 if all database operations were successful, 0 otherwise $errorCode: Code for reason of failure, good for translating errors in templates $errorMessage: English description of error + =cut + sub AddItemToCollection { my ( $colId, $itemnumber ) = @_; @@ -321,9 +344,11 @@ sub AddItemToCollection { } -=item RemoveItemFromCollection +=head2 RemoveItemFromCollection + ( $success, $errorcode, $errormessage ) = RemoveItemFromCollection( $colId, $itemnumber ); - Removes an item to a collection + +Removes an item to a collection Input: $colId: Collection to add the item to. @@ -333,7 +358,9 @@ sub AddItemToCollection { $success: 1 if all database operations were successful, 0 otherwise $errorCode: Code for reason of failure, good for translating errors in templates $errorMessage: English description of error + =cut + sub RemoveItemFromCollection { my ( $colId, $itemnumber ) = @_; @@ -357,9 +384,11 @@ sub RemoveItemFromCollection { return 1; } -=item TransferCollection +=head2 TransferCollection + ( $success, $errorcode, $errormessage ) = TransferCollection( $colId, $colBranchcode ); - Transfers a collection to another branch + +Transfers a collection to another branch Input: $colId: id of the collection to be updated @@ -369,7 +398,9 @@ sub RemoveItemFromCollection { $success: 1 if all database operations were successful, 0 otherwise $errorCode: Code for reason of failure, good for translating errors in templates $errorMessage: English description of error + =cut + sub TransferCollection { my ( $colId, $colBranchcode ) = @_; @@ -406,10 +437,44 @@ sub TransferCollection { } +=head2 GetCollectionItemBranches + + my ( $holdingBranch, $collectionBranch ) = GetCollectionItemBranches( $itemnumber ); + +=cut + +sub GetCollectionItemBranches { + my ( $itemnumber ) = @_; + + if ( ! $itemnumber ) { + return; + } + + my $dbh = C4::Context->dbh; + + my ( $sth, @results ); + $sth = $dbh->prepare("SELECT holdingbranch, colBranchcode FROM items, collections, collections_tracking + WHERE items.itemnumber = collections_tracking.itemnumber + AND collections.colId = collections_tracking.colId + AND items.itemnumber = ?"); + $sth->execute( $itemnumber ); + + my $row = $sth->fetchrow_hashref; + + $sth->finish; + + return ( + $$row{'holdingbranch'}, + $$row{'colBranchcode'}, + ); +} + +=head2 isItemInThisCollection + + $inCollection = isItemInThisCollection( $itemnumber, $colId ); + +=cut -=item isItemInThisCollection -$inCollection = isItemInThisCollection( $itemnumber, $colId ); -=cut sub isItemInThisCollection { my ( $itemnumber, $colId ) = @_; @@ -423,9 +488,12 @@ sub isItemInThisCollection { return $$row{'inCollection'}; } -=item isItemInAnyCollection +=head2 isItemInAnyCollection + $inCollection = isItemInAnyCollection( $itemnumber ); + =cut + sub isItemInAnyCollection { my ( $itemnumber ) = @_; @@ -436,7 +504,7 @@ sub isItemInAnyCollection { my $row = $sth->fetchrow_hashref; - my $itemnumber = $$row{'itemnumber'}; + $itemnumber = $row->{itemnumber}; $sth->finish; if ( $itemnumber ) { @@ -450,8 +518,6 @@ sub isItemInAnyCollection { __END__ -=back - =head1 AUTHOR Kyle Hall