From: ivan <ivan>
Date: Wed, 24 Mar 2004 15:38:48 +0000 (+0000)
Subject: catch misconfigured exports
X-Git-Tag: NET_WHOIS_RAW_0_31~30
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a44fcf8b6fb405c09a47de27b32fcb19f121dcae;ds=sidebyside

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)