Changeset 18568

Show
Ignore:
Timestamp:
20.02.2009 17:08:47 (11 years ago)
Author:
kjdon
Message:

file contents change for name change

Files:
1 modified

Legend:

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

    r18567 r18568  
    11########################################################################### 
    22# 
    3 # GenericList.pm -- A general and flexible list classifier with most of 
     3# List.pm -- A general and flexible list classifier with most of 
    44#                   the abilities of AZCompactList, and better Unicode, 
    55#                   metadata and sorting capabilities. 
     
    3232########################################################################### 
    3333 
    34 package GenericList; 
     34package List; 
    3535 
    3636 
     
    4141 
    4242sub BEGIN { 
    43     @GenericList::ISA = ('BaseClassifier'); 
     43    @List::ISA = ('BaseClassifier'); 
    4444} 
    4545 
     
    7979    'type' => "string" } ]; 
    8080 
    81 my $options = { 'name'     => "GenericList", 
     81my $options = { 'name'     => "List", 
    8282        'desc'     => "{GenericList.desc}", 
    8383        'abstract' => "no", 
     
    104104    # The metadata elements to use (required) 
    105105    if (!$self->{'metadata'}) { 
    106     die "Error: No metadata fields specified for GenericList.\n"; 
     106    die "Error: No metadata fields specified for List.\n"; 
    107107    } 
    108108    my @metadata_groups = split(/\//, $self->{'metadata'});