|
Lines 5369-5374
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
Link Here
|
| 5369 |
SetVersion($DBversion); |
5369 |
SetVersion($DBversion); |
| 5370 |
} |
5370 |
} |
| 5371 |
|
5371 |
|
|
|
5372 |
$DBversion ="3.09.00.XXX"; |
| 5373 |
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { |
| 5374 |
my $pref = C4::Context->preference('dateformat'); |
| 5375 |
my ( $date_format, $date_regex ); |
| 5376 |
|
| 5377 |
if ( $pref =~ /^iso/ ) { |
| 5378 |
$date_format = '____-__-__'; |
| 5379 |
} |
| 5380 |
elsif ( $pref =~ /^metric/ ) { |
| 5381 |
$date_format = '__/__/____'; |
| 5382 |
} |
| 5383 |
elsif ( $pref =~ /^us/ ) { |
| 5384 |
$date_format = '__/__/____'; |
| 5385 |
} |
| 5386 |
else { |
| 5387 |
$date_format = '____-__-__'; |
| 5388 |
} |
| 5389 |
|
| 5390 |
my $sql = "SELECT * FROM accountlines WHERE description LIKE '%$date_format%' AND description NOT LIKE '%$date_format __:__%' AND ( accounttype = 'FU' OR accounttype = 'F' )"; |
| 5391 |
my $sth = $dbh->prepare( $sql ); |
| 5392 |
$sth->execute(); |
| 5393 |
|
| 5394 |
while ( my $row = $sth->fetchrow_hashref() ) { |
| 5395 |
my $old_description = $row->{'description'}; |
| 5396 |
|
| 5397 |
my ( $year, $month, $day ); |
| 5398 |
my $date; |
| 5399 |
|
| 5400 |
if ( $pref =~ /^iso/ ) { |
| 5401 |
( $year, $month, $day ) = $old_description =~ /(\d+)-(\d+)-(\d+)/; |
| 5402 |
$date = "$year-$month-$day"; |
| 5403 |
} |
| 5404 |
elsif ( $pref =~ /^metric/ ) { |
| 5405 |
( $day, $month, $year ) = $old_description =~ /(\d+)\/(\d+)\/(\d+)/; |
| 5406 |
$date = "$day/$month/$year"; |
| 5407 |
} |
| 5408 |
elsif ( $pref =~ /^us/ ) { |
| 5409 |
( $month, $day, $year ) = $old_description =~ /(\d+)\/(\d+)\/(\d+)/; |
| 5410 |
$date = "$month/$day/$year"; |
| 5411 |
} |
| 5412 |
else { ## default to iso |
| 5413 |
( $year, $month, $day ) = $old_description =~ /(\d+)-(\d+)-(\d+)/; |
| 5414 |
$date = "$year-$month-$day"; |
| 5415 |
} |
| 5416 |
|
| 5417 |
my $datetime = "$date 23:59"; |
| 5418 |
|
| 5419 |
my $new_description = $old_description; |
| 5420 |
$new_description =~ s/$date/$datetime/g; |
| 5421 |
|
| 5422 |
$dbh->do("UPDATE accountlines SET description = ? WHERE description = ?", undef, $new_description, $old_description); |
| 5423 |
} |
| 5424 |
|
| 5425 |
print "Upgrade to $DBversion done (Fix fine descriptions)\n"; |
| 5426 |
SetVersion($DBversion); |
| 5427 |
} |
| 5372 |
|
5428 |
|
| 5373 |
=head1 FUNCTIONS |
5429 |
=head1 FUNCTIONS |
| 5374 |
|
5430 |
|
| 5375 |
- |
|
|