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