|
Lines 4441-4446
sub TransformToNum {
Link Here
|
| 4441 |
my $version = shift; |
4441 |
my $version = shift; |
| 4442 |
# remove the 3 last . to have a Perl number |
4442 |
# remove the 3 last . to have a Perl number |
| 4443 |
$version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
4443 |
$version =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
|
|
4444 |
# three X's at the end indicate that you are testing patch with dbrev |
| 4445 |
# change it into 999 |
| 4446 |
# prevents error on a < comparison between strings (should be: lt) |
| 4447 |
$version =~ s/XXX$/999/; |
| 4444 |
return $version; |
4448 |
return $version; |
| 4445 |
} |
4449 |
} |
| 4446 |
|
4450 |
|
|
Lines 4451-4457
set the DBversion in the systempreferences
Link Here
|
| 4451 |
=cut |
4455 |
=cut |
| 4452 |
|
4456 |
|
| 4453 |
sub SetVersion { |
4457 |
sub SetVersion { |
| 4454 |
my $kohaversion = TransformToNum(shift); |
4458 |
return if $_[0]=~ /XXX$/; |
|
|
4459 |
#you are testing a patch with a db revision; do not change version |
| 4460 |
my $kohaversion = TransformToNum($_[0]); |
| 4455 |
if (C4::Context->preference('Version')) { |
4461 |
if (C4::Context->preference('Version')) { |
| 4456 |
my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'"); |
4462 |
my $finish=$dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='Version'"); |
| 4457 |
$finish->execute($kohaversion); |
4463 |
$finish->execute($kohaversion); |
| 4458 |
- |
|
|