|
Lines 29-46
use C4::Debug;
Link Here
|
| 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 |
- |
|
|