Attachment #122897 for bug #20447

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





use Carp;

use C4::Charset qw( SetUTF8Flag );
use C4::Log qw( logaction );

use Koha::Database;
use Koha::DateUtils qw(dt_from_string);


=cut

=head3 biblio

  my $biblio = $holding->biblio();

Returns the holding biblio for this record.

=cut

sub biblio {
    my ($self) = @_;

    my $biblio = $self->_result->biblionumber();
    return unless $biblio;
    return Koha::Library->_new_from_dbic($biblio);
}

=head3 holding_branch

my $branch = $hold->holding_branch();

Lines 23-29 use Modern::Perl; Link Here

(-)a/Koha/Holdings.pm (-1 / +1 lines)
23	use Carp;	23	use Carp;
24		24
25	use C4::Biblio;	25	use C4::Biblio;
26	use C4::Charset; # For SetMarcUnicodeFlag	26	use C4::Charset qw( SetMarcUnicodeFlag );
27	use C4::Context;	27	use C4::Context;
28		28
29	use Koha::Holding;	29	use Koha::Holding;




# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use strict;
#use warnings; FIXME - Bug 2505
use CGI q(-utf8);
use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user haspermission );
use C4::Biblio
  qw( GetMarcFromKohaField GetMarcStructure GetUsedMarcStructure TransformHtmlToMarc );
use C4::Context;
use MARC::Record;
use C4::ClassSource qw( GetClassSources );
use C4::Koha;
use C4::ClassSource;
use C4::ImportBatch;
use C4::Charset;
use Koha::Biblios;
use Koha::BiblioFrameworks;
use Koha::DateUtils qw( dt_from_string );
use C4::Matcher;

use Koha::ItemTypes;
use Koha::Libraries;

use Date::Calc qw(Today);
use MARC::File::USMARC;
use MARC::File::XML;
use URI::Escape qw( uri_escape_utf8 );

if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
    MARC::File::XML->default_record_format('UNIMARC');

Lines 19-28 Link Here

(-)a/cataloguing/value_builder/marc21_field_008_holdings.pl (-2 / +3 lines)
19	# along with Koha; if not, see <http://www.gnu.org/licenses>.	19	# along with Koha; if not, see <http://www.gnu.org/licenses>.
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22	use C4::Auth;	22	use C4::Auth qw( get_template_and_user );
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output;	25
		26	use C4::Output qw( output_html_with_http_headers );
26		27
27	use XML::LibXML;	28	use XML::LibXML;
28	use Koha::Util::FrameworkPlugin qw\|date_entered\|;	29	use Koha::Util::FrameworkPlugin qw\|date_entered\|;

Lines 21-29 Link Here

(-)a/cataloguing/value_builder/marc21_leader_holdings.pl (-3 / +2 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth;	24	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	25	use C4::Context;
26	use C4::Output;	26	use C4::Output qw( output_html_with_http_headers );
27		27
28	my $builder = sub {	28	my $builder = sub {
29	my ( $params ) = @_;	29	my ( $params ) = @_;
30	-

Return to bug 20447

Lines 22-29 use Modern::Perl; Link Here

(-)a/Koha/Holding.pm (-2 / +18 lines)
22		22
23	use Carp;	23	use Carp;
24		24
25	use C4::Charset; # SetUTF8Flag	25	use C4::Charset qw( SetUTF8Flag );
26	use C4::Log; # logaction	26	use C4::Log qw( logaction );
27		27
28	use Koha::Database;	28	use Koha::Database;
29	use Koha::DateUtils qw(dt_from_string);	29	use Koha::DateUtils qw(dt_from_string);
Lines 42-47 Koha::Holding - Koha Holding Object class Link Here
42		42
43	=cut	43	=cut
44		44
		45	=head3 biblio
		46
		47	my $biblio = $holding->biblio();
		48
		49	Returns the holding biblio for this record.
		50
		51	=cut
		52
		53	sub biblio {
		54	my ($self) = @_;
		55
		56	my $biblio = $self->_result->biblionumber();
		57	return unless $biblio;
		58	return Koha::Library->_new_from_dbic($biblio);
		59	}
		60
45	=head3 holding_branch	61	=head3 holding_branch
46		62
47	my $branch = $hold->holding_branch();	63	my $branch = $hold->holding_branch();

Lines 20-45 Link Here

(-)a/cataloguing/addholding.pl (-15 / +8 lines)
20	# You should have received a copy of the GNU General Public License	20	# You should have received a copy of the GNU General Public License
21	# along with Koha; if not, see <http://www.gnu.org/licenses>.	21	# along with Koha; if not, see <http://www.gnu.org/licenses>.
22		22
23	# TODO: refactor to avoid duplication from addbiblio	23	use Modern::Perl;
24		24
25	use strict;
26	#use warnings; FIXME - Bug 2505
27	use CGI q(-utf8);	25	use CGI q(-utf8);
28	use C4::Output;	26	use C4::Output qw( output_html_with_http_headers );
29	use C4::Auth;	27	use C4::Auth qw( get_template_and_user haspermission );
30	use C4::Search;	28	use C4::Biblio
31	use C4::Biblio;	29	qw( GetMarcFromKohaField GetMarcStructure GetUsedMarcStructure TransformHtmlToMarc );
32	use C4::Context;	30	use C4::Context;
33	use MARC::Record;	31	use MARC::Record;
34	use C4::Log;	32	use C4::ClassSource qw( GetClassSources );
35	use C4::Koha;
36	use C4::ClassSource;
37	use C4::ImportBatch;
38	use C4::Charset;
39	use Koha::Biblios;	33	use Koha::Biblios;
40	use Koha::BiblioFrameworks;	34	use Koha::BiblioFrameworks;
41	use Koha::DateUtils;	35	use Koha::DateUtils qw( dt_from_string );
42	use C4::Matcher;
43		36
44	use Koha::ItemTypes;	37	use Koha::ItemTypes;
45	use Koha::Libraries;	38	use Koha::Libraries;
Lines 47-53 use Koha::Libraries; Link Here
47	use Date::Calc qw(Today);	40	use Date::Calc qw(Today);
48	use MARC::File::USMARC;	41	use MARC::File::USMARC;
49	use MARC::File::XML;	42	use MARC::File::XML;
50	use URI::Escape;	43	use URI::Escape qw( uri_escape_utf8 );
51		44
52	if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {	45	if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
53	MARC::File::XML->default_record_format('UNIMARC');	46	MARC::File::XML->default_record_format('UNIMARC');