diff options
author | mark <mark> | 2011-12-28 23:55:32 +0000 |
---|---|---|
committer | mark <mark> | 2011-12-28 23:55:32 +0000 |
commit | 0978ea95c15ee2af833b20b5985d3b57e194966d (patch) | |
tree | eabe39074d93c8fe3167ae21dd2768d231a8bb65 /httemplate/edit/part_export.cgi | |
parent | 40f436877b2334fc2d4fd34c50d54807ae8777af (diff) |
broadband_nas export, #15284
Diffstat (limited to 'httemplate/edit/part_export.cgi')
-rw-r--r-- | httemplate/edit/part_export.cgi | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/httemplate/edit/part_export.cgi b/httemplate/edit/part_export.cgi index 9a0e0bd..1450ac3 100644 --- a/httemplate/edit/part_export.cgi +++ b/httemplate/edit/part_export.cgi @@ -51,8 +51,12 @@ $action ||= $part_export->exportnum ? 'Edit' : 'Add'; #my $exports = FS::part_export::export_info($svcdb); my $exports = FS::part_export::export_info(); -my %layers = map { $_ => "$_ - ". $exports->{$_}{desc} } keys %$exports; -$layers{''}=''; +tie my %layers, 'Tie::IxHash', + '' => '', + map { $_ => "$_ - ". $exports->{$_}{desc} } + sort { $a cmp $b } + keys %$exports; +; my $widget = new HTML::Widgets::SelectLayers( 'selected_layer' => $part_export->exporttype, @@ -83,6 +87,13 @@ my $widget = new HTML::Widgets::SelectLayers( ? $optinfo->{default} : '' ); + if ( $type eq 'title' ) { + $html .= qq!<TR><TH COLSPAN=1 ALIGN="right"><FONT SIZE="+1">! . + $label . + '</FONT></TH></TR>'; + next; + } + # 'freeform': disables table formatting of options. Instead, each # option can define "before" and "after" strings which are inserted # around the selector. |