Initial verion. Not working yep but I needed to send it now.

diff --git a/admin/xmldb/actions/view_table_php/view_table_php.class.php b/admin/xmldb/actions/view_table_php/view_table_php.class.php
new file mode 100644 (file)
index 0000000..fdefe87
--- /dev/null
+++ b/admin/xmldb/actions/view_table_php/view_table_php.class.php
@@ -0,0 +1,301 @@
+<?php // $Id$
+
+///////////////////////////////////////////////////////////////////////////
+//                                                                       //
+// NOTICE OF COPYRIGHT                                                   //
+//                                                                       //
+// Moodle - Modular Object-Oriented Dynamic Learning Environment         //
+//          http://moodle.com                                            //
+//                                                                       //
+// Copyright (C) 2001-3001 Martin Dougiamas        http://dougiamas.com  //
+//           (C) 2001-3001 Eloy Lafuente (stronk7) http://contiento.com  //
+//                                                                       //
+// This program is free software; you can redistribute it and/or modify  //
+// it under the terms of the GNU General Public License as published by  //
+// the Free Software Foundation; either version 2 of the License, or     //
+// (at your option) any later version.                                   //
+//                                                                       //
+// This program is distributed in the hope that it will be useful,       //
+// but WITHOUT ANY WARRANTY; without even the implied warranty of        //
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         //
+// GNU General Public License for more details:                          //
+//                                                                       //
+//          http://www.gnu.org/copyleft/gpl.html                         //
+//                                                                       //
+///////////////////////////////////////////////////////////////////////////
+
+/// This class will show the PHP needed to perform the desired action
+/// with the specified fields/keys/indexes.
+
+class view_table_php extends XMLDBAction {
+
+    /** 
+     * Init method, every subclass will have its own
+     */
+    function init() {
+        parent::init();
+
+    /// Set own custom attributes
+
+    /// Get needed strings
+        $this->loadStrings(array(
+            'selectaction' => 'xmldb',
+            'selectfieldkeyindex' => 'xmldb',
+            'view' => 'xmldb',
+            'back' => 'xmldb'
+        ));
+    }
+
+    /**
+     * Invoke method, every class will have its own
+     * returns true/false on completion, setting both
+     * errormsg and output as necessary
+     */
+    function invoke() {
+        parent::invoke();
+
+        $result = true;
+
+    /// Set own core attributes
+        $this->does_generate = ACTION_GENERATE_HTML;
+
+    /// These are always here
+        global $CFG, $XMLDB;
+
+    /// Do the job, setting result as needed
+    /// Get the dir containing the file
+        $dirpath = required_param('dir', PARAM_PATH);
+        $dirpath = $CFG->dirroot . stripslashes_safe($dirpath);
+
+    /// Get the correct dirs
+        if (!empty($XMLDB->dbdirs)) {
+            $dbdir =& $XMLDB->dbdirs[$dirpath];
+        } else {
+            return false;
+        }
+        if (!empty($XMLDB->editeddirs)) {
+            $editeddir =& $XMLDB->editeddirs[$dirpath];
+            $structure =& $editeddir->xml_file->getStructure();
+        }
+    /// ADD YOUR CODE HERE
+
+        $tableparam = required_param('table', PARAM_PATH);
+      
+        $table =& $structure->getTable($tableparam);
+        $fields = $table->getFields();
+        $field = reset($fields);
+        $defaultfieldkeyindex = null;
+        if ($field) {
+            $defaultfieldkeyindex = $field->getName();
+        }
+
+    /// Get parameters
+        $commandparam = optional_param('command', 'add_field', PARAM_PATH);
+        $fieldkeyindexparam = optional_param('fieldkeyindex', $defaultfieldkeyindex, PARAM_PATH);
+
+    /// The back to edit xml button
+        $b = ' <p align="center" class="buttons">';
+        $b .= '<a href="index.php?action=edit_xml_file&amp;dir=' . urlencode(str_replace($CFG->dirroot, '', $dirpath)) . '">[' . $this->str['back'] . ']</a>';
+        $b .= '</p>';
+        $o = $b;
+
+    /// Calculate the popup of commands
+        $commands = array('add_field', 
+                         'drop_field',
+                         'rename_field');
+        foreach ($commands as $command) {
+            $popcommands[$command] = str_replace('_', ' ', $command);
+        }
+    /// Calculate the popup of tables
+        foreach ($fields as $field) {
+            $poptables[$field->getName()] = $field->getName();
+        }
+    /// Now build the form
+        $o.= '<form id="form" action="index.php" method="post">';
+        $o.= '    <input type="hidden" name ="dir" value="' . str_replace($CFG->dirroot, '', $dirpath) . '" />';
+        $o.= '    <input type="hidden" name ="action" value="view_table_php" />';
+        $o.= '    <table id="formelements" align="center" cellpadding="5">';
+        $o.= '      <tr><td><label for="action" accesskey="c">' . $this->str['selectaction'] .' </label>' . choose_from_menu($popcommands, 'command', $commandparam, '', '', 0, true) . '&nbsp;<label for="table" accesskey="t">' . $this->str['selectfieldkeyindex'] . ' </label>' .choose_from_menu($poptables, 'table', $tableparam, '', '', 0, true) . '</td></tr>';
+        $o.= '      <tr><td colspan="2" align="center"><input type="submit" value="' .$this->str['view'] . '" /></td></tr>';
+        $o.= '    </table>';
+        $o.= '</form>';
+        $o.= '    <table id="phpcode" align="center" cellpadding="5">';
+        $o.= '      <tr><td><textarea cols="80" rows="32">';
+    /// Based on current params, call the needed function
+        switch ($commandparam) {
+            case 'create_table':
+                $o.= s($this->create_table_php($structure, $tableparam));
+                break;
+            case 'drop_table':
+                $o.= s($this->drop_table_php($structure, $tableparam));
+                break;
+            case 'rename_table':
+                $o.= s($this->rename_table_php($structure, $tableparam));
+                break;
+        }
+        $o.= '</textarea></td></tr>';
+        $o.= '    </table>';
+
+        $this->output = $o;
+
+    /// Launch postaction if exists (leave this here!)
+        if ($this->getPostAction() && $result) { 
+            return $this->launch($this->getPostAction());
+        }
+
+    /// Return ok if arrived here
+        return $result;
+    }
+
+    /**
+     * This function will generate all the PHP code needed to 
+     * create one table using XMLDB objects and functions
+     * 
+     * @param XMLDBStructure structure object containing all the info
+     * @param string table table code to be created
+     * @return string PHP code to be used to create the table
+     */
+    function create_table_php($structure, $table) {
+
+        $result = '';
+    /// Validate if we can do it
+        if (!$table = $structure->getTable($table)) {
+            return false;
+        }
+        if ($table->getAllErrors()) {
+            return false;
+        }
+
+    /// Add the standard PHP header
+        $result .= XMLDB_PHP_HEADER;
+
+    /// Add contents
+        $result .= XMLDB_LINEFEED;
+        $result .= '    /// Create table ' . $table->getName() . XMLDB_LINEFEED;
+        $result .= '        $table = new XMLDBTable(' . "'" . $table->getName() . "'" . ');' . XMLDB_LINEFEED;
+        $result .= XMLDB_LINEFEED;
+        $result .= '    /// Adding fields to table ' . $table->getName() . XMLDB_LINEFEED;
+    /// Iterate over each field
+        foreach ($table->getFields() as $field) {
+        /// The field header, with name
+            $result .= '        $table->addFieldInfo(' . "'" . $field->getName() . "', ";
+        /// The field PHP specs
+            $result .= $field->getPHP(false);
+        /// The end of the line
+            $result .= ');' . XMLDB_LINEFEED;
+        }
+    /// Iterate over each key
+        if ($keys = $table->getKeys()) {
+            $result .= XMLDB_LINEFEED;
+            $result .= '    /// Adding keys to table ' . $table->getName() . XMLDB_LINEFEED;
+            foreach ($keys as $key) {
+            /// The key header, with name
+                $result .= '        $table->addKeyInfo(' . "'" . $key->getName() . "', ";
+            /// The key PHP specs
+                $result .= $key->getPHP();
+            /// The end of the line
+                $result .= ');' . XMLDB_LINEFEED;
+            }
+        }
+    /// Iterate over each index
+        if ($indexes = $table->getIndexes()) {
+            $result .= XMLDB_LINEFEED;
+            $result .= '    /// Adding indexes to table ' . $table->getName() . XMLDB_LINEFEED;
+            foreach ($indexes as $index) {
+            /// The index header, with name
+                $result .= '        $table->addIndexInfo(' . "'" . $index->getName() . "', ";
+            /// The index PHP specs
+                $result .= $index->getPHP();
+            /// The end of the line
+                $result .= ');' . XMLDB_LINEFEED;
+            }
+        }
+
+    /// Launch the proper DDL
+        $result .= XMLDB_LINEFEED;
+        $result .= '    /// Launch create table for ' . $table->getName() . XMLDB_LINEFEED;
+        $result .= '        $status = $status && create_table($table);' . XMLDB_LINEFEED;
+
+    /// Add standard PHP footer
+        $result .= XMLDB_PHP_FOOTER;
+
+        return $result;
+    }
+
+    /**
+     * This function will generate all the PHP code needed to 
+     * drop one table using XMLDB objects and functions
+     * 
+     * @param XMLDBStructure structure object containing all the info
+     * @param string table table code to be dropped
+     * @return string PHP code to be used to drop the table
+     */
+    function drop_table_php($structure, $table) {
+
+        $result = '';
+    /// Validate if we can do it
+        if (!$table = $structure->getTable($table)) {
+            return false;
+        }
+        if ($table->getAllErrors()) {
+            return false;
+        }
+
+    /// Add the standard PHP header
+        $result .= XMLDB_PHP_HEADER;
+
+    /// Add contents
+        $result .= XMLDB_LINEFEED;
+        $result .= '    /// Create table ' . $table->getName() . XMLDB_LINEFEED;
+        $result .= '        $table = new XMLDBTable(' . "'" . $table->getName() . "'" . ');' . XMLDB_LINEFEED;
+
+    /// Launch the proper DDL
+        $result .= XMLDB_LINEFEED;
+        $result .= '    /// Launch drop table for ' . $table->getName() . XMLDB_LINEFEED;
+        $result .= '        $status = $status && drop_table($table);' . XMLDB_LINEFEED;
+
+    /// Add standard PHP footer
+        $result .= XMLDB_PHP_FOOTER;
+
+        return $result;
+    }
+
+    /**
+     * This function will generate all the PHP code needed to 
+     * rename one table using XMLDB objects and functions
+     * 
+     * @param XMLDBStructure structure object containing all the info
+     * @param string table table code to be renamed
+     * @return string PHP code to be used to rename the table
+     */
+    function rename_table_php($structure, $table) {
+
+        $result = '';
+    /// Validate if we can do it
+        if (!$table = $structure->getTable($table)) {
+            return false;
+        }
+        if ($table->getAllErrors()) {
+            return false;
+        }
+
+    /// Add the standard PHP header
+        $result .= XMLDB_PHP_HEADER;
+
+    /// Add contents
+        $result .= XMLDB_LINEFEED;
+        $result .= '    /// Create table ' . $table->getName() . XMLDB_LINEFEED;
+        $result .= '        $table = new XMLDBTable(' . "'" . $table->getName() . "'" . ');' . XMLDB_LINEFEED;
+
+    /// Launch the proper DDL
+        $result .= XMLDB_LINEFEED;
+        $result .= '    /// Launch rename table for ' . $table->getName() . XMLDB_LINEFEED;
+        $result .= '        $status = $status && rename_table($table, ' . "'NEWNAMEGOESHERE'" . ');' . XMLDB_LINEFEED;
+
+    /// Add standard PHP footer
+        $result .= XMLDB_PHP_FOOTER;
+
+        return $result;
+    }
+}
+?>