[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.230, Fri Mar 4 06:22:10 2005 UTC revision 1.231, Fri Mar 4 18:29:21 2005 UTC
# Line 4953  Line 4953 
4953      return unless ($peg && $k); # we must have at least a peg and a tag to add (though other things can be undef)      return unless ($peg && $k); # we must have at least a peg and a tag to add (though other things can be undef)
4954      unless ($file) {$file="assigned_attributes"}      unless ($file) {$file="assigned_attributes"}
4955      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
4956    
4957    print STDERR "ADDING: PEG: $peg KEY : $k VALUE: $v URL: $url\n";
4958    
4959      $rdbH->SQL("INSERT INTO attribute ( fid,tag,val,url ) VALUES ( '$peg','$k','$v','$url')");      $rdbH->SQL("INSERT INTO attribute ( fid,tag,val,url ) VALUES ( '$peg','$k','$v','$url')");
4960      my $location=$self->attribute_location($peg);      my $location=$self->attribute_location($peg);
4961      &verify_dir("$location");      &verify_dir("$location");

Legend:
Removed from v.1.230  
changed lines
  Added in v.1.231

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3