+ 'preinsert_callback' => sub {
+ my($record, $param) = @_;
+
+ my @location_params = grep { /^location\./ && length($param->{$_}) }
+ keys %$param;
+ if (@location_params) {
+warn join('-', @location_params);
+ my $cust_location = FS::cust_location->new({
+ 'custnum' => $record->custnum,
+ });
+ foreach my $p (@location_params) {
+ $p =~ /^location.(\w+)$/;
+ $cust_location->set($1, $param->{$p});
+ }
+
+ my $error = $cust_location->find_or_insert; # this avoids duplicates
+ return "error creating location: $error" if $error;
+ $record->set('locationnum', $cust_location->locationnum);
+ }
+
+ $record->quantity( $param->{'quan_price.quantity'} )
+ if $param->{'quan_price.quantity'} > 0;
+
+ my $s = $param->{'quan_price.setup_fee'};
+ my $r = $param->{'quan_price.recur_fee'};
+ my $part_pkg = $record->part_pkg;
+ if ( ( length($s) && $s != $part_pkg->option('setup_fee') )
+ or ( length($r) && $r != $part_pkg->option('recur_fee') )
+ )
+ {
+ my $custom_part_pkg = $part_pkg->clone;
+ $custom_part_pkg->disabled('Y');
+ my %options = $part_pkg->options;
+ $options{'setup_fee'} = $s if length($s);
+ $options{'recur_fee'} = $r if length($r);
+ my $error = $custom_part_pkg->insert( options=>\%options );
+ return "error customizing package: $error" if $error;
+ $record->pkgpart( $custom_part_pkg->pkgpart );
+ }
+
+
+ '';
+ },
+