|
Lines 106-113
sub _new_from_dbic {
Link Here
|
| 106 |
croak( "DBIC result _type " . ref( $self->{_result} ) . " isn't of the _type " . $class->_type() ) |
106 |
croak( "DBIC result _type " . ref( $self->{_result} ) . " isn't of the _type " . $class->_type() ) |
| 107 |
unless ref( $self->{_result} ) eq "Koha::Schema::Result::" . $class->_type(); |
107 |
unless ref( $self->{_result} ) eq "Koha::Schema::Result::" . $class->_type(); |
| 108 |
|
108 |
|
| 109 |
eval "require Koha::ObjectHooks"; |
109 |
use Koha::ObjectHooks; |
| 110 |
|
110 |
my $ok = Koha::ObjectHooks->new(); |
|
|
111 |
my @plugins = $ok->plugins(); |
| 112 |
foreach my $plugin (@plugins) { |
| 113 |
$plugin->run(); |
| 114 |
} |
| 115 |
|
| 111 |
bless( $self, $class ); |
116 |
bless( $self, $class ); |
| 112 |
} |
117 |
} |
| 113 |
|
118 |
|