/[webpac2]/trunk/lib/WebPAC/Output/EstraierNative.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 /trunk/lib/WebPAC/Output/EstraierNative.pm

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

revision 673 by dpavlin, Mon Sep 11 20:49:37 2006 UTC revision 674 by dpavlin, Tue Sep 12 14:47:25 2006 UTC
# Line 95  sub new { Line 95  sub new {
95          my $path = 'casket';          my $path = 'casket';
96          $path =~ s!/+$!!;          $path =~ s!/+$!!;
97    
98          $self->{_casket_path} = $path;          $path .= '/' . $self->{database};
99    
100            $self->{path} = $path;
101    
102          $path .= '.tmp';          $path .= '.tmp';
103          if (-e $path) {          if (-e $path) {
# Line 267  sub finish { Line 269  sub finish {
269    
270          $self->{db}->close || $log->logdie("can't close index");          $self->{db}->close || $log->logdie("can't close index");
271    
272          my $path = $self->{_casket_path} || $log->logdie("no _casket_path?");          my $path = $self->{path} || $log->logdie("no path?");
273    
274          if (-e $path) {          if (-e $path) {
275                  $log->warn("removing old $path");                  $log->warn("removing old $path");
Legend:
Removed from v.673  
changed lines
  Added in v.674
  ViewVC Help
Powered by ViewVC 1.1.26