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

(-)a/Koha/DataObject/Authority.pm (-3 / +5 lines)
Lines 36-45 use C4::Context; Link Here
36
use MARC::Record;
36
use MARC::Record;
37
use MARC::File::XML;
37
use MARC::File::XML;
38
use C4::Charset;
38
use C4::Charset;
39
use Class::Accessor "antlers";
39
40
40
use base qw(Class::Accessor);
41
has authid => ( is => 'rw' );
41
42
has authtype => ( is => 'rw' );
42
__PACKAGE__->mk_accessors(qw( authid authtype record marcflavour ));
43
has record => ( is => 'rw' );
44
has marcflavour => ( is => 'rw' );
43
45
44
=head2 new
46
=head2 new
45
47
(-)a/Koha/RecordProcessor.pm (-3 / +5 lines)
Lines 58-69 clone it I<prior> to passing it off to the RecordProcessor. Link Here
58
=cut
58
=cut
59
59
60
use Modern::Perl;
60
use Modern::Perl;
61
use Class::Accessor "antlers";
61
use Module::Load::Conditional qw(can_load);
62
use Module::Load::Conditional qw(can_load);
62
use Module::Pluggable::Object;
63
use Module::Pluggable::Object;
63
64
64
use base qw(Class::Accessor);
65
has schema => ( is => "rw" );
65
66
has filters => ( is => "rw" );
66
__PACKAGE__->mk_accessors(qw( schema filters options record ));
67
has options => ( is => "rw" );
68
has record => ( is => "rw" );
67
69
68
=head2 new
70
=head2 new
69
71
(-)a/Koha/RecordProcessor/Base.pm (-6 / +5 lines)
Lines 59-69 clone it I<prior> to passing it off to the RecordProcessor. Link Here
59
=cut
59
=cut
60
60
61
use Modern::Perl;
61
use Modern::Perl;
62
use Class::Accessor "antlers";
62
63
63
use base qw(Class::Accessor);
64
has name => ( is => "ro" );
65
has version => ( is => "ro" );
66
has params => ( is => "rw" );
64
67
65
__PACKAGE__->mk_ro_accessors(qw( name version ));
66
__PACKAGE__->mk_accessors(qw( params ));
67
our $NAME = 'Base';
68
our $NAME = 'Base';
68
our $VERSION = '1.0';
69
our $VERSION = '1.0';
69
70
Lines 78-85 Create a new filter; Link Here
78
sub new {
79
sub new {
79
    my $class = shift;
80
    my $class = shift;
80
81
81
    my $self = $class->SUPER::new( { });#name => $class->NAME,
82
    my $self = $class->SUPER::new( { });
82
                                     #version => $class->VERSION });
83
83
84
    bless $self, $class;
84
    bless $self, $class;
85
    return $self;
85
    return $self;
86
- 

Return to bug 7417