@@ -, +, @@ --- C4/Branch.pm | 75 -------- C4/HoldsQueue.pm | 1 - C4/Items.pm | 1 - C4/Koha.pm | 1 - C4/Letters.pm | 1 - C4/Utils/DataTables/Members.pm | 1 - C4/Utils/DataTables/VirtualShelves.pm | 1 - C4/XSLT.pm | 1 - acqui/acqui-home.pl | 1 - acqui/histsearch.pl | 1 - admin/smart-rules.pl | 1 - catalogue/moredetail.pl | 1 - cataloguing/linkitem.pl | 1 - cataloguing/moveitem.pl | 1 - .../value_builder/marc21_linking_section.pl | 1 - circ/branchoverdues.pl | 1 - circ/overdue.pl | 1 - debian/templates/plack.psgi | 1 - members/boraccount.pl | 1 - members/files.pl | 1 - members/mancredit.pl | 1 - members/maninvoice.pl | 1 - members/member-flags.pl | 1 - members/member-password.pl | 1 - members/member.pl | 1 - members/members-update-do.pl | 1 - members/members-update.pl | 1 - members/printfeercpt.pl | 1 - members/printinvoice.pl | 1 - members/purchase-suggestions.pl | 1 - members/statistics.pl | 1 - misc/plack/koha.psgi | 1 - offline_circ/list.pl | 1 - opac/opac-detail.pl | 1 - opac/opac-discharge.pl | 1 - opac/opac-messaging.pl | 1 - opac/opac-topissues.pl | 1 - serials/routing-preview.pl | 1 - serials/serials-home.pl | 1 - t/Branch.t | 14 -- t/db_dependent/Branch.t | 196 --------------------- t/db_dependent/Circulation.t | 1 - t/db_dependent/Circulation/TooMany.t | 1 - t/db_dependent/Circulation_transfers.t | 1 - t/db_dependent/Holds.t | 1 - t/db_dependent/Holds/LocalHoldsPriority.t | 1 - t/db_dependent/Holds/RevertWaitingStatus.t | 1 - t/db_dependent/HoldsQueue.t | 1 - t/db_dependent/Holidays.t | 1 - t/db_dependent/Reserves.t | 1 - t/db_dependent/Template/Plugin/Categories.t | 1 - tools/batchMod.pl | 1 - tools/viewlog.pl | 1 - 53 files changed, 335 deletions(-) delete mode 100644 C4/Branch.pm delete mode 100755 t/Branch.t delete mode 100644 t/db_dependent/Branch.t --- a/C4/Branch.pm +++ a/C4/Branch.pm @@ -1,75 +0,0 @@ -package C4::Branch; - -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 3 of the License, or -# (at your option) any later version. -# -# Koha is distributed in the hope that it will be useful, but -# WITHOUT ANY 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, see . - - -use strict; -#use warnings; FIXME - Bug 2505 -require Exporter; -use C4::Context; -use Koha::LibraryCategories; - -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); - -BEGIN { - # set the version for version checking - $VERSION = 3.07.00.049; - @ISA = qw(Exporter); - @EXPORT = qw( - &GetBranch - ); - @EXPORT_OK = qw( &onlymine ); -} - -=head1 NAME - -C4::Branch - Koha branch module - -=head1 SYNOPSIS - -use C4::Branch; - -=head1 DESCRIPTION - -The functions in this module deal with branches. - -=head1 FUNCTIONS - -=cut - -=head2 GetBranch - -$branch = GetBranch( $query, $branches ); - -=cut - -sub GetBranch { - my ( $query, $branches ) = @_; # get branch for this query from branches - my $branch = $query->param('branch'); - my %cookie = $query->cookie('userenv'); - ($branch) || ($branch = $cookie{'branchname'}); - ( $branches->{$branch} ) || ( $branch = ( keys %$branches )[0] ); - return $branch; -} - -1; -__END__ - -=head1 AUTHOR - -Koha Development Team - -=cut --- a/C4/HoldsQueue.pm +++ a/C4/HoldsQueue.pm @@ -25,7 +25,6 @@ use warnings; use C4::Context; use C4::Search; use C4::Items; -use C4::Branch; use C4::Circulation; use C4::Members; use C4::Biblio; --- a/C4/Items.pm +++ a/C4/Items.pm @@ -730,7 +730,6 @@ item that has a given branch code. sub CheckItemPreSave { my $item_ref = shift; - require C4::Branch; my %errors = (); --- a/C4/Koha.pm +++ a/C4/Koha.pm @@ -24,7 +24,6 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Context; -use C4::Branch; # Can be removed? use Koha::Cache; use Koha::DateUtils qw(dt_from_string); use Koha::Libraries; --- a/C4/Letters.pm +++ a/C4/Letters.pm @@ -26,7 +26,6 @@ use Mail::Sendmail; use C4::Koha qw(GetAuthorisedValueByCode); use C4::Members; use C4::Members::Attributes qw(GetBorrowerAttributes); -use C4::Branch; use C4::Log; use C4::SMS; use C4::Debug; --- a/C4/Utils/DataTables/Members.pm +++ a/C4/Utils/DataTables/Members.pm @@ -1,7 +1,6 @@ package C4::Utils::DataTables::Members; use Modern::Perl; -use C4::Branch qw/onlymine/; use C4::Context; use C4::Members qw/GetMemberIssuesAndFines/; use C4::Utils::DataTables; --- a/C4/Utils/DataTables/VirtualShelves.pm +++ a/C4/Utils/DataTables/VirtualShelves.pm @@ -1,7 +1,6 @@ package C4::Utils::DataTables::VirtualShelves; use Modern::Perl; -use C4::Branch qw/onlymine/; use C4::Context; use C4::Members qw/GetMemberIssuesAndFines/; use C4::Utils::DataTables; --- a/C4/XSLT.pm +++ a/C4/XSLT.pm @@ -25,7 +25,6 @@ use strict; use warnings; use C4::Context; -use C4::Branch; use C4::Items; use C4::Koha; use C4::Biblio; --- a/acqui/acqui-home.pl +++ a/acqui/acqui-home.pl @@ -35,7 +35,6 @@ use C4::Output; use C4::Acquisition; use C4::Budgets; use C4::Members; -use C4::Branch; use C4::Debug; use C4::Suggestions; --- a/acqui/histsearch.pl +++ a/acqui/histsearch.pl @@ -56,7 +56,6 @@ use C4::Auth; # get_template_and_user use C4::Output; use C4::Acquisition; use C4::Debug; -use C4::Branch; use C4::Koha; use Koha::DateUtils; --- a/admin/smart-rules.pl +++ a/admin/smart-rules.pl @@ -25,7 +25,6 @@ use C4::Output; use C4::Auth; use C4::Koha; use C4::Debug; -use C4::Branch; use Koha::DateUtils; use Koha::Database; use Koha::IssuingRule; --- a/catalogue/moredetail.pl +++ a/catalogue/moredetail.pl @@ -25,7 +25,6 @@ use C4::Koha; use CGI qw ( -utf8 ); use C4::Biblio; use C4::Items; -use C4::Branch; use C4::Acquisition; use C4::Output; use C4::Auth; --- a/cataloguing/linkitem.pl +++ a/cataloguing/linkitem.pl @@ -27,7 +27,6 @@ use C4::Biblio; use C4::Items; use C4::Context; use C4::Koha; -use C4::Branch; my $query = CGI->new; --- a/cataloguing/moveitem.pl +++ a/cataloguing/moveitem.pl @@ -28,7 +28,6 @@ use C4::Biblio; use C4::Items; use C4::Context; use C4::Koha; -use C4::Branch; use C4::ClassSource; use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/; --- a/cataloguing/value_builder/marc21_linking_section.pl +++ a/cataloguing/value_builder/marc21_linking_section.pl @@ -31,7 +31,6 @@ use C4::Output; use C4::Biblio; use C4::Koha; use MARC::Record; -use C4::Branch; use Koha::ItemTypes; --- a/circ/branchoverdues.pl +++ a/circ/branchoverdues.pl @@ -26,7 +26,6 @@ use C4::Overdues; # AddNotifyLine use C4::Biblio; use C4::Koha; use C4::Debug; -use C4::Branch; use Koha::DateUtils; use Data::Dumper; --- a/circ/overdue.pl +++ a/circ/overdue.pl @@ -24,7 +24,6 @@ use C4::Context; use C4::Output; use CGI qw(-oldstyle_urls -utf8); use C4::Auth; -use C4::Branch; use C4::Debug; use Text::CSV_XS; use Koha::DateUtils; --- a/debian/templates/plack.psgi +++ a/debian/templates/plack.psgi @@ -27,7 +27,6 @@ use Plack::App::URLMap; # Pre-load libraries use C4::Boolean; -use C4::Branch; use C4::Koha; use C4::Languages; use C4::Letters; --- a/members/boraccount.pl +++ a/members/boraccount.pl @@ -29,7 +29,6 @@ use C4::Auth; use C4::Output; use CGI qw ( -utf8 ); use C4::Members; -use C4::Branch; use C4::Accounts; use C4::Members::Attributes qw(GetBorrowerAttributes); --- a/members/files.pl +++ a/members/files.pl @@ -23,7 +23,6 @@ use warnings; use CGI qw ( -utf8 ); use C4::Auth; -use C4::Branch; use C4::Output; use C4::Members; use C4::Members::Attributes qw(GetBorrowerAttributes); --- a/members/mancredit.pl +++ a/members/mancredit.pl @@ -30,7 +30,6 @@ use C4::Output; use CGI qw ( -utf8 ); use C4::Members; -use C4::Branch; use C4::Accounts; use C4::Items; use C4::Members::Attributes qw(GetBorrowerAttributes); --- a/members/maninvoice.pl +++ a/members/maninvoice.pl @@ -31,7 +31,6 @@ use CGI qw ( -utf8 ); use C4::Members; use C4::Accounts; use C4::Items; -use C4::Branch; use C4::Members::Attributes qw(GetBorrowerAttributes); use Koha::Patron::Categories; --- a/members/member-flags.pl +++ a/members/member-flags.pl @@ -12,7 +12,6 @@ use C4::Output; use C4::Auth qw(:DEFAULT :EditPermissions); use C4::Context; use C4::Members; -use C4::Branch; use C4::Members::Attributes qw(GetBorrowerAttributes); #use C4::Acquisitions; --- a/members/member-password.pl +++ a/members/member-password.pl @@ -12,7 +12,6 @@ use Koha::AuthUtils; use C4::Output; use C4::Context; use C4::Members; -use C4::Branch; use C4::Circulation; use CGI qw ( -utf8 ); use C4::Members::Attributes qw(GetBorrowerAttributes); --- a/members/member.pl +++ a/members/member.pl @@ -27,7 +27,6 @@ use Modern::Perl; use C4::Auth; use C4::Output; use CGI qw( -utf8 ); -use C4::Branch; use C4::Members qw( GetMember ); use Koha::DateUtils; use Koha::List::Patron; --- a/members/members-update-do.pl +++ a/members/members-update-do.pl @@ -24,7 +24,6 @@ use C4::Auth; use C4::Output; use C4::Context; use C4::Members; -use C4::Branch; use Koha::Borrower::Modifications; my $query = new CGI; --- a/members/members-update.pl +++ a/members/members-update.pl @@ -24,7 +24,6 @@ use C4::Auth; use C4::Output; use C4::Context; use C4::Members; -use C4::Branch; use Koha::Borrower::Modifications; my $query = new CGI; --- a/members/printfeercpt.pl +++ a/members/printfeercpt.pl @@ -29,7 +29,6 @@ use C4::Auth; use C4::Output; use CGI qw ( -utf8 ); use C4::Members; -use C4::Branch; use C4::Accounts; use Koha::DateUtils; use Koha::Patron::Categories; --- a/members/printinvoice.pl +++ a/members/printinvoice.pl @@ -28,7 +28,6 @@ use C4::Output; use Koha::DateUtils; use CGI qw ( -utf8 ); use C4::Members; -use C4::Branch; use C4::Accounts; use Koha::Patron::Categories; --- a/members/purchase-suggestions.pl +++ a/members/purchase-suggestions.pl @@ -23,7 +23,6 @@ use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; use C4::Output; -use C4::Branch; use C4::Members; use C4::Members::Attributes qw(GetBorrowerAttributes); use C4::Suggestions; --- a/members/statistics.pl +++ a/members/statistics.pl @@ -26,7 +26,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; -use C4::Branch; use C4::Context; use C4::Members; use C4::Members::Statistics; --- a/misc/plack/koha.psgi +++ a/misc/plack/koha.psgi @@ -42,7 +42,6 @@ use C4::Boolean; use C4::Letters; use C4::Koha; use C4::XSLT; -use C4::Branch; use Koha::DateUtils; use Koha::Patron::Categories; =for preload --- a/offline_circ/list.pl +++ a/offline_circ/list.pl @@ -27,7 +27,6 @@ use C4::Auth; use C4::Koha; use C4::Context; use C4::Circulation; -use C4::Branch; use C4::Members; use C4::Biblio; --- a/opac/opac-detail.pl +++ a/opac/opac-detail.pl @@ -26,7 +26,6 @@ use warnings; use CGI qw ( -utf8 ); use C4::Acquisition qw( SearchOrders ); use C4::Auth qw(:DEFAULT get_session); -use C4::Branch; use C4::Koha; use C4::Serials; #uses getsubscriptionfrom biblionumber use C4::Output; --- a/opac/opac-discharge.pl +++ a/opac/opac-discharge.pl @@ -26,7 +26,6 @@ use C4::Context; use C4::Output; use C4::Log; use C4::Debug; -use C4::Branch; use C4::Members; use Koha::Borrower::Discharge; use Koha::DateUtils; --- a/opac/opac-messaging.pl +++ a/opac/opac-messaging.pl @@ -29,7 +29,6 @@ use C4::Circulation; use C4::Output; use C4::Members; use C4::Members::Messaging; -use C4::Branch; use C4::Form::MessagingPreferences; my $query = CGI->new(); --- a/opac/opac-topissues.pl +++ a/opac/opac-topissues.pl @@ -29,7 +29,6 @@ use C4::Languages; use C4::Search; use C4::Output; use C4::Koha; -use C4::Branch; use C4::Circulation; use Date::Manip; --- a/serials/routing-preview.pl +++ a/serials/routing-preview.pl @@ -33,7 +33,6 @@ use C4::Biblio; use C4::Items; use C4::Serials; use URI::Escape; -use C4::Branch; use Koha::Libraries; my $query = new CGI; --- a/serials/serials-home.pl +++ a/serials/serials-home.pl @@ -31,7 +31,6 @@ this script is the main page for serials/ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; -use C4::Branch; use C4::Context; use C4::Output; use C4::Serials; --- a/t/Branch.t +++ a/t/Branch.t @@ -1,14 +0,0 @@ -#!/usr/bin/perl -# -# This Koha test module is a stub! -# Add more tests here!!! - -use strict; -use warnings; - -use Test::More tests => 1; - -BEGIN { - use_ok('C4::Branch'); -} - --- a/t/db_dependent/Branch.t +++ a/t/db_dependent/Branch.t @@ -1,196 +0,0 @@ -#!/usr/bin/perl - -# Copyright 2013 Equinox Software, Inc. -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 3 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# 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, see . - -use Modern::Perl; - -use C4::Context; -use Data::Dumper; - -use Test::More tests => 16; - -use C4::Branch; -use Koha::Database; -use Koha::Library; -use Koha::Libraries; -use Koha::LibraryCategories; - -BEGIN { - use FindBin; - use lib $FindBin::Bin; - use_ok('C4::Branch'); -} -can_ok( - 'C4::Branch', qw( - GetBranch - GetBranches - ) -); - -my $schema = Koha::Database->new->schema; -$schema->storage->txn_begin; - -my $dbh = C4::Context->dbh; - -# clear the slate -$dbh->do('DELETE FROM branchcategories'); - -# Start test - -my $count = Koha::Libraries->search->count; -like( $count, '/^\d+$/', "the count is a number" ); - -#add 2 branches -my $b1 = { - branchcode => 'BRA', - branchname => 'BranchA', - branchaddress1 => 'adr1A', - branchaddress2 => 'adr2A', - branchaddress3 => 'adr3A', - branchzip => 'zipA', - branchcity => 'cityA', - branchstate => 'stateA', - branchcountry => 'countryA', - branchphone => 'phoneA', - branchfax => 'faxA', - branchemail => 'emailA', - branchreplyto => 'emailreply', - branchreturnpath => 'branchreturn', - branchurl => 'urlA', - branchip => 'ipA', - branchprinter => undef, - branchnotes => 'noteA', - opac_info => 'opacA', - issuing => undef, -}; -my $b2 = { - branchcode => 'BRB', - branchname => 'BranchB', - branchaddress1 => 'adr1B', - branchaddress2 => 'adr2B', - branchaddress3 => 'adr3B', - branchzip => 'zipB', - branchcity => 'cityB', - branchstate => 'stateB', - branchcountry => 'countryB', - branchphone => 'phoneB', - branchfax => 'faxB', - branchemail => 'emailB', - branchreplyto => 'emailreply', - branchreturnpath => 'branchreturn', - branchurl => 'urlB', - branchip => 'ipB', - branchprinter => undef, - branchnotes => 'noteB', - opac_info => 'opacB', - issuing => undef, -}; -Koha::Library->new($b1)->store; -Koha::Library->new($b2)->store; - -is( Koha::Libraries->search->count, $count + 2, "two branches added" ); - -is( Koha::Libraries->find( $b2->{branchcode} )->delete, 1, "One row affected" ); -is( Koha::Libraries->search->count, $count + 1, "branch BRB deleted" ); - -#Test Getbranches -my $branches = GetBranches(); -is( scalar( keys %$branches ), - Koha::Libraries->search->count, "GetBranches returns the right number of branches" ); - -#Test modify a library - -$b1 = { - branchcode => 'BRA', - branchname => 'BranchA modified', - branchaddress1 => 'adr1A modified', - branchaddress2 => 'adr2A modified', - branchaddress3 => 'adr3A modified', - branchzip => 'zipA modified', - branchcity => 'cityA modified', - branchstate => 'stateA modified', - branchcountry => 'countryA modified', - branchphone => 'phoneA modified', - branchfax => 'faxA modified', - branchemail => 'emailA modified', - branchreplyto => 'emailreply modified', - branchreturnpath => 'branchreturn modified', - branchurl => 'urlA modified', - branchip => 'ipA modified', - branchprinter => undef, - branchnotes => 'notesA modified', - opac_info => 'opacA modified', - issuing => undef, -}; - -Koha::Libraries->find($b1->{branchcode})->set($b1)->store; -is( Koha::Libraries->search->count, $count + 1, - "A branch has been modified, no new branch added" ); - -#Test categories -my $count_cat = Koha::LibraryCategories->search->count; - -my $cat1 = { - categorycode => 'CAT1', - categoryname => 'catname1', - codedescription => 'catdesc1', - categorytype => 'cattype1', - show_in_pulldown => 1 -}; -my $cat2 = { - categorycode => 'CAT2', - categoryname => 'catname2', - categorytype => 'catype2', - codedescription => 'catdesc2', - show_in_pulldown => 1 -}; - -my %new_category = ( - categorycode => 'LIBCATCODE', - categoryname => 'library category name', - codedescription => 'library category code description', - categorytype => 'searchdomain', - show_in_pulldown => 1, -); - -Koha::LibraryCategory->new(\%new_category)->store; -Koha::LibraryCategory->new($cat1)->store; -Koha::LibraryCategory->new($cat2)->store; - -my $categories = Koha::LibraryCategories->search; -is( $categories->count, $count_cat + 3, "Two categories added" ); - -my $del = Koha::LibraryCategories->find( $cat2->{categorycode} )->delete; -is( $del, 1, 'One row affected' ); - -is( Koha::LibraryCategories->search->count, $count_cat + 2, "Category CAT 2 deleted" ); - -my $b2_stored = Koha::Library->new($b2)->store; -my $CAT1 = Koha::LibraryCategories->find('CAT1'); -$b2_stored->add_to_categories([$CAT1]); -is( Koha::Libraries->search->count, $count + 2, 'BRB added' ); - -my $b1info = Koha::Libraries->find( $b1->{branchcode} ); -is_deeply( $b1info->get_categories->count, 0, 'BRA has no categories' ); - -my $b2info = Koha::Libraries->find( $b2->{branchcode} ); -is_deeply( $b2info->get_categories->count, 1, 'BRB has the category CAT1' ); - -Koha::LibraryCategory->new($cat2)->store; -is( Koha::LibraryCategories->search->count, $count_cat + 3, "Two categories added" ); - -$schema->storage->txn_rollback; --- a/t/db_dependent/Circulation.t +++ a/t/db_dependent/Circulation.t @@ -19,7 +19,6 @@ use Modern::Perl; use DateTime; use C4::Biblio; -use C4::Branch; use C4::Items; use C4::Members; use C4::Reserves; --- a/t/db_dependent/Circulation/TooMany.t +++ a/t/db_dependent/Circulation/TooMany.t @@ -20,7 +20,6 @@ use C4::Context; use C4::Biblio; use C4::Members; -use C4::Branch; use C4::Circulation; use C4::Items; use C4::Context; --- a/t/db_dependent/Circulation_transfers.t +++ a/t/db_dependent/Circulation_transfers.t @@ -4,7 +4,6 @@ use Modern::Perl; use C4::Biblio; use C4::Context; use C4::Items; -use C4::Branch; use C4::Circulation; use Koha::Database; use Koha::DateUtils; --- a/t/db_dependent/Holds.t +++ a/t/db_dependent/Holds.t @@ -6,7 +6,6 @@ use t::lib::Mocks; use t::lib::TestBuilder; use C4::Context; -use C4::Branch; use Test::More tests => 60; use MARC::Record; --- a/t/db_dependent/Holds/LocalHoldsPriority.t +++ a/t/db_dependent/Holds/LocalHoldsPriority.t @@ -4,7 +4,6 @@ use Modern::Perl; use t::lib::Mocks; use C4::Context; -use C4::Branch; use Test::More tests => 6; use MARC::Record; --- a/t/db_dependent/Holds/RevertWaitingStatus.t +++ a/t/db_dependent/Holds/RevertWaitingStatus.t @@ -4,7 +4,6 @@ use Modern::Perl; use t::lib::Mocks; use C4::Context; -use C4::Branch; use Test::More tests => 3; use MARC::Record; --- a/t/db_dependent/HoldsQueue.t +++ a/t/db_dependent/HoldsQueue.t @@ -14,7 +14,6 @@ use Data::Dumper; use Test::More tests => 23; -use C4::Branch; use C4::Members; use Koha::Database; --- a/t/db_dependent/Holidays.t +++ a/t/db_dependent/Holidays.t @@ -21,7 +21,6 @@ use Test::More tests => 10; use t::lib::TestBuilder; use C4::Context; -use C4::Branch; use Koha::Database; use Koha::DateUtils; --- a/t/db_dependent/Reserves.t +++ a/t/db_dependent/Reserves.t @@ -23,7 +23,6 @@ use Test::Warn; use MARC::Record; use DateTime::Duration; -use C4::Branch; use C4::Biblio; use C4::Items; use C4::Members; --- a/t/db_dependent/Template/Plugin/Categories.t +++ a/t/db_dependent/Template/Plugin/Categories.t @@ -3,7 +3,6 @@ use Modern::Perl; use Test::More tests => 5; use C4::Context; -use C4::Branch; use Koha::Template::Plugin::Categories; my $dbh = C4::Context->dbh; --- a/tools/batchMod.pl +++ a/tools/batchMod.pl @@ -28,7 +28,6 @@ use C4::Items; use C4::Circulation; use C4::Context; use C4::Koha; # XXX subfield_is_koha_internal_p -use C4::Branch; # XXX subfield_is_koha_internal_p use C4::BackgroundJob; use C4::ClassSource; use C4::Debug; --- a/tools/viewlog.pl +++ a/tools/viewlog.pl @@ -28,7 +28,6 @@ use C4::Koha; use C4::Output; use C4::Log; use C4::Items; -use C4::Branch; use C4::Debug; use C4::Search; # enabled_staff_search_views --