Alzabo-GUI-Mason

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    elsif ( eval { require Alzabo::Config; 1; } )
    {
	$config = \%Alzabo::Config::CONFIG;
    }

    my $default = $config->{mason_web_dir};
    $default =~ s,/alzabo\Z,, if $default;

    do
    {
	print "\n *** The directory you selected does not exist ***\n"
            if defined $config->{mason_web_dir} && ! -d $config->{mason_web_dir};

	print <<'EOF';

Where would you like to install the mason components for this
interface (this must be under your component root)?  NOTE: The
installer will create an 'alzabo' subdirectory under the directory
given.

If you are not familiar with Mason, any directory underneath your web

mason/add_index_1.mhtml  view on Meta::CPAN

   <span class="text">Fulltext?</span> <input type="checkbox" name="fulltext">
  </td>
 </tr>
% }
% if ( $s->rules->feature('functional_indexes') ) {
 <tr>
  <td colspan="2">
   <p>
   If you want to make a function index, simply type the function
   below, with the proper column name arguments.  You should only use
   the columns you selected on the previous page.
   </p>
  </td>
 <tr>
 <tr>
  <td colspan="2">
   <input type="text" name="function">
  </td>
 </tr>
% }
 <tr>

mason/add_relationship.mhtml  view on Meta::CPAN

  <td>
   <h3>Table: <% $t_to->name %></h3>
  </td>
 </tr>
 <tr valign="top">
  <td>
% foreach my $c (@columns_from) {
   <input type="hidden" name="columns_from" value="<% $c %>">
   <% $c %><br>
% }
   <select name="columns_from">
    <option value="">Let Alzabo choose</option>
% foreach my $c ($t_from->columns) {
%   next if grep { $_ eq $c->name } @columns_from;
    <option value="<% $c->name %>"<% eval { $t_to->column( $c->name ) } ? ' selected' : '' %>><% $c->name %></option>
% }
   </select>
   <br>
   Is dependent on <% $t_to->name %>?
   <input type="checkbox" name="from_is_dependent" value="1" <% $from_is_dependent && 'checked' %>>
  </td>
  <td nowrap="1">
   <select name="cardinality_from">
% foreach my $cf (@cardinality) {
    <option value="<% $cf   %>"<% $cardinality_from eq $cf && ' selected' %>><% $cf %></option>
% }
   </select>
  ..
   <select name="cardinality_to">
% foreach my $ct (@cardinality) {
    <option value="<% $ct %>"<% $cardinality_to eq $ct && ' selected' %>><% $ct %></option>
% }
   </select>
  </td>
  <td>
% foreach my $c (@columns_to) {
   <input type="hidden" name="columns_to" value="<% $c %>">
   <% $c %><br>
% }
   <select name="columns_to">
    <option value="">Let Alzabo choose</option>
% foreach my $c ($t_to->columns) {
%   next if grep { $_ eq $c->name } @columns_to;
    <option value="<% $c->name %>"><% $c->name %></option>
% }
   </select>
   <br>
   Is dependent on <% $t_from->name %>?
   <input type="checkbox" name="to_is_dependent" value="1" <% $to_is_dependent && 'checked' %>>
  </td>
 </tr>
 <tr valign="top">
  <td colspan="3">Comment:</td>
 </tr>
 <tr valign="top">
  <td colspan="3">

mason/index.mhtml  view on Meta::CPAN

   <td width="30%">
    <h4>Schema name:</h4>
   </td>
   <td><input class="h4" type="textfield" name="name" size="20"></td>
  </tr>
  <tr>
   <td width="30%">
    <h4>RDBMS:</h4>
   </td>
   <td>
    <select class="h4" name="rdbms">
% foreach my $rdbms ( sort Alzabo::RDBMSRules->available ) {
     <option value="<% $rdbms | h %>"><% $rdbms | h %></option>
% }
    </select>
   </td>
  </tr>
  <tr>
   <td colspan="2">
    <input class="h4" type="submit" value="Submit">
   </td>
  </tr>
 </table>
 </form>

mason/index.mhtml  view on Meta::CPAN

  </tr>

  <tr>
   <td width="30%"><h4>Port:</h4></td>
   <td><input class="h4" type="text" name="port" size="6"></td>
  </tr>

  <tr>
   <td width="30%"><h4>RDBMS:</h4></td>
   <td>
    <select class="h4" name="rdbms">
% foreach my $rdbms (sort Alzabo::RDBMSRules->available) {
    <option value="<% $rdbms | h %>"><% $rdbms | h %></option>
% }
    </select>
   </td>
  </tr>

  <tr>
   <td colspan="2"><input class="h4" type="submit" value="Submit"></td>
  </tr>
 </table>

 </form>
</div>

mason/view_column.mhtml  view on Meta::CPAN

 <input type="hidden" name="schema" value="<% $s->name %>">
 <input type="hidden" name="table" value="<% $t->name %>">
 <input type="hidden" name="column" value="<% $c->name %>">

 <h4>Change comment:</h4>

 <textarea rows="5" cols="40" name="comment"><% $c->comment | h %></textarea>

 <h4>Change type:</h4>

 <select name="type">
% my $selected;
% foreach ( ( $is_extended_type ? ('') : () ), $s->rules->column_types ) {
  <option value="<% $_ %>" <% $c->type eq $_ && 'selected' %>><% $_ %></option>
% }
 </select>
