Changeset 191 for trunk/Build.PL


Ignore:
Timestamp:
Jul 10, 2003, 8:25:31 PM (18 years ago)
Author:
kake
Message:

Use class="toolbar" not id="toolbar" so inheritance works

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Build.PL

    r190 r191  
    5252  variable => "site_name",
    5353  default  => "OpenGuides Wiki"
     54  },
     55{ question => "do you want the navigation bar included on the home page?",
     56  variable => "navbar_on_home_page",
     57  default  => "y",
     58  type     => "y_n"
    5459  },
    5560{ question => "what should the home page of the wiki be called?",
     
    122127foreach my $qset (@questions) {
    123128    my $qu  = $qset->{question};
     129    my $type = $qset->{type} || "";
    124130    my $var = $qset->{variable};
    125131    my $def = $existing_config{$var} || $qset->{default};
    126132    my $val = $def;
    127133    unless ( $skip_config ) {
    128         $val = Module::Build->prompt("\n$qu ", $def);
     134        if ( $type eq "y_n" ) {
     135            $val = Module::Build->y_n("\n$qu ", $def);
     136        } else {
     137            $val = Module::Build->prompt("\n$qu ", $def);
     138        }
    129139    }
    130140
Note: See TracChangeset for help on using the changeset viewer.