View | Details | Raw Unified | Return to bug 31517
Collapse All | Expand All

(-)a/C4/Tags.pm (-8 / +1 lines)
Lines 36-42 our (@ISA, @EXPORT_OK); Link Here
36
BEGIN {
36
BEGIN {
37
    @ISA       = qw(Exporter);
37
    @ISA       = qw(Exporter);
38
    @EXPORT_OK = qw(
38
    @EXPORT_OK = qw(
39
      get_tag get_tags get_tag_rows
39
      get_tags get_tag_rows
40
      add_tags
40
      add_tags
41
      add_tag
41
      add_tag
42
      add_tag_approval
42
      add_tag_approval
Lines 438-450 sub add_tag_index { Link Here
438
	return $sth->rows;
438
	return $sth->rows;
439
}
439
}
440
440
441
sub get_tag {		# by tag_id
442
	(@_) or return;
443
    my $sth = C4::Context->dbh->prepare(TAG_SELECT . "WHERE tag_id = ?");
444
	$sth->execute(shift);
445
	return $sth->fetchrow_hashref;
446
}
447
448
sub increment_weights {
441
sub increment_weights {
449
	increment_weight(@_);
442
	increment_weight(@_);
450
	increment_weight_total(shift);
443
	increment_weight_total(shift);
(-)a/opac/opac-search.pl (-1 / +1 lines)
Lines 50-56 use C4::Search qw( searchResults ); Link Here
50
use C4::Search::History;
50
use C4::Search::History;
51
use C4::Biblio qw( GetXmlBiblio CountItemsIssued );
51
use C4::Biblio qw( GetXmlBiblio CountItemsIssued );
52
use C4::Koha qw( GetItemTypesCategorized getitemtypeimagelocation GetAuthorisedValues );
52
use C4::Koha qw( GetItemTypesCategorized getitemtypeimagelocation GetAuthorisedValues );
53
use C4::Tags qw( get_tags get_tag );
53
use C4::Tags qw( get_tags );
54
use C4::SocialData;
54
use C4::SocialData;
55
use C4::External::OverDrive;
55
use C4::External::OverDrive;
56
use C4::External::BakerTaylor qw( image_url link_url );
56
use C4::External::BakerTaylor qw( image_url link_url );
(-)a/t/db_dependent/Tags.t (-2 / +1 lines)
Lines 30-36 use Koha::Tags; Link Here
30
use Koha::Tags::Approvals;
30
use Koha::Tags::Approvals;
31
use Koha::Tags::Indexes;
31
use Koha::Tags::Indexes;
32
32
33
use C4::Tags qw( add_tag_approval add_tag add_tag_index get_tag_rows get_tag stratify_tags );
33
use C4::Tags qw( add_tag_approval add_tag add_tag_index get_tag_rows stratify_tags );
34
34
35
# So any output is readable :-D
35
# So any output is readable :-D
36
binmode STDOUT, ':encoding(utf8)';
36
binmode STDOUT, ':encoding(utf8)';
37
- 

Return to bug 31517