|
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; |
| 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 |
$dbh->do("UPDATE accountlines SET description = CONCAT( description, ' 00:00' ) WHERE description LIKE '%$date_format%' AND description NOT LIKE '%$date_format%__:__%'"); |
| 5391 |
print "Upgrade to $DBversion done (Fix fine descriptions)\n"; |
| 5392 |
SetVersion($DBversion); |
| 5393 |
} |
| 5372 |
|
5394 |
|
| 5373 |
=head1 FUNCTIONS |
5395 |
=head1 FUNCTIONS |
| 5374 |
|
5396 |
|
| 5375 |
- |
|
|