<%doc> Code to determine available "sequences" between a starting an ending site. A sequence is a set of CableStrands with splice relationships. Arguments; - start_id: id of starting Site. - end_id: id of ending Site. - form_name: name of html form. - field_name: name of field to store results. <%args> $start_id $end_id $field_name $form_name <%init> my @terms; my $DEBUG = 0; my $MAX_RESULTS = 1000; my $sequences = CableStrand->find_sequences($start_id, $end_id); use Data::Dumper; % print "

     ", Dumper(%ARGS), "

" if $DEBUG;
<%perl> if ( $DEBUG) { foreach my $seq ( @$sequences ){ my (@names, @ids); foreach my $row ( @$seq ){ print Dumper($row), '
'; } } }