[interchange-cvs] interchange - heins modified lib/Vend/Interpolate.pm

[interchange-core@interchange.redhat.com]

User:      heins
Date:      2002-01-24 18:57:12 GMT
Modified:  lib/Vend Tag: STABLE_4_8-branch Interpolate.pm
Log:
	* Add extra and js parameters to tag_options.

Revision  Changes    Path
No                   revision



No                   revision



2.9.2.12  +8 -2      interchange/lib/Vend/Interpolate.pm


rev 2.9.2.12, prev_rev 2.9.2.11
Index: Interpolate.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.9.2.11
retrieving revision 2.9.2.12
diff -u -r2.9.2.11 -r2.9.2.12
--- Interpolate.pm	24 Jan 2002 05:07:01 -0000	2.9.2.11
+++ Interpolate.pm	24 Jan 2002 18:57:12 -0000	2.9.2.12
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.9.2.11 2002/01/24 05:07:01 jon Exp $
+# $Id: Interpolate.pm,v 2.9.2.12 2002/01/24 18:57:12 mheins Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -27,7 +27,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.9.2.11 $, 10);
+$VERSION = substr(q$Revision: 2.9.2.12 $, 10);
 
 @EXPORT = qw (
 
@@ -2017,6 +2017,8 @@
 							$sku,
 							'',
 							{ 
+								js => $opt->{js},
+								extra => $opt->{extra},
 								passed => $ref->[3],
 								type => $opt->{type} || $ref->[5] || 'select',
 								attribute => 'mv_sku',
@@ -2081,6 +2083,8 @@
 							$sku,
 							'',
 							{ 
+								js => $opt->{js},
+								extra => $opt->{extra},
 								passed => join(",", @out),
 								type => $opt->{type} || $ref->[8] || 'select',
 								attribute => 'code',
@@ -2129,6 +2133,8 @@
 								price => $opt->{price},
 								item => $item,
 								default => undef,
+								js => $opt->{js},
+								extra => $opt->{extra},
 							},
 							$item || undef,
 						);