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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.520, Fri Sep 15 18:36:53 2006 UTC revision 1.521, Fri Sep 15 19:05:22 2006 UTC
# Line 452  Line 452 
452  sub lock_fid {  sub lock_fid {
453      my($self,$user,$fid) = @_;      my($self,$user,$fid) = @_;
454    
455        if ((! $user) || ($fid !~ /^fig\|\d+\.\d+/))  { return 0 }
456    
457      my $func = $self->function_of($fid);      my $func = $self->function_of($fid);
458      $self->add_annotation($fid,$user,"locked assignments to '$func'");      $self->add_annotation($fid,$user,"locked assignments to '$func'");
459    
# Line 484  Line 486 
486  sub unlock_fid {  sub unlock_fid {
487      my($self,$user,$fid) = @_;      my($self,$user,$fid) = @_;
488    
489        if ((! $user) || ($fid !~ /^fig\|\d+\.\d+/))  { return 0 }
490    
491      $self->add_annotation($fid,$user,"unlocked assignments");      $self->add_annotation($fid,$user,"unlocked assignments");
492      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
493      my $relational_db_response = $rdbH->SQL("SELECT fid FROM fid_locks WHERE fid = '$fid' ");      my $relational_db_response = $rdbH->SQL("SELECT fid FROM fid_locks WHERE fid = '$fid' ");

Legend:
Removed from v.1.520  
changed lines
  Added in v.1.521

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3