view release on metacpan or  search on metacpan

cgi-bin/Content/tables.pl  view on Meta::CPAN

                  )
                  . (
                    $count > 20
                    ? ' | '
                      . a(
                        {
                            href =>
"javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=ShowTable&table=$tbl&links_pro_page=20&von=$m_nStart&orderBy=$field&desc=$state','ShowTable')",
                            class => $lpp == 20 ? 'menuLink2' : 'menuLink3'
                        },
                        '20'
                      )
                    : ''
                  )
                  . (
                    $count > 30
                    ? ' | '
                      . a(
                        {
                            href =>
"javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=ShowTable;&table=$tbl&links_pro_page=30&von=$m_nStart&orderBy=$field&desc=$state','ShowTable','ShowTable')",
                            class => $lpp == 30 ? 'menuLink2' : 'menuLink3'
                        },
                        '30'
                      )
                    : ''
                  )
                  . (
                    $count > 100
                    ? ' | '
                      . a(
                        {
                            href =>
"javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=ShowTable&table=$tbl&links_pro_page=100&von=$m_nStart&orderBy=$field&desc=$state','ShowTable','ShowTable')",
                            class => $lpp == 100 ? 'menuLink2' : 'menuLink3'
                        },
                        '100'
                      )
                    : ''
                  )
                  . (
                    $count > 100
                    ? ' | '
                      . a(
                        {
                            href =>
"javascript:requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=ShowTable&table=$tbl&links_pro_page=1000&von=$m_nStart&orderBy=$field&desc=$state','ShowTable','ShowTable')",
                            class => $lpp == 1000 ? 'menuLink2' : 'menuLink3'
                        },
                        '1000'
                      )
                    : ''
                  )
              )
            : ''
        );
        my $toolbar = a(
            {
                class => 'toolbarButton',
                onclick =>
q|document.getElementById('popupContent1').style.left='5%';document.getElementById('popupContent1').style.width='90%';showPopup('NewEntry');|,
                onmouseover => q|window.status='| . translate('NewEntry') . q|'|,
                title       => translate('NewEntry')
            },
            translate('NewEntry')
        );    #2
        $toolbar .= a(
            {
                class   => 'toolbarButton',
                onclick => q|showPopup('SqlSearch')|,
                title   => translate('search')
            },
            translate('search')
        );    #3
        $toolbar .= a(
            {
                class   => 'toolbarButton',
                onclick => 'showSQLEditor()',
                title   => translate('SQL')
            },
            translate('SQL')
        );    #4
        $toolbar .= a(
            {
                class   => 'toolbarButton',
                onclick => "requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=EditTable&table=$tbl','EditTable','EditTable')",
                title   => translate('Edit')
            },
            translate('Edit')
        );    #5
        $toolbar .= a(
            {
                class => 'toolbarButton',
                onclick =>
"requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=ShowTableDetails&table=$tbl','ShowTableDetails','ShowTableDetails')",
                title => translate('Details')
            },
            translate('Details')
        );    #6
        $toolbar .= a(
            {
                class => 'toolbarButton',
                onclick =>
                  "requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=ShowDumpTable&table=$tbl','ShowDumpTable','ShowDumpTable')",
                title => translate("Export")
            },
            translate('Export')
        ) . br();    #7
        $toolbar .= a(
            {
                class => 'toolbarButton',
                onclick =>
                  "requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=AnalyzeTable&table=$tbl','AnalyzeTable','AnalyzeTable')",
                title => translate('AnalyzeTable')
            },
            translate('AnalyzeTable')
        );           #8
        $toolbar .= a(
            {
                class => 'toolbarButton',
                onclick =>

cgi-bin/Content/tables.pl  view on Meta::CPAN

          ? '<option selected="selected" value="DATE" >DATE</option>'
          : '<option value="DATE">DATE</option>';
        $return .=
          $type eq 'DATETIME'
          ? '<option selected="selected" value="DATETIME" >DATETIME</option>'
          : '<option value="DATETIME" >DATETIME</option>';
        $return .=
          $type eq 'TIMESTAMP'
          ? '<option selected="selected" value="TIMESTAMP" >TIMESTAMP</option>'
          : '<option value="TIMESTAMP" >TIMESTAMP</option>';
        $return .=
          $type eq 'TIME'
          ? '<option selected="selected" value="TIME" >TIME</option>'
          : '<option value="TIME" >TIME</option>';
        $return .=
          $type eq 'YEAR'
          ? '<option selected="selected"  value="YEAR" >YEAR</option>'
          : '<option value="YEAR"  >YEAR</option>';
        $return .=
          $type eq 'CHAR'
          ? '<option selected="selected"  value="CHAR" >CHAR</option>'
          : '<option value="CHAR" >CHAR</option>';
        $return .=
          $type eq 'VARCHAR'
          ? '<option selected="selected"  value="VARCHAR" >VARCHAR</option>'
          : '<option value="VARCHAR">VARCHAR</option>';
        $return .=
          $type eq 'BLOB'
          ? '<option selected="selected"  value="BLOB">BLOB</option>'
          : '<option value="BLOB" >BLOB</option>';
        $return .=
          $type eq 'TEXT'
          ? '<option selected="selected"  value="TEXT">TEXT</option>'
          : '<option value="TEXT"  >TEXT</option>';
        $return .=
          $type eq 'ENUM'
          ? '<option selected="selected"  value="ENUM">ENUM</option>'
          : '<option value="ENUM"  >ENUM</option>';
        $return .=
          $type eq 'SET'
          ? '<option selected="selected"  value="SET">SET</option>'
          : '<option value="SET">SET</option>';
        $return .=
          $type eq 'TINYBLOB'
          ? '<option selected="selected"  value="SET">SET</option>'
          : '<option value="TINYBLOB">TINYBLOB</option>';
        $return .=
          $type eq 'MEDIUMBLOB'
          ? '<option selected="selected" value="MEDIUMBLOB">MEDIUMBLOB</option>'
          : '<option value="MEDIUMBLOB">MEDIUMBLOB</option>';
        $return .=
          $type eq 'LONGBLOB'
          ? '<option selected="selected"  value="LONGBLOB">LONGBLOB</option>'
          : '<option value="LONGBLOB">LONGBLOB</option>';
        $return .= qq|</select>
      <script language="JavaScript">ChangeToolTip('ChooseType$typId','$type');</script>
      </td><td>
      <div id="SET$name" | . ( $type ne 'SET' ? 'style="display:none;"' : '' ) . qq|>
      <a id="dropdown$name" class="dropdownLink" onclick="showMenu('dropdown$name','setContent$name');"><img src="style/$m_sStyle/buttons/edit.png"  title="Edit"/></a></div>
      </td></tr></table>
      <div id="setContent$name" align="center" style="display:none" class="popupMenu">
      <div class="selectBox">
      <div align="right">
      <a class="setButton" style="color:red;" onclick="deleteEntry('select$name');" title="remove">-</a>
      <a class="setButton" onclick="addEntry('select$name','lineEditSet$name');" title="add">+</a>
      <select multiple="multiple" onchange="editSet('lineEditSet$name',this)" style="width:100%;height:100px;margin:0%;" id="select$name" name="SET$name" class="set" size="10" >
      $options
      </select>
      <br/>
      <input type="text" id="lineEditSet$name" class="short" onkeypress="if(enter(event))return false;" onkeyup="if(enter(event))setEnter(this,'select$name');">
      </div>
      </div>|;
        return $return;
    } else {
        return 0;
    } ## end else [ if ( defined $type and...)]
} ## end sub GetTypes

=head2 renameDatabase()

Action:

=cut

sub renameDatabase {
    $m_oDatabase->void('RENAME {DATABASE | SCHEMA} db_name TO new_db_name');
} ## end sub renameDatabase
1;