[Rt-commit] r7198 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Wed Mar  7 21:32:32 2007
New Revision: 7198

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm
   rt/branches/3.7-EXPERIMENTAL-TUNIS/sbin/rt-setup-database.in

Log:
* use new CamelCase versions of methods

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm	Wed Mar  7 21:32:32 2007
@@ -263,7 +263,7 @@
 END
         return;
     }
-    unless ( $args{'force'} ) {
+    unless ( $args{'Force'} ) {
         print <<END;
 
 About to drop $db_type database $db_name on $db_host.

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm	Wed Mar  7 21:32:32 2007
@@ -43,8 +43,8 @@
 		       $ENV{RT_DBA_USER}, $ENV{RT_DBA_PASSWORD});
     my $db_type = RT->Config->Get('DatabaseType');
 
-    RT::Handle->drop_db( $dbh, { force => 1 } );
-    RT::Handle->create_db( $dbh );
+    RT::Handle->DropDatabase( $dbh, Force => 1 );
+    RT::Handle->CreateDatabase( $dbh );
 
     $dbh->disconnect;
     $dbh = _get_dbh(RT::Handle->DSN,

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/sbin/rt-setup-database.in
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/sbin/rt-setup-database.in	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/sbin/rt-setup-database.in	Wed Mar  7 21:32:32 2007
@@ -106,7 +106,7 @@
     $dbh = get_system_dbh();
     print "Now creating a database for RT.\n";
     if ( $db_type ne 'Oracle' || $dba_user ne $db_user ) {
-        RT::Handle->create_db($dbh);
+        RT::Handle->CreateDatabase($dbh);
     } else {
         print "...skipped as $dba_user is not $db_user or we're working with Oracle.\n";
     }
@@ -136,7 +136,7 @@
 }
 elsif ( $args{'action'} eq 'drop' ) {
     $dbh = get_system_dbh();
-    RT::Handle->drop_db($dbh, \%args);
+    RT::Handle->DropDatabase($dbh, Force => $args{'force'} );
 }
 elsif ( $args{'action'} eq 'insert' ) {
     $dbh = get_rt_dbh();