[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.132, Mon Aug 9 13:36:18 2004 UTC revision 1.133, Thu Aug 12 11:39:44 2004 UTC
# Line 3587  Line 3587 
3587              my $seek2 = tell TMP;              my $seek2 = tell TMP;
3588              close(TMP);              close(TMP);
3589              chmod 02777, $file;              chmod 02777, $file;
3590              my $ln = $seek2 - $seek1;              my $ln = ($seek2 - $seek1) - 3;
3591              my $rdbH = $self->db_handle;              my $rdbH = $self->db_handle;
3592              if ($rdbH->SQL("INSERT INTO annotation_seeks ( fid, dateof, who, ma, fileno, seek, len ) VALUES ( \'$feature_id\', $time_made, \'$user\', \'$ma\', $fileno, $seek1, $ln )"))              if ($rdbH->SQL("INSERT INTO annotation_seeks ( fid, dateof, who, ma, fileno, seek, len ) VALUES ( \'$feature_id\', $time_made, \'$user\', \'$ma\', $fileno, $seek1, $ln )"))
3593              {              {

Legend:
Removed from v.1.132  
changed lines
  Added in v.1.133

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3