#XXX get the router link working
my $link_router = sub { my $routernum = $routerbyblock{shift->blocknum}->routernum;
[ $p.'view/router.cgi?'.$routernum, 'routernum' ];
};
#XXX get the router link working
my $link_router = sub { my $routernum = $routerbyblock{shift->blocknum}->routernum;
[ $p.'view/router.cgi?'.$routernum, 'routernum' ];
};