/[webpac2]/Webpacus/lib/Webpacus/Controller/Editor.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 /Webpacus/lib/Webpacus/Controller/Editor.pm

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

revision 270 by dpavlin, Fri Dec 16 13:20:51 2005 UTC revision 271 by dpavlin, Sat Dec 17 03:19:58 2005 UTC
# Line 41  sub default : Private { Line 41  sub default : Private {
41    
42          $c->stash->{template_filename} = $template_filename;          $c->stash->{template_filename} = $template_filename;
43    
44          # get databases from config          $c->stash->{databases} = $c->comp('Model::Databases')->list_inputs;
         my @databases;  
         my $config_dbs = $c->config->{databases};  
   
         if (! $config_dbs) {  
                 $c->log->fail("didn't find databases in config");  
         } else {  
                 # convert to resonable format for TT  
                 foreach my $db (keys %{ $config_dbs }) {  
                         my $d = $config_dbs->{$db} || die;  
                         my $inputs = $d->{input} || next;  
                         $inputs = [ $inputs ] if (ref($inputs) ne 'ARRAY');  
   
                         foreach my $i ( @{ $inputs } ) {  
                                 my $el = {  
                                         input   => $i->{name},  
                                         name    => $d->{name} || $d,  
                                         prefix  => $db . '/' . $i->{name},  
                                 };  
                                 push @databases, $el;  
                         }  
                 }  
         }  
   
         $c->stash->{databases} = \@databases;  
45    
46          $c->stash->{template} = 'editor.tt';          $c->stash->{template} = 'editor.tt';
47  }  }
Legend:
Removed from v.270  
changed lines
  Added in v.271
  ViewVC Help
Powered by ViewVC 1.1.26