Lines 13-18
if( CheckVersion( $DBversion ) ) {
Link Here
|
13 |
$dbh->do(q| |
13 |
$dbh->do(q| |
14 |
ALTER TABLE suggestions ADD COLUMN lastmodificationdate DATE DEFAULT NULL AFTER lastmodificationby |
14 |
ALTER TABLE suggestions ADD COLUMN lastmodificationdate DATE DEFAULT NULL AFTER lastmodificationby |
15 |
|); |
15 |
|); |
|
|
16 |
|
17 |
my $suggestions = $dbh->selectall_arrayref(q| |
18 |
SELECT suggestionid, managedby, manageddate, acceptedby, accepteddate, rejectedby, rejecteddate |
19 |
FROM suggestions |
20 |
|, { Slice => {} }); |
21 |
for my $suggestion ( @$suggestions ) { |
22 |
my ( $max_date ) = sort ( $suggestion->{manageddate} || (), $suggestion->{accepteddate} || (), $suggestion->{rejecteddate} || () ); |
23 |
next unless $max_date; |
24 |
my $last_modif_by = ( defined $suggestion->{manageddate} and $max_date eq $suggestion->{manageddate} ) |
25 |
? $suggestion->{managedby} |
26 |
: ( defined $suggestion->{accepteddate} and $max_date eq $suggestion->{accepteddate} ) |
27 |
? $suggestion->{acceptedby} |
28 |
: ( defined $suggestion->{rejecteddate} and $max_date eq $suggestion->{rejecteddate} ) |
29 |
? $suggestion->{rejectedby} |
30 |
: undef; |
31 |
next unless $last_modif_by; |
32 |
$dbh->do(q| |
33 |
UPDATE suggestions |
34 |
SET lastmodificationdate = ?, lastmodificationby = ? |
35 |
WHERE suggestionid = ? |
36 |
|, undef, $max_date, $last_modif_by, $suggestion->{suggestionid}); |
37 |
} |
16 |
} |
38 |
} |
17 |
|
39 |
|
18 |
# Always end with this (adjust the bug info) |
40 |
# Always end with this (adjust the bug info) |
19 |
- |
|
|