[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.113, Tue Sep 18 16:48:07 2007 UTC revision 1.114, Fri Sep 21 14:16:06 2007 UTC
# Line 2313  Line 2313 
2313      # If col isn't numeric, look it up in the roles and role abbreviations.      # If col isn't numeric, look it up in the roles and role abbreviations.
2314      #      #
2315    
2316        my $role_name;
2317      if ($role !~ /^\d+$/)      if ($role !~ /^\d+$/)
2318      {      {
2319          #          #
# Line 2323  Line 2324 
2324          $role = $a if $a;          $role = $a if $a;
2325    
2326          $col = $self->{role_index}->{$role};          $col = $self->{role_index}->{$role};
2327            $role_name = $role;
2328      }      }
2329      else      else
2330      {      {
2331          $col = $role;          $col = $role;
2332            $role_name = $self->get_role($col);
2333      }      }
2334    
2335      if (! defined($col))      if (! defined($col))
# Line 2356  Line 2359 
2359                                         ));                                         ));
2360              foreach $peg (@$cell)              foreach $peg (@$cell)
2361              {              {
2362                  $sth->execute($sub_name, $role, $peg);                  $sth->execute($sub_name, $role_name, $peg);
2363                  # warn "Deleting $sub_name $role $peg\n";                  # warn "Deleting $sub_name $role $peg\n";
2364              }              }
2365          }          }
# Line 2369  Line 2372 
2372                                                  VALUES (?, ?, ?)));                                                  VALUES (?, ?, ?)));
2373              foreach $peg (@$cell)              foreach $peg (@$cell)
2374              {              {
2375                  $sth->execute($peg, $sub_name, $role);                  $sth->execute($peg, $sub_name, $role_name);
2376                  # warn "Add old $peg $sub_name $role\n";                  # warn "Add old $peg $sub_name $role\n";
2377              }              }
2378          }          }
# Line 2379  Line 2382 
2382                                                  VALUES (?, ?, ?, ?)));                                                  VALUES (?, ?, ?, ?)));
2383              foreach $peg (@$cell)              foreach $peg (@$cell)
2384              {              {
2385                  $sth->execute($peg, $sub_name, $role, $variant);                  $sth->execute($peg, $sub_name, $role_name, $variant);
2386                  #warn "Add new $peg $sub_name $role v='$variant'\n";                  #warn "Add new $peg $sub_name $role_name v='$variant'\n";
2387              }              }
2388          }          }
2389      }      }

Legend:
Removed from v.1.113  
changed lines
  Added in v.1.114

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3