From: Chris Hilton <chilton@thoughtworks.com>
Date: Mon, 27 Jun 2005 22:02:50 +0000 (+0000)
Subject: Added case insensitivity option to get_table()
X-Git-Tag: v0.11008~521
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a25a87d825482d209a2b0bb0c2789d34342cfc1;p=dbsrgits%2FSQL-Translator.git

Added case insensitivity option to get_table()
---

diff --git a/lib/SQL/Translator/Schema.pm b/lib/SQL/Translator/Schema.pm
index 4d7869e..5ef5257 100644
--- a/lib/SQL/Translator/Schema.pm
+++ b/lib/SQL/Translator/Schema.pm
@@ -3,7 +3,7 @@ package SQL::Translator::Schema;
 # vim: sw=4: ts=4:
 
 # ----------------------------------------------------------------------
-# $Id: Schema.pm,v 1.23 2005-06-08 15:31:06 mwz444 Exp $
+# $Id: Schema.pm,v 1.24 2005-06-27 22:02:50 duality72 Exp $
 # ----------------------------------------------------------------------
 # Copyright (C) 2002-4 SQLFairy Authors
 #
@@ -60,7 +60,7 @@ use SQL::Translator::Utils 'parse_list_arg';
 use base 'SQL::Translator::Schema::Object';
 use vars qw[ $VERSION $TABLE_ORDER $VIEW_ORDER $TRIGGER_ORDER $PROC_ORDER ];
 
-$VERSION = sprintf "%d.%02d", q$Revision: 1.23 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.24 $ =~ /(\d+)\.(\d+)/;
 
 __PACKAGE__->_attributes(qw/name database translator/);
 
@@ -528,6 +528,14 @@ Returns a table by the name provided.
 
     my $self = shift;
     my $table_name = shift or return $self->error('No table name');
+    my $case_insensitive = shift;
+    if ( $case_insensitive ) {
+    	$table_name = uc($table_name);
+    	foreach my $table ( keys %{$self->{tables}} ) {
+    		return $self->{tables}{$table} if $table_name eq uc($table);
+    	}
+    	return $self->error(qq[Table "$table_name" does not exist]);
+    }
     return $self->error(qq[Table "$table_name" does not exist])
       unless exists $self->{'tables'}{$table_name};
     return $self->{'tables'}{$table_name};