diff options
| author | ivan <ivan> | 2004-03-24 15:38:48 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-03-24 15:38:48 +0000 |
| commit | a44fcf8b6fb405c09a47de27b32fcb19f121dcae (patch) | |
| tree | 502398ad1d0f12f9e261f88ba3eab4848236b15f /httemplate/edit/part_export.cgi | |
| parent | dabdf357484badff95afcae50b08ec1c3bb58343 (diff) | |
catch misconfigured exports
Diffstat (limited to 'httemplate/edit/part_export.cgi')
| -rw-r--r-- | httemplate/edit/part_export.cgi | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/httemplate/edit/part_export.cgi b/httemplate/edit/part_export.cgi index 4d0c739..b3d42bd 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) |