/[webpac]/branches/hidra/index_DBI.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/hidra/index_DBI.pm

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

revision 19 by dpavlin, Sat Feb 22 23:47:15 2003 UTC revision 28 by dpavlin, Sun Feb 23 07:07:33 2003 UTC
# Line 82  sub insert { Line 82  sub insert {
82          if (! $sth->fetchrow_hashref) {          if (! $sth->fetchrow_hashref) {
83                  my $sql = "insert into $field (item,ident,count) values (?,?,?)";                  my $sql = "insert into $field (item,ident,count) values (?,?,?)";
84                  my $sth = $self->{dbh}->prepare($sql) || die $self->{dbh}->errstr();                  my $sth = $self->{dbh}->prepare($sql) || die $self->{dbh}->errstr();
85                    $index_data = substr($index_data,0,255);
86                  $sth->execute($index_data,$ident,1) || die "sql: $sql; ".$self->{dbh}->errstr();                  $sth->execute($index_data,$ident,1) || die "sql: $sql; ".$self->{dbh}->errstr();
87  #print stderr "in index: $index_data\n";  #print stderr "in index: $index_data\n";
88          } else {          } else {
# Line 153  sub close { Line 154  sub close {
154    
155                  $self->{dbh}->begin_work || die $self->{dbh}->errstr();                  $self->{dbh}->begin_work || die $self->{dbh}->errstr();
156    
157                  my $sql = "select oid from $table order by item";                  my $sql = "select oid from $table order by upper(item)";
158                  my $sth = $self->{dbh}->prepare($sql) || die "sql: $sql; ".$self->{dbh}->errstr();                  my $sth = $self->{dbh}->prepare($sql) || die "sql: $sql; ".$self->{dbh}->errstr();
159                  $sql = "update $table set ord=? where oid=?";                  $sql = "update $table set ord=? where oid=?";
160                  my $sth_update = $self->{dbh}->prepare($sql) || die "sql: $sql; ".$self->{dbh}->errstr();                  my $sth_update = $self->{dbh}->prepare($sql) || die "sql: $sql; ".$self->{dbh}->errstr();

Legend:
Removed from v.19  
changed lines
  Added in v.28

  ViewVC Help
Powered by ViewVC 1.1.26