From 0b2226da8fe347736b32ff293a99ed2f5a9db71c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 24 Mar 2004 15:38:49 +0000
Subject: [PATCH] catch misconfigured exports

---
 httemplate/edit/part_export.cgi | 2 ++
 1 file changed, 2 insertions(+)

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)
-- 
2.20.1