diff options
author | jeff <jeff> | 2008-12-04 05:16:57 +0000 |
---|---|---|
committer | jeff <jeff> | 2008-12-04 05:16:57 +0000 |
commit | e7a52321f87e5a1468a397a52457b7d99bcdb0e6 (patch) | |
tree | dfc8f84f75f384a2e5e73ebaf09d5eb25254f30c /FS/FS/part_export/soma.pm | |
parent | 759558e113890b39fe387876c0454ba8606a138e (diff) |
wtf?
Diffstat (limited to 'FS/FS/part_export/soma.pm')
-rw-r--r-- | FS/FS/part_export/soma.pm | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/FS/FS/part_export/soma.pm b/FS/FS/part_export/soma.pm index 6fe23c4..c73d9f9 100644 --- a/FS/FS/part_export/soma.pm +++ b/FS/FS/part_export/soma.pm @@ -140,9 +140,9 @@ sub queue_statuschange { my $queue = new FS::queue { 'svcnum' => $svc->svcnum, - 'job' => 'FS::part_export::soma::$method', + 'job' => 'FS::part_export::soma::statuschange', }; - my $error = $queue->insert( $self->option('url'), %args ); + my $error = $queue->insert( %args ); return $error if $error; @@ -311,11 +311,13 @@ sub _queueable_suspend { next unless $application->definitionId == $appid; $instance_id = $application->instanceId; - $app_def = $app_catalog->getApplicationDef($appid, $cpeid); - @attr_def = grep { $_->internalName eq 'status' } @{$app_def->attributes}; + my $app_def = + $soma_objects->{AppCatalog}->getApplicationDef($appid, $cpeid); + my @attr_def = grep { $_->internalName eq 'status' } + @{$app_def->attributes}; foreach my $attribute ( @{$application->attributes} ) { - next unless $attibute->definitionId == $attr_def[0]->definitionId; + next unless $attribute->definitionId == $attr_def[0]->definitionId; $attribute->{value} = 'S'; $soma_objects->{Applications}->setAppAttribute( $cpeid, @@ -351,11 +353,13 @@ sub _queueable_unsuspend { next unless $application->definitionId == $appid; $instance_id = $application->instanceId; - $app_def = $app_catalog->getApplicationDef($appid, $cpeid); - @attr_def = grep { $_->internalName eq 'status' } @{$app_def->attributes}; + my $app_def = + $soma_objects->{AppCatalog}->getApplicationDef($appid, $cpeid); + my @attr_def = grep { $_->internalName eq 'status' } + @{$app_def->attributes}; - foreach my $attribute ( @{$applicate->attributes} ) { - next unless $attibute->definitionId == $attr_def[0]->definitionId; + foreach my $attribute ( @{$application->attributes} ) { + next unless $attribute->definitionId == $attr_def[0]->definitionId; $attribute->{value} = 'E'; $soma_objects->{Applications}->setAppAttribute( $cpeid, |