diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2019-04-30 08:42:20 -0400 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2019-04-30 08:42:20 -0400 |
| commit | 90e15da7354b55cc5461b58ac087096ed47e0240 (patch) | |
| tree | be4d8bbda42ff73a53a77dc070053769d9afca7c /httemplate/elements | |
| parent | c15c4b8b1afa91049915f77503487e663554938b (diff) | |
RT# 83211 - Added service export error test report
Diffstat (limited to 'httemplate/elements')
| -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 b04153fe9..091ec1245 100644 --- a/httemplate/elements/menu.html +++ b/httemplate/elements/menu.html @@ -274,6 +274,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') |