Changeset 18572

Show
Ignore:
Timestamp:
20.02.2009 20:30:15 (11 years ago)
Author:
kjdon
Message:

changed the type of a couple of options

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/classify/List.pm

    r18568 r18572  
    4444} 
    4545 
     46my $partition_type_list =  
     47    [ { 'name' => "per_letter", 
     48    'desc' => "{List.level_partition.per_letter}" }, 
     49      { 'name' => "constant_size", 
     50    'desc' => "{List.level_partition.constant_size}" }, 
     51      { 'name' => "none", 
     52    'desc' => "{List.level_partition.none}" } ]; 
     53       
    4654 
    4755my $arguments =  
     
    6068      { 'name' => "partition_type_within_level", 
    6169    'desc' => "{GenericList.partition_type_within_level}", 
    62     'type' => "string", 
     70    'type' => "enum", 
     71    'list' => $partition_type_list, 
    6372    'deft' => "none" }, 
    6473      { 'name' => "partition_size_within_level", 
    6574    'desc' => "{GenericList.partition_size_within_level}", 
    66     'type' => "string" }, 
     75    'type' => "int", 
     76    'range' => "1,", 
     77    'deft' => "39" }, 
    6778      { 'name' => "partition_name_length", 
    6879    'desc' => "{GenericList.partition_name_length}", 
     
    8293        'desc'     => "{GenericList.desc}", 
    8394        'abstract' => "no", 
    84         'inherits' => "Yes", 
     95        'inherits' => "yes", 
    8596        'args'     => $arguments }; 
    8697