From: Brian O'Connor Date: Fri, 16 Apr 2004 23:10:20 +0000 (+0000) Subject: Fixes a bug in the way the Turnkey producer's macro.tt2 output renders minor focus... X-Git-Tag: v0.06~80 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c7a9e95b0f59cdb815c7fd98f4f6a99eced7d988;hp=e66764e590111ae2c64da649507c20c88473dcc9;p=dbsrgits%2FSQL-Translator.git Fixes a bug in the way the Turnkey producer's macro.tt2 output renders minor focus panels. --- diff --git a/lib/SQL/Translator/Producer/Turnkey.pm b/lib/SQL/Translator/Producer/Turnkey.pm index 44fe2f6..e974d66 100644 --- a/lib/SQL/Translator/Producer/Turnkey.pm +++ b/lib/SQL/Translator/Producer/Turnkey.pm @@ -1,7 +1,7 @@ package SQL::Translator::Producer::Turnkey; # ------------------------------------------------------------------- -# $Id: Turnkey.pm,v 1.43 2004-04-16 22:20:14 boconnor Exp $ +# $Id: Turnkey.pm,v 1.44 2004-04-16 23:10:20 boconnor Exp $ # ------------------------------------------------------------------- # Copyright (C) 2002-4 SQLFairy Authors # @@ -22,7 +22,7 @@ package SQL::Translator::Producer::Turnkey; use strict; use vars qw[ $VERSION $DEBUG ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.43 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.44 $ =~ /(\d+)\.(\d+)/; $DEBUG = 1 unless defined $DEBUG; use SQL::Translator::Schema::Constants; @@ -569,16 +569,19 @@ EOF
[% ELSIF p.type == 'minor' %]
+ [% FOREACH atom = p.containers %]
[% IF name %] [% linkname = ref(p.containers[0]) %] -
[% linkname | replace('Turnkey::Atom::', '') %]
+
[% atom.name | replace('Turnkey::Atom::', '') %]
[% END %] - [% renderatom(name,dbobject,p.containers[0]) %] + [% renderatom(name,dbobject,atom) %]
-
+ + [% END %] + [% END %] [% END %] [% IF panel.orientation == 'vertical' %]