A3C/View/Strix.pm

package A3C::View::Strix;

=head1 NAME

A3C::View::Strix

=head1 DESCRIPTION

Display information about Strix instances

=head1 TEMPLATES

=cut

use strict;
use warnings;

use Jifty::View::Declare -base;
use Data::Dump qw/dump/;

=head2 /

Display instaces search and some stats

=cut

template 'index.html' => page {

        title is _('Strix instances');

        my $orgs = A3C::Model::StrixInstanceCollection->new;
        $orgs->unlimit;

        div { _('Number of instances in Strix: %1', $orgs->count ) };

        render_region(
                name => 'selected-instances',
                path => '/strix/selected-instances'
        );

        render_region(
                name => 'search-instances',
                path => '/strix/search-instances',
        );

};

=head2 name_diff

=cut

template 'name_diff' => page {

        title is _('Strix name differences');

        render_region(
                name => 'selected-instances',
                path => '/strix/selected-instances'
        );

        my $name_diff = A3C::SQL->new({ query => qq{
                select
                        instance,hreduorgurl,
                        _site_name,o
                from strix_instances
                join hr_edu_orgs on cn = instance
                where o != _site_name
        }});

        if ( $name_diff->count > 0 ) {

                table {
                        row {
                                th {}
                                th { _('Instance') }
                                th { _('Strix instance name') }
                                th { _('hrEduOrg.o') }
                        };
                        while ( my $row = $name_diff->next ) {
                                row {
                                        cell { show( 'instance-op', 'Create', '+', $row->instance ) }
                                        cell { $row->instance }
                                        cell { $row->_site_name }
                                        cell { $row->o }
                                }
                        }
                }
        
        } else {
                div { _("Can't find any instance of strix which has different name than data from LDAP") }
        }

};

=head2 sql

Execute SQL query on instance

=cut

template 'sql' => page {

        title is _('Execute SQL');

        render_region(
                name => 'selected-instances',
                path => '/strix/selected-instances'
        );

        render_region(
                name => 'execute-sql',
                path => '/strix/execute-sql',
        );

};

sub strix {
        my $instance = get('instance');
        return Strix->new({ instance => $instance });
}

sub strix_link {
        my ( $url, $label ) = @_;
        hyperlink(
                url => 'http://' . get('instance') . '.cms-qa.skole.hr' . $url,
                label => $label || $url,
                target => 'strix',
        );
}

=head2 navigation

=cut

template 'navigation' => page {

        title is _('Site navigation');

        render_region(
                name => 'selected-instances',
                path => '/strix/selected-instances'
        );

        render_region(
                name => 'strix-site',
                path => '/strix/site'
        );

};

=head1 REGIONS

=head2 execute-sql

Execute SQL query on instance

=cut

template 'execute-sql' => sub {

        my $sql = get('sql') || Jifty->web->session->get('sql');
        warn ">>>> sql = $sql";
        my $instance = get('instance');
        warn ">>>> instance = $instance";

        my $action = new_action(
                class   => 'StrixSQL',
                moniker => 'strix-sql',
                sticky_on_success => 1,
                sticky_on_failure => 1,
                arguments => {
                        instance => $instance,
                        sql => $sql,
                },
        );

        form {
                render_action( $action, [ 'instance', 'sql' ] );
                form_submit( label => _('Execute SQL') );
        };

        if ( my $sql = $action->result->content('sql') ) {
                Jifty->web->session->set( sql => $sql->query );
                div { _('Found %1 results for %2', $sql->count, $instance ) }
                table {
                        row { map { th { $_ } } $sql->_column_names };
                        while (my $row = $sql->next) {
                                row {
                                        foreach my $col ( $sql->_column_names ) {
                                                cell { $row->$col }
                                        }
                                }
                        }
                }
        }
        warn ">>>> sql (at end) = ",Jifty->web->session->get('sql');
};

=head2 search-instances

=cut

