/[webpac]/trunk2/lib/WebPAC/Index.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 /trunk2/lib/WebPAC/Index.pm

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

revision 510 by dpavlin, Wed Sep 15 16:53:51 2004 UTC revision 511 by dpavlin, Sun Oct 17 17:35:32 2004 UTC
# Line 24  Create new sorted index object Line 24  Create new sorted index object
24    
25   my $thes = new WebPAC::Index(   my $thes = new WebPAC::Index(
26          log => 'log4perl.conf',          log => 'log4perl.conf',
27            name => 'index name',
28   );   );
29    
30  C<log> is optional parametar which specify filename of L<Log::Log4Perl>  C<log> is optional parametar which specify filename of L<Log::Log4Perl>
31  config file. Default is C<log.conf>.  config file. Default is C<log.conf>.
32    
33    C<name> is optional parametar used to mark lines in log file with index
34    name.
35    
36  Default sort function is my C<headline>, non case sensitive. It can't be  Default sort function is my C<headline>, non case sensitive. It can't be
37  changed right now without editing of source.  changed right now without editing of source.
38    
# Line 71  sub insert { Line 75  sub insert {
75    
76          push @{$self->{'index'}}, $data;          push @{$self->{'index'}}, $data;
77    
78          $log->debug("stored ",$data->{'mfn'},": ",$data->{'headline'});          my $name = '';
79            $name = $self->{'name'}." " if ($self->{'name'});
80    
81            $log->debug("stored ",$name,$data->{'mfn'},": ",$data->{'headline'});
82    
83  }  }
84    
Legend:
Removed from v.510  
changed lines
  Added in v.511
  ViewVC Help
Powered by ViewVC 1.1.26