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 |
- |
|
|