Changeset 397 for trunk/cgi-bin/IPDB.pm
- Timestamp:
- 05/10/10 17:33:13 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/IPDB.pm
r371 r397 292 292 # Returns a success code and optional error message. 293 293 sub allocateBlock { 294 my ($dbh,undef,undef,$custid,$type,$city,$desc,$notes,$circid,$privdata ) = @_;294 my ($dbh,undef,undef,$custid,$type,$city,$desc,$notes,$circid,$privdata,$nodeid) = @_; 295 295 296 296 my $cidr = new NetAddr::IP $_[1]; … … 333 333 " where ip='$cidr'"); 334 334 $sth->execute; 335 # node hack 336 if ($nodeid && $nodeid ne '') { 337 $sth = $dbh->prepare("INSERT INTO noderef (block,node_id) VALUES (?,?)"); 338 $sth->execute("$cidr",$nodeid); 339 } 340 # end node hack 335 341 $dbh->commit; 336 342 }; … … 393 399 } # routing vs non-routing netblock 394 400 401 # node hack 402 if ($nodeid && $nodeid ne '') { 403 $sth = $dbh->prepare("INSERT INTO noderef (block,node_id) VALUES (?,?)"); 404 $sth->execute("$cidr",$nodeid); 405 } 406 # end node hack 395 407 $dbh->commit; 396 408 }; # end of eval … … 497 509 } # done with netblock alloctype != rm 498 510 511 # node hack 512 if ($nodeid && $nodeid ne '') { 513 $sth = $dbh->prepare("INSERT INTO noderef (block,node_id) VALUES (?,?)"); 514 $sth->execute("$cidr",$nodeid); 515 } 516 # end node hack 499 517 $dbh->commit; 500 518 }; # end eval
Note:
See TracChangeset
for help on using the changeset viewer.