modules/pacs/pacs_xml.inc

<?php
// $Id:$

/**
 * @file
 * import.inc - the xml branch import include.
 */
 
$_PACS_XML_TAG = '';
$_PACS_XML_NODE = stdClass;
$_PACS_XML_NIDS = array();


// xml import functions ////////////////////////////////////////////////


function pacs_xml_save_node() {
  global $user, $_PACS_XML_NODE, $_PACS_XML_NIDS;

  $_PACS_XML_NODE->uid = $user->uid;
  $_PACS_XML_NODE->format = 1;
  node_save($_PACS_XML_NODE);
  //pacs_debug('saved_node='.print_r($_PACS_XML_NODE,1),1);
  
  $_PACS_XML_NIDS[$_PACS_XML_NODE->pacs_nid] = $_PACS_XML_NODE->nid;
  if ($_PACS_XML_NODE->pacs_index == 0) $_PACS_XML_NIDS[0] = $_PACS_XML_NODE->nid;
  $pid = $_PACS_XML_NIDS[$_PACS_XML_NODE->pacs_pid];
  if (!$pid) $pid = 0;
  $pnode = array('nid' => $_PACS_XML_NODE->nid, 'pid' => $pid, 'rid' => 0, 'stops' => array());
  pacs_update_node($pnode);
  if ($_PACS_XML_NODE->type == 'book') {
    // if the node is a book page, update the book hierarchy
    db_query("REPLACE {book} SET vid = %d, nid = %d, parent = %d", 
      $_PACS_XML_NODE->vid, $_PACS_XML_NODE->nid, $pid);
  }
}

function pacs_xml_start_element($parser,$name,$attrs) {
  global $_PACS_XML_TAG, $_PACS_XML_NODE;
  
  switch ($name) {
    case 'NODE':
      $_PACS_XML_NODE = (object) NULL;
      $_PACS_XML_NODE->pacs_nid = $attrs['NID'];
      break;
    case 'DRUPAL_VERSION':
    case 'TYPE':
    case 'STATUS':
    case 'PROMOTE':
    case 'MODERATE':
    case 'STICKY':
    case 'TITLE':
    case 'TEASER':
    case 'BODY':
    case 'LOG':
    case 'PACS_INDEX':
    case 'PACS_PID':
      $_PACS_XML_TAG = $name;
      break;
  }
}

function pacs_xml_element_content($parser,$data) {
  global $_PACS_XML_TAG, $_PACS_XML_NODE;
  
  switch ($_PACS_XML_TAG) {
    /*
    case 'DRUPAL_VERSION':
      if ($data != '4.7') {
        drupal_set_message(t('Incompatible Drupal version.'),'error');
        drupal_goto("node/$nid/tree");
      }
      break;
    */
    case 'TYPE':
      $_PACS_XML_NODE->type = $data;
      break;
    case 'STATUS':
      $_PACS_XML_NODE->status = $data;
      break;
    case 'PROMOTE':
      $_PACS_XML_NODE->promote = $data;
      break;
    case 'MODERATE':
      $_PACS_XML_NODE->moderate = $data;
      break;
    case 'STICKY':
      $_PACS_XML_NODE->sticky = $data;
      break;
    case 'TITLE':
      $_PACS_XML_NODE->title .= $data;
      break;
    case 'TEASER':
      $_PACS_XML_NODE->teaser .= $data;
      break;
    case 'BODY':
      $_PACS_XML_NODE->body .= $data;
      break;
    case 'LOG':
      $_PACS_XML_NODE->log .= $data;
      break;
    case 'PACS_INDEX':
      $_PACS_XML_NODE->pacs_index = $data;
      break;
    case 'PACS_PID':
      $_PACS_XML_NODE->pacs_pid = $data;
      break;
  }
}

function pacs_xml_end_element($parser,$name) {
  global $_PACS_XML_TAG, $_PACS_XML_NODE;
  
  if ($_PACS_XML_TAG == $name) $_PACS_XML_TAG = '';
  if ($name == 'NODE') pacs_xml_save_node();
}

function pacs_xml_parse($nid) {
  global $_PACS_XML_NIDS;

  $file = $_FILES['branch_file']['tmp_name'];
  if (!$file || !is_uploaded_file($file)) {
    drupal_set_message(t('Branch file upload failed.'),'error');
    drupal_goto("node/$nid/tree");
  }
  $xml = xml_parser_create();
  xml_parser_set_option ($xml,XML_OPTION_SKIP_WHITE,1);
  xml_set_element_handler($xml,'pacs_xml_start_element','pacs_xml_end_element');
  xml_set_character_data_handler($xml,'pacs_xml_element_content');
  $fp = fopen($file,"r");
  if (!$fp) {
    drupal_set_message(t('Could not open uploaded branch file.'),'error');
    drupal_goto("node/$nid/tree");
  }
  while ($data = fread($fp,4096)) {
    if (!xml_parse($xml, $data, feof($fp))) {
      $err_str = xml_error_string(xml_get_error_code($xml));
      $err_num = xml_get_current_line_number($xml);
      $err_msg = t('XML error: %s at line %d', array('%s' => $err_str, '%d' => $err_num));
      drupal_set_message($err_msg,'error');
      drupal_goto("node/$nid/tree");
    }
  }
  xml_parser_free($xml);
  pacs_move_node($_PACS_XML_NIDS[0],$nid,FALSE);
  drupal_goto("node/$nid/tree");
}

