diff options
author | ivan <ivan> | 2001-09-11 00:07:30 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-09-11 00:07:30 +0000 |
commit | 85e59606c0b5eed9780534ffaf554aa32bcf9baf (patch) | |
tree | 0374edaabd5233a5adabb85f5649e2cd12c0b91f /bin/fs-migrate-part_svc | |
parent | a594e8f54dd5582ac36eb9e6a2b260d63f3b91fa (diff) |
fixing fs-migrate-part_svc
updateing fs-setup for job queues
freeside-init for starting freeside-queued
Diffstat (limited to 'bin/fs-migrate-part_svc')
-rwxr-xr-x | bin/fs-migrate-part_svc | 37 |
1 files changed, 19 insertions, 18 deletions
diff --git a/bin/fs-migrate-part_svc b/bin/fs-migrate-part_svc index 96332f72a..b0f3ac57e 100755 --- a/bin/fs-migrate-part_svc +++ b/bin/fs-migrate-part_svc @@ -2,38 +2,39 @@ use strict; use FS::UID qw(adminsuidsetup); -use FS::Record qw(qsearchs); -use FS::part_svc +use FS::Record qw(qsearch fields); +use FS::part_svc; my $user = shift or die &usage; my $dbh = adminsuidsetup $user; my $oldAutoCommit = $FS::UID::AutoCommit; -local $FS::UID::AutoCommit = 0 +local $FS::UID::AutoCommit = 0; foreach my $part_svc ( qsearch('part_svc', {} ) ) { foreach my $field ( - grep { defined($part_svc->getfield($part_svc->svcdb.'__'.$field.'_flag') ) } - fields($self->svcdb) + grep { defined($part_svc->getfield($part_svc->svcdb.'__'.$_.'_flag') ) } + fields($part_svc->svcdb) ) { - my $flag = $self->getfield($part_svc->svcdb.'__'.$field.'_flag'); + my $flag = $part_svc->getfield($part_svc->svcdb.'__'.$field.'_flag'); if ( uc($flag) =~ /^([DF])$/ ) { - $part_svc_column->setfield('columnflag', $1); - $part_svc_column->setfield('columnvalue', - $self->getfield($part_svc->svcdb.'__'.$field) - ); - $error = $part_svc_column->insert; - } else { - $error = $part_svc_column->delete; + my $part_svc_column = new FS::part_svc_column { + 'svcpart' => $part_svc->svcpart, + 'columnname' => $field, + 'columnflag' => $1, + 'columnvalue' => $part_svc->getfield($part_svc->svcdb.'__'.$field), + }; + my $error = $part_svc_column->insert; + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + die $error; + } } - if ( $error ) { - $dbh->rollback if $oldAutoCommit; - die $error; - } - } } +$dbh->commit or die $dbh->errstr; + sub usage { die "Usage:\n fs-migrate-part_svc user\n"; } |