%doc> Circuit Interface %doc> <%args> $id => undef; $edit => undef; $strand_sort => undef; $search => undef; $_action => undef; $sequence_list => undef; $user => $ui->get_current_user($r) %args> <%attr> title => 'Circuit' section => 'Plant' %attr> <%init> my $DEBUG = 0; my $o = undef; my $editCircuit = 0; my $editStrand = 0; my @list; print "
", Dumper(%ARGS), "
No results"; $m->abort; } my $num = scalar(@list); if ( $num == 1 ){ # Don't offer list. Just display this circuit $o = $list[0]; $id = $o->id; $search = undef; } }else{ print "
No search criteria"; $m->abort; } # code for inserting/updating # ----------------------------------------------------------------------------- }elsif( $_action eq "UPDATE_CIRCUIT" ){ my %update_info = (); print "ARGS is
", Dumper(%ARGS), "
% # Allow the user to add strands to this circuit by backbone. % # First select a start site, then an end site, and then a backbone % # from the populated list. Hit submit and all strands for that backbone % # are associated with this circuit. % if ( $edit ne "strandinfo" ) { % if ( $manager && $manager->can($user, 'access_admin_section', 'circuit:add_strand_sequences') ){