[freeside-commits] freeside/httemplate/misc delete-router.html, NONE, 1.1 delete-addr_block.html, NONE, 1.1

Erik Levinson levinse at wavetail.420.am
Wed Jun 22 16:39:37 PDT 2011


Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory wavetail.420.am:/tmp/cvs-serv17439/httemplate/misc

Added Files:
	delete-router.html delete-addr_block.html 
Log Message:
add router and addr_block delete features, RT13197

--- NEW FILE: delete-router.html ---
% if ( $error ) {
%   errorpage($error);
% } else {
<% $cgi->redirect("${p}browse/router.cgi") %>
% }
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Broadband configuration')
  || $FS::CurrentUser::CurrentUser->access_right('Broadband global configuration');

my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ || die "Illegal routernum";
my $routernum = $1;

my $router = qsearchs('router',{'routernum'=>$routernum});
my $error = $router->delete;

</%init>

--- NEW FILE: delete-addr_block.html ---
% if ( $error ) {
%   errorpage($error);
% } else {
<% $cgi->redirect("${p}browse/addr_block.cgi") %>
% }
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Broadband configuration')
  || $FS::CurrentUser::CurrentUser->access_right('Broadband global configuration');

my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ || die "Illegal blocknum";
my $blocknum = $1;

my $addr_block = qsearchs('addr_block',{'blocknum'=>$blocknum});
my $error = $addr_block->delete;

</%init>



More information about the freeside-commits mailing list