function pacs_xml_import($nid) {
  $output = '';

  if ($_POST['op_cancel']) drupal_goto("node/$nid/tree");
  if (isset($_FILES['branch_file'])) pacs_xml_parse($nid);
  
  // file upload form
  $form['#attributes'] = array('enctype'=>'multipart/form-data');
  $form['import'] = array('#type'=>'fieldset','#title'=>t('Pacs Branch Import'),
    '#description'=>t('Select a valid pacs export file to upload:'));
  $form['import']['file'] = array('#type'=>'file','#name'=>'branch_file','#size'=>'45',);
  $form['import']['cancel'] = array('#prefix'=>'<div>','#type'=>'submit',
    '#name'=>'op_cancel','#value'=>t('cancel'),);
  $form['import']['upload'] = array('#type'=>'submit','#value'=>t('upload'),'#suffix'=>'</div>',);
  $output .= drupal_get_form('xml_import',$form);
  print theme('page',$output);
}


// xml export functions ////////////////////////////////////////////////


function pacs_xml_export_node($nid) {
  static $node_index = 0;

  if ($node = node_load($nid,NULL,TRUE)) {
    print "<node nid=\"$nid\">\n";
    print "<type>".$node->type."</type>\n";
    print "<status>".$node->status."</status>\n";
    print "<promote>".$node->promote."</promote>\n";
    print "<moderate>".$node->moderate."</moderate>\n";
    print "<sticky>".$node->sticky."</sticky>\n";
    print "<title><![CDATA[".$node->title."]]></title>\n";
    print "<teaser><![CDATA[".$node->teaser."]]></teaser>\n";
    print "<body><![CDATA[".$node->body."]]></body>\n";
    print "<log><![CDATA[".$node->log."]]></log>\n";
    print "<pacs_index>$node_index</pacs_index>\n";  $node_index++;
    print "<pacs_pid>".$node->pacs['pid']."</pacs_pid>\n";
    print "</node>\n";
  }
}

function pacs_xml_export_branch($nid) {
  pacs_xml_export_node($nid);
  if ($list = pacs_child_list($nid)) foreach ($list as $chd) pacs_xml_export_branch($chd);
}

function pacs_xml_export($nid) {
  $xml_file_name = 'drupal_branch_'.$nid.'.xml';
  drupal_set_header('Content-Type: application/octet-stream');
  drupal_set_header('Content-Disposition: attachment; filename='.$xml_file_name);
  
  print '<?xml version="1.0" encoding="UTF-8"?>'."\n";
  print "<pacs_branch>\n";
  print "<drupal_version>4.7</drupal_version>\n";
  pacs_xml_export_branch($nid);
  print "</pacs_branch>\n";
  
  exit;
}


// delete branch ////////////////////////////////////////////////


function pacs_del_branch($nid) {
  node_delete($nid);
  if ($list = pacs_child_list($nid)) foreach ($list as $chd) pacs_del_branch($chd);
}

function pacs_delete_branch($nid) {
  $pnode = pacs_node($nid);
  if ($_POST['op_delete']) {
    pacs_del_branch($nid);
    drupal_goto('node/'.$pnode['pid'].'/tree');
  } elseif ($_POST['op_cancel']) {
    drupal_goto('node/'.$nid.'/tree');
  }
  drupal_set_message(
    t('Do you want to delete the branch under the node <strong>%title</strong> (inclusive) ?',
    array('%title'=>$pnode['title'])),'error'
  );
  $output = '';
  $form['cancel'] = array('#type'=>'submit','#name'=>'op_cancel','#value'=>t('cancel'));
  $form['delete'] = array('#type'=>'submit','#name'=>'op_delete','#value'=>t('delete branch'));
  $output .= drupal_get_form('delete_confirmation',$form);
  print theme('page',$output);
}

