if($action) {
    #Bond the built-in and accessory components to the parent.
    if($action eq "BOND") {


##</code><code>##

for my $acc (@acc) {
...
if ($current_status->{"curr_parent_id"} != 0) {
    print "Refusing to modify the status of demstock $acc. It has already been moved<br>\n";
} else {
    ...
}


##</code><code>##

for my $acc (@acc) {
...
if ($current_status->{"curr_parent_id"} != 0) {
    print "Refusing to modify the status of demstock $acc. It has already been moved<br>\n";
    next;
}
...