/[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 514 by dpavlin, Mon Oct 18 12:19:34 2004 UTC revision 515 by dpavlin, Mon Oct 18 13:59:12 2004 UTC
# Line 45  sub new { Line 45  sub new {
45          my $log_file = $self->{'log'} || "log.conf";          my $log_file = $self->{'log'} || "log.conf";
46          Log::Log4perl->init($log_file);          Log::Log4perl->init($log_file);
47    
48          tie @{$self->{'index'}}, "Tie::Array::Sorted", sub {          tie @{$self->{'index'}}, "Tie::Array::Sorted::Lazy", sub {
49                  lc( $_[0]->{'headline'} ) cmp lc( $_[1]->{'headline'} )                  lc( $_[0]->{'headline'} ) cmp lc( $_[1]->{'headline'} )
50          };          };
51    
Legend:
Removed from v.514  
changed lines
  Added in v.515
  ViewVC Help
Powered by ViewVC 1.1.26