X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=inline;f=httemplate%2Fedit%2Fpart_export.cgi;h=b3d42bd9608c6ce2fee2874a057222e3c7b9800b;hb=29da3c125643b73cb6f6219b99eadb67673e4d6d;hp=bdf41e2b2c32383ceb718932e3bae02b9c0e1a84;hpb=27ee26568a1a58b0fb65b7269a43cd3da6d66b35;p=freeside.git
diff --git a/httemplate/edit/part_export.cgi b/httemplate/edit/part_export.cgi
index bdf41e2b2..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)
@@ -60,18 +62,22 @@ my $widget = new HTML::Widgets::SelectLayers(
foreach my $select_option ( @{$optinfo->{options}} ) {
#if ( ref($select_option) ) {
#} else {
- $selected = $select_option eq $value ? ' SELECTED' : '';
+ my $selected = $select_option eq $value ? ' SELECTED' : '';
$html .= qq!!;
#}
}
$html .= '';
} elsif ( $type eq 'textarea' ) {
- $html .= qq!!;
+ $html .= qq!';
} elsif ( $type eq 'text' ) {
- $html .= qq!!;
+ $html .= qq!';
} elsif ( $type eq 'checkbox' ) {
- $html .= qq!!;
+ $html .= qq!