+my $precheck_callback = sub {
+ my $cgi = shift;
+ # recombine fdu/fat/subfat/port
+ my $circuit_id = $cgi->param('circuit_id_fdu') . '/' .
+ $cgi->param('circuit_id_fat') . $cgi->param('circuit_id_subfat') . '/' .
+ $cgi->param('circuit_id_port');
+ $cgi->param('circuit_id', $circuit_id);
+ $cgi->delete(qw( circuit_id_fdu circuit_id_fat circuit_id_subfat circuit_id_port ));
+ '';
+};
+