X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_export%2Frun_script.cgi;h=f0524991bc8c17038547545777b68e3471741dc9;hp=ba58bbdd718b86db1dbccb9f3297e41783467b48;hb=ac3296dc4d9c1c7ff3646df6496a4f49d9e07b9b;hpb=978a10cd56e76e763b15f21c533d507d5bc84dec

diff --git a/httemplate/view/svc_export/run_script.cgi b/httemplate/view/svc_export/run_script.cgi
index ba58bbdd7..f0524991b 100644
--- a/httemplate/view/svc_export/run_script.cgi
+++ b/httemplate/view/svc_export/run_script.cgi
@@ -14,17 +14,13 @@ my %param = ();
     }
   }
 
-my $exportnum;
-my $method;
-for (grep /^*_script$/, keys %param) { 
-	$exportnum = $param{$param{$_}.'_exportnum'};
-	$method = $param{$param{$_}.'_script'};
-}
+my $run_script = $param{'key'};
+my $exportnum = $param{$run_script.'_exportnum'};
 
 my $part_export = qsearchs('part_export', { 'exportnum'=> $exportnum, } )
 	or die "unknown exportnum $exportnum";
 
-my $class = 'FS::part_export::'.$part_export->{Hash}->{exporttype}.'::'.$method;
+my $class = 'FS::part_export::'.$part_export->{Hash}->{exporttype}.'::'.$run_script;
 
 my $server = new FS::UI::Web::JSRPC $class, $cgi;