Changeset 10218 for trunk/gsdl/perllib/classify/Browse.pm
- Timestamp:
- 2005-07-06T15:27:45+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/Browse.pm
r6968 r10218 42 42 43 43 sub new { 44 my $class = shift (@_); 45 my $self = new BasClas($class, @_); 46 47 # 14-05-02 To allow for proper inheritance of arguments - John Thompson 48 my $option_list = $self->{'option_list'}; 49 push( @{$option_list}, $options ); 44 my ($class) = shift (@_); 45 my ($classifierslist,$inputargs,$hashArgOptLists) = @_; 46 push(@$classifierslist, $class); 50 47 51 if ($self->{'info_only'}) { 52 # created from classinfo.pl - don't need to parse the arguments 53 return bless $self, $class; 54 } 48 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 49 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 55 50 56 # classifier information 57 $self->{'collection'} = $ENV{'GSDLCOLLECTION'}; 51 my $self = (defined $hashArgOptLists)? new BasClas($classifierslist,$inputargs,$hashArgOptLists): new BasClas($classifierslist,$inputargs); 58 52 59 $self->{'title'} = "Browse"; 53 # Manually set $self parameters. 54 $self->{'collection'} = $ENV{'GSDLCOLLECTION'}; # classifier information 55 $self->{'buttonname'} = "Browse"; 60 56 61 57 return bless $self, $class; … … 80 76 # use to create macros when the Phind classifier document is displayed. 81 77 my %classifyinfo = ('thistype'=>'Invisible', 82 'Title'=>$self->{' title'},78 'Title'=>$self->{'buttonname'}, 83 79 'contains'=>[]); 84 80
Note:
See TracChangeset
for help on using the changeset viewer.