1.4.0pre12 export question

[Dale Hege]

Hello, I've been playing with the 1.4.0 series and downloaded pre12 the
other day. What export functions are known to work?
I am running

Freeside 1.4.0pre12 using Apache::ASP 2.31
Everything installed just fine the only problem I have is that when I
setup an export using the shellcommands and add a new user I get an ASP
error like
Has the shellcommands export just not been finished yet? If so any quick
suggestions to getting it going.
Thanks,

-Dale

Errors Output
Can't locate object method "fields" via package "useradd" at
/usr/local/lib/perl5/site_perl/5.005/FS/part_export/shellcommands.pm line
24. , /usr/local/lib/perl5/site_perl/5.005/Apache/ASP.pm line 1556Debug Output
Can't locate object method "fields" via package "useradd" at
/usr/local/lib/perl5/site_perl/5.005/FS/part_export/shellcommands.pm line
24. , /usr/local/lib/perl5/site_perl/5.005/Apache/ASP.pm line 1556ASP to Perl Script

  -: package
  Apache::ASP::Compiles::_usr_local_etc_freeside_asp_global_global_asax843763ca3832f86999b70608c92509a2;
  ;; sub
  Apache::ASP::Compiles::_usr_local_etc_freeside_asp_global_global_asax843763ca3832f86999b70608c92509a2::__ASP__usr_local_freeside_htdocs_freeside_asp_edit_process_svc_acct_cgix843763ca3832f86999b70608c92509a2
  {  ;; package
  Apache::ASP::Compiles::_usr_local_etc_freeside_asp_global_global_asax843763ca3832f86999b70608c92509a2;
  ;; no strict;;use vars qw($Application $Session $Response $Server
  $Request);;use lib qw(/usr/local/etc/freeside/asp-global/);;;  -: #line 1 svc_acct.cgi
  1: ;
  2:
  3: $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
  4: my $svcnum = $1;
  5:
  6: my $old;
  7: if ( $svcnum ) {
  8:   $old = qsearchs('svc_acct', { 'svcnum' => $svcnum } )
  9:     or die "fatal: can't find account (svcnum $svcnum)!";
 10: } else {
 11:   $old = '';
 12: }
 13:
 14: #unmunge popnum
 15: $cgi->param('popnum', (split(/:/, $cgi->param('popnum') ))[0] );
 16:
 17: #unmunge passwd
 18: if ( $cgi->param('_password') eq '*HIDDEN*' ) {
 19:   die "fatal: no previous account to recall hidden password from!"
 unless $old; 20:   $cgi->param('_password',$old->getfield('_password'));
 21: }
 22:
 23: #unmunge usergroup
 24: $cgi->param('usergroup', [ $cgi->param('radius_usergroup') ] );
 25:
 26: my $new = new FS::svc_acct ( {
 27:   map {
 28:     $_, scalar($cgi->param($_));
 29:   #} qw(svcnum pkgnum svcpart username _password popnum uid gid
 finger dir 30:   #  shell quota slipip)
 31:   } ( fields('svc_acct'), qw( pkgnum svcpart usergroup ) )
 32: } );
 33:
 34: my $error;
 35: if ( $svcnum ) {
 36:   $error = $new->replace($old);
 37: } else {
 38:   $error = $new->insert;
 39:   $svcnum = $new->svcnum;
 40: }
 41:
 42: if ( $error ) {
 43:   $cgi->param('error', $error);
 44:   print $cgi->redirect(popurl(2). "svc_acct.cgi?". $cgi->query_string );
 45: } else {
 46:   print $cgi->redirect(popurl(3). "view/svc_acct.cgi?" . $svcnum );
 47: }
 48:
 49: ; ;;no lib qw(/usr/local/etc/freeside/asp-global/); ;; }