diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2019-04-30 08:42:20 -0400 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2019-04-30 13:24:27 -0400 |
| commit | aa8b421f5b51cebbffbe8d0686a63f72d274106a (patch) | |
| tree | e3e0624c069deb4bc277541a43da80890022d05c /httemplate/elements/menu.html | |
| parent | 710841aeba1632f57ab34d4e2abce3d65b531f69 (diff) | |
RT# 83211 - Added service export error test report
Diffstat (limited to 'httemplate/elements/menu.html')
| -rw-r--r-- | httemplate/elements/menu.html | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html index 8aa19529e..ca7be2736 100644 --- a/httemplate/elements/menu.html +++ b/httemplate/elements/menu.html @@ -273,6 +273,25 @@ foreach my $svcdb ( FS::part_svc->svc_tables() ) { } +## adding export test reports +tie my %report_exports, 'Tie::IxHash'; +my $exports = FS::part_export::export_info(); +my $exportname; +tie my %export_list, 'Tie::IxHash', + '' => '', + map { $_ => "$_ - ". $exports->{$_}{desc} } + sort { $a cmp $b } + keys %$exports; +; + +foreach my $export (keys %export_list) { + $report_exports{"$export export test"} = + [ $fsurl. 'search/report_svc_export_test.cgi?export='.$export, + "Report of invalid service setup for services tied to $export export", + ] if "FS::part_export::$export"->can('test_export_report'); +} +$report_services{'exports'} = [ \%report_exports, "Exports" ]; + tie my %report_packages, 'Tie::IxHash'; $report_packages{'Package definitions (by # active)'} = [ $fsurl.'browse/part_pkg.cgi?active=1', 'Package definitions by number of active packages' ] if $curuser->access_right('Edit package definitions') |