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 | |
| parent | c15c4b8b1afa91049915f77503487e663554938b (diff) | |
RT# 83211 - Added service export error test report
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/edit/process/elements/process.html | 8 | ||||
| -rw-r--r-- | httemplate/elements/menu.html | 19 |
2 files changed, 26 insertions, 1 deletions
diff --git a/httemplate/edit/process/elements/process.html b/httemplate/edit/process/elements/process.html index e332957eb..1b9318725 100644 --- a/httemplate/edit/process/elements/process.html +++ b/httemplate/edit/process/elements/process.html @@ -473,7 +473,13 @@ foreach my $value ( @values ) { if ( $error ) { - $cgi->param('error', $error); + if ($opt{'update_svc'}) { + my $encoded_error = encode_base64($error); + $cgi->param('error_link', $encoded_error); + } else { + $cgi->param('error', $error); + } + if ( $opt{'clear_on_error'} && scalar(@{$opt{'clear_on_error'}}) ) { foreach my $field (@{$opt{'clear_on_error'}}) { $cgi->param($field, '') 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') |