X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Foption_Common.pm;h=ad3c269587bd3afaa656ece05f3ac1e922c9815c;hb=4b4f61a65ed9780bc9eca211d2bd8fd57173e945;hp=c57e55b6168a3af5159d666f1681b77fdba1d5db;hpb=feef0e4c2b4bd6b776b25f5a1bd6fdbf63fd08b2;p=freeside.git

diff --git a/FS/FS/option_Common.pm b/FS/FS/option_Common.pm
index c57e55b61..ad3c26958 100644
--- a/FS/FS/option_Common.pm
+++ b/FS/FS/option_Common.pm
@@ -81,7 +81,7 @@ sub insert {
     #  $dbh->rollback if $oldAutoCommit;
     #  return $@;
     #}
-    my $option_record = $option_table->new($href);
+    my $option_record = "FS::$option_table"->new($href);
 
     $error = $option_record->insert;
     if ( $error ) {
@@ -124,7 +124,7 @@ sub delete {
   }
   
   my $pkey = $self->pkey;
-  my $option_table = $self->option_table;
+  #my $option_table = $self->option_table;
 
   foreach my $obj ( $self->option_objects ) {
     my $error = $obj->delete;
@@ -140,7 +140,7 @@ sub delete {
 
 }
 
-=item replace [ HASHREF | OPTION => VALUE ... ]
+=item replace OLD_RECORD [ HASHREF | OPTION => VALUE ... ]
 
 Replaces the OLD_RECORD with this one in the database.  If there is an error,
 returns the error, otherwise returns false.
@@ -198,7 +198,7 @@ sub replace {
     #  $dbh->rollback if $oldAutoCommit;
     #  return $@;
     #}
-    my $new = $option_table->new($href);
+    my $new = "FS::$option_table"->new($href);
 
     $new->optionnum($old->optionnum) if $old;
     my $error = $old ? $new->replace($old) : $new->insert;