% if ( $s->rules->feature('extended_column_types') ) {
 <br />

 Enter your type if it is not on the list: <br />

 <input type="textfield" name="extended_type" value="<% $is_extended_type && $c->type %>">
% }

 <h4>Change length/precision:</h4>

mason/view_column.mhtml  view on Meta::CPAN

<div class="right">
<h2>Move</h2>

<form action="move_column<% Alzabo::GUI::Mason::Config::mason_extension() %>">
 <input type="hidden" name="schema" value="<% $s->name %>">
 <input type="hidden" name="table" value="<% $t->name %>">
 <input type="hidden" name="column" value="<% $c->name %>">
 <h4>Move column</h4>

 After column:
 <select name="after">
%   foreach my $c (@cols) {
  <option value="<% $c->name %>"><% $c->name %></option>
%   }
 </select>

 <input type="submit" value="Submit">

</form>
</div>
% }

  </td>

<%args>

mason/view_schema.mhtml  view on Meta::CPAN

  <h4>Attributes</h4>
  <input type="textfield" name="attributes" size="20"><br />
  <input type="textfield" name="attributes" size="20"><br />
% }

  <h4>Comments:</h4>
  <textarea name="comment"></textarea>

% if ($s->tables) {
  <h4>After table:</h4>
  <select name="after">
%   foreach my $t ($s->tables) {
   <option value="<% $t->name %>"<% $t->name eq ($s->tables)[-1]->name ? ' selected' : '' %>><% $t->name %></option>
%   }
   </select>
% }
   <input type="submit" value="Submit">
  </form>
</div>
</td>

<td>
<div class="right">
 <h2>Delete</h2>

mason/view_table.mhtml  view on Meta::CPAN

<form action="add_column<% Alzabo::GUI::Mason::Config::mason_extension() %>">
 <input type="hidden" name="schema" value="<% $s->name %>">
 <input type="hidden" name="table" value="<% $t->name %>">
  <h4>Name:</h4>
  <input type="textfield" name="column_name" size="20"><br />

  <h4>Comment:</h4>
  <textarea name="comment"></textarea><br />

  <h4>Type:</h4>
  <select name="type">
% foreach ( $s->rules->column_types ) {
   <option value="<% $_ %>"><% $_ %></option>
% }
  </select>
% if ( $s->rules->feature('extended_column_types') ) {
  <br>
  <h4>Enter your type if it is not on the list:</h4>
  <input type="textfield" name="extended_type" size="20">
% }
  <br>

  <h4>Length/precision:</h4>
  <input type="textfield" name="length" size="5">,
  <input type="textfield" name="precision" size="5"><br />

mason/view_table.mhtml  view on Meta::CPAN

     <h4>Allow nulls:</h4>
    </td>
    <td>
     <input type="checkbox" name="nullable" value="1">
    </td>
   </tr>
  </table>

% if ($t->columns) {
  <h4>After column:</h4>
  <select name="after">
%   foreach my $c (@columns) {
   <option value="<% $c->name %>"<% $c->name eq $last->name ? ' selected' : '' %>><% $c->name %></option>
%   }
  </select>
% }
  <br />

  <input type="submit" value="Submit">

 </form>
</div>

% if ( (my @tables = $s->tables) > 2) {
<div class="right">
<h2>Move</h2>

<form action="move_table<% Alzabo::GUI::Mason::Config::mason_extension() %>" method="post">
 <input type="hidden" name="schema" value="<% $s->name %>">
 <input type="hidden" name="table" value="<% $t->name %>">
 <h4>After table:</h4>
 <select name="after">
%   foreach my $t (@tables) {
  <option value="<% $t->name %>"><% $t->name %></option>
%   }
 </select>
 <input type="submit" value="Submit">
</form>
</div>
% }

  </td>

<%args>
$s
$t

mason/view_table_other.mhtml  view on Meta::CPAN

 <form action="add_relationship<% Alzabo::GUI::Mason::Config::mason_extension() %>" method="post">
 <input type="hidden" name="schema" value="<% $s->name %>">
 <input type="hidden" name="table_from" value="<% $t->name %>">
  <table width="100%" cellspacing="5">
   <tr valign="top">
    <td><span class="text">To table:</span></td>
   </tr>
   <tr valign="top">
    <td>
     <select name="table_to">
%   foreach my $t ( sort {$a->name cmp $b->name} $s->tables ) {
%     next unless $t->columns;
      <option value="<% $t->name %>"><% $t->name %></option>
%   }
     </select>
    </td>   
   </tr>
   <tr valign="top">
    <td><input type="submit" value="Submit"></td>
   </tr>
  </table>
 </form>
% }

mason/view_table_other.mhtml  view on Meta::CPAN

% if ($t->columns) {
<div class="right">
 <h2>Add index</h2>

 <form action="add_index_1<% Alzabo::GUI::Mason::Config::mason_extension() %>" method="post">
 <input type="hidden" name="schema" value="<% $s->name %>">
 <input type="hidden" name="table" value="<% $t->name %>">
  <table width="100%" cellspacing="5">
   <tr valign="top">
    <td>
     <select name="columns" multiple="multiple">
%   foreach my $c ( $t->columns ) {
      <option value="<% $c->name %>"><% $c->name %></option>
%   }
     </select>
    </td>
   </tr>
   <tr valign="top">
    <td>
     <input type="submit" value="Submit">
    </td>
   </tr>
  </table>
 </form>