use Data::Dumper;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
-# set the version for version checking
-$VERSION = 3.07.00.049;
=head1 NAME
my $schema = Koha::Database->new()->schema();
my $duplicate_titles = $schema->resultset('Collection')->count({ colTitle => $title });
- ## Check for all neccessary parameters
+ ## Check for all necessary parameters
if ( !$title ) {
return ( 0, 1, "NO_TITLE" );
} elsif ( $duplicate_titles ) {
my $schema = Koha::Database->new()->schema();
my $duplicate_titles = $schema->resultset('Collection')->count({ colTitle => $title, -not => { colId => $colId } });
- ## Check for all neccessary parameters
+ ## Check for all necessary parameters
if ( !$colId ) {
return ( 0, 1, "NO_ID" );
}
Deletes a collection of the given id
Input:
- $colId : id of the Archtype to be deleted
+ $colId : id of the Archetype to be deleted
Output:
$success: 1 if all database operations were successful, 0 otherwise
sub DeleteCollection {
my ($colId) = @_;
- ## Paramter check
+ ## Parameter check
if ( !$colId ) {
return ( 0, 1, "NO_ID" );
}
sub GetItemsInCollection {
my ($colId) = @_;
- ## Paramter check
+ ## Parameter check
if ( !$colId ) {
return ( 0, 0, 1, "NO_ID" );
}
sub AddItemToCollection {
my ( $colId, $itemnumber ) = @_;
- ## Check for all neccessary parameters
+ ## Check for all necessary parameters
if ( !$colId ) {
return ( 0, 1, "NO_ID" );
}
sub RemoveItemFromCollection {
my ( $colId, $itemnumber ) = @_;
- ## Check for all neccessary parameters
+ ## Check for all necessary parameters
if ( !$itemnumber ) {
return ( 0, 2, "NO_ITEM" );
}
sub TransferCollection {
my ( $colId, $colBranchcode ) = @_;
- ## Check for all neccessary parameters
+ ## Check for all necessary parameters
if ( !$colId ) {
return ( 0, 1, "NO_ID" );
}
my @results;
while ( my $item = $sth->fetchrow_hashref ) {
my ($status) = CheckReserves( $item->{itemnumber} );
- my @transfers = GetTransfers( $item->{itemnumber} );
- transferbook( $colBranchcode, $item->{barcode}, my $ignore_reserves = 1 ) unless ( $status eq 'Waiting' || @transfers );
+ my @transfers = C4::Circulation::GetTransfers( $item->{itemnumber} );
+ C4::Circulation::transferbook( $colBranchcode, $item->{barcode}, my $ignore_reserves = 1 ) unless ( $status eq 'Waiting' || @transfers );
}
return 1;