Lines 2220-2225
sub get_staff_table_actions {
Link Here
|
2220 |
return $ill_table_actions; |
2220 |
return $ill_table_actions; |
2221 |
} |
2221 |
} |
2222 |
|
2222 |
|
|
|
2223 |
=head3 AUTOLOAD |
2224 |
|
2225 |
=cut |
2226 |
|
2227 |
our $AUTOLOAD; |
2228 |
|
2229 |
sub AUTOLOAD { |
2230 |
my ($self) = @_; |
2231 |
|
2232 |
my $name = $AUTOLOAD; |
2233 |
$name =~ s/.*:://; # Remove package name |
2234 |
|
2235 |
if ( $name =~ /^extended_attributes_(\w+)$/ ) { |
2236 |
my $type = $1; |
2237 |
|
2238 |
# Define the method dynamically |
2239 |
no strict 'refs'; |
2240 |
*{$AUTOLOAD} = sub { |
2241 |
my ($self) = @_; |
2242 |
my $relation = 'extended_attributes_' . $type; |
2243 |
my $rs = $self->_result->$relation; |
2244 |
return Koha::ILL::Request::Attributes->_new_from_dbic($rs)->search; |
2245 |
}; |
2246 |
|
2247 |
# Call the newly defined method |
2248 |
return $self->$name(); |
2249 |
} |
2250 |
} |
2251 |
|
2223 |
=head3 _type |
2252 |
=head3 _type |
2224 |
|
2253 |
|
2225 |
=cut |
2254 |
=cut |
2226 |
- |
|
|