SetVersion($DBversion);
}
$DBversion = "3.08.01.XXX";
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
print "Upgrade to $DBversion (3.8.1 release) done\n";
=head1 FUNCTIONS
-