use Koha::Biblio::Metadata;
use Koha::Biblio::Metadatas;
use Koha::Holds;
+use Koha::ItemTypes;
use Koha::SearchEngine;
use Koha::Libraries;
#---- itemtypes
if ( $tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "itemtypes" ) {
- return getitemtypeinfo($value)->{translated_description};
+ my $itemtype = Koha::ItemTypes->find( $value );
+ return $itemtype ? $itemtype->translated_description : q||;
}
#---- "true" authorized value
use Template::Plugin;
use base qw( Template::Plugin );
-use C4::Koha;
use Koha::ItemTypes;
sub GetDescription {
my ( $self, $itemtype ) = @_;
-
- $itemtype = C4::Koha::getitemtypeinfo( $itemtype );
- return $itemtype->{translated_description};
-
+ return Koha::ItemTypes->find( $itemtype )->translated_description;
}
sub Get {
use Koha::Acquisition::Booksellers;
use Koha::DateUtils qw( dt_from_string );
+use Koha::ItemTypes;
my $input = new CGI;
$descriptions = Koha::AuthorisedValues->get_description_by_koha_field({frameworkcode => $fw, kohafield => 'items.materials', authorised_value => $item->{materials} });
$item->{materials} = $descriptions->{lib} // '';
- my $itemtype = getitemtypeinfo($item->{itype});
- $item->{itemtype} = $itemtype->{description};
+ my $itemtype = Koha::ItemsTypes->find( $item->{itype} );
+ $item->{itemtype} = $itemtype->description; # FIXME Should not it be translated_description?
push @items, $item;
}
$template->param(items => \@items);
use Koha::Libraries;
use Koha::AuthorisedValues;
+use Koha::ItemTypes;
my $cgi = new CGI;
$descriptions = Koha::AuthorisedValues->get_description_by_koha_field({ frameworkcode => $fw, kohafield => 'items.materials', authorised_value => $item->{materials} });
$item->{materials} = $descriptions->{lib} // '';
- my $itemtype = getitemtypeinfo($item->{itype});
- $item->{itemtype} = $itemtype->{description};
+ my $itemtype = Koha::ItemTypes->find( $item->{itype} );
+ $item->{itemtype} = $itemtype->description; # FIXME Should not it be translated_description?
}
my $json_text = to_json( $item, { utf8 => 1 } );
use C4::Koha;
use C4::Reserves;
use Koha::Items;
+use Koha::ItemTypes;
use Koha::Libraries;
use Koha::DateUtils;
use Koha::BiblioFrameworks;
$getransf{'diff'} = $diff;
}
my $gettitle = GetBiblioFromItemNumber( $num->{'itemnumber'} );
- my $itemtypeinfo = getitemtypeinfo( (C4::Context->preference('item-level_itypes')) ? $gettitle->{'itype'} : $gettitle->{'itemtype'} );
+ my $itemtype = Koha::ItemTypes->find( (C4::Context->preference('item-level_itypes')) ? $gettitle->{'itype'} : $gettitle->{'itemtype'} );
$getransf{'datetransfer'} = $num->{'datesent'};
- $getransf{'itemtype'} = $itemtypeinfo ->{'description'};
+ $getransf{'itemtype'} = $itemtype->description; # FIXME Should not it be translated_description?
foreach (qw(title author biblionumber itemnumber barcode homebranch holdingbranch itemcallnumber)) {
$getransf{$_} = $gettitle->{$_};
}
use C4::Koha;
use Koha::DateUtils;
use Koha::BiblioFrameworks;
+use Koha::ItemTypes;
my $input = new CGI;
# fix up item type for display
$gettitle->{'itemtype'} = C4::Context->preference('item-level_itypes') ? $gettitle->{'itype'} : $gettitle->{'itemtype'};
my $getborrower = GetMember(borrowernumber => $num->{'borrowernumber'});
- my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} ); # using the fixed up itype/itemtype
+ my $itemtype = Koha::ItemTypes->find( $gettitle->{'itemtype'} ); # using the fixed up itype/itemtype
$getreserv{'waitingdate'} = $num->{'waitingdate'};
my ( $expire_year, $expire_month, $expire_day ) = split (/-/, $num->{'expirationdate'});
my $calcDate = Date_to_Days( $expire_year, $expire_month, $expire_day );
- $getreserv{'itemtype'} = $itemtypeinfo->{'description'};
+ $getreserv{'itemtype'} = $itemtype->description; # FIXME Should not it be translated_description?
$getreserv{'title'} = $gettitle->{'title'};
$getreserv{'subtitle'} = GetRecordValue('subtitle', GetMarcBiblio($gettitle->{'biblionumber'}), GetFrameworkCode($gettitle->{'biblionumber'}));
$getreserv{'biblionumber'} = $gettitle->{'biblionumber'};
use C4::Auth;
use C4::Output;
use C4::Members;
-use C4::Koha qw( getitemtypeinfo );
use C4::Circulation qw( GetIssuingCharges );
use C4::Reserves;
use C4::Items;
use Koha::Holds;
+use Koha::ItemTypes;
my $input = CGI->new;
my $borrowernumber = $input->param('borrowernumber');
my ( $charge, $itemtype ) =
GetIssuingCharges( $issue->{itemnumber}, $borrowernumber );
- my $itemtypeinfo = getitemtypeinfo($itemtype);
- $row{'itemtype_description'} = $itemtypeinfo->{description};
+ my $itemtype = Koha::ItemTypes->find( $itemtype );
+ $row{'itemtype_description'} = $itemtype->description; #FIXME Should not it be translated_description
$row{'charge'} = sprintf( "%.2f", $charge );
use C4::Output;
use CGI qw ( -utf8 );
use C4::Biblio;
-use C4::Koha; # use getitemtypeinfo
my $query = new CGI;
use C4::SocialData;
use C4::External::OverDrive;
+use Koha::ItemTypes;
use Koha::LibraryCategories;
use Koha::Ratings;
use Koha::Virtualshelves;
# add translated_description to itemtypes
foreach my $itemtype ( keys %{$itemtypes} ) {
# Itemtypes search categories don't have (yet) translated descriptions, they are auth values (and could still have no descriptions too BZ 18400)
- my $translated_description = getitemtypeinfo( $itemtype, 'opac' )->{translated_description};
+ my $translated_description = Koha::ItemTypes->find( $itemtype )->translated_description;
$itemtypes->{$itemtype}->{translated_description} = $translated_description || $itemtypes->{$itemtype}->{description} || q{};
}
use C4::XSLT;
use Koha::Biblioitems;
+use Koha::ItemTypes;
use Koha::Virtualshelves;
use Koha::RecordProcessor;
my $marcflavour = C4::Context->preference("marcflavour");
my $itemtype = Koha::Biblioitems->search({ biblionumber => $content->biblionumber })->next->itemtype;
- my $itemtypeinfo = getitemtypeinfo( $itemtype, 'opac' );
- $this_item->{imageurl} = $itemtypeinfo->{imageurl};
- $this_item->{description} = $itemtypeinfo->{description};
- $this_item->{notforloan} = $itemtypeinfo->{notforloan};
+ $itemtype = Koha::ItemTypes->find( $itemtype );
+ $this_item->{imageurl} = C4::Koha::getitemtypeimagelocation( 'opac', $itemtype->imageurl );
+ $this_item->{description} = $itemtype->description; #FIXME Should not it be translated_description?
+ $this_item->{notforloan} = $itemtype->notforloan;
$this_item->{'coins'} = GetCOinSBiblio($record);
$this_item->{'subtitle'} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $biblionumber ) );
$this_item->{'normalized_upc'} = GetNormalizedUPC( $record, $marcflavour );
use C4::Output;
use CGI qw ( -utf8 );
use C4::Biblio;
-use C4::Koha; # use getitemtypeinfo
my $query = new CGI;
use Koha::AuthorisedValues;
use Koha::DateUtils;
+use Koha::ItemTypes;
my $input = new CGI;
my ( $renewals_count, $renewals_allowed, $renewals_remaining ) =
GetRenewCount( $c->{borrowernumber}, $c->{itemnumber} );
- my $itemtype = C4::Koha::getitemtypeinfo( $item_level_itypes ? $c->{itype} : $c->{itemtype} );
+ my $itemtype = Koha::ItemTypes->find( $item_level_itypes ? $c->{itype} : $c->{itemtype} );
my $location;
if ( $c->{location} ) {
my $av = Koha::AuthorisedValues->search({ category => 'LOC', authorised_value => $c->{location} });
author => $c->{author},
barcode => $c->{barcode},
itemtype => $item_level_itypes ? $c->{itype} : $c->{itemtype},
- itemtype_description => $itemtype->{translated_description},
+ itemtype_description => $itemtype->translated_description,
location => $location,
homebranch => $c->{homebranch},
itemnotes => $c->{itemnotes},
use Koha::DateUtils;
use Koha::Holds;
+use Koha::ItemTypes;
use Koha::Libraries;
my $input = new CGI;
my $itemtype_limit;
if ( $h->itemtype ) {
- my $itemtype = C4::Koha::getitemtypeinfo( $h->itemtype );
- $itemtype_limit = $itemtype->{translated_description};
+ my $itemtype = Koha::ItemTypes->find( $h->itemtype );
+ $itemtype_limit = $itemtype->translated_description;
}
my $libraries = Koha::Libraries->search({}, { order_by => ['branchname'] })->unblessed;
use Modern::Perl;
use DateTime::Format::MySQL;
-use Test::More tests => 7;
+use Test::More tests => 6;
use t::lib::TestBuilder;
};
-subtest 'Itemtype info Tests' => sub {
- like ( getitemtypeinfo( $itype_1->{itemtype} )->{'imageurl'}, qr/intranet-tmpl/, 'getitemtypeinfo on unspecified interface returns intranet imageurl (legacy behavior)' );
- like ( getitemtypeinfo( $itype_1->{itemtype}, 'intranet')->{'imageurl'}, qr/intranet-tmpl/, 'getitemtypeinfo on "intranet" interface returns intranet imageurl' );
- like ( getitemtypeinfo( $itype_1->{itemtype}, 'opac')->{'imageurl'}, qr/opac-tmpl/, 'getitemtypeinfo on "opac" interface returns opac imageurl' );
-};
-
### test for C4::Koha->GetDailyQuote()
SKIP:
{
use Koha::Biblios;
use Koha::Biblioitems;
+use Koha::ItemTypes;
use Koha::CsvProfiles;
use Koha::Virtualshelves;
my $marcflavour = C4::Context->preference("marcflavour");
my $itemtype = Koha::Biblioitems->search({ biblionumber => $content->biblionumber })->next->itemtype;
- my $itemtypeinfo = getitemtypeinfo( $itemtype, 'intranet' );
+ $itemtype = Koha::ItemTypes->find( $itemtype );
my $biblio = Koha::Biblios->find( $content->biblionumber );
$this_item->{title} = $biblio->title;
$this_item->{author} = $biblio->author;
$this_item->{dateadded} = $content->dateadded;
- $this_item->{imageurl} = $itemtypeinfo->{imageurl};
- $this_item->{description} = $itemtypeinfo->{description};
- $this_item->{notforloan} = $itemtypeinfo->{notforloan};
+ $this_item->{imageurl} = C4::Koha::getitemtypeimagelocation( 'intranet', $itemtype->imageurl );
+ $this_item->{description} = $itemtype->description; #FIXME Should not it be translated_description
+ $this_item->{notforloan} = $itemtype->notforloan;
$this_item->{'coins'} = GetCOinSBiblio($record);
$this_item->{'subtitle'} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $biblionumber ) );
$this_item->{'normalized_upc'} = GetNormalizedUPC( $record, $marcflavour );