diff options
| author | khoff <khoff> | 2003-10-22 19:10:13 +0000 |
|---|---|---|
| committer | khoff <khoff> | 2003-10-22 19:10:13 +0000 |
| commit | e5b08c9a31a68826e00b90b62249a57a24ebb9e3 (patch) | |
| tree | 709b80f07a779795fd5f20bd9d168b881cc7954a /httemplate/edit/process/router.cgi | |
| parent | 6a82984a55a00f5f127db1ac3bd5b79b4a277d13 (diff) | |
dbh is a global.
Diffstat (limited to 'httemplate/edit/process/router.cgi')
| -rw-r--r-- | httemplate/edit/process/router.cgi | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/httemplate/edit/process/router.cgi b/httemplate/edit/process/router.cgi index 7e40c48a7..a2fa46dd9 100644 --- a/httemplate/edit/process/router.cgi +++ b/httemplate/edit/process/router.cgi @@ -1,8 +1,5 @@ <% -use FS::UID qw(dbh); - -my $dbh = dbh; local $FS::UID::AutoCommit=0; sub check { @@ -10,7 +7,7 @@ sub check { if($error) { $cgi->param('error', $error); print $cgi->redirect(popurl(3) . "edit/router.cgi?". $cgi->query_string); - $dbh->rollback; + dbh->rollback; exit; } } @@ -38,7 +35,7 @@ check($error); if ($old) { @old_psr = $old->part_svc_router; - foreach $psr (@old_psr) { + foreach my $psr (@old_psr) { if($cgi->param('svcpart_'.$psr->svcpart) eq 'ON') { # do nothing } else { @@ -64,7 +61,7 @@ foreach($cgi->param) { # Yay, everything worked! -$dbh->commit or die $dbh->errstr; +dbh->commit or die dbh->errstr; print $cgi->redirect(popurl(3). "browse/router.cgi"); %> |