svc_domain errors

[Stephen D. Bechard]

I just tried to add a new domain after the new part_export
features have been enabled. It worked fine before, but now
I am getting an error related to a FS/part_export/bind.pm
that doesn't exists. I didn't find it anywhere on my system
and I didn't see it on the CVS tree, is this something that
still needs to be created?

Thanks,
Steve

Below is that Error that I am receiving:

Errors Output
  1.. Can't locate FS/part_export/bind.pm in @INC (@INC contains:
/usr/local/lib/site_perl/5.00503/i386-freebsd /usr/libdata/perl/5.00503/mach
/usr/libdata/perl/5.00503 /usr/local/lib/perl5/site_perl/5.005/i386-freebsd
/usr/local/lib/perl5/site_perl/5.005 . /usr/local/ /usr/local/lib/perl) at
(eval 81) line 1. BEGIN failed--compilation aborted at (eval 81) line 1. ,
/usr/local/lib/perl5/site_perl/5.005/Apache/ASP.pm line 1545
Debug Output
  1.. Can't locate FS/part_export/bind.pm in @INC (@INC contains:
/usr/local/lib/site_perl/5.00503/i386-freebsd /usr/libdata/perl/5.00503/mach
/usr/libdata/perl/5.00503 /usr/local/lib/perl5/site_perl/5.005/i386-freebsd
/usr/local/lib/perl5/site_perl/5.005 . /usr/local/ /usr/local/lib/perl) at
(eval 81) line 1. BEGIN failed--compilation aborted at (eval 81) line 1. ,
/usr/local/lib/perl5/site_perl/5.005/Apache/ASP.pm line 1545
ASP to Perl Script

  -: package
Apache::ASP::Compiles::_usr_local_etc_freeside_asp_global_global_asa; ;; sub
Apache::ASP::Compiles::_usr_local_etc_freeside_asp_global_global_asa::__ASP_
_usr_local_www_data_aspdocs_edit_process_svc_domain_cgixINL {  ;; package
Apache::ASP::Compiles::_usr_local_etc_freeside_asp_global_global_asa; ;; no
strict;;use vars qw($Application $Session $Response $Server $Request);;use
lib qw(/usr/local/etc/freeside/asp-global/);;;
  -: #line 1 svc_domain.cgi
  1: ;
  2:
  3: #remove this to actually test the domains!
  4: $FS::svc_domain::whois_hack = 1;
  5:
  6: $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
  7: my $svcnum = $1;
  8:
  9: my $new = new FS::svc_domain ( {
 10:   map {
 11:     $_, scalar($cgi->param($_));
 12:   #} qw(svcnum pkgnum svcpart domain action purpose)
 13:   } ( fields('svc_domain'), qw( pkgnum svcpart action purpose ) )
 14: } );
 15:
 16: my $error = '';
 17: if ($cgi->param('svcnum')) {
 18:   $error="Can't modify a domain!";
 19: } else {
 20:   $error=$new->insert;
 21:   $svcnum=$new->svcnum;
 22: }
 23:
 24: if ($error) {
 25:   $cgi->param('error', $error);
 26:   print $cgi->redirect(popurl(2). "svc_domain.cgi?".
$cgi->query_string );
 27: } else {
 28:   print $cgi->redirect(popurl(3). "view/svc_domain.cgi?$svcnum");
 29: }
 30:
 31: ; ;;no lib qw(/usr/local/etc/freeside/asp-global/); ;; }