package Dojo::Controller::Home;
use Mojo::Base 'Mojolicious::Controller';
use Dojo::Support qw{ dmph merge_hash load_module };
use Dojo::Conf;

sub tst{
  my $c=shift;
  my ($v,$w)= load_module($c);
  # $c->stash($v);
   $c->stash(d =>$v);
  
}

sub home {
  my $c = shift;
  $c->stash((load_module($c))[0]);
  $c->stash( map{ $_->{nombre} => $_->{contenido}} @{$c->dbv->mod});
}

sub pang {
  my $c = shift;
  my ($v,$w)=load_module($c);
  $c->stash($v);
  $c->stash( $c->dbv->pang($w) );
}

sub cal {
  my $c = shift;
  $c->stash((load_module($c))[0]);
  my ($data,$block)=$c->dbv->cal;
  my %hdata;
  map{ push @{ $hdata{$_->{bid}} },$_; }(@$data);
  $c->stash( r=>\%hdata, b=>$block);
}

sub event{
  my $c = shift;
  $c->stash((load_module($c))[0]);
  $c->stash(%{($c->dbv->event($c->param("id")))->[0]});
}
sub contact{
  my $c = shift;
  if ($c->param("mup")){
    $c->flash(mname => $c->param("mname"));
    $c->redirect_to('contact2');
  }else{ 
    my $dir= "/$c->{stash}{controller}/$c->{stash}{action}";
    $c->stash( css=>["$dir/cssContact1.css"], js=>[]); 
    $c->stash( layout=>"default"); 
  }
}

sub contact2{
  my $c = shift;
  $c->redirect_to("home") unless $c->flash('mname');
  my $dir= "/$c->{stash}{controller}/contact";
  $c->stash( css=>["$dir/cssContact2.css"], js=>[]); 
  $c->stash( layout=>"default"); 
  $c->stash( mname=>$c->flash('mname'));
}

sub store{
  my $c = shift;
  $c->stash((load_module($c))[0]);
  $c->stash( r=>$c->dbv->store);
}

sub tv{
  my $c = shift;
  $c->stash( merge_hash( 
    (load_module($c))[0],
    (load_module($c,"home/tv/trans"))[0]
  ));
  my ($series,$table)=$c->dbv->tv;
  $c->stash( series=>$series, table=>$table);
}

sub podcast{
  my $c = shift;
  $c->stash((load_module($c))[0]);
  
  my ($txt,$h)=$c->dbv->podcast;
  $c->stash( t=>$txt, pod=>$h,);
}

sub radio{
  my $c=shift;
  $c->stash((load_module($c))[0]);
  $c->stash(%{($c->dbv->radio)->[0]});
  $c->stash($Dojo::Conf::radio);
  $c->stash(nick=>$c->session("nick"));
}

 
  #$c->render(text =>"$c->{match}->position");
  #$c->render(text=>"$c->{stash}{controller}");
  #$c->render(text=>"$c->{match}{stack}->[0]{controller}");
  #$c->render(text=>"$h->{css}[0]");
1;