4 use FS::UID qw(adminsuidsetup);
5 use FS::Record qw(qsearchs);
8 my $user = shift or die &usage;
9 my $dbh = adminsuidsetup $user;
11 my $oldAutoCommit = $FS::UID::AutoCommit;
12 local $FS::UID::AutoCommit = 0
14 foreach my $part_svc ( qsearch('part_svc', {} ) ) {
16 grep { defined($part_svc->getfield($part_svc->svcdb.'__'.$field.'_flag') ) }
19 my $flag = $self->getfield($part_svc->svcdb.'__'.$field.'_flag');
20 if ( uc($flag) =~ /^([DF])$/ ) {
21 $part_svc_column->setfield('columnflag', $1);
22 $part_svc_column->setfield('columnvalue',
23 $self->getfield($part_svc->svcdb.'__'.$field)
25 $error = $part_svc_column->insert;
27 $error = $part_svc_column->delete;
30 $dbh->rollback if $oldAutoCommit;
38 die "Usage:\n fs-migrate-part_svc user\n";