?>
1	<?php
2	// $Id:$
3
4	/**
5	* @file
6	* import.inc - the xml branch import include.
7	*/
8
9	$_PACS_XML_TAG = '';
10	$_PACS_XML_NODE = stdClass;
11	$_PACS_XML_NIDS = array();
12
13
14	// xml import functions ////////////////////////////////////////////////
15
16
17	function pacs_xml_save_node() {
18	global $user, $_PACS_XML_NODE, $_PACS_XML_NIDS;
19
20	$_PACS_XML_NODE->uid = $user->uid;
21	$_PACS_XML_NODE->format = 1;
22	node_save($_PACS_XML_NODE);
23	//pacs_debug('saved_node='.print_r($_PACS_XML_NODE,1),1);
24
25	$_PACS_XML_NIDS[$_PACS_XML_NODE->pacs_nid] = $_PACS_XML_NODE->nid;
26	if ($_PACS_XML_NODE->pacs_index == 0) $_PACS_XML_NIDS[0] = $_PACS_XML_NODE->nid;
27	$pid = $_PACS_XML_NIDS[$_PACS_XML_NODE->pacs_pid];
28	if (!$pid) $pid = 0;
29	$pnode = array('nid' => $_PACS_XML_NODE->nid, 'pid' => $pid, 'rid' => 0, 'stops' => array());
30	pacs_update_node($pnode);
31	if ($_PACS_XML_NODE->type == 'book') {
32	// if the node is a book page, update the book hierarchy
33	db_query("REPLACE {book} SET vid = %d, nid = %d, parent = %d",
34	$_PACS_XML_NODE->vid, $_PACS_XML_NODE->nid, $pid);
35	}
36	}
37
38	function pacs_xml_start_element($parser,$name,$attrs) {
39	global $_PACS_XML_TAG, $_PACS_XML_NODE;
40
41	switch ($name) {
42	case 'NODE':
43	$_PACS_XML_NODE = (object) NULL;
44	$_PACS_XML_NODE->pacs_nid = $attrs['NID'];
45	break;
46	case 'DRUPAL_VERSION':
47	case 'TYPE':
48	case 'STATUS':
49	case 'PROMOTE':
50	case 'MODERATE':
51	case 'STICKY':
52	case 'TITLE':
53	case 'TEASER':
54	case 'BODY':
55	case 'LOG':
56	case 'PACS_INDEX':
57	case 'PACS_PID':
58	$_PACS_XML_TAG = $name;
59	break;
60	}
61	}
62
63	function pacs_xml_element_content($parser,$data) {
64	global $_PACS_XML_TAG, $_PACS_XML_NODE;
65
66	switch ($_PACS_XML_TAG) {
67	/*
68	case 'DRUPAL_VERSION':
69	if ($data != '4.7') {
70	drupal_set_message(t('Incompatible Drupal version.'),'error');
71	drupal_goto("node/$nid/tree");
72	}
73	break;
74	*/
75	case 'TYPE':
76	$_PACS_XML_NODE->type = $data;
77	break;
78	case 'STATUS':
79	$_PACS_XML_NODE->status = $data;
80	break;
81	case 'PROMOTE':
82	$_PACS_XML_NODE->promote = $data;
83	break;
84	case 'MODERATE':
85	$_PACS_XML_NODE->moderate = $data;
86	break;
87	case 'STICKY':
88	$_PACS_XML_NODE->sticky = $data;
89	break;
90	case 'TITLE':
91	$_PACS_XML_NODE->title .= $data;
92	break;
93	case 'TEASER':
94	$_PACS_XML_NODE->teaser .= $data;
95	break;
96	case 'BODY':
97	$_PACS_XML_NODE->body .= $data;
98	break;
99	case 'LOG':
100	$_PACS_XML_NODE->log .= $data;
101	break;
102	case 'PACS_INDEX':
103	$_PACS_XML_NODE->pacs_index = $data;
104	break;
105	case 'PACS_PID':
106	$_PACS_XML_NODE->pacs_pid = $data;
107	break;
108	}
109	}
110
111	function pacs_xml_end_element($parser,$name) {
112	global $_PACS_XML_TAG, $_PACS_XML_NODE;
113
114	if ($_PACS_XML_TAG == $name) $_PACS_XML_TAG = '';
115	if ($name == 'NODE') pacs_xml_save_node();
116	}
117
118	function pacs_xml_parse($nid) {
119	global $_PACS_XML_NIDS;
120
121	$file = $_FILES['branch_file']['tmp_name'];
122	if (!$file \|\| !is_uploaded_file($file)) {
123	drupal_set_message(t('Branch file upload failed.'),'error');
124	drupal_goto("node/$nid/tree");
125	}
126	$xml = xml_parser_create();
127	xml_parser_set_option ($xml,XML_OPTION_SKIP_WHITE,1);
128	xml_set_element_handler($xml,'pacs_xml_start_element','pacs_xml_end_element');
129	xml_set_character_data_handler($xml,'pacs_xml_element_content');
130	$fp = fopen($file,"r");
131	if (!$fp) {
132	drupal_set_message(t('Could not open uploaded branch file.'),'error');
133	drupal_goto("node/$nid/tree");
134	}
135	while ($data = fread($fp,4096)) {
136	if (!xml_parse($xml, $data, feof($fp))) {
137	$err_str = xml_error_string(xml_get_error_code($xml));
138	$err_num = xml_get_current_line_number($xml);
139	$err_msg = t('XML error: %s at line %d', array('%s' => $err_str, '%d' => $err_num));
140	drupal_set_message($err_msg,'error');
141	drupal_goto("node/$nid/tree");
142	}
143	}
144	xml_parser_free($xml);
145	pacs_move_node($_PACS_XML_NIDS[0],$nid,FALSE);
146	drupal_goto("node/$nid/tree");
147	}
148
149	function pacs_xml_import($nid) {
150	$output = '';
151
152	if ($_POST['op_cancel']) drupal_goto("node/$nid/tree");
153	if (isset($_FILES['branch_file'])) pacs_xml_parse($nid);
154
155	// file upload form
156	$form['#attributes'] = array('enctype'=>'multipart/form-data');
157	$form['import'] = array('#type'=>'fieldset','#title'=>t('Pacs Branch Import'),
158	'#description'=>t('Select a valid pacs export file to upload:'));
159	$form['import']['file'] = array('#type'=>'file','#name'=>'branch_file','#size'=>'45',);
160	$form['import']['cancel'] = array('#prefix'=>'<div>','#type'=>'submit',
161	'#name'=>'op_cancel','#value'=>t('cancel'),);
162	$form['import']['upload'] = array('#type'=>'submit','#value'=>t('upload'),'#suffix'=>'</div>',);
163	$output .= drupal_get_form('xml_import',$form);
164	print theme('page',$output);
165	}
166
167
168	// xml export functions ////////////////////////////////////////////////
169
170
171	function pacs_xml_export_node($nid) {
172	static $node_index = 0;
173
174	if ($node = node_load($nid,NULL,TRUE)) {
175	print "<node nid=\"$nid\">\n";
176	print "<type>".$node->type."</type>\n";
177	print "<status>".$node->status."</status>\n";
178	print "<promote>".$node->promote."</promote>\n";
179	print "<moderate>".$node->moderate."</moderate>\n";
180	print "<sticky>".$node->sticky."</sticky>\n";
181	print "<title><![CDATA[".$node->title."]]></title>\n";
182	print "<teaser><![CDATA[".$node->teaser."]]></teaser>\n";
183	print "<body><![CDATA[".$node->body."]]></body>\n";
184	print "<log><![CDATA[".$node->log."]]></log>\n";
185	print "<pacs_index>$node_index</pacs_index>\n"; $node_index++;
186	print "<pacs_pid>".$node->pacs['pid']."</pacs_pid>\n";
187	print "</node>\n";
188	}
189	}
190
191	function pacs_xml_export_branch($nid) {
192	pacs_xml_export_node($nid);
193	if ($list = pacs_child_list($nid)) foreach ($list as $chd) pacs_xml_export_branch($chd);
194	}
195
196	function pacs_xml_export($nid) {
197	$xml_file_name = 'drupal_branch_'.$nid.'.xml';
198	drupal_set_header('Content-Type: application/octet-stream');
199	drupal_set_header('Content-Disposition: attachment; filename='.$xml_file_name);
200
201	print '<?xml version="1.0" encoding="UTF-8"?>'."\n";
202	print "<pacs_branch>\n";
203	print "<drupal_version>4.7</drupal_version>\n";
204	pacs_xml_export_branch($nid);
205	print "</pacs_branch>\n";
206
207	exit;
208	}
209
210
211	// delete branch ////////////////////////////////////////////////
212
213
214	function pacs_del_branch($nid) {
215	node_delete($nid);
216	if ($list = pacs_child_list($nid)) foreach ($list as $chd) pacs_del_branch($chd);
217	}
218
219	function pacs_delete_branch($nid) {
220	$pnode = pacs_node($nid);
221	if ($_POST['op_delete']) {
222	pacs_del_branch($nid);
223	drupal_goto('node/'.$pnode['pid'].'/tree');
224	} elseif ($_POST['op_cancel']) {
225	drupal_goto('node/'.$nid.'/tree');
226	}
227	drupal_set_message(
228	t('Do you want to delete the branch under the node <strong>%title</strong> (inclusive) ?',
229	array('%title'=>$pnode['title'])),'error'
230	);
231	$output = '';
232	$form['cancel'] = array('#type'=>'submit','#name'=>'op_cancel','#value'=>t('cancel'));
233	$form['delete'] = array('#type'=>'submit','#name'=>'op_delete','#value'=>t('delete branch'));
234	$output .= drupal_get_form('delete_confirmation',$form);
235	print theme('page',$output);
236	}
237
238	?>