61c72f8f3e
The kohaversion is in the code directory (in /kohaversion.pl)
C4::Context now has a new method C4::Context->KOHAVERSION
that returns the koha code version.
The systempreference Version contains the database version.
If the 2 are differents, when the user log in, he is redirected to web installer (new behaviour : before this commit, the check was done on everypage, it's too CPU costly I think)
In the web installer, we check now if we do a new setup or an upgrade and show only the appropriate link.
The updatedatabase contains a lot of new things :
* SetVersion($kohaversion), that set the kohaversion after each update
* TransformToNum($kohaversion) that returns a number (3.0000001 from 3.00.00.001 for example) for a given koha version
* DropAllForeignKeys($table) that does what is written : drop all foreign keys. A shame it's not possible directly in mySQL...
* for each database update, just :
add the following lines :
=item
Describe what it does for other developpers
=cut
$DBversion = "your.koha.version.dbnumber";
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
#
# DO YOUR UPDATE STUFF
#
print "Upgrade to $DBversion done (specify what it does if you want)\n";
SetVersion ($DBversion);
}
IMPORTANT NOTES :
in koha 2.2, a new install was done through installing a 2.2.0 database, then updating it to the installed version.
in Koha 3.0, /installer/kohaversion.sql MUST contain an uptodate version, as the installer set the DB version to kohaversion after uploading kohaversion.sql. It does NOT run updatedatabase.
The update from Koha 2.2 to Koha 3.0 must NOT be done through the webinstaller : updatedatabase is very very long to run and you'll reach Apache timeout for sure. See http://wiki.koha.org/doku.php?id=22_to_30 that contains my notes for upgrading (with some/few UNIMARC specific stuff)
Note For RM, please eyeball this change
Signed-off-by: Chris Cormack <crc@liblime.com>
93 lines
2.6 KiB
Perl
Executable file
93 lines
2.6 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along with
|
|
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
|
|
# Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
use strict;
|
|
require Exporter;
|
|
|
|
use C4::Output; # contains gettemplate
|
|
use C4::Auth;
|
|
use C4::Context;
|
|
use CGI;
|
|
use LWP::Simple;
|
|
use XML::Simple;
|
|
|
|
my $query = new CGI;
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "about.tmpl",
|
|
query => $query,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => { parameters => 1 },
|
|
debug => 1,
|
|
}
|
|
);
|
|
|
|
my $kohaVersion = C4::Context::KOHAVERSION;
|
|
my $osVersion = `uname -a`;
|
|
my $perlVersion = $];
|
|
my $mysqlVersion = `mysql -V`;
|
|
my $apacheVersion = `httpd -v`;
|
|
$apacheVersion = `httpd2 -v` unless $apacheVersion;
|
|
my $zebraVersion = `zebraidx -V`;
|
|
|
|
# $apacheVersion = (`/usr/sbin/apache2 -V`)[0];
|
|
|
|
$template->param(
|
|
kohaVersion => $kohaVersion,
|
|
osVersion => $osVersion,
|
|
perlVersion => $perlVersion,
|
|
mysqlVersion => $mysqlVersion,
|
|
apacheVersion => $apacheVersion,
|
|
zebraVersion => $zebraVersion,
|
|
);
|
|
my @component_names =
|
|
qw/MARC::File::XML MARC::Charset Class::Accessor
|
|
LWP::Simple XML::Simple Net::Z3950
|
|
Event Net::LDAP PDF::API2
|
|
Mail::Sendmail MARC::Record Digest::MD5
|
|
HTML::Template DBD::mysql Date::Manip
|
|
DBI Net::Z3950::ZOOM
|
|
Date::Calc
|
|
/;
|
|
|
|
my @components = ();
|
|
|
|
foreach my $component ( sort @component_names ) {
|
|
my $version;
|
|
if ( eval "require $component" ) {
|
|
$version = $component->VERSION;
|
|
if ( $version eq '' ) {
|
|
$version = 'unknown';
|
|
}
|
|
}
|
|
else {
|
|
$version = 'module is missing';
|
|
}
|
|
|
|
push(
|
|
@components,
|
|
{
|
|
name => $component,
|
|
version => $version,
|
|
}
|
|
);
|
|
}
|
|
|
|
$template->param( components => \@components );
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|