View source
<?php
require_once 'forena.common.inc';
function _forena_verify_directory($fullpath, $recursive = FALSE) {
static $path = '';
if (!$recursive) {
$path = forena_report_path();
}
list($dir, $file) = explode('/', $fullpath, 2);
$path .= '/' . $dir;
if (!file_exists($path) && $file) {
mkdir($path);
}
if ($file && strpos($file, '/')) {
watchdog('debug', $file);
_forena_verify_directory($file, TRUE);
}
}
function _forena_copy_reports($src_dir) {
static $dest_dir = '';
static $i = 0;
if (!$dest_dir) {
$dest_dir = forena_report_path();
}
if (!file_exists($dest_dir)) {
mkdir($dest_dir);
}
$d = dir($src_dir);
while (false !== ($rpt_file = $d
->read())) {
$src_file = $d->path . '/' . $rpt_file;
$dest_file = $dest_dir . '/' . $rpt_file;
if (is_file($src_file)) {
file_put_contents($dest_file, file_get_contents($src_file));
$i++;
}
else {
if (strpos($rpt_file, '.') !== 0) {
$src_save = $src_dir;
$dest_save = $dest_dir;
$dest_dir .= '/' . $rpt_file;
$src_dir .= '/' . $rpt_file;
_forena_copy_reports($src_dir);
$src_dir = $src_save;
$dest_dir = $dest_save;
}
}
}
$d
->close();
return $i;
}
function forena_save_report($report_name, $report, $save_file = FALSE) {
static $save_count = 0;
if ($report && !is_object($report)) {
try {
$report = new SimpleXMLElement($report);
} catch (Exception $e) {
forena_error(t('Could not save %s because XML was malformed', htmlspecialchars($report_name)), "<p>Invalid XML</p><pre>XML:" . htmlspecialchars($report) . "\n" . $e
->getMessage() . "</pre>");
return;
}
}
_forena_verify_directory($report_name);
$report_path = forena_report_path();
$r = new FrxReport($report);
$data['title'] = $r->title;
$data['category'] = $r->category;
$data['options'] = $r->options;
$data['name'] = $report_name;
$name = $data['name'];
$filepath = $report_path . '/' . $report_name . '.frx';
if ($save_file) {
if (is_object($report)) {
$r_xml = $report
->asXML();
}
try {
file_put_contents($filepath, $r_xml);
} catch (Exception $e) {
fornea_error('Error Saving Report', $e
->getMessage());
}
}
if ($report) {
$cache = forena_load_cache($report);
}
else {
$cache = '';
}
if ($cache) {
$rpt_cache = serialize($cache);
}
$data['enabled'] = $data['enabled'] ? 1 : 0;
if ((string) $data['options']['hidden']) {
$data['hidden'] = $data['options']['hidden'] && $data['options']['hidden'] != 'N' && $data['options']['hidden'] != '0' ? 1 : 0;
if (!$data['category']) {
$data['category'] = 'All';
}
}
else {
$data['hidden'] = $data['category'] ? 0 : 1;
}
if (file_exists($filepath)) {
$modified = filemtime($filepath);
$result = db_query("SELECT report_name FROM {forena_reports} WHERE report_name='%s'", $name);
if ($rpt = db_fetch_object($result)) {
db_query("UPDATE {forena_reports} SET title='%s', category='%s'" . ", hidden='%s', cache='%s', modified=%d WHERE report_name='%s'", array(
$data['title'],
$data['category'],
$data['hidden'],
$rpt_cache,
$modified,
$name,
));
}
else {
db_query("INSERT INTO {forena_reports} (report_name, title, category, hidden, cache, modified) " . "VALUES ('%s', '%s', '%s', %d, '%s', %d)", array(
$name,
$data['title'],
$data['category'],
$data['hidden'],
$rpt_cache,
$modified,
));
}
$save_count++;
}
$r = null;
$result = null;
$r_xml = null;
$report = NULL;
$data = NULL;
$rpt = null;
$cache = null;
$rpt_cache = null;
return $save_count;
}
function forena_delete_report($report_name, $delete_file = TRUE) {
$report_path = forena_report_path();
$filepath = $report_path . '/' . $report_name . '.frx';
$info = pathinfo($filepath);
$do = TRUE;
if (file_exists($filepath)) {
chdir($info['dirname']);
if ($delete_file) {
$do = unlink($info['basename']);
}
}
if ($do) {
DB_QUERY("DELETE FROM {forena_reports} WHERE report_name='%s'", array(
$report_name,
));
}
else {
drupal_set_message('Unable to delete file ' . $info['basename'], 'error');
}
}
function forena_db_sync($subdir = '') {
static $prefix = '';
if (!$subdir) {
$prefix = '';
db_query('delete from {forena_reports}');
}
$path = forena_report_path() . '/' . $subdir;
$d = dir($path);
if ($d) {
while (false !== ($rpt_file = $d
->read())) {
$src_file = trim($d->path, '/') . '/' . trim($rpt_file, '/');
$dest_file = $path . '/' . trim($rpt_file, '/');
if (is_file($src_file)) {
list($report_name, $ext) = explode('.', $rpt_file, 2);
if ($ext == 'frx') {
$report_name = trim($prefix . '/' . $report_name, '/');
try {
$r_xml = file_get_contents($src_file);
} catch (Exception $e) {
$s = t('unable to load Report %s', $r_xml);
forena_error($s, $s . $e
->getMessage());
}
$r = new FrxReport($r_xml);
$save_count = forena_save_report($report_name, $r_xml, false);
}
}
elseif (is_dir($src_file)) {
if (strpos($rpt_file, '.') !== 0) {
$save_prefix = $prefix;
$prefix .= '/' . $rpt_file;
$prefix = trim($prefix, '/');
forena_db_sync($prefix);
$prefix = $save_prefix;
}
}
}
}
if ($d) {
$d
->close();
}
return $save_count;
}
function forena_get_report_editor($report_name) {
require_once 'FrxReportEditor.inc';
if ($report_name) {
$r_text = '';
$report_path = forena_report_path();
$filename = $report_path . '/' . $report_name . '.frx';
if (file_exists($filename)) {
$r_text = file_get_contents($filename);
}
$r = new FrxReportEditor($r_text);
return $r;
}
else {
return new FrxReportEditor();
}
}
function forena_settings() {
$report_path = forena_report_path();
$form['forena_report_repos'] = array(
'#type' => 'textfield',
'#title' => t('Report Repository'),
'#description' => t('Indicate the directory that you want to use for your reports. In order for you to ' . 'to be able to save reports, this directory should be writable by the web user. Relative' . 'paths should be entered relative to the base path of your drupal installation.'),
'#default_value' => $report_path,
);
$form['forena_input_format'] = filter_form(variable_get('forena_input_format', FILTER_FORMAT_DEFAULT), NULL, array(
'forena_input_format',
));
$form['instructions'] = array(
'#type' => 'item',
'#title' => t('Data Sources'),
'#value' => '<p>' . t('Database connections and data block repositories are configured directly in the file system for ' . 'security reasons. See the Forena Reports README.txt file for more information.') . '</p>',
);
$form['forena_default_form'] = array(
'#type' => 'textield',
'#title' => t('Default report form'),
'#description' => t('Indicates the default style sheet(s) that will be used when no tag is present in the report.'),
);
$form = system_settings_form($form);
$form['#submit'][] = 'forena_settings_submit';
return $form;
}
function forena_settings_submit($form, &$form_state) {
$values = $form_state['values'];
$path = $values['forena_report_repos'];
$src_dir = drupal_get_path('module', 'forena') . '/repos/reports';
if (!file_exists($path)) {
try {
if (file_exists($path)) {
drupal_set_message(t('Created directory %s', array(
$path,
)));
}
mkdir($path);
} catch (Exception $e) {
forena_error(t('Unable to create report directory'), $e
->getMessage());
}
}
if (file_exists($path) && $path != $src_dir) {
$i = _forena_copy_reports($src_dir);
drupal_set_message($i . ' delivered reports copied from ' . $src_dir . ' to ' . $path);
}
$save_count = forena_db_sync();
drupal_set_message('Imported ' . $save_count . ' reports into the database');
menu_cache_clear();
}
function forenea_general_form($form_state, $new_report = '') {
$desc = forena_report_desc();
$name = $desc['name'];
$add_new_rpt;
if ($new_report == 'add') {
$add_new_rpt = TRUE;
}
$filename = $desc['filename'];
$format = $desc['format'];
}
function forena_layout_form($form_state, $new_report = '') {
$desc = forena_report_desc();
$name = $desc['name'];
$add_new_rpt;
if ($new_report == 'add') {
$add_new_rpt = TRUE;
}
$filename = $desc['filename'];
$format = $desc['format'];
if ($name) {
if ($desc['exists'] || $add_new_rpt) {
if ($add_new_rpt) {
$name = '';
}
$r = forena_get_report_editor($name);
if ($add_new_rpt) {
$title = '';
$options = '';
$attributes = '';
$report_form = '';
$hidden = '0';
$category = '';
$head = '';
$body = '';
}
else {
$title = (string) $r->title;
drupal_set_title(filter_xss($r->title));
$frx_options = $r
->getOptions();
$hidden = @$frx_options['hidden'] == '1' ? 1 : 0;
$report_form = @$frx_options['form'];
$attributes = $r
->get_attributes_by_id();
$category = $r
->getCategory();
$body = $r->simplexml->body
->asXML();
}
$form = array();
$required = array(
'id' => TRUE,
'label' => TRUE,
);
$supported = forena_supported_doctypes();
$doclist = variable_get('forena_doc_formats', array());
$form['report_name'] = array(
'#type' => 'value',
'#value' => $name,
);
$form['save_report_name'] = array(
'#type' => 'textfield',
'#title' => t('Report Name'),
'#default_value' => $name,
'#description' => t('Enter only letters, numbers, and special characters: - _ /
<br/>White space is not permitted.
Create a directory using the format: (directory name) / (report name). Save multiple reports to the same directory
by referencing the same name.'),
'#required' => TRUE,
);
$form['title'] = array(
'#type' => 'textfield',
'#title' => t('Title'),
'#default_value' => $title,
);
$form['category'] = array(
'#type' => 'textfield',
'#title' => t('Category'),
'#default_value' => $category,
'#autocomplete_path' => 'forena/categories/autocomplete',
'#description' => t('The heading your report will be grouped under on the report list.'),
);
$form['form'] = array(
'#type' => 'textfield',
'#title' => t('Form'),
'#default_value' => $report_form,
'#description' => t('The page style of your report, such as letter or landscape. The default form is letter.'),
);
$form['hidden'] = array(
'#type' => 'checkbox',
'#title' => t('Hidden'),
'#default_value' => $hidden,
'#description' => t('Hide your report from showing up on the report list.'),
);
if ($r) {
$nodes = $r->simplexml->head
->xpath('frx:docgen/frx:doc');
}
if ($doclist) {
$form['docgen'] = array(
'#tree' => TRUE,
'#type' => 'fieldset',
'#title' => 'Document Options',
'#collapsible' => TRUE,
'#collapsed' => TRUE,
'#description' => t('These are document transformation options. Options selected will display as links in your report view.'),
);
$options = array();
$default = array();
foreach ($doclist as $key => $value) {
if (is_object(forena_get_doctypes($value))) {
$options[$value] = strtoupper($value);
if ($r) {
$doc = $r->simplexml->head
->xpath('frx:docgen/frx:doc[@type="' . $value . '"]');
}
if ($doc && $doclist[$value]) {
$default[$value] = $value;
}
}
}
$form['docgen']['docs'] = array(
'#type' => 'checkboxes',
'#description' => t('*If no options are selected, the system will display all of the above as available for this report.'),
'#options' => $options,
'#default_value' => $default,
);
}
$form['attributes'] = array(
'#type' => 'value',
'#value' => $attributes,
);
$form['body'] = array(
'#type' => 'textarea',
'#title' => t('Body'),
'#default_value' => $body,
'#rows' => 25,
);
$form['format'] = filter_form(variable_get('forena_input_format', FILTER_FORMAT_DEFAULT));
$form['#validate'][] = 'forena_layout_form_validate';
$form['buttons']['save'] = array(
'#type' => 'submit',
'#value' => 'Save',
'#submit' => array(
'forena_layout_form_submit',
),
);
if (user_access('delete report')) {
$form['buttons']['delete'] = array(
'#type' => 'submit',
'#value' => 'Delete',
'#submit' => array(
'forena_edit_delete_submit',
),
);
}
return $form;
}
else {
drupal_not_found();
}
}
else {
drupal_not_found();
}
}
function forena_layout_form_validate($form, &$form_state) {
$values = $form_state['values'];
$regexp = "/^[A-Za-z0-9\\/\\_\\-]*\$/";
$save_report_name = $values['save_report_name'];
$report_name = $values['report_name'];
if (!preg_match($regexp, $save_report_name)) {
form_set_error('save_report_name', t('Invalid character entered in Report Name'));
}
if ($report_name != $save_report_name) {
$report_path = forena_report_path();
$filename = $report_path . '/' . $save_report_name . '.frx';
if (file_exists($filename)) {
form_set_error('save_report_name', t('The file ' . $save_report_name . ' already exists. Please enter another name.'));
}
}
}
function forena_layout_form_submit($form, &$form_state) {
$values = $form_state['values'];
$report_name = $values['save_report_name'];
$r = forena_get_report_editor($values['report_name']);
$r
->setTitle($values['title']);
$r
->setCategory($values['category']);
$options = array(
'hidden' => $values['hidden'],
'form' => $values['form'],
);
$r
->setOptions($options);
$docgen = array();
if ($selected = array_filter($values['docgen']['docs'])) {
foreach ($selected as $key => $value) {
if ($value) {
$docgen[] = array(
'type' => $key,
);
}
}
}
$r
->setDocgen($docgen);
$r
->setBody($values['body']);
$frx_nodes = $r->simplexml
->xpath('body//*[@frx:block]');
if (!$frx_nodes) {
$r
->save_attributes_by_id($values['attributes']);
}
$report_path = forena_report_path();
$filename = $report_path . '/' . $report_name . '.frx';
if (!file_exists($filename)) {
$new_rpt = TRUE;
}
else {
$new_rpt = FALSE;
}
if (forena_save_report($report_name, $r
->asXML(), TRUE) == 1) {
drupal_set_message('Your report, "' . $report_name . '" has been saved.');
if ($new_rpt) {
$form_state['redirect'] = 'reports/' . str_replace('/', '.', $report_name) . '/data';
}
else {
$form_state['redirect'] = 'reports/' . str_replace('/', '.', $report_name) . '/layout';
}
}
}
function forena_doc_formats_settings() {
$supported_doctypes = forena_supported_doctypes();
$form['forena_doc_formats'] = array(
'#type' => 'checkboxes',
'#title' => t('Allowed Document Formats'),
'#default_value' => variable_get('forena_doc_formats', $supported_doctypes),
'#description' => t('check your desired document format'),
'#options' => $supported_doctypes,
);
$form['forena_doc_defaults'] = array(
'#type' => 'checkboxes',
'#title' => t('Default Document Formats'),
'#default_value' => variable_get('forena_doc_defaults', $supported_doctypes),
'#description' => t('check your desired document format'),
'#options' => $supported_doctypes,
);
$form['forena_email_override'] = array(
'#type' => 'checkbox',
'#title' => 'Run email merges in test mode',
'#default_value' => variable_get('forena_email_override', FALSE),
'#description' => t('When this box is checked emails are sent to the currently logged in user. Useful for testing environments.'),
);
return system_settings_form($form);
}
function forena_fields_form($form_state) {
$desc = forena_report_desc();
$name = $desc['name'];
$filename = $desc['filename'];
$format = $desc['format'];
if ($name) {
if (file_exists($filename)) {
$r = forena_get_report_editor($name);
drupal_set_title($r->title);
$regexp = FRX_TOKEN_EXP;
$match = array(
"{",
"}",
);
$body = $r->simplexml->body
->asXML();
$head = $r->simplexml->head;
$fields = array();
preg_match_all($regexp, $body, $out);
foreach ($out as $key => $value) {
foreach ($value as $el) {
$clean_element = str_replace($match, "", $el);
$fields[$clean_element] = $clean_element;
}
}
$form = array();
$form['report_name'] = array(
'#type' => 'value',
'#value' => $name,
);
$form['fields'] = array(
'#tree' => TRUE,
);
$i = 0;
foreach ($fields as $field) {
$i++;
$field_ids[$i] = $field;
$form['fields'][$i] = array(
'#tree' => TRUE,
'#type' => 'fieldset',
'#title' => $field,
'#collapsible' => TRUE,
'#collapsed' => TRUE,
);
$path = 'frx:fields/frx:field[@id="' . $field . '"]';
$node = $head
->xpath($path);
$attr = array();
$default = '';
if ($node) {
$attr = $node[0];
$default = (string) $node[0];
}
$form['fields'][$i]['id'] = array(
'#type' => 'value',
'#value' => $field,
);
$form['fields'][$i]['format'] = array(
'#type' => 'textfield',
'#title' => t('format'),
'#default_value' => @$attr['format'],
'#size' => 30,
'#autocomplete_path' => 'forena/fields/format/autocomplete',
'#description' => t('Format a date and time field by entering the name of a supported format function. Enter a "*" to see all available formats.'),
);
$form['fields'][$i]['format-string'] = array(
'#type' => 'textfield',
'#title' => t('format-string'),
'#default_value' => @$attr['format-string'],
'#size' => 30,
'#description' => t('The display type of your format.'),
);
$form['fields'][$i]['link'] = array(
'#type' => 'textfield',
'#title' => t('link'),
'#default_value' => @$attr['link'],
'#size' => 100,
'#maxlength' => 256,
'#description' => t('Create a link that incorporates this field, e.g "profile/{field_name}" will create a link to this field_name\'s profile. *Note the field must be wrapped in {}.'),
);
$form['fields'][$i]['target'] = array(
'#type' => 'textfield',
'#title' => t('target'),
'#default_value' => @$attr['target'],
'#size' => 30,
'#description' => t('Link target eg. _BLANK'),
);
$form['fields'][$i]['default'] = array(
'#type' => 'textfield',
'#title' => t('default value'),
'#default_value' => $default,
'#size' => 30,
'#description' => t('The value to be displayed in the report in the place of the field.'),
);
}
$form['submit'] = array(
'#type' => 'submit',
'#value' => 'Save',
);
return $form;
}
else {
drupal_not_found();
}
}
else {
drupal_not_found();
}
}
function forena_fields_form_submit($form, &$form_state) {
$values = $form_state['values'];
$name = $values['report_name'];
$r = forena_get_report_editor($name);
$fields = $values['fields'];
$r
->setFields($fields);
if (forena_save_report($name, $r
->asXML(), TRUE) == 1) {
drupal_set_message('Your report, "' . arg(1) . '" has been saved.');
}
else {
drupal_set_message('There was an error saving your report, "' . $file . '" to the database');
}
}
function forena_data_block_form($form_state) {
$desc = forena_report_desc();
$name = $desc['name'];
$filename = $desc['filename'];
$format = $desc['format'];
if ($desc['exists']) {
$r = forena_get_report_editor($name);
drupal_set_title($r->title);
$form = array();
$title = (string) $r->title;
$template_array = forena_supported_templates();
$default_template = $form_state['storage']['template'];
$params = $form_state['storage']['parameters'];
$param_values = $form_state['storage']['param_values'];
$form = array();
$form['report_name'] = array(
'#type' => 'value',
'#value' => $name,
);
$form['default_submit'] = array(
'#type' => 'submit',
'#submit' => array(
'forena_data_block_form_submit',
),
'#prefix' => '<div style="visibility:hidden;float:right">',
'#suffix' => '</div>',
);
$data_block_array = array();
if ($r) {
$r
->get_attributes_by_id();
}
$body = $r->simplexml->body;
$path = '//*[@frx:block]';
if ($body) {
foreach ($body
->xpath($path) as $node) {
$attrs = $node
->attributes(FRX_NS);
$id = (string) $node['id'];
$block = (string) $attrs['block'];
if ($attrs['clause']) {
$clause = "(" . (string) $attrs['clause'] . ")";
}
$block_info = forena_load_block($block, $clause);
$access = $block_info['access'];
$data_block_array[$id] = $block . ": <i>" . $clause . ' security "' . $access . '"</i>';
}
}
$form['delete_blocks'] = array(
'#type' => 'checkboxes',
'#title' => t('Data Blocks In Report'),
'#options' => $data_block_array,
'#description' => $data_block_array ? t('Check the data block to be deleted from your report.') : '',
);
if ($data_block_array) {
$form['delete'] = array(
'#type' => 'submit',
'#value' => 'Delete',
'#submit' => array(
'forena_data_block_delete',
),
);
}
$form['data_block'] = array(
'#type' => 'textfield',
'#title' => t('Data Block'),
'#default_value' => $form_state['storage']['data_block'],
'#autocomplete_path' => 'forena/data_block/autocomplete',
'#description' => t('Enter a data block, a preview will appear below'),
);
$form['where_clause'] = array(
'#type' => 'textfield',
'#title' => t('Where Clause'),
'#default_value' => $form_state['storage']['where_clause'],
'#description' => t('Enter a where clause to filter your report.'),
);
$form['templates'] = array(
'#type' => 'radios',
'#title' => t('Templates'),
'#default_value' => $default_template ? $default_template : $template_array['table'],
'#options' => $template_array,
'#required' => TRUE,
'#description' => t('Select a template to preview the data block in.'),
);
if ($params) {
$rpt_params = array();
if ($r) {
$rpt_params = $r->parameters;
}
$form['params'] = array(
'#tree' => TRUE,
'#title' => 'Parameters',
'#type' => 'fieldset',
'#collapsible' => TRUE,
'#collapsed' => $form_state['storage']['output'] ? TRUE : FALSE,
);
foreach ($params as $param) {
$form['params'][$param] = array(
'#type' => 'textfield',
'#title' => t($param),
'#default_value' => $param_values[$param] ? $param_values[$param] : $rpt_params[$param]['value'],
);
}
}
$form['output'] = array(
'#type' => 'markup',
'#value' => '</p>' . $form_state['storage']['output'] . '</p>',
);
$form['preview'] = array(
'#type' => 'submit',
'#value' => 'Preview',
);
if ($form_state['storage']['output'] != '') {
$form['add'] = array(
'#type' => 'submit',
'#value' => 'Add',
'#submit' => array(
'forena_data_block_add',
),
);
}
return $form;
}
else {
drupal_not_found();
}
}
function forena_data_block_form_validate($form, &$form_state) {
$values = $form_state['values'];
$data_block = $values['data_block'];
$delete_blocks = $values['delete_blocks'];
if (!$delete_blocks) {
$block_info = forena_load_block($data_block);
if (!$block_info) {
form_set_error('data_block', t('Invalid data block.'));
}
}
}
function forena_data_block_form_submit($form, &$form_state) {
$values = $form_state['values'];
$data_block = $values['data_block'];
$template = $values['templates'];
$params = $values['params'];
$name = $values['report_name'];
$where_clause = $values['where_clause'];
$r = forena_get_report($name);
$form_state['storage']['param_values'] = $values['params'];
$form_state['storage']['data_block'] = $data_block;
$form_state['storage']['template'] = $template;
$form_state['storage']['where_clause'] = $where_clause;
if ($data_block) {
$block_info = forena_load_block($data_block, $where_clause);
if ($block_info) {
if (!$params) {
$rpt_params = $r->parameters;
if ($rpt_params) {
foreach ($block_info['tokens'] as $index => $id) {
$params[$id] = $rpt_params[$id]['value'];
}
}
}
$xml = forena_invoke_data_provider($data_block, $params, $where_clause);
}
}
if ($xml) {
$rows = $xml
->xpath('//row');
$column_array = array();
foreach ($rows as $columns) {
foreach ($columns as $name => $value) {
$column_array[$name] = $name;
}
}
$template_obj = forena_get_templates($template);
if ($template_obj) {
$body = $template_obj
->{$template}($column_array, $data_block, $where_clause);
}
$rpt_xml = '<html xmlns:frx="urn:FrxReports"><body>' . $body . '</body></html>';
$output = forena_render_report($rpt_xml, NULL, $params);
$form_state['storage']['output'] = $output;
$form_state['storage']['template_body'] = $body;
}
else {
$form_state['storage']['output'] = '';
}
$form_state['storage']['parameters'] = $block_info['tokens'];
}
function forena_data_block_add($form, &$form_state) {
$values = $form_state['values'];
$report_name = $values['report_name'];
$data_block = $values['data_block'];
$template = $values['templates'];
$where_clause = $values['where_clause'];
$r = forena_get_report_editor($report_name);
$head = $r->simplexml->head;
$added_report = $form_state['storage']['template_body'];
$block_info = forena_load_block($data_block, $where_clause);
$data_block_parms = $block_info['tokens'];
$xml = "";
$path_parent = '//frx:parameters';
$parent_node = $head
->xpath($path_parent);
$path_child = '//frx:parm';
$child_nodes = $head
->xpath($path_child);
$parm_name = 'parm';
foreach ($data_block_parms as $index => $id) {
if ($child_nodes) {
$path_id = '//frx:parm[@id="' . $id . '"]';
$found_rpt_param = $child_nodes[0]
->xpath($path_id);
}
if (!$found_rpt_param) {
if ($parent_node) {
$parm = $parent_node[0]
->addChild($parm_name);
$parm
->addAttribute('id', $id);
}
}
}
$main_report = forena_inner_xml($r->simplexml, 'body');
$added_report = forena_clean_xhtml($added_report);
$r
->setBody($main_report . "\n" . $added_report);
if (forena_save_report($report_name, $r
->asXML(), TRUE) == 1) {
drupal_set_message('Your report has been saved');
}
}
function forena_data_block_delete($form, &$form_state) {
$values = $form_state['values'];
$delete_blocks = array_filter($values['delete_blocks']);
$report_name = $values['report_name'];
$r = forena_get_report($report_name);
if ($r) {
$r
->get_attributes_by_id();
}
$body = $r->body;
foreach ($delete_blocks as $id) {
if ($r) {
$r
->deleteNode($id);
}
}
if (forena_save_report($report_name, $r->rpt_xml, TRUE) == 1) {
drupal_set_message(t('Your report has been saved.'));
}
}
function forena_delete_form() {
$desc = forena_report_desc();
$report_name = $desc['name'];
$link = $desc['link'];
$form['report_name'] = array(
'#type' => 'value',
'#value' => $report_name,
);
return confirm_form($form, t('Are you sure you want to delete %title?', array(
'%title' => $report_name,
)), isset($_GET['destination']) ? $_GET['destination'] : $link, t('This action cannot be undone.'), t('Delete'), t('Cancel'));
return $form;
}
function forena_delete_form_submit($form, &$form_state) {
$report_name = $form_state['values']['report_name'];
drupal_set_message('Deleted ' . $report_name);
forena_delete_report($report_name);
$form_state['redirect'] = 'forena';
}
function forena_edit_delete_submit($form, &$form_state) {
$desc = forena_report_desc();
$link = $desc['link'];
$report_name = $form_state['values']['report_name'];
$destination = '';
if (isset($_REQUEST['destination'])) {
$destination = drupal_get_destination();
unset($_REQUEST['destination']);
}
$form_state['redirect'] = array(
$link . '/delete',
$destination,
);
}
function forena_clean_xhtml($xhtml) {
$ret = $xhtml;
if (is_callable('tidy_repair_string')) {
$config = array(
'doctype' => 'omit',
'indent-spaces' => 2,
'indent' => 'auto',
'input-xml' => TRUE,
'output-xml' => TRUE,
'indent-attributes' => FALSE,
'indent-spaces' => 2,
'add-xml-space' => TRUE,
'wrap' => 135,
);
$ret = tidy_repair_string($xhtml, $config, 'utf8');
}
else {
$ret = str_replace(' ', ' ', $ret);
}
return $ret;
}
function forena_user_data_blocks($search) {
$repos = forena_repository();
foreach ($repos as $name => $r) {
$provider = $r;
if (!$provider['data']) {
$provider = forena_repository($name);
}
$repos[$name] = $provider;
$o = $provider['data'];
if (method_exists($o, 'list_blocks')) {
$blocks = $o
->list_blocks($search);
foreach ($blocks as $block) {
$block_info = $o
->load_block($block);
if (method_exists($o, 'access')) {
$allow = $o
->access($block_info['access']);
if ($allow) {
$user_blocks[] = $name . '/' . $block;
}
}
}
}
}
return $user_blocks;
}
function forena_xmlpp($xml, $html_output = false) {
$xml_obj = new SimpleXMLElement($xml);
$level = 4;
$indent = 0;
$pretty = array();
$xml = explode("\n", preg_replace('/>\\s*</', ">\n<", $xml_obj
->asXML()));
if (count($xml) && preg_match('/^<\\?\\s*xml/', $xml[0])) {
$pretty[] = array_shift($xml);
}
foreach ($xml as $el) {
if (preg_match('/^<([\\w])+[^>\\/]*>$/U', $el)) {
$pretty[] = str_repeat(' ', $indent) . $el;
$indent += $level;
}
else {
if (preg_match('/^<\\/.+>$/', $el)) {
$indent -= $level;
}
if ($indent < 0) {
$indent += $level;
}
$pretty[] = str_repeat(' ', $indent) . $el;
}
}
$xml = implode("\n", $pretty);
return $html_output ? htmlentities($xml) : $xml;
}
function forena_admin_params_form($form_state) {
$desc = forena_report_desc();
$name = $desc['name'];
$filename = $desc['filename'];
$format = $desc['format'];
if ($desc['exists'] || !$name) {
$r = forena_get_report_editor($name);
drupal_set_title($r->title);
$form = array();
$form['rpt_name'] = array(
'#type' => 'value',
'#value' => $name,
);
if ($r) {
$nodes = $r->simplexml
->xpath('head/frx:parameters/frx:parm');
}
if ($nodes) {
$form['params'] = array(
'#tree' => TRUE,
);
foreach ($nodes as $node) {
$attrs = $node
->attributes();
$id = (string) $attrs['id'];
$label = (string) $attrs['label'];
$value = (string) $attrs['value'] ? (string) $attrs['value'] : (string) $node;
$require = (string) $attrs['require'];
$data_source = (string) $attrs['data_source'];
$data_field = (string) $attrs['data_field'];
$desc = (string) $attrs['desc'];
$type = (string) $attrs['type'];
$form['params'][$id] = array(
'#tree' => TRUE,
'#type' => 'fieldset',
'#title' => $label ? $label : $id,
'#collapsible' => TRUE,
'#collapsed' => TRUE,
);
$form['params'][$id]['id'] = array(
'#type' => 'textfield',
'#title' => t('id'),
'#default_value' => $id,
'#required' => TRUE,
'#description' => t('The name of the parameter to be filtered against.'),
);
$form['params'][$id]['label'] = array(
'#type' => 'textfield',
'#title' => t('label'),
'#default_value' => $label,
'#required' => FALSE,
'#description' => t('A descriptive name of the parameter to be displayed on a form.'),
);
$form['params'][$id]['require'] = array(
'#type' => 'radios',
'#title' => t('require'),
'#default_value' => $require ? $require : "0",
'#options' => array(
"1" => t('Yes'),
"0" => t('No'),
),
'#description' => t('Requires a value for this parameter to display the report. If there is not a default value, the user will be prompted to enter a value.'),
);
$form['params'][$id]['value'] = array(
'#type' => 'textfield',
'#title' => 'default value',
'#default_value' => $value,
'#description' => t('The value of the parameter for the initial view of the report.'),
);
$form['params'][$id]['desc'] = array(
'#type' => 'textfield',
'#title' => t('description'),
'#default_value' => $desc,
'#description' => t('Enter a helpful description about this parameter. This will display on the form when the user is prompted to enter a parameter.'),
);
$form['params'][$id]['data_source'] = array(
'#type' => 'textfield',
'#title' => t('Data Source'),
'#default_value' => $data_source,
'#autocomplete_path' => 'forena/data_block/autocomplete',
'#description' => t('Data block to be used for list of values'),
);
$form['params'][$id]['data_field'] = array(
'#type' => 'textfield',
'#title' => t('Data Field'),
'#default_value' => $data_field,
'#description' => t('Column in data block to be used for ID'),
);
$form['params'][$id]['type'] = array(
'#type' => 'select',
'#title' => t('Input Control'),
'#default_value' => $type,
'#options' => array(
'textfield' => 'Text Input',
'radios' => 'Radios',
'select' => 'Select',
'multiselect' => 'Multi-Select',
'checkboxes' => 'Checkboxes',
),
'#description' => t('Enter a helpful description about this parameter. This will display on the form when the user is prompted to enter a parameter.'),
);
$form['params'][$id]['delete_ind'] = array(
'#type' => 'checkbox',
'#title' => 'Remove this parameter',
'#description' => t('Check to remove this parameter, then save'),
);
}
$form['submit'] = array(
'#type' => 'submit',
'#value' => 'Save',
);
return $form;
}
}
}
function forena_admin_params_form_submit($form, &$form_state) {
$values = $form_state['values'];
$name = $values['rpt_name'];
$params = $values['params'];
$r = forena_get_report_editor($name);
$r
->setParameters($params);
foreach ($params as $parm) {
if ($parm['delete_ind']) {
$r
->removeParm($parm['id']);
}
}
$new_report = $r
->asXML();
if (forena_save_report($name, $new_report, TRUE) == 1) {
drupal_set_message('Your report has been saved');
}
}
function forena_get_categories($string = '') {
$result = db_query("SELECT * FROM {forena_reports} where hidden=0 AND category LIKE '%%%s%%' ORDER BY category, title asc", $string);
$categories = array();
while ($row = db_fetch_object($result)) {
$access = TRUE;
$cache = $row->cache;
if ($cache) {
$cache = unserialize($cache);
if ($cache['access']) {
foreach ($cache['access'] as $callback => $args) {
if ($callback) {
foreach ($args as $arg) {
$access = FALSE;
if (function_exists($callback)) {
$a = $callback($arg);
}
if ($a) {
$access = TRUE;
}
}
}
else {
$access = TRUE;
}
}
}
}
if ($access && !$categories[$row->category]) {
$categories[$row->category] = $row->category;
}
}
return $categories;
}
