[interchange-cvs] interchange - racke modified lib/Vend/Form.pm

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2005-10-14 08:53:08 GMT
Modified:  lib/Vend Form.pm
Log:
date_blank widget: fixed wrong quoting

Revision  Changes    Path
2.63      +6 -6      interchange/lib/Vend/Form.pm


rev 2.63, prev_rev 2.62
Index: Form.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Form.pm,v
retrieving revision 2.62
retrieving revision 2.63
diff -u -r2.62 -r2.63
--- Form.pm	7 Aug 2005 16:06:27 -0000	2.62
+++ Form.pm	14 Oct 2005 08:53:08 -0000	2.63
@@ -1,6 +1,6 @@
 # Vend::Form - Generate Form widgets
 # 
-# $Id: Form.pm,v 2.62 2005/08/07 16:06:27 mheins Exp $
+# $Id: Form.pm,v 2.63 2005/10/14 08:53:08 racke Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -39,7 +39,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.62 $, 10);
+$VERSION = substr(q$Revision: 2.63 $, 10);
 
 @EXPORT = qw (
 	display
@@ -470,7 +470,7 @@
 	my $out = qq{<select name="$name"$sel_extra>};
 	my $o;
 	if ($opt->{blank}) {
-		$out .= '<option value="0"$opt_extra>------</option>';
+		$out .= qq{<option value="0"$opt_extra>------</option>};
 	}
 	for(@Months) {
 		$o = qq{<option value="$_->[0]"$opt_extra>} . errmsg($_->[1]) . '</option>';
@@ -484,7 +484,7 @@
 	$out .= qq{<input type="hidden" name="$name" value="/">};
 	$out .= qq{<select name="$name"$sel_extra>};
 	if ($opt->{blank}) {
-		$out .= '<option value="0"$opt_extra>--</option>';
+		$out .= qq{<option value="0"$opt_extra>--</option>};
 	}
 	for(@Days) {
 		$o = qq{<option value="$_->[0]"$opt_extra>$_->[1]} . '</option>';
@@ -509,7 +509,7 @@
 		@Years = ($by .. $ey);
 	}
 	if ($opt->{blank}) {
-		$out .= '<option value="0000"$opt_extra>----</option>';
+		$out .= qq{<option value="0000"$opt_extra>----</option>};
 	}
 	for(@Years) {
 		$o = qq{<option$opt_extra>$_} . '</option>';
@@ -527,7 +527,7 @@
 	$out .= qq{<input type="hidden" name="$name" value=":">};
 	$out .= qq{<select name="$name"$sel_extra>};
 	if ($opt->{blank}) {
-		$out .= '<option value="0"$opt_extra>--:--</option>';
+		$out .= qq{<option value="0"$opt_extra>--:--</option>};
 	}
 	
 	my $ampm = defined $opt->{ampm} ? $opt->{ampm} : 1;