From: ivan <ivan>
Date: Wed, 24 Mar 2004 15:38:49 +0000 (+0000)
Subject: catch misconfigured exports
X-Git-Tag: freeside_1_4_2beta1~174
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=0b2226da8fe347736b32ff293a99ed2f5a9db71c;p=freeside.git

catch misconfigured exports
---

diff --git a/httemplate/edit/part_export.cgi b/httemplate/edit/part_export.cgi
index 4d0c7391f..b3d42bd96 100644
--- a/httemplate/edit/part_export.cgi
+++ b/httemplate/edit/part_export.cgi
@@ -46,6 +46,8 @@ my $widget = new HTML::Widgets::SelectLayers(
 
     foreach my $option ( keys %{$exports->{$layer}{options}} ) {
       my $optinfo = $exports->{$layer}{options}{$option};
+      die "Retreived non-ref export info option from $layer export: $optinfo"
+        unless ref($optinfo);
       my $label = $optinfo->{label};
       my $type = defined($optinfo->{type}) ? $optinfo->{type} : 'text';
       my $value = $cgi->param($option)