X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Fmenu.html;h=091ec1245631bbbb8dab07d4416faa2b7b3b9980;hb=5b0df166c22e13eba83fabee858846ead6a54141;hp=009f3808475d587f4a32444d36f5508a55eb8bd0;hpb=ca5b439d4e874bec01a346f53f2bd9e50d612151;p=freeside.git diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html index 009f38084..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') @@ -934,6 +953,7 @@ if ( $agentnum ) { if $conf->config('ticket_system') eq 'RT_Internal'; $help_menu{'Networking monitoring documentation'} = [ 'http://torrus.org/userguide.pod.html', 'Torrus User Guide' ] if $conf->config('network_monitoring_system') eq 'Torrus_Internal'; + $help_menu{'Developer documentation'} = [ "${fsurl}docs/library/FS.html", 'Developer documentation' ]; $help_menu{'separator'} = ''; $help_menu{"About Freeside v$FS::VERSION"} = [ "javascript:about_freeside()", '' ]; $help_menu{"About RT v$RT::VERSION"} = [ 'http://www.bestpractical.com/rt', 'Request Tracker Homepage' ]