diff options
Diffstat (limited to 'httemplate/edit/process/addr_block/split.cgi')
| -rwxr-xr-x | httemplate/edit/process/addr_block/split.cgi | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/httemplate/edit/process/addr_block/split.cgi b/httemplate/edit/process/addr_block/split.cgi new file mode 100755 index 000000000..617c3f8ce --- /dev/null +++ b/httemplate/edit/process/addr_block/split.cgi @@ -0,0 +1,20 @@ +% +%my $error = ''; +%my $blocknum = $cgi->param('blocknum'); +%my $addr_block = qsearchs('addr_block', { blocknum => $blocknum }); +% +%if ( $addr_block) { +% $error = $addr_block->split_block; +%} else { +% $error = "Unknown blocknum: $blocknum"; +%} +% +% +%if ( $error ) { +% $cgi->param('error', $error); +% print $cgi->redirect(popurl(4). "browse/addr_block.cgi?". $cgi->query_string ); +%} else { +% print $cgi->redirect(popurl(4). "browse/addr_block.cgi"); +%} +% + |