(.+?)<\/pre>/ise', '/\[escape\](.+?)\[\/escape\]/ise', '/\[php\](.+?)\[\/php\]/ise', '/\[snippet\](.+?)\[\/snippet\]/ise'), "'
'.str_replace('<', '<', '$1').'
'", $input);

	// make a supposedly valid xml snippet
	$snippet = ''."\n".''."\n".preg_replace(array('/&(?!(amp|#\d+);)/i', '/< /i', '/ >/i'), array('&', '< ', ' >'), $input)."\n".''."\n";

	// remember tags during parsing
	global $validation_stack;
	$validation_stack = array();

	// create a parser
	$xml_parser = xml_parser_create();
	$startElement = create_function( '$parser, $name, $attrs', 'global $validation_stack; array_push($validation_stack, $name);' );
	$endElement = create_function( '$parser, $name', 'global $validation_stack; array_pop($validation_stack);' );
	xml_set_element_handler($xml_parser, $startElement, $endElement);

	// spot errors, if any
	if(!xml_parse($xml_parser, $snippet, TRUE)) {

		$text .= '
'.sprintf(i18n::s('XML error: %s at line %d'), xml_error_string(xml_get_error_code($xml_parser)),
			xml_get_current_line_number($xml_parser)-2).BR."\n";

		$lines = explode("\n", $snippet);
		$text .= htmlentities($lines[xml_get_current_line_number($xml_parser)-1]).BR."\n";

		$element = array_pop($validation_stack);
		if(!preg_match('/snippet/i', $element))
			$text .= sprintf(i18n::s('Last stacking element: %s'), $element);
		$text .= '
'."\n";
	}

	// clear resources
	xml_parser_free($xml_parser);

	// return parsing result
	return $text;
}

//
// Anchor stuff -- see shared/anchor.php for more information
//

/**
 * load one anchor from the database
 *
 * You should expand this function to take into account any new module
 * that may behave as anchors for other information components.
 *
 * This function saves on SQL requests by caching results locally in static memory.
 *
 * You can prevent YACS to cache mutable objects by setting the second parameter to TRUE.
 *
 * @param string a valid anchor (e.g., 'section:12', 'article:34')
 * @param boolean TRUE to always fetch a fresh instance, FALSE to enable cache
 * @return an array of named variables, or NULL if the anchor is unknown
 *
 * @see shared/anchor.php
 */
function &get_anchor($id, $mutable=FALSE) {
	global $context;

	// cache previous answers
	static $anchors;
	if(!is_array($anchors))
		$anchors = array();

	// cache hit, but only for immutable objects
	if(!$mutable && isset($anchors[$id]))
		return $anchors[$id];

	// noanchor yet
	$anchor = NULL;

	// find the type
	$attributes = explode(':', $id);
	if(!isset($attributes[1]) || !$attributes[1])
		return $anchor;

	// switch on type
	switch($attributes[0]) {
	case 'article':
		include_once $context['path_to_root'].'articles/article.php';
		$anchor =& new Article();
		$anchor->load_by_id($attributes[1]);
		break;;
	case 'category':
		include_once $context['path_to_root'].'categories/category.php';
		$anchor =& new Category();
		$anchor->load_by_id($attributes[1]);
		break;
	case 'file':
		include_once $context['path_to_root'].'files/file.php';
		$anchor =& new File();
		$anchor->load_by_id($attributes[1]);
		break;;
	case 'section':
		include_once $context['path_to_root'].'sections/section.php';
		$anchor =& new Section();
		$anchor->load_by_id($attributes[1]);
		break;
	case 'user':
		include_once $context['path_to_root'].'users/user.php';
		$anchor =& new User();
		$anchor->load_by_id($attributes[1]);
		break;
	default:
		return $anchor;
	}

	// save in cache
	$anchors[$id] = $anchor;

	// here it is
	return $anchor;
}

/**
 * delete items related to one anchor
 *
 * @param the anchor (e.g., 'article:12')
 * @return an error message, if any
 */
