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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.94, Thu Jan 18 03:08:57 2007 UTC revision 1.95, Fri Jan 19 17:01:06 2007 UTC
# Line 824  Line 824 
824      my($self,$role) = @_;      my($self,$role) = @_;
825    
826      my $rdbH = $self->{fig}->db_handle();      my $rdbH = $self->{fig}->db_handle();
827        if (! $rdbH->table_exists('aux_roles')) { return 0 }
828      my $nameQ = quotemeta $self->{name};      my $nameQ = quotemeta $self->{name};
829      my $roleQ = quotemeta $role;      my $roleQ = quotemeta $role;
830      my $q = "SELECT subsystem FROM aux_roles WHERE subsystem = '$nameQ' AND role = '$roleQ'";      my $q = "SELECT subsystem FROM aux_roles WHERE subsystem = '$nameQ' AND role = '$roleQ'";

Legend:
Removed from v.1.94  
changed lines
  Added in v.1.95

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3