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

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2005-04-16 12:40:47 GMT
Modified:  lib/Vend Form.pm
Log:
* Just in case default widget is removed, provide default sub.

Revision  Changes    Path
2.55      +3 -2      interchange/lib/Vend/Form.pm


rev 2.55, prev_rev 2.54
Index: Form.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Form.pm,v
retrieving revision 2.54
retrieving revision 2.55
diff -u -r2.54 -r2.55
--- Form.pm	14 Apr 2005 20:30:33 -0000	2.54
+++ Form.pm	16 Apr 2005 12:40:47 -0000	2.55
@@ -1,6 +1,6 @@
 # Vend::Form - Generate Form widgets
 # 
-# $Id: Form.pm,v 2.54 2005/04/14 20:30:33 mheins Exp $
+# $Id: Form.pm,v 2.55 2005/04/16 12:40:47 mheins Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -38,7 +38,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.54 $, 10);
+$VERSION = substr(q$Revision: 2.55 $, 10);
 
 @EXPORT = qw (
 	display
@@ -1348,6 +1348,7 @@
 	}
 
 	my $sub =  $Vend::UserWidget->{$type} || $Vend::UserWidget->{default};
+	$sub ||= \&template_sub; # Just in case "default" widget is removed
 
 	if($opt->{variant}) {
 #::logDebug("variant='$opt->{variant}'");