Alzabo-GUI-Mason

 view release on metacpan or  search on metacpan

mason/autohandler  view on Meta::CPAN

%   my @t = $s->tables;
  <td>

<div class="left">
 <h2>Tables</h2>
%   for ( my $x = 0; $x < @t; $x++ ) {
 <h3>\
%     if ($x) {
<& href,
    text => '&laquo;',
    escape => 0,
    path => 'move_table' . Alzabo::GUI::Mason::Config::mason_extension(),
    query => { table => $t[$x]->name,
               before => $t[$x - 1]->name,
               schema => $s->name,
             },
 &>\
%     } else {
<span class="left_invisible">&laquo;</span>\
%     }
&nbsp;\

mason/autohandler  view on Meta::CPAN

   text => $t[$x]->name,
   path => 'view_table' . Alzabo::GUI::Mason::Config::mason_extension(),
   query => { table => $t[$x]->name,
              schema => $s->name,
            },
 &>\
 \
%     if ( $x != $#t ) {
<& href,
   text => '&raquo;',
   escape => 0,
   path => 'move_table' . Alzabo::GUI::Mason::Config::mason_extension(),
   query => { table => $t[$x]->name,
              after => $t[$x + 1]->name,
              schema => $s->name,
            },
 &>\
%     }
</h3>
%   }
</div>

mason/autohandler  view on Meta::CPAN

             },
  &>
 </p>

 <h2>Columns</h2>
%   for ( my $x = 0; $x < @c; $x++ ) {
<h3>\
%     if ($x) {
<& href,
   text => '&laquo;',
   escape => 0,
   path => 'move_column' . Alzabo::GUI::Mason::Config::mason_extension(),
   query => { column => $c[$x]->name,
              before => $c[$x - 1]->name,
              table  => $c[$x]->table->name,
              schema => $s->name,
            },
 &>\
%     } else {
<span class="middle_invisible">&laquo;</span>\
%     }

mason/autohandler  view on Meta::CPAN

               schema => $s->name,
             },
  &>\
%     if ( $c[$x]->is_primary_key ) {
&nbsp;-&nbsp;<b>pk</b>\
%     }
&nbsp;\
%     if ( $x != $#c ) {
<& href,
   text => '&raquo;',
   escape => 0,
   path => 'move_column' . Alzabo::GUI::Mason::Config::mason_extension(),
   query => { column => $c[$x]->name,
              after  => $c[$x + 1]->name,
              table  => $c[$x]->table->name,
              schema => $s->name,
            },
  &>\
%     }
</h3>
%   }

mason/href  view on Meta::CPAN

<a href="<% $uri %>">\
% if ($escape) {
<% $ARGS{text} | h %>\
% } else {
<% $text %>\
% }
</a>\
<%args>
$text
$escape => 1
</%args>

<%init>
my %args = %ARGS;
delete $args{text};
delete $args{escape};

my $uri = uri(%args);
</%init>