#!/usr/bin/perl --
## multipeColorSelect.pl
##
## 2014-10-22-02:58:36
##
##
##
##
##
##
## perltidy -olq  -csc -csci=3 -cscl="sub : BEGIN END " -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if " -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if while " -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
#!/usr/bin/perl --
use strict;
use warnings;
use Carp::Always;

Main( @ARGV );
exit( 0 );

sub Main {
    my %allColors = (
        1 => 'Red',
        2 => 'Yellow',
        3 => 'Orange',
        4 => 'Blue',
        5 => 'Black',
        6 => 'Brown',
        7 => 'Green',
        8 => 'White',
    );
    my %mainColors = (
        1 => 'Red',
        2 => 'Yellow',
        3 => 'Orange',
        4 => 'Blue',
    );

    print multipeColorSelect( \%allColors, \%mainColors, 0, 0 );
    print multipeColorSelect( \%allColors, \%mainColors, 1, 0 );
#~     print multipeColorSelect( \%allColors, \%mainColors, 1, 1 );
#~     print multipeColorSelect( \%allColors, \%mainColors, 0, 1 );
} ## end sub Main

### FIRST VERSION, THE STUB
#~ sub multipeColorSelect {
#~ ##    my( $all, $main, $checkMain, $checkReset  ### RESET?!?!?!?
#~ ##    my( $all, $main, $selectMain, , $checkRest
#~     my( $all, $main, $selectMain, $selectRest ) = @_;
#~     return q{
#~ <select id="multipeColorSelect" multiple size="8">
#~     <option value="Red" class="maincolor">Red</option>
#~     <option value="Orange" class="maincolor">Orange</option>
#~     <option value="Green" class="maincolor">Green</option>
#~     <option value="White" class="maincolor">White</option>
#~     <option value="Yellow">Yellow</option>
#~     <option value="Blue">Blue</option>
#~     <option value="Black">Black</option>
#~     <option value="Brown">Brown</option>
#~ </select>
#~ };
#~ } ## end sub multipeColorSelect

### FIRST IMPROVEMENT , FIRST CONDITION, DEFAULT CONDITION, no checkboxes selected
sub multipeColorSelect {
    my( $all, $main, $selectMain, $selectRest ) = @_;
    if( not $selectMain and not $selectRest ) {
        return q{
<select id="multipeColorSelect" multiple size="8">
    <option value="Red" class="maincolor">Red</option>
    <option value="Orange" class="maincolor">Orange</option>
    <option value="Green" class="maincolor">Green</option>
    <option value="White" class="maincolor">White</option>
    <option value="Yellow">Yellow</option>
    <option value="Blue">Blue</option>
    <option value="Black">Black</option>
    <option value="Brown">Brown</option>
</select>
};
    } else {
        die "todo";
    }
} ## end sub multipeColorSelect

__END__
##</code><code>##

$ perl multipeColorSelect.pl

<select id="multipeColorSelect" multiple size="8">
    <option value="Red" class="maincolor">Red</option>
    <option value="Orange" class="maincolor">Orange</option>
    <option value="Green" class="maincolor">Green</option>
    <option value="White" class="maincolor">White</option>
    <option value="Yellow">Yellow</option>
    <option value="Blue">Blue</option>
    <option value="Black">Black</option>
    <option value="Brown">Brown</option>
</select>
todo at multipeColorSelect.pl line 82.
        main::multipeColorSelect('HASH(0x99bbf4)', 'HASH(0xa1019c)', 1, 0) called at multipeColorSelect.pl line 41
        main::Main() called at multipeColorSelect.pl line 19