|
Line 0
Link Here
|
| 0 |
- |
1 |
use Try::Tiny; |
|
|
2 |
$DBversion = 'XXX'; # will be replaced by the RM |
| 3 |
if( CheckVersion( $DBversion ) ) { |
| 4 |
|
| 5 |
# All attributes we're potentially interested in |
| 6 |
my $ff_req = $dbh->selectall_arrayref( |
| 7 |
'SELECT a.illrequest_id, a.type, a.value '. |
| 8 |
'FROM illrequests r, illrequestattributes a '. |
| 9 |
'WHERE r.illrequest_id = a.illrequest_id '. |
| 10 |
'AND r.backend = "FreeForm"', |
| 11 |
{ Slice => {} } |
| 12 |
); |
| 13 |
|
| 14 |
# Before we go any further, identify whether we've done |
| 15 |
# this before, we test for the presence of "container_title" |
| 16 |
# We stop as soon as we find one |
| 17 |
foreach my $req(@{$ff_req}) { |
| 18 |
if ($req->{type} eq 'container_title') { |
| 19 |
warn "Upgrade already carried out"; |
| 20 |
} |
| 21 |
} |
| 22 |
|
| 23 |
# Transform into a hashref with the key of the request ID |
| 24 |
my $requests = {}; |
| 25 |
foreach my $request(@{$ff_req}) { |
| 26 |
my $id = $request->{illrequest_id}; |
| 27 |
if (!exists $requests->{$id}) { |
| 28 |
$requests->{$id} = {}; |
| 29 |
} |
| 30 |
$requests->{$id}->{$request->{type}} = $request->{value}; |
| 31 |
} |
| 32 |
|
| 33 |
# Transform any article requests |
| 34 |
my $transformed = {}; |
| 35 |
foreach my $id(keys %{$requests}) { |
| 36 |
if (lc($requests->{$id}->{type}) eq 'article') { |
| 37 |
$transformed->{$id} = $requests->{$id}; |
| 38 |
$transformed->{$id}->{type} = 'article'; |
| 39 |
$transformed->{$id}->{container_title} = $transformed->{$id}->{title} |
| 40 |
if defined $transformed->{$id}->{title} && |
| 41 |
length $transformed->{$id}->{title} > 0; |
| 42 |
$transformed->{$id}->{title} = $transformed->{$id}->{article_title} |
| 43 |
if defined $transformed->{$id}->{article_title} && |
| 44 |
length $transformed->{$id}->{article_title} > 0; |
| 45 |
$transformed->{$id}->{author} = $transformed->{$id}->{article_author} |
| 46 |
if defined $transformed->{$id}->{article_author} && |
| 47 |
length $transformed->{$id}->{article_author} > 0; |
| 48 |
$transformed->{$id}->{pages} = $transformed->{$id}->{article_pages} |
| 49 |
if defined $transformed->{$id}->{article_pages} && |
| 50 |
length $transformed->{$id}->{article_pages} > 0; |
| 51 |
} |
| 52 |
} |
| 53 |
|
| 54 |
# Now write back the transformed data |
| 55 |
# Rather than selectively replace, we just remove all attributes we've |
| 56 |
# transformed and re-write them |
| 57 |
my @changed = keys %{$transformed}; |
| 58 |
my $changed_str = join(',', @changed); |
| 59 |
|
| 60 |
if (scalar @changed > 0) { |
| 61 |
$dbh->{AutoCommit} = 0; |
| 62 |
$dbh->{RaiseError} = 1; |
| 63 |
try { |
| 64 |
my $del = $dbh->do( |
| 65 |
"DELETE FROM illrequestattributes ". |
| 66 |
"WHERE illrequest_id IN ($changed_str)" |
| 67 |
); |
| 68 |
foreach my $reqid(keys %{$transformed}) { |
| 69 |
my $attr = $transformed->{$reqid}; |
| 70 |
foreach my $key(keys %{$attr}) { |
| 71 |
my $sth = $dbh->prepare( |
| 72 |
'INSERT INTO illrequestattributes '. |
| 73 |
'(illrequest_id, type, value) '. |
| 74 |
'VALUES '. |
| 75 |
'(?, ?, ?)' |
| 76 |
); |
| 77 |
$sth->execute( |
| 78 |
$reqid, |
| 79 |
$key, |
| 80 |
$attr->{$key} |
| 81 |
); |
| 82 |
} |
| 83 |
} |
| 84 |
$dbh->commit; |
| 85 |
} catch { |
| 86 |
warn "Upgrade to $DBversion failed: $_"; |
| 87 |
eval { $dbh->rollback }; |
| 88 |
}; |
| 89 |
} |
| 90 |
|
| 91 |
SetVersion( $DBversion ); |
| 92 |
print "Upgrade to $DBversion done (Bug 21079 - Unify metadata schema across backends)\n"; |
| 93 |
} |