4 my @args = $cgi->param('arg');
7 my( $field, $value ) = splice(@args, 0, 2);
8 unless ( exists( $param{$field} ) ) {
9 $param{$field} = $value;
10 } elsif ( ! ref($param{$field}) ) {
11 $param{$field} = [ $param{$field}, $value ];
13 push @{$param{$field}}, $value;
19 for (grep /^*_script$/, keys %param) {
20 $exportnum = $param{$param{$_}.'_exportnum'};
21 $method = $param{$param{$_}.'_script'};
24 my $part_export = qsearchs('part_export', { 'exportnum'=> $exportnum, } )
25 or die "unknown exportnum $exportnum";
27 my $class = 'FS::part_export::'.$part_export->{Hash}->{exporttype}.'::'.$method;
29 my $server = new FS::UI::Web::JSRPC $class, $cgi;