[Bio] / FigKernelPackages / ServerThing.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/ServerThing.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21, Sun Dec 6 18:21:07 2009 UTC revision 1.22, Tue Dec 8 14:53:52 2009 UTC
# Line 109  Line 109 
109    
110  Add subsystem filtering information to the specified query filter clause  Add subsystem filtering information to the specified query filter clause
111  based on data in the argument hash. The argument hash will be checked for  based on data in the argument hash. The argument hash will be checked for
112  the C<-unusable> parameter, which includes unusuable subsystems, and the  the C<-usable> parameter, which includes or excludes unusuable subsystems, and
113  C<-exclude> parameter, which lists types of subsystems that should be  the C<-exclude> parameter, which lists types of subsystems that should be
114  excluded.  excluded.
115    
116  =over 4  =over 4
# Line 123  Line 123 
123  =item args  =item args
124    
125  Reference to the parameter hash for the current server call. This hash will  Reference to the parameter hash for the current server call. This hash will
126  be examined for the C<-unusable> and C<-exclude> parameters.  be examined for the C<-usable> and C<-exclude> parameters.
127    
128  =back  =back
129    
# Line 139  Line 139 
139      # We'll put the new filter stuff in here.      # We'll put the new filter stuff in here.
140      my @newFilters;      my @newFilters;
141      # Unless unusable subsystems are desired, we must add a clause to the filter.      # Unless unusable subsystems are desired, we must add a clause to the filter.
142      if (! $args->{-unusable}) {      # The default is that only usable subsystems are included.
143        my $usable = 1;
144        # This default can be overridden by the "-usable" parameter.
145        if (exists $args->{-usable}) {
146            $usable = $args->{-usable};
147        }
148        # If we're restricting to usable subsystems, add a filter to that effect.
149        if ($usable) {
150          push @newFilters, "Subsystem(usable) = 1";          push @newFilters, "Subsystem(usable) = 1";
151      }      }
152      # Check for exclusion filters.      # Check for exclusion filters.

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3