freeside/FS/FS part_export.pm,1.97,1.98

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv4421

Modified Files:
	part_export.pm 
Log Message:
allow an empty exporttype so you can create new objects

Index: part_export.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export.pm,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -d -r1.97 -r1.98
--- part_export.pm	26 Oct 2004 11:26:33 -0000	1.97
+++ part_export.pm	26 Oct 2004 12:07:26 -0000	1.98
@@ -390,8 +390,9 @@
   my $exporttype = $self->exporttype;
   my $class = ref($self). "::$exporttype";
   eval "use $class;";
-  die $@ if $@;
-  bless($self, $class);
+  #die $@ if $@;
+  bless($self, $class) unless $@;
+  $self;
 }
 
 #these should probably all go away, just let the subclasses define em