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

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

revision 924 by dpavlin, Wed Oct 31 00:26:45 2007 UTC revision 949 by dpavlin, Thu Nov 1 00:16:48 2007 UTC
# Line 61  sub init { Line 61  sub init {
61                  $log->info("created ", $self->path);                  $log->info("created ", $self->path);
62          }          }
63    
64            return 1;
65  }  }
66    
67    
# Line 81  sub add { Line 82  sub add {
82          $log->logdie("need id") unless defined $id;          $log->logdie("need id") unless defined $id;
83          $log->logdie("need ds") unless $ds;          $log->logdie("need ds") unless $ds;
84    
85          $log->debug("id: $id ds = ",dump($ds));          $log->debug("id: $id ds = ",sub { dump($ds) });
86    
87          my $hash = $self->ds_to_hash( $ds, 'sorted' ) || return;          my $hash = $self->ds_to_hash( $ds, 'sorted' ) || return;
88    
# Line 150  sub finish { Line 151  sub finish {
151          }          }
152    
153          $log->info("over with sorted lists");          $log->info("over with sorted lists");
154    
155            return 1;
156  }  }
157    
158    
Legend:
Removed from v.924  
changed lines
  Added in v.949
  ViewVC Help
Powered by ViewVC 1.1.26