forum.lissyara.su

Код: Выделить всё

package MyApp::Controller::view_section;

use warnings;
use parent 'Catalyst::Controller';

use DBIx::Tree;

=head1 NAME

MyApp::Controller::view_section - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut


=head2 index 

=cut

sub view_section : Global {
    my ( $self, $c, @args ) = @_;

    $c->stash->{template} = 'view_section.tt';
    


my $sql;
if (defined($args[0])) {

$sql = "SELECT id_se, name_se, parent_se_id
        FROM section
        WHERE active_se = 1 AND privat_se = 1
";

} else { 

 $sql = "SELECT id_se, name_se, parent_se_id
         FROM section
         WHERE active_se = 1 AND privat_se = 1
";

}

my $dbh = $c->model('DBI')->dbh;


  my $tree = new DBIx::Tree(connection => $dbh,
                            sql      => $sql,
                            method     => sub { disp_tree(@_) },
                            columns    => ['id_se', 'name_se', 'parent_se_id'],
                            start_id   => $args[0],
                            recursive => '1'                         
                           );                          
  $tree->traverse;

 my $tree_a;



while ($curr_level > 0) {


    
    $curr_level--;
}

# End the HTML.
#


# This is the callback function for creating the tree. It's called for 
# each node in the tree.
#
sub disp_tree {

    # Get the parameters.
    #
    my %parms = @_;

    # We are interested in the item and its level.
    #
    my $item  = $parms{item};
    my $level = $parms{level};
    my $id    = $parms{id};
    my $created = $parms{created};

    # Strip leading and trailing space from the item.
    #
    $item =~ s/^\s+//;
    $item =~ s/\s+$//;

    # If the level increases, start a new list at the new level.
    #

push @{$tree_a}, { 'level' => ' &nbsp ' x ($level), 'item' => $item, 'created' => $args[0], 'id' => $id };

    # If the level decreases, end the lists between levels.
    #
    if ($level < $curr_level) {
        while ($curr_level > $level) {
            $curr_level--;

        }
    }
    $curr_level = $level;

    # Display each item.
    #


}
       $c->stash->{tree} = $tree_a;

}

Код: Выделить всё

    method     => sub { disp_tree(@_) },

Код: Выделить всё

sub disp_tree {

Код: Выделить всё

package MyApp::Model::Tree;

use strict;
use warnings;
use base 'Catalyst::Model';
use Class::C3::Adopt::NEXT;
use DBIx::Tree;

sub new {
    my ( $class, $c ) = @_;
    my $self = $class->next::method(@_);
    $self->{dbh} = $c->model('DBI')->dbh; 
    return $self;
}  

sub extr_new {
    my ( $self, $sql, $id, $disp_tree_out  ) = @_;
  
  my $tree = new DBIx::Tree(connection => $self->{dbh},
                            sql      => $sql,
                            method     => \&$disp_tree_out,
                            columns    => ['id_se', 'name_se', 'parent_se_id'],
                            start_id   => $id,
                            recursive  => 1
                           );                          
   $tree->traverse;    

    return $self;

}
 
1;

Код: Выделить всё

sub delete_s {
....
$c->model('Tree')->extr_new($sql_tree, $args[0], 'MyApp::Controller::delete::disp_tree');

.....


 sub disp_tree {
    my %parms = @_;

            $c->model('DBI')->dbh->do(
                'DELETE from section                         
                     WHERE id_se = ' . $parms{id}
            );
       

}


}

Код: Выделить всё

package SomeCMS;

use strict;
use warnings;

use Catalyst::Runtime '5.70';

# Set flags and add plugins for the application
#
#         -Debug: activates the debug mode for very useful log messages
#   ConfigLoader: will load the configuration from a Config::General file in the
#                 application's home directory
# Static::Simple: will serve static files from the application's root 
#                 directory

use parent qw/Catalyst/;

our $VERSION = '0.01';


# ======== HACKS ================================

*Catalyst::Utils::class2appclass = sub {
    my $class = shift || '';
    my $appname = '';
    if ( $class =~ /^(.+?)::([MVC]|ModelX|ViewX|ControllerX|Model|View|Controller)::.+$/ ) {
        $appname = $1;
    }
    return $appname;    
};

*Catalyst::Utils::class2classprefix = sub {
    my $class = shift || '';
    my $prefix;
    if ( $class =~ /^(.+?::([MVC]|ModelX|ViewX|ControllerX|Model|View|Controller))::.+$/ ) {
        $prefix = $1;
    }
    return $prefix;
};

*Catalyst::Utils::class2prefix = sub {
    my $class = shift || '';
    my $case  = shift || 0;
    my $prefix;
    if ( $class =~ /^.+?::([MVC]|ModelX|ViewX|ControllerX|Model|View|Controller)::(.+)$/ ) {
        $prefix = $case ? $2 : lc $2;
        $prefix =~ s{::}{/}g;
    }
    return $prefix;
};