|
Lines 677-683
sub migrate {
Link Here
|
| 677 |
$new_request->updated( dt_from_string() ); |
677 |
$new_request->updated( dt_from_string() ); |
| 678 |
$new_request->store; |
678 |
$new_request->store; |
| 679 |
|
679 |
|
| 680 |
my @default_attributes = (qw/title type author year volume isbn issn article_title article_author pages/); |
680 |
my %core_fields = %{ _get_core_fields() }; |
|
|
681 |
my @default_attributes = keys %core_fields; |
| 681 |
my $original_attributes = |
682 |
my $original_attributes = |
| 682 |
$original_request->extended_attributes->search( { type => { '-in' => \@default_attributes } } ); |
683 |
$original_request->extended_attributes->search( { type => { '-in' => \@default_attributes } } ); |
| 683 |
|
684 |
|