Attachment #52927 for bug #14757

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





use base qw(Koha::Objects);

sub new {
    my ( $self, %args ) = @_;

    $self = $self->SUPER::new(@_);

    foreach my $key ( keys %args ) {
        $self->{$key} = $args{$key};
    }

    return $self;
}

=head2 AddModifications

Koha::Patron::Modifications->AddModifications( $data );
- 

Return to bug 14757

Lines 29-46 use C4::Debug; Link Here

(-)a/Koha/Patron/Modifications.pm (-13 lines)
29		29
30	use base qw(Koha::Objects);	30	use base qw(Koha::Objects);
31		31
32	sub new {
33	my ( $self, %args ) = @_;
34
35	$self = $self->SUPER::new(@_);
36
37	foreach my $key ( keys %args ) {
38	$self->{$key} = $args{$key};
39	}
40
41	return $self;
42	}
43
44	=head2 AddModifications	32	=head2 AddModifications
45		33
46	Koha::Patron::Modifications->AddModifications( $data );	34	Koha::Patron::Modifications->AddModifications( $data );
47	-