[freeside-commits] branch master updated. 1ade81c5455b7a74a7ccc374bc980444f30f6a1a

[Christopher Burger]

The branch, master has been updated
       via  1ade81c5455b7a74a7ccc374bc980444f30f6a1a (commit)
      from  90e15da7354b55cc5461b58ac087096ed47e0240 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 1ade81c5455b7a74a7ccc374bc980444f30f6a1a
Author: Christopher Burger <burgerc at freeside.biz>
Date:   Tue Apr 30 13:43:18 2019 -0400

    RT# 83211 - added new report

diff --git a/httemplate/search/report_svc_export_test.cgi b/httemplate/search/report_svc_export_test.cgi
new file mode 100644
index 000000000..b02f0e216
--- /dev/null
+++ b/httemplate/search/report_svc_export_test.cgi
@@ -0,0 +1,44 @@
+<& /elements/header.html, $title &>
+
+% #foreach my $group (keys(%$errors)) {
+% foreach my $error (@$errors) {
+% my $group = (keys %$error)[0];	
+<TABLE>
+  <TR><TH ALIGN="left" COLSPAN="3"><FONT SIZE="+1">
+    Found <% $error->{$group}->{'count'} %> <% $error->{$group}->{'description'} %> attached to <% $export %> export.
+% if ($error->{$group}->{'errors'}) {
+    <FONT COLOR="red">(<% scalar(keys %{$error->{$group}->{'errors'}}) %>) error(s)</FONT>
+% }
+  </FONT></TH></TR>
+% unless ($error->{$group}->{'errors'}) {
+    <TR><TD> </TD><TD COLSPAN=2><FONT COLOR="green">No errors found</FONT></TD></TR>
+%}
+% foreach my $e (keys(%{$error->{$group}->{'errors'}})) {
+    <TR><TD> </TD><TD COLSPAN=2>
+      <% $error->{$group}->{'errors'}->{$e}->{'description'} %>
+%     if ($error->{$group}->{'errors'}->{$e}->{'link'}) {
+	   <A HREF="<% $error->{$group}->{'errors'}->{$e}->{'link'} %>">(edit)</A>
+%     }
+    </TD></TR>
+%   foreach my $err (keys(%{$error->{$group}->{'errors'}->{$e}->{'errors'}})) {
+      <TR><TD> </TD><TD> </TD><TD><FONT COLOR="red" SIZE="-1"><% $error->{$group}->{'errors'}->{$e}->{'errors'}->{$err} %></FONT></TD></TR>
+%   }
+% }  
+</TABLE>
+% }
+<& /elements/footer.html &>
+
+<%init>
+
+my $DEBUG = $cgi->param('debug') || 0;
+my $conf = new FS::Conf;
+my $export = $cgi->param('export');
+my $title = $export." export test";
+
+my $opts = { 'fsurl' => $fsurl, };
+
+my $exports = FS::part_export::export_info();
+my $class = "FS::part_export::$export" if $exports->{$export};
+my $errors = $class->test_export_report($opts);
+
+</%init>
\ No newline at end of file

-----------------------------------------------------------------------

Summary of changes:
 httemplate/search/report_svc_export_test.cgi | 44 ++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 httemplate/search/report_svc_export_test.cgi