template 'search-instances' => sub {

        h1 { _('Find instance') }

        my $action = new_action(
                class   => 'SearchStrixInstance',
                moniker => 'search-strix-instance',
                sticky_on_success => 1,
                sticky_on_failure => 1,
        );


        form {
                render_action( $action => [ 'instance_contains', '_site_name_contains' ] );
                form_submit( label => _('Search') );
        };

#       warn dump( $action->result->content );

        if ( my $search = $action->result->content('search') ) {
                div { _('Found %1 results', $search->count ) }
                table {
                        while (my $strix = $search->next) {
                                row {
                                        cell { show( 'instance-op', 'Create', '+', $strix->instance ) }
                                        cell { tt { $strix->instance } }
                                        cell { $strix->_site_name }
                                }
                        }
                }
        }

};

=head2 selected-instances

Show Selected instances for current user

=cut

template 'selected-instances' => sub {
        my $self = shift;

#       warn "## IN selected-instances ",dump( @_ );

        if ( my $op = get 'op' ) {
                my $op_instance = get 'op_instance';
                return unless $op_instance;
                warn "# selected-instances $op on $op_instance";

                my $a;

                if ( $op eq 'Create' ) {

                        $a = new_action(
                                class => $op . 'StrixInstanceSelection',
                                moniker => $op,
                                arguments => {
                                        instance => $op_instance,
                                        by_user => $self->current_user->id,
                                },
                        );

                } elsif ( $op eq 'Delete' ) {

                        my $strix = A3C::Model::StrixInstanceSelection->new;
                        $strix->load_by_cols( instance => $op_instance, by_user => $self->current_user->id );
                        warn "can't find instance $op_instance" unless $strix->id;
                        $a = $strix->as_delete_action;

                }
#               warn "# argument_values = ",dump( $a->argument_values );
                $a->run;

                if ( $a->result->error ) {
                        div {
                                { class is 'note error' }
                                $a->result->error;
                        }
                }

                set( op => '' );
        }

        my $selected = A3C::Model::StrixInstanceSelectionCollection->new;
        $selected->limit( column => 'by_user', value => Jifty->web->current_user->id );

        if ( $selected->count > 0 ) {

                my $instance = get('instance');
                warn "# selected-instances -- selected: $instance\n";

                div { _('%1 instances selected', $selected->count ) };
                table {
                        while (my $s = $selected->next) {
                                row {
                                        cell { tt {
                                                if ( $s->instance->instance eq $instance ) {
                                                        b { $instance }
                                                } else {
                                                        hyperlink(
                                                                url => '?instance=' . $s->instance->instance,
                                                                label => $s->instance->instance
                                                        )
                                                }
                                        } }
                                        cell { $s->instance->_site_name }
                                        cell { show( 'instance-op', 'Delete', '-', $s->instance->instance ) }
                                }
                        }
                }
        } else {
                div { _('No instances selected') }
        }
};

=head2 instance-op

Display button to add/remove instance from selection

  show( 'instance-op', 'Delete', '-', $strix->instace );

=cut

template 'instance-op' => sub {
        my $self = shift;

#       warn "# instance-op = ",dump( @_ );

        my ( $op, $label, $instance ) = @_;

        form {
                hyperlink(
                        label => $label,
                        onclick => {
                                refresh => 'selected-instances',
                                path => '/strix/selected-instances',
                                args => {
                                        op_instance => $instance,
                                        op => $op,
                                }
                        },
                );
        }

};

=head2 site

=cut

template 'site' => sub {

        my $action = new_action(
                class   => 'StrixSelectSite',
                moniker => 'strix-select-site',
        );

        warn "# action = ", dump( $action );

        warn "# argument_values = ", dump( $action->argument_values );

        if ( ! $action->argument_value('instance') ) {
                $action->argument_value( 'instance', get('instance') );
                warn "# run action with instance\n";
                $action->run;
        }

        my $magic = [
                { submit => $action, refresh_self => 1 },
                # this is basically a closure
                { refresh => 'selected-instances', path => '/strix/selected-instances', args => {
                        instance => { result_of => $action, name => 'instance' }
                } },
                { refresh => 'strix-site-layout', path => '/__jifty/empty' },
        ];

        form {
                render_param( $action, 'instance', onchange => $magic );
                render_param( $action, 'site_id', onchange => $magic );
                form_submit( label => _('Show navigation'), onclick => $magic );
        };

        warn "## select-site action ",dump( $action->result );

        render_region(
                name => 'layout',
                path => '/__jifty/empty',
        );

        if ( my $site_id = $action->result->content('site_id') ) {
                show('navigation-tree', $action->result->content('instance'), $site_id);
        }
};

