|
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 |
- |
|
|