Changeset 437 for wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/Database.pm
- Timestamp:
- 05/11/08 20:24:34 (4 years ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/Database.pm
r431 r437 188 188 # Is an upgrade to the database required? 189 189 sub get_database_upgrade_required { 190 my ($dbh,$ VERSION) = @_;190 my ($dbh,$new_version) = @_; 191 191 192 192 # Get the schema version … … 194 194 195 195 # Compare it 196 my $new_ver = $VERSION * 100; 197 if($schema_version eq $new_ver) { 196 if($schema_version eq $new_version) { 198 197 # At latest version 199 198 return undef; 199 } elsif ($schema_version eq 'old' or $schema_version < $new_version) { 200 return $schema_version."_to_".$new_version; 200 201 } else { 201 return $schema_version."_to_".$new_ver;202 die "Aiee! We seem to be trying to downgrade the database schema from $schema_version to $new_version. Aborting.\n"; 202 203 } 203 204 }