=head2 layout

Shows layout for C<url>

=cut

template 'layout' => sub {

        my $url = get('url') || '/';
        my $category = strix->category( $url );
        my $layout = strix->layout( $url );

        h1 { $category->{naziv} }
        pre {
                dump( $layout );
        }

};

=head2 category

Show category data for C<url>

=cut

template 'category' => sub {

        my $url = get('url') || '/';
        my $category = strix->category( $url );

        h1 { $category->{naziv} }
        pre {
                dump( $category );
        }

};

=head1 PRIVATE TEMPLATES

=head2 navigation-tree-category

  show('navigation-tree-category',$kat_row);

=cut

private template 'navigation-tree-category' => sub {
        my $self = shift;
        #warn "## navigation-tree-category",dump( @_ );
        my $p = shift;
        hyperlink(
                onclick => {
                        region => 'strix-site-layout',  # FIXME do we have to hard-code region name here?
                        replace_with => '/strix/category',
                        args => {
                                url => $p->{url},
                                instance => get('instance'),
                        }
                },
                label => $p->{naziv},
        );
        outs_raw('&nbsp;');
        if ( $p->{type} eq 'category' ) {
                hyperlink(
#                               url => '/strix/layout?url=' . $p->{url} . ';instance=' . get('instance'),
                        onclick => {
                                region => 'strix-site-layout',  # FIXME do we have to hard-code region name here?
                                replace_with => '/strix/layout',
                                args => {
                                        url => $p->{url},
                                        instance => get('instance'),
                                }
                        },
                        label => _('layout'),
                        class => 'layout',
                );
        }
        outs_raw('&nbsp;');
        strix_link( $p->{url}, '>>' );
};

=head2 navigation-tree

  show('navigation-tree',$instance,$site_id);

=cut

private template 'navigation-tree' => sub {
        my $self = shift;
        my ( $instance, $site_id ) = @_;

        warn "## navigation-tree instance: $instance site_id: $site_id";

        set 'instance' => $instance;

        sub children {
                my $c = shift;
                return unless defined $c->{children};
                ul {
                        foreach my $p ( @{ $c->{children} } ) {
                                li {
                                        if ( defined( $p->{class} ) ) {
                                                { class is $p->{class} };
                                        }
                                        show( 'navigation-tree-category', $p );
                                        children( $p );
                                }
                        }
                }
        }

        my $strix = Strix->new({ instance => $instance });

        my $navigation = $strix->site_navigation( $site_id );
        #warn "## navigation = ",dump( $navigation );
        if ( $navigation ) {
                ul {
                        { class is 'navigation' };
                        foreach my $p ( @$navigation ) {
                                li {
                                        show( 'navigation-tree-category', $p );
                                        children( $p );
                                }
                        }
                }
        } else {
                div {
                        { class is 'note error' }
                        _('No navigation found for instance %1 site_id %2', $instance, $site_id)
                }

        }

};

