c405/dojo
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

restruc

Browse Source
This commit is contained in:
mynah
2019-03-12 19:20:30 -06:00
parent 956dbdb909
commit fa0fbe9eb4
49 changed files with 77 additions and 205 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
lib/Dojo/Controller/Home.pm
View File

@@ -4,21 +4,9 @@ use Mojo::Template;
use Dojo::Support qw{ log dmph merge_hash load_module get_names};
sub tst{
my $c=shift;
# $c->stash( merge_hash(
# (load_module("home/tst"))[0],
# (load_module("home/contact"))[0]
#));
# $c->stash(apend => ["home/contact"]);
#$c->stash( (load_module("home/tst"))[0] );
#$c->stash(layout=> "defaultContact");
#my $x = [get_names("public/home/cal/img/")];
#log("@$x");
#$c->stash( ilist => $x);
#$c->dbv->tst;
$c->render(text=> $c->config->{radio}{'channel'});
}
# User ========================================================================
sub home_ {
my $c = shift;
@@ -27,32 +15,32 @@ sub tst{
sub home {
my $c = shift;
$c->stash((load_module("home/home"))[0]);
$c->stash( $c->dbv->mod) ;
$c->stash(layout=>'default');
}
sub pang {
my $c = shift;
my ($v,$w)=load_module("home/pang");
$c->stash($v);
$c->stash( $c->dbv->md_to_hash(@{$w->{'md'}}) );
my $h=$c->dbv->pang_md;
map { $c->stash( $_ => $h->{$_}) } keys %$h;
$c->stash(layout=>'default');
}
sub cal {
my $c = shift;
$c->stash((load_module("home/cal"))[0]);
my $data=$c->dbv->calendar_events;
my $block=$c->dbv->calendar_monthblock;
my %hdata;
map{ push @{ $hdata{$_->{bid}} },$_; }(@$data);
$c->stash( r=>\%hdata, b=>$block);
my %h;
map{ push @{ $h{$_->{bid}} },$_; }(@$data);
$c->stash( r=>\%h, b=>$block);
$c->stash(layout=>'default');
}
sub event{
my $c = shift;
$c->stash((load_module("home/event"))[0]);
$c->stash(layout=> "defaultContact");
$c->stash($c->dbv->event($c->param("id")));
$c->stash(layout=> "defaultContact");
}
sub contact{
@@ -67,7 +55,7 @@ sub tst{
);
$c->redirect_to('contact2');
}else{
$c->stash((load_module("home/contact"))[0]);
$c->stash(layout=>'default');
}
}
@@ -75,22 +63,17 @@ sub tst{
my $c = shift;
$c->redirect_to("home") unless $c->flash('mname');
$c->stash( mname=>$c->flash('mname'));
$c->stash((load_module("home/contact2"))[0]);
$c->stash(layout=>'default');
}
sub store{
my $c = shift;
$c->stash((load_module("home/store"))[0]);
$c->stash( r=>$c->dbv->store);
$c->stash(layout=> "defaultContact");
}
sub tv{
my $c = shift;
$c->stash( merge_hash(
(load_module("home/tv"))[0],
(load_module("home/tv/trans"))[0]
));
$c->stash( videos=>$c->dbv->tv_videos, table=>$c->dbv->tv_series);
$c->stash(layout=> "defaultContact");
}