diff options
| author | ivan <ivan> | 2002-06-10 02:52:48 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-06-10 02:52:48 +0000 |
| commit | bdcc6cb95cadf46e4b71e3967de41ccd35f2f047 (patch) | |
| tree | df4d11ebcd8a8d2d52a68983999d401b49caa4a6 /FS | |
| parent | f6fcf4327c0d5efe31ce3717ba1dae5099eb50cd (diff) | |
re-my'ed var
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/svc_Common.pm | 5 | ||||
| -rw-r--r-- | FS/FS/svc_domain.pm | 3 |
2 files changed, 3 insertions, 5 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index 5cddb91..c804242 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -163,7 +163,6 @@ otherwise returns false. sub replace { my ($new, $old) = (shift, shift); - my $error; local $SIG{HUP} = 'IGNORE'; local $SIG{INT} = 'IGNORE'; @@ -188,7 +187,7 @@ sub replace { my $error = $part_export->export_replace($new,$old); if ( $error ) { $dbh->rollback if $oldAutoCommit; - return "exporting to ". $part_export->exporttype. + return "error exporting to ". $part_export->exporttype. " (transaction rolled back): $error"; } } @@ -292,7 +291,7 @@ sub cancel { ''; } =head1 VERSION -$Id: svc_Common.pm,v 1.9 2002-05-31 00:18:56 khoff Exp $ +$Id: svc_Common.pm,v 1.10 2002-06-10 02:52:37 ivan Exp $ =head1 BUGS diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index fd57713..b06d030 100644 --- a/FS/FS/svc_domain.pm +++ b/FS/FS/svc_domain.pm @@ -294,7 +294,6 @@ returns the error, otherwise returns false. sub replace { my ( $new, $old ) = ( shift, shift ); - my $error; return "Can't change domain - reorder." if $old->getfield('domain') ne $new->getfield('domain'); @@ -451,7 +450,7 @@ sub submit_internic { =head1 VERSION -$Id: svc_domain.pm,v 1.30 2002-05-31 00:18:57 khoff Exp $ +$Id: svc_domain.pm,v 1.31 2002-06-10 02:52:48 ivan Exp $ =head1 BUGS |