1;
1	dpavlin	142	package A3C::View::Strix;
2
3			=head1 NAME
4
5			A3C::View::Strix
6
7			=head1 DESCRIPTION
8
9	dpavlin	174	Display information about Strix instances
10	dpavlin	142
11	dpavlin	157	=head1 TEMPLATES
12
13	dpavlin	142	=cut
14
15			use strict;
16			use warnings;
17
18			use Jifty::View::Declare -base;
19			use Data::Dump qw/dump/;
20
21	dpavlin	157	=head2 /
22
23	dpavlin	174	Display instaces search and some stats
24	dpavlin	157
25			=cut
26
27	dpavlin	142	template 'index.html' => page {
28
29	dpavlin	174	title is _('Strix instances');
30	dpavlin	153
31	dpavlin	174	my $orgs = A3C::Model::StrixInstanceCollection->new;
32	dpavlin	166	$orgs->unlimit;
33
34	dpavlin	174	div { _('Number of instances in Strix: %1', $orgs->count ) };
35	dpavlin	166
36	dpavlin	157	render_region(
37	dpavlin	174	name => 'selected-instances',
38			path => '/strix/selected-instances'
39	dpavlin	157	);
40
41			render_region(
42	dpavlin	174	name => 'search-instances',
43			path => '/strix/search-instances',
44	dpavlin	157	);
45
46	dpavlin	153	};
47
48	dpavlin	157	=head2 name_diff
49
50			=cut
51
52	dpavlin	153	template 'name_diff' => page {
53
54	dpavlin	166	title is _('Strix name differences');
55	dpavlin	153
56	dpavlin	183	render_region(
57			name => 'selected-instances',
58			path => '/strix/selected-instances'
59			);
60
61	dpavlin	142	my $name_diff = A3C::SQL->new({ query => qq{
62			select
63	dpavlin	174	instance,hreduorgurl,
64	dpavlin	142	_site_name,o
65	dpavlin	174	from strix_instances
66			join hr_edu_orgs on cn = instance
67	dpavlin	142	where o != _site_name
68			}});
69
70	dpavlin	166	if ( $name_diff->count > 0 ) {
71
72	dpavlin	142	table {
73			row {
74	dpavlin	183	th {}
75	dpavlin	174	th { _('Instance') }
76			th { _('Strix instance name') }
77	dpavlin	142	th { _('hrEduOrg.o') }
78			};
79			while ( my $row = $name_diff->next ) {
80			row {
81	dpavlin	183	cell { show( 'instance-op', 'Create', '+', $row->instance ) }
82			cell { $row->instance }
83	dpavlin	142	cell { $row->_site_name }
84			cell { $row->o }
85			}
86			}
87			}
88	dpavlin	166
89			} else {
90	dpavlin	174	div { _("Can't find any instance of strix which has different name than data from LDAP") }
91	dpavlin	142	}
92
93			};
94
95	dpavlin	161	=head2 sql
96
97	dpavlin	174	Execute SQL query on instance
98	dpavlin	161
99			=cut
100
101			template 'sql' => page {
102
103			title is _('Execute SQL');
104
105	dpavlin	166	render_region(
106	dpavlin	174	name => 'selected-instances',
107			path => '/strix/selected-instances'
108	dpavlin	166	);
109
110			render_region(
111			name => 'execute-sql',
112			path => '/strix/execute-sql',
113			);
114
115			};
116
117	dpavlin	174	sub strix {
118	dpavlin	186	my $instance = get('instance');
119	dpavlin	174	return Strix->new({ instance => $instance });
120			}
121
122	dpavlin	187	sub strix_link {
123			my ( $url, $label ) = @_;
124			hyperlink(
125			url => 'http://' . get('instance') . '.cms-qa.skole.hr' . $url,
126			label => $label \|\| $url,
127			target => 'strix',
128			);
129			}
130
131	dpavlin	211	=head2 navigation
132
133			=cut
134
135	dpavlin	205	template 'navigation' => page {
136	dpavlin	172
137	dpavlin	197	title is _('Site navigation');
138	dpavlin	172
139	dpavlin	183	render_region(
140	dpavlin	200	name => 'selected-instances',
141			path => '/strix/selected-instances'
142			);
143
144			render_region(
145	dpavlin	211	name => 'strix-site',
146			path => '/strix/site'
147	dpavlin	183	);
148
149	dpavlin	172	};
150
151	dpavlin	166	=head1 REGIONS
152
153			=head2 execute-sql
154
155	dpavlin	174	Execute SQL query on instance
156	dpavlin	166
157			=cut
158
159			template 'execute-sql' => sub {
160
161	dpavlin	221	my $sql = get('sql') \|\| Jifty->web->session->get('sql');
162			warn ">>>> sql = $sql";
163			my $instance = get('instance');
164			warn ">>>> instance = $instance";
165
166	dpavlin	161	my $action = new_action(
167			class => 'StrixSQL',
168			moniker => 'strix-sql',
169			sticky_on_success => 1,
170			sticky_on_failure => 1,
171	dpavlin	166	arguments => {
172	dpavlin	221	instance => $instance,
173			sql => $sql,
174			},
175	dpavlin	161	);
176
177			form {
178	dpavlin	221	render_action( $action, [ 'instance', 'sql' ] );
179	dpavlin	161	form_submit( label => _('Execute SQL') );
180			};
181
182			if ( my $sql = $action->result->content('sql') ) {
183	dpavlin	221	Jifty->web->session->set( sql => $sql->query );
184			div { _('Found %1 results for %2', $sql->count, $instance ) }
185	dpavlin	161	table {
186			row { map { th { $_ } } $sql->_column_names };
187			while (my $row = $sql->next) {
188			row {
189			foreach my $col ( $sql->_column_names ) {
190			cell { $row->$col }
191			}
192			}
193			}
194			}
195			}
196	dpavlin	221	warn ">>>> sql (at end) = ",Jifty->web->session->get('sql');
197	dpavlin	161	};
198
199	dpavlin	174	=head2 search-instances
200	dpavlin	157
201			=cut
202
203	dpavlin	174	template 'search-instances' => sub {
204	dpavlin	157
205	dpavlin	174	h1 { _('Find instance') }
206	dpavlin	157
207			my $action = new_action(
208	dpavlin	174	class => 'SearchStrixInstance',
209			moniker => 'search-strix-instance',
210	dpavlin	157	sticky_on_success => 1,
211			sticky_on_failure => 1,
212			);
213
214
215			form {
216	dpavlin	174	render_action( $action => [ 'instance_contains', '_site_name_contains' ] );
217	dpavlin	157	form_submit( label => _('Search') );
218			};
219
220			# warn dump( $action->result->content );
221
222			if ( my $search = $action->result->content('search') ) {
223			div { _('Found %1 results', $search->count ) }
224			table {
225			while (my $strix = $search->next) {
226			row {
227	dpavlin	189	cell { show( 'instance-op', 'Create', '+', $strix->instance ) }
228	dpavlin	174	cell { tt { $strix->instance } }
229	dpavlin	157	cell { $strix->_site_name }
230			}
231			}
232			}
233			}
234
235			};
236
237	dpavlin	174	=head2 selected-instances
238	dpavlin	157
239	dpavlin	174	Show Selected instances for current user
240	dpavlin	157
241			=cut
242
243	dpavlin	174	template 'selected-instances' => sub {
244	dpavlin	157	my $self = shift;
245
246	dpavlin	186	# warn "## IN selected-instances ",dump( @_ );
247	dpavlin	157
248			if ( my $op = get 'op' ) {
249	dpavlin	211	my $op_instance = get 'op_instance';
250			return unless $op_instance;
251	dpavlin	186	warn "# selected-instances $op on $op_instance";
252	dpavlin	157
253			my $a;
254
255			if ( $op eq 'Create' ) {
256
257			$a = new_action(
258	dpavlin	174	class => $op . 'StrixInstanceSelection',
259	dpavlin	157	moniker => $op,
260			arguments => {
261	dpavlin	186	instance => $op_instance,
262	dpavlin	157	by_user => $self->current_user->id,
263			},
264			);
265
266			} elsif ( $op eq 'Delete' ) {
267
268	dpavlin	174	my $strix = A3C::Model::StrixInstanceSelection->new;
269	dpavlin	186	$strix->load_by_cols( instance => $op_instance, by_user => $self->current_user->id );
270			warn "can't find instance $op_instance" unless $strix->id;
271	dpavlin	157	$a = $strix->as_delete_action;
272
273			}
274	dpavlin	186	# warn "# argument_values = ",dump( $a->argument_values );
275	dpavlin	157	$a->run;
276	dpavlin	186
277			if ( $a->result->error ) {
278			div {
279			{ class is 'note error' }
280			$a->result->error;
281			}
282			}
283
284			set( op => '' );
285	dpavlin	157	}
286
287	dpavlin	174	my $selected = A3C::Model::StrixInstanceSelectionCollection->new;
288	dpavlin	157	$selected->limit( column => 'by_user', value => Jifty->web->current_user->id );
289
290			if ( $selected->count > 0 ) {
291
292	dpavlin	186	my $instance = get('instance');
293	dpavlin	200	warn "# selected-instances -- selected: $instance\n";
294	dpavlin	186
295	dpavlin	183	div { _('%1 instances selected', $selected->count ) };
296	dpavlin	157	table {
297			while (my $s = $selected->next) {
298			row {
299	dpavlin	186	cell { tt {
300			if ( $s->instance->instance eq $instance ) {
301			b { $instance }
302			} else {
303			hyperlink(
304			url => '?instance=' . $s->instance->instance,
305			label => $s->instance->instance
306			)
307			}
308	dpavlin	183	} }
309			cell { $s->instance->_site_name }
310			cell { show( 'instance-op', 'Delete', '-', $s->instance->instance ) }
311	dpavlin	157	}
312			}
313			}
314			} else {
315	dpavlin	174	div { _('No instances selected') }
316	dpavlin	157	}
317			};
318
319	dpavlin	174	=head2 instance-op
320	dpavlin	157
321	dpavlin	174	Display button to add/remove instance from selection
322	dpavlin	157
323	dpavlin	174	show( 'instance-op', 'Delete', '-', $strix->instace );
324	dpavlin	157
325			=cut
326
327	dpavlin	174	template 'instance-op' => sub {
328	dpavlin	157	my $self = shift;
329
330	dpavlin	186	# warn "# instance-op = ",dump( @_ );
331	dpavlin	157
332	dpavlin	174	my ( $op, $label, $instance ) = @_;
333	dpavlin	157
334			form {
335			hyperlink(
336			label => $label,
337			onclick => {
338	dpavlin	174	refresh => 'selected-instances',
339			path => '/strix/selected-instances',
340	dpavlin	157	args => {
341	dpavlin	186	op_instance => $instance,
342	dpavlin	157	op => $op,
343			}
344			},
345			);
346			}
347
348			};
349
350	dpavlin	211	=head2 site
351	dpavlin	157
352	dpavlin	197	=cut
353
354	dpavlin	211	template 'site' => sub {
355	dpavlin	197
356			my $action = new_action(
357			class => 'StrixSelectSite',
358			moniker => 'strix-select-site',
359			);
360
361	dpavlin	200	warn "# action = ", dump( $action );
362	dpavlin	197
363	dpavlin	200	warn "# argument_values = ", dump( $action->argument_values );
364
365			if ( ! $action->argument_value('instance') ) {
366			$action->argument_value( 'instance', get('instance') );
367			warn "# run action with instance\n";
368			$action->run;
369			}
370
371			my $magic = [
372			{ submit => $action, refresh_self => 1 },
373			# this is basically a closure
374			{ refresh => 'selected-instances', path => '/strix/selected-instances', args => {
375			instance => { result_of => $action, name => 'instance' }
376	dpavlin	211	} },
377			{ refresh => 'strix-site-layout', path => '/__jifty/empty' },
378	dpavlin	200	];
379
380	dpavlin	197	form {
381	dpavlin	200	render_param( $action, 'instance', onchange => $magic );
382			render_param( $action, 'site_id', onchange => $magic );
383			form_submit( label => _('Show navigation'), onclick => $magic );
384	dpavlin	197	};
385
386			warn "## select-site action ",dump( $action->result );
387
388	dpavlin	211	render_region(
389			name => 'layout',
390			path => '/__jifty/empty',
391			);
392
393	dpavlin	197	if ( my $site_id = $action->result->content('site_id') ) {
394	dpavlin	214	show('navigation-tree', $action->result->content('instance'), $site_id);
395	dpavlin	197	}
396			};
397
398	dpavlin	217	=head2 layout
399
400			Shows layout for C<url>
401
402			=cut
403
404			template 'layout' => sub {
405
406			my $url = get('url') \|\| '/';
407			my $category = strix->category( $url );
408			my $layout = strix->layout( $url );
409
410			h1 { $category->{naziv} }
411			pre {
412			dump( $layout );
413			}
414
415			};
416
417			=head2 category
418
419			Show category data for C<url>
420
421			=cut
422
423			template 'category' => sub {
424
425			my $url = get('url') \|\| '/';
426			my $category = strix->category( $url );
427
428			h1 { $category->{naziv} }
429			pre {
430			dump( $category );
431			}
432
433			};
434
435	dpavlin	197	=head1 PRIVATE TEMPLATES
436
437	dpavlin	214	=head2 navigation-tree-category
438	dpavlin	197
439	dpavlin	214	show('navigation-tree-category',$kat_row);
440	dpavlin	197
441			=cut
442
443	dpavlin	214	private template 'navigation-tree-category' => sub {
444	dpavlin	211	my $self = shift;
445	dpavlin	214	#warn "## navigation-tree-category",dump( @_ );
446	dpavlin	211	my $p = shift;
447	dpavlin	217	hyperlink(
448			onclick => {
449			region => 'strix-site-layout', # FIXME do we have to hard-code region name here?
450			replace_with => '/strix/category',
451			args => {
452			url => $p->{url},
453			instance => get('instance'),
454			}
455			},
456			label => $p->{naziv},
457			);
458			outs_raw(' ');
459	dpavlin	211	if ( $p->{type} eq 'category' ) {
460			hyperlink(
461	dpavlin	217	# url => '/strix/layout?url=' . $p->{url} . ';instance=' . get('instance'),
462	dpavlin	211	onclick => {
463			region => 'strix-site-layout', # FIXME do we have to hard-code region name here?
464			replace_with => '/strix/layout',
465			args => {
466			url => $p->{url},
467			instance => get('instance'),
468			}
469			},
470			label => _('layout'),
471			class => 'layout',
472			);
473			}
474	dpavlin	217	outs_raw(' ');
475			strix_link( $p->{url}, '>>' );
476	dpavlin	211	};
477
478	dpavlin	214	=head2 navigation-tree
479
480			show('navigation-tree',$instance,$site_id);
481
482			=cut
483
484			private template 'navigation-tree' => sub {
485	dpavlin	197	my $self = shift;
486			my ( $instance, $site_id ) = @_;
487
488	dpavlin	217	warn "## navigation-tree instance: $instance site_id: $site_id";
489	dpavlin	197
490			set 'instance' => $instance;
491
492			sub children {
493			my $c = shift;
494			return unless defined $c->{children};
495			ul {
496			foreach my $p ( @{ $c->{children} } ) {
497			li {
498	dpavlin	212	if ( defined( $p->{class} ) ) {
499			{ class is $p->{class} };
500			}
501	dpavlin	214	show( 'navigation-tree-category', $p );
502	dpavlin	197	children( $p );
503			}
504			}
505			}
506			}
507
508			my $strix = Strix->new({ instance => $instance });
509
510	dpavlin	214	my $navigation = $strix->site_navigation( $site_id );
511			#warn "## navigation = ",dump( $navigation );
512			if ( $navigation ) {
513	dpavlin	197	ul {
514	dpavlin	217	{ class is 'navigation' };
515	dpavlin	214	foreach my $p ( @$navigation ) {
516	dpavlin	197	li {
517	dpavlin	214	show( 'navigation-tree-category', $p );
518	dpavlin	197	children( $p );
519			}
520			}
521			}
522			} else {
523			div {
524			{ class is 'note error' }
525			_('No navigation found for instance %1 site_id %2', $instance, $site_id)
526			}
527
528			}
529
530			};
531
532	dpavlin	142	1;