Lines 4592-4597
sub TransformToNum {
Link Here
|
4592 |
my $version = shift; |
4592 |
my $version = shift; |
4593 |
# remove the 3 last . to have a Perl number |
4593 |
# remove the 3 last . to have a Perl number |
4594 |
$version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
4594 |
$version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
|
|
4595 |
# three X's at the end indicate that you are testing patch with dbrev |
4596 |
# change it into 999 |
4597 |
# prevents error on a < comparison between strings (should be: lt) |
4598 |
$version =~ s/XXX$/999/; |
4595 |
return $version; |
4599 |
return $version; |
4596 |
} |
4600 |
} |
4597 |
|
4601 |
|
Lines 4602-4608
set the DBversion in the systempreferences
Link Here
|
4602 |
=cut |
4606 |
=cut |
4603 |
|
4607 |
|
4604 |
sub SetVersion { |
4608 |
sub SetVersion { |
4605 |
my $kohaversion = TransformToNum(shift); |
4609 |
return if $_[0]=~ /XXX$/; |
|
|
4610 |
#you are testing a patch with a db revision; do not change version |
4611 |
my $kohaversion = TransformToNum($_[0]); |
4606 |
if (C4::Context->preference('Version')) { |
4612 |
if (C4::Context->preference('Version')) { |
4607 |
my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'"); |
4613 |
my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'"); |
4608 |
$finish->execute($kohaversion); |
4614 |
$finish->execute($kohaversion); |
4609 |
- |
|
|