Lines 143-149
that we do not consider to be metadata
Link Here
|
143 |
|
143 |
|
144 |
sub metadata { |
144 |
sub metadata { |
145 |
my ( $self, $request ) = @_; |
145 |
my ( $self, $request ) = @_; |
146 |
my $attrs = $request->illrequestattributes; |
146 |
my $attrs = $request->extended_attributes; |
147 |
my $metadata = {}; |
147 |
my $metadata = {}; |
148 |
my @ignore = ( 'requested_partners', 'type', 'type_disclaimer_value', 'type_disclaimer_date' ); |
148 |
my @ignore = ( 'requested_partners', 'type', 'type_disclaimer_value', 'type_disclaimer_date' ); |
149 |
my $core_fields = _get_core_fields(); |
149 |
my $core_fields = _get_core_fields(); |
Lines 355-361
sub edititem {
Link Here
|
355 |
my $stage = $other->{stage}; |
355 |
my $stage = $other->{stage}; |
356 |
if ( !$stage || $stage eq 'init' ) { |
356 |
if ( !$stage || $stage eq 'init' ) { |
357 |
|
357 |
|
358 |
my $attrs = $params->{request}->illrequestattributes->unblessed; |
358 |
my $attrs = $params->{request}->extended_attributes->unblessed; |
359 |
|
359 |
|
360 |
# We need to identify which parameters are custom, and pass them |
360 |
# We need to identify which parameters are custom, and pass them |
361 |
# to the template in a predefined form |
361 |
# to the template in a predefined form |
Lines 696-702
sub migrate {
Link Here
|
696 |
|
696 |
|
697 |
my @default_attributes = (qw/title type author year volume isbn issn article_title article_author pages/); |
697 |
my @default_attributes = (qw/title type author year volume isbn issn article_title article_author pages/); |
698 |
my $original_attributes = |
698 |
my $original_attributes = |
699 |
$original_request->illrequestattributes->search( { type => { '-in' => \@default_attributes } } ); |
699 |
$original_request->extended_attributes->search( { type => { '-in' => \@default_attributes } } ); |
700 |
|
700 |
|
701 |
my $request_details = |
701 |
my $request_details = |
702 |
{ map { $_->type => $_->value } ( $original_attributes->as_list ) }; |
702 |
{ map { $_->type => $_->value } ( $original_attributes->as_list ) }; |
Lines 727-733
sub migrate {
Link Here
|
727 |
# Cleanup any outstanding work, close the request. |
727 |
# Cleanup any outstanding work, close the request. |
728 |
elsif ( $stage eq 'emigrate' ) { |
728 |
elsif ( $stage eq 'emigrate' ) { |
729 |
my $new_request = $params->{request}; |
729 |
my $new_request = $params->{request}; |
730 |
my $from_id = $new_request->illrequestattributes->find( { type => 'migrated_from' } )->value; |
730 |
my $from_id = $new_request->extended_attributes->find( { type => 'migrated_from' } )->value; |
731 |
my $request = Koha::ILL::Requests->find($from_id); |
731 |
my $request = Koha::ILL::Requests->find($from_id); |
732 |
|
732 |
|
733 |
# Just cancel the original request now it's been migrated away |
733 |
# Just cancel the original request now it's been migrated away |
734 |
- |
|
|