/[A3C]/lib/Strix.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 /lib/Strix.pm

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

revision 174 by dpavlin, Mon Jun 16 16:48:16 2008 UTC revision 182 by dpavlin, Mon Jun 16 21:29:50 2008 UTC
# Line 9  __PACKAGE__->mk_accessors( qw(instance u Line 9  __PACKAGE__->mk_accessors( qw(instance u
9  use DBI;  use DBI;
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
11  use Carp qw/confess/;  use Carp qw/confess/;
12    use Jifty;
13    
14  our $debug = 0;  our $debug = 0;
15    
# Line 35  our $instance_dbh; Line 36  our $instance_dbh;
36  sub dbh {  sub dbh {
37          my $self = shift;          my $self = shift;
38    
39          my $instance = shift || $self->instance || confess "no instance";          my $instance = shift || ref($self) && $self->instance || confess "no instance";
40    
41          return $instance_dbh->{$instance} if $instance_dbh->{$instance};          return $instance_dbh->{$instance} if $instance_dbh->{$instance};
42    
# Line 235  sub site_navigation { Line 236  sub site_navigation {
236                  }                  }
237    
238                  my $depth = $kat->{depth};                  my $depth = $kat->{depth};
239                    if ( ! defined $pos[ $depth - 2 ] ) {
240                            warn "FIXING CATEGORY: ",dump( $kat );
241                            $node->{class} = "error";
242                            $depth--;
243                    }
244                  @pos = splice( @pos, 0, $depth );                  @pos = splice( @pos, 0, $depth );
245                  $pos[ $depth - 1 ]++;                  $pos[ $depth - 1 ]++;
246    
Legend:
Removed from v.174  
changed lines
  Added in v.182
  ViewVC Help
Powered by ViewVC 1.1.26