X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FSQLite.pm;h=d03bc612571c25307cf884107a707cf10b616922;hb=da2f599235eeacb8336fda55e160402ad03db4fb;hp=996935abefc9ce20c6f8cf0986ded4e55f1a856b;hpb=ac9c4e2e21a26f3c05d033a658d0eff4a5a359b3;p=dbsrgits%2FSQL-Translator.git diff --git a/lib/SQL/Translator/Parser/SQLite.pm b/lib/SQL/Translator/Parser/SQLite.pm index 996935a..d03bc61 100644 --- a/lib/SQL/Translator/Parser/SQLite.pm +++ b/lib/SQL/Translator/Parser/SQLite.pm @@ -1,7 +1,7 @@ package SQL::Translator::Parser::SQLite; # ------------------------------------------------------------------- -# $Id: SQLite.pm,v 1.8 2006-06-07 16:08:45 schiffbruechige Exp $ +# $Id: SQLite.pm,v 1.9 2006-06-08 21:02:19 schiffbruechige Exp $ # ------------------------------------------------------------------- # Copyright (C) 2002-4 SQLFairy Authors # @@ -152,7 +152,7 @@ like-op::= use strict; use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.8 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.9 $ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; use Data::Dumper; @@ -421,6 +421,7 @@ create : CREATE TEMPORARY(?) TRIGGER NAME before_or_after(?) database_event ON t instead_of => 0, db_event => $item[6], action => $item[9], + on_table => $table_name, } } @@ -434,6 +435,7 @@ create : CREATE TEMPORARY(?) TRIGGER NAME instead_of database_event ON view_name instead_of => 1, db_event => $item[6], action => $item[9], + on_table => $table_name, } } @@ -628,6 +630,7 @@ sub parse { perform_action_when => $def->{'when'}, database_event => $def->{'db_event'}, action => $def->{'action'}, + on_table => $def->{'on_table'}, ); }