popfile-commit

[naoki i. <am...@us...>]

Update of /cvsroot/popfile/engine/POPFile
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1362/POPFile

Modified Files:
	History.pm 
Log Message:
Fixed typos in referring dataase

Index: History.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/History.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -d -r1.42 -r1.43
*** History.pm	26 Nov 2007 15:22:48 -0000	1.42
--- History.pm	27 Nov 2007 00:05:07 -0000	1.43
***************
*** 247,251 ****
  
          # Avoid another POPFile process using the same committed id
!         $self->db__()->begin_work;
  
          # TODO Replace the hardcoded user ID 1 with the looked up
--- 247,251 ----
  
          # Avoid another POPFile process using the same committed id
!         $self->db_()->begin_work;
  
          # TODO Replace the hardcoded user ID 1 with the looked up
***************
*** 256,260 ****
  
          if ( defined( $test ) ) {
!             $self->db__()->commit;
              next;
          }
--- 256,260 ----
  
          if ( defined( $test ) ) {
!             $self->db_()->commit;
              next;
          }
***************
*** 272,276 ****
      my $result = $self->db_()->selectrow_arrayref(
                   "select id from history where committed = $r limit 1;");
!     $self->db__()->commit;
  
      my $slot = $result->[0];
--- 272,276 ----
      my $result = $self->db_()->selectrow_arrayref(
                   "select id from history where committed = $r limit 1;");
!     $self->db_()->commit;
  
      my $slot = $result->[0];
***************
*** 463,467 ****
      }
  
!     $self->db__()->begin_work;
      foreach my $entry (@{$self->{commit_list__}}) {
          my ( $session, $slot, $bucket, $magnet ) = @{$entry};
--- 463,467 ----
      }
  
!     $self->db_()->begin_work;
      foreach my $entry (@{$self->{commit_list__}}) {
          my ( $session, $slot, $bucket, $magnet ) = @{$entry};
***************
*** 611,615 ****
          }
      }
!     $self->db__()->commit;
  
      $self->{commit_list__} = ();
--- 611,615 ----
          }
      }
!     $self->db_()->commit;
  
      $self->{commit_list__} = ();
***************
*** 694,698 ****
  
      $self->database_()->tweak_sqlite( 1, 1, $self->db_() );
!     $self->db__()->begin_work;
  }
  
--- 694,698 ----
  
      $self->database_()->tweak_sqlite( 1, 1, $self->db_() );
!     $self->db_()->begin_work;
  }
  
***************
*** 709,713 ****
      my ( $self ) = @_;
  
!     $self->db__()->commit;
      $self->database_()->tweak_sqlite( 1, 0, $self->db_() );
  }
--- 709,713 ----
      my ( $self ) = @_;
  
!     $self->db_()->commit;
      $self->database_()->tweak_sqlite( 1, 0, $self->db_() );
  }