function delete_related_to($anchor) {
	global $context;

	// clear the cache as well
	include_once $context['path_to_root'].'shared/cache.php';

	// delete related articles
	Cache::clear('articles');
	include_once $context['path_to_root'].'articles/articles.php';
	if($text = Articles::delete_for_anchor($anchor))
		return $text;

	// delete related comments
	Cache::clear('comments');
	include_once $context['path_to_root'].'comments/comments.php';
	if($text = Comments::delete_for_anchor($anchor))
		return $text;

	// delete related dates
	Cache::clear('dates');
	include_once $context['path_to_root'].'dates/dates.php';
	if($text = Dates::delete_for_anchor($anchor))
		return $text;

// 	// delete related decisions
// 	Cache::clear('decisions');
// 	include_once $context['path_to_root'].'decisions/decisions.php';
// 	if($text = Decisions::delete_for_anchor($anchor))
// 		return $text;

	// delete related files
	Cache::clear('files');
	include_once $context['path_to_root'].'files/files.php';
	if($text = Files::delete_for_anchor($anchor))
		return $text;

	// delete related images
	Cache::clear('images');
	include_once $context['path_to_root'].'images/images.php';
	if($text = Images::delete_for_anchor($anchor))
		return $text;

	// delete related links
	Cache::clear('links');
	include_once $context['path_to_root'].'links/links.php';
	if($text = Links::delete_for_anchor($anchor))
		return $text;

	// delete related locations
	Cache::clear('locations');
	include_once $context['path_to_root'].'locations/locations.php';
	if($text = Locations::delete_for_anchor($anchor))
		return $text;

	// delete related tables
	Cache::clear('tables');
	include_once $context['path_to_root'].'tables/tables.php';
	if($text = Tables::delete_for_anchor($anchor))
		return $text;

	// delete related pointers
	Cache::clear(array('members', 'categories'));
	include_once $context['path_to_root'].'categories/members.php';
	if($text = Members::unlink_for_anchor($anchor))
		return $text;

	// delete related trials
	if(is_readable($context['path_to_root'].'overlays/classic_trials/classic_trials.php')) {
		Cache::clear('classic_trials');
		include_once $context['path_to_root'].'overlays/classic_trials/classic_trials.php';
		if($text = Classic_Trials::delete_for_anchor($anchor))
			return $text;
	}

	// everything has gone fine
	return NULL;
}

/**
 * get the label for an action
 *
 * Following actions codes have been defined:
 * - 'article:create'
 * - 'article:update'
 * - 'article:publish'
 * - 'article:review'
 * - 'section:create'
 * - 'section:update'
 * - 'comment:create'
 * - 'comment:update'
 * - 'file:create'
 * - 'file:update'
 * - 'link:create'
 * - 'link:update'
 * - 'link:stamp'
 * - 'image:create'
 * - 'image:update'
 * - 'image:set_as_icon'
 * - 'location:create'
 * - 'location:update'
 * - 'table:create'
 * - 'table:update'
 * - 'user:create'
 * - 'user:update'
 *
 * @param string the action code example: 'article:publish', 'image:create'
 * @return a string
 * @see shared/anchor.php#touch
 */
function get_action_label($action) {

	if(preg_match('/.*:import/i', $action))
		return i18n::s('imported');

	switch($action) {
	case 'article:create':
		return i18n::s('created');

	case 'article:update':
		return i18n::s('edited');

	case 'article:publish':
		return i18n::s('published');

	case 'article:review':
		return i18n::s('reviewed');

	case 'section:create':
		return i18n::s('created');

	case 'section:update':
		return i18n::s('updated');

	case 'comment:create':
		return i18n::s('commented');

	case 'comment:update':
		return i18n::s('edited');

	case 'file:create':
		return i18n::s('file uploaded');

	case 'file:update':
		return i18n::s('file updated');

	case 'image:create':
		return i18n::s('image uploaded');

	case 'image:update':
		return i18n::s('image updated');

	case 'image:set_as_icon':
		return i18n::s('icon set');

	case 'link:create':
	case 'link:feed':
		return i18n::s('link posted');

	case 'link:update':
		return i18n::s('link updated');

	case 'link:stamp':
		return i18n::s('page updated');

	case 'location:create':
		return i18n::s('location created');

	case 'location:update':
		return i18n::s('location updated');

	case 'table:create':
		return i18n::s('table posted');

	case 'table:update':
		return i18n::s('table updated');

	case 'thread:update':
		return i18n::s('new message');

	case 'user:create':
		return i18n::s('new user');

	case 'user:update':
		return i18n::s('profile updated');

	default:
		return i18n::s('edited');
	}
}

?>