diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2018-03-29 11:16:09 -0400 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2018-03-29 11:16:09 -0400 |
| commit | 983bf2cafbc04efe2368c67d88610ebfbbbae00a (patch) | |
| tree | 12105108b888b617171a9dcc8b9b6555b4a9547f | |
| parent | c128c075054a208e97a6815d5920892a0b75d33b (diff) | |
RT78356 - fixed exportname error added missing file
| -rw-r--r-- | httemplate/edit/part_export.cgi | 2 | ||||
| -rw-r--r-- | httemplate/view/svc_export/run_script.cgi | 31 |
2 files changed, 32 insertions, 1 deletions
diff --git a/httemplate/edit/part_export.cgi b/httemplate/edit/part_export.cgi index 381fbca..f6ec208 100644 --- a/httemplate/edit/part_export.cgi +++ b/httemplate/edit/part_export.cgi @@ -293,7 +293,7 @@ my $widget = new HTML::Widgets::SelectLayers( foreach my $script ( keys %{$exports->{$layer}{scripts}} ) { $html .= '<TR><TD ALIGN="left" COLSPAN=2>' . include('/elements/progress-init.html', - $part_export->exportname, + $part_export->exporttype, [ $script.'_exportnum', $script.'_script' ], rooturl().'view/svc_export/run_script.cgi', rooturl().'edit/part_export.cgi?'.$part_export->{Hash}->{exportnum}, diff --git a/httemplate/view/svc_export/run_script.cgi b/httemplate/view/svc_export/run_script.cgi new file mode 100644 index 0000000..ba58bbd --- /dev/null +++ b/httemplate/view/svc_export/run_script.cgi @@ -0,0 +1,31 @@ +<% $server->process %> +<%init> + +my @args = $cgi->param('arg'); +my %param = (); + while ( @args ) { + my( $field, $value ) = splice(@args, 0, 2); + unless ( exists( $param{$field} ) ) { + $param{$field} = $value; + } elsif ( ! ref($param{$field}) ) { + $param{$field} = [ $param{$field}, $value ]; + } else { + push @{$param{$field}}, $value; + } + } + +my $exportnum; +my $method; +for (grep /^*_script$/, keys %param) { + $exportnum = $param{$param{$_}.'_exportnum'}; + $method = $param{$param{$_}.'_script'}; +} + +my $part_export = qsearchs('part_export', { 'exportnum'=> $exportnum, } ) + or die "unknown exportnum $exportnum"; + +my $class = 'FS::part_export::'.$part_export->{Hash}->{exporttype}.'::'.$method; + +my $server = new FS::UI::Web::JSRPC $class, $cgi; + +</%init>
\ No newline at end of file |