ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/Utilities/Switcher.pm
(Generate patch)

Comparing COMP/SCRAM/src/Utilities/Switcher.pm (file contents):
Revision 1.8 by williamc, Fri Jun 18 10:55:44 1999 UTC vs.
Revision 1.9 by williamc, Thu Jul 1 12:28:09 1999 UTC

# Line 42 | Line 42 | sub _initialise (hash1) {
42            $self->{groupchecker}=GroupChecker->new();
43            $self->{groupchecker}->include("all");
44  
45 <        # Add a default tagcontainer
46 <          use Utilities::tagcontainer;
47 <          $self->{tagcontainer}=tagcontainer->new();
45 >        # Add a default TagContainer
46 >          use Utilities::TagContainer;
47 >          $self->{tagcontainer}=TagContainer->new();
48          
49   }
50  
# Line 59 | Line 59 | sub usegroupchecker {
59          my $self=shift;
60          my $ref=shift;
61          
62 <        $self->{groupchecker}=$shift;
62 >        $self->{groupchecker}=$ref;
63   }
64  
65   sub parse {
# Line 224 | Line 224 | sub _calltag {
224          my @args=@_;
225          my $rt;
226  
227 <        if ( $self->{groupchecker}->status() ) {
227 >        if ( $self->{groupchecker}->status() ||
228 >                ( $self->{tagcontainer}->inquiregroup($tagroutine)) ) {
229            $rt=$self->{tagcontainer}->getroutine($tagroutine);
230            if ( $rt ne "" ) {
231                 &{$rt}( $self->{allw},@_);
# Line 316 | Line 317 | sub _closelabel {
317          }
318          elsif ( $self->_getstore() ne "") {
319           #Then it must be the tag name
320 <         $self->{tagname}=$self->_getstore();
320 >         ($self->{tagname}=$self->_getstore())=~tr/A-Z/a-z/;
321          }
322          $self->_resetstore();
323   }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines