use Koha::DateUtils qw/dt_from_string/;
use Koha::Database;
-use Koha::Database;
+use Koha::Biblioitems;
+use Koha::Items;
use Koha::SearchEngine;
use Koha::SearchEngine::Search;
+use Koha::Libraries;
use vars qw(@ISA @EXPORT);
GetItemnumberFromBarcode
GetBarcodeFromItemnumber
GetHiddenItemnumbers
+ ItemSafeToDelete
DelItemCheck
MoveItemFromBiblio
GetLatestAcquisitions
=cut
-our %default_values_for_mod_from_marc;
-
sub _build_default_values_for_mod_marc {
my ($frameworkcode) = @_;
- return $default_values_for_mod_from_marc{$frameworkcode}
- if exists $default_values_for_mod_from_marc{$frameworkcode};
+
+ my $cache = Koha::Caches->get_instance();
+ my $cache_key = "default_value_for_mod_marc-$frameworkcode";
+ my $cached = $cache->get_from_cache($cache_key);
+ return $cached if $cached;
+
my $default_values = {
barcode => undef,
booksellerid => undef,
uri => undef,
withdrawn => 0,
};
+ my %default_values_for_mod_from_marc;
while ( my ( $field, $default_value ) = each %$default_values ) {
my $kohafield = $field;
$kohafield =~ s|^([^\.]+)$|items.$1|;
- $default_values_for_mod_from_marc{$frameworkcode}{$field} =
+ $default_values_for_mod_from_marc{$field} =
$default_value
if C4::Koha::IsKohaFieldLinked(
{ kohafield => $kohafield, frameworkcode => $frameworkcode } );
}
- return $default_values_for_mod_from_marc{$frameworkcode};
+
+ $cache->set_in_cache($cache_key, \%default_values_for_mod_from_marc);
+ return \%default_values_for_mod_from_marc;
}
sub ModItemFromMarc {
sub CheckItemPreSave {
my $item_ref = shift;
- require C4::Branch;
my %errors = ();
# check for valid home branch
if (exists $item_ref->{'homebranch'} and defined $item_ref->{'homebranch'}) {
- my $branch_name = C4::Branch::GetBranchName($item_ref->{'homebranch'});
- unless (defined $branch_name) {
- # relies on fact that branches.branchname is a non-NULL column,
- # so GetBranchName returns undef only if branch does not exist
+ my $home_library = Koha::Libraries->find( $item_ref->{homebranch} );
+ unless (defined $home_library) {
$errors{'invalid_homebranch'} = $item_ref->{'homebranch'};
}
}
# check for valid holding branch
if (exists $item_ref->{'holdingbranch'} and defined $item_ref->{'holdingbranch'}) {
- my $branch_name = C4::Branch::GetBranchName($item_ref->{'holdingbranch'});
- unless (defined $branch_name) {
- # relies on fact that branches.branchname is a non-NULL column,
- # so GetBranchName returns undef only if branch does not exist
+ my $holding_library = Koha::Libraries->find( $item_ref->{holdingbranch} );
+ unless (defined $holding_library) {
$errors{'invalid_holdingbranch'} = $item_ref->{'holdingbranch'};
}
}
COALESCE( localization.translation, itemtypes.description ) AS translated_description,
itemtypes.notforloan as notforloan_per_itemtype,
holding.branchurl,
+ holding.branchcode,
holding.branchname,
holding.opac_info as holding_branch_opac_info,
home.opac_info as home_branch_opac_info
sub get_hostitemnumbers_of {
- my ($biblionumber) = @_;
- my $marcrecord = GetMarcBiblio($biblionumber);
- my (@returnhostitemnumbers,$tag, $biblio_s, $item_s);
-
- my $marcflavor = C4::Context->preference('marcflavour');
- if ($marcflavor eq 'MARC21' || $marcflavor eq 'NORMARC') {
- $tag='773';
- $biblio_s='0';
- $item_s='9';
- } elsif ($marcflavor eq 'UNIMARC') {
- $tag='461';
- $biblio_s='0';
- $item_s='9';
+ my ($biblionumber) = @_;
+ my $marcrecord = GetMarcBiblio($biblionumber);
+
+ return unless $marcrecord;
+
+ my ( @returnhostitemnumbers, $tag, $biblio_s, $item_s );
+
+ my $marcflavor = C4::Context->preference('marcflavour');
+ if ( $marcflavor eq 'MARC21' || $marcflavor eq 'NORMARC' ) {
+ $tag = '773';
+ $biblio_s = '0';
+ $item_s = '9';
+ }
+ elsif ( $marcflavor eq 'UNIMARC' ) {
+ $tag = '461';
+ $biblio_s = '0';
+ $item_s = '9';
}
foreach my $hostfield ( $marcrecord->field($tag) ) {
my $hostbiblionumber = $hostfield->subfield($biblio_s);
my $linkeditemnumber = $hostfield->subfield($item_s);
my @itemnumbers;
- if (my $itemnumbers = get_itemnumbers_of($hostbiblionumber)->{$hostbiblionumber})
+ if ( my $itemnumbers =
+ get_itemnumbers_of($hostbiblionumber)->{$hostbiblionumber} )
{
@itemnumbers = @$itemnumbers;
}
- foreach my $itemnumber (@itemnumbers){
- if ($itemnumber eq $linkeditemnumber){
- push (@returnhostitemnumbers,$itemnumber);
+ foreach my $itemnumber (@itemnumbers) {
+ if ( $itemnumber eq $linkeditemnumber ) {
+ push( @returnhostitemnumbers, $itemnumber );
last;
}
}
}
+
return @returnhostitemnumbers;
}
return;
}
-=head2 DelItemCheck
+=head2 ItemSafeToDelete
- DelItemCheck($dbh, $biblionumber, $itemnumber);
+ ItemSafeToDelete( $biblionumber, $itemnumber);
-Exported function (core API) for deleting an item record in Koha if there no current issue.
+Exported function (core API) for checking whether an item record is safe to delete.
-=cut
+returns 1 if the item is safe to delete,
-sub DelItemCheck {
- my ( $dbh, $biblionumber, $itemnumber ) = @_;
+"book_on_loan" if the item is checked out,
- $dbh ||= C4::Context->dbh;
+"not_same_branch" if the item is blocked by independent branches,
- my $error;
+"book_reserved" if the there are holds aganst the item, or
- my $countanalytics=GetAnalyticsCount($itemnumber);
+"linked_analytics" if the item has linked analytic records.
+=cut
+
+sub ItemSafeToDelete {
+ my ( $biblionumber, $itemnumber ) = @_;
+ my $status;
+ my $dbh = C4::Context->dbh;
+
+ my $error;
+
+ my $countanalytics = GetAnalyticsCount($itemnumber);
# check that there is no issue on this item before deletion.
- my $sth = $dbh->prepare(q{
+ my $sth = $dbh->prepare(
+ q{
SELECT COUNT(*) FROM issues
WHERE itemnumber = ?
- });
+ }
+ );
$sth->execute($itemnumber);
my ($onloan) = $sth->fetchrow;
my $item = GetItem($itemnumber);
- if ($onloan){
- $error = "book_on_loan"
+ if ($onloan) {
+ $status = "book_on_loan";
}
elsif ( defined C4::Context->userenv
and !C4::Context->IsSuperLibrarian()
and C4::Context->preference("IndependentBranches")
and ( C4::Context->userenv->{branch} ne $item->{'homebranch'} ) )
{
- $error = "not_same_branch";
+ $status = "not_same_branch";
}
- else{
+ else {
# check it doesn't have a waiting reserve
- $sth = $dbh->prepare(q{
+ $sth = $dbh->prepare(
+ q{
SELECT COUNT(*) FROM reserves
WHERE (found = 'W' OR found = 'T')
AND itemnumber = ?
- });
+ }
+ );
$sth->execute($itemnumber);
my ($reserve) = $sth->fetchrow;
- if ($reserve){
- $error = "book_reserved";
- } elsif ($countanalytics > 0){
- $error = "linked_analytics";
- } else {
- DelItem(
- {
- biblionumber => $biblionumber,
- itemnumber => $itemnumber
- }
- );
- return 1;
+ if ($reserve) {
+ $status = "book_reserved";
}
+ elsif ( $countanalytics > 0 ) {
+ $status = "linked_analytics";
+ }
+ else {
+ $status = 1;
+ }
+ }
+ return $status;
+}
+
+=head2 DelItemCheck
+
+ DelItemCheck( $biblionumber, $itemnumber);
+
+Exported function (core API) for deleting an item record in Koha if there no current issue.
+
+DelItemCheck wraps ItemSafeToDelete around DelItem.
+
+=cut
+
+sub DelItemCheck {
+ my ( $biblionumber, $itemnumber ) = @_;
+ my $status = ItemSafeToDelete( $biblionumber, $itemnumber );
+
+ if ( $status == 1 ) {
+ DelItem(
+ {
+ biblionumber => $biblionumber,
+ itemnumber => $itemnumber
+ }
+ );
}
- return $error;
+ return $status;
}
=head2 _koha_modify_item
};
}
-=head2 columns
-
- my @columns = C4::Items::columns();
-
-Returns an array of items' table columns on success,
-and an empty array on failure.
-
-=cut
-
-sub columns {
- my $rs = Koha::Database->new->schema->resultset('Item');
- return $rs->result_source->columns;
-}
-
-=head2 biblioitems_columns
-
- my @columns = C4::Items::biblioitems_columns();
-
-Returns an array of biblioitems' table columns on success,
-and an empty array on failure.
-
-=cut
-
-sub biblioitems_columns {
- my $rs = Koha::Database->new->schema->resultset('Biblioitem');
- return $rs->result_source->columns;
-}
-
sub ToggleNewStatus {
my ( $params ) = @_;
my @rules = @{ $params->{rules} };
my $dbh = C4::Context->dbh;
my @errors;
- my @item_columns = map { "items.$_" } C4::Items::columns;
- my @biblioitem_columns = map { "biblioitems.$_" } C4::Items::biblioitems_columns;
+ my @item_columns = map { "items.$_" } Koha::Items->columns;
+ my @biblioitem_columns = map { "biblioitems.$_" } Koha::Biblioitems->columns;
my $report;
for my $rule ( @rules ) {
my $age = $rule->{age};