class.tx_nG6_pi1.php

<?php
/***************************************************************
*  Copyright notice
*
*  (c) 2009 PF bioinformatique de Toulouse <>
*  All rights reserved
*
*  This script is part of the TYPO3 project. The TYPO3 project 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.
*
*  The GNU General Public License can be found at
*  http://www.gnu.org/copyleft/gpl.html.
*
*  This script 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.
*
*  This copyright notice MUST APPEAR in all copies of the script!
***************************************************************/
/**
 * Plugin 'nG6' for the 'nG6' extension.
 *
 * @author	PF bioinformatique de Toulouse <>
 */

require_once(PATH_tslib.'class.tslib_pibase.php');
require_once(t3lib_extMgm::extPath('nG6').'/lib/class.tx_nG6_db.php');
require_once(t3lib_extMgm::extPath('nG6').'/lib/class.tx_nG6_utils.php');

class tx_nG6_pi1 extends tslib_pibase {
	
	var $prefixId = 'tx_nG6_pi1';		// Same as class name
	var $scriptRelPath = 'pi1/class.tx_nG6_pi1.php';	// Path to this script relative to the extension dir.
	var $extKey = 'nG6';	// The extension key.
	
	/**
	 * Main method of your PlugIn
	 *
	 * @param	string		$content: The content of the PlugIn
	 * @param	array		$conf: The PlugIn Configuration
	 * @return	The content that should be displayed on the website
	 */
	function main($content,$conf)	{
		
		if (strstr($this->cObj->currentRecord,'tt_content'))	{
			$conf['pidList'] = $this->cObj->data['pages'];
		}
		// Setting the TypoScript passed to this function in $this->conf
		$this->conf=$conf;
		$this->internal['results_at_a_time'] = $conf["results_at_a_time"];
		
		$this->pi_setPiVarDefaults();
		// Configuring so caching is not expected. This value means that no cHash params are ever set. We do this, because it's a USER_INT object!
		$this->pi_USER_INT_obj=1;
		// Loading the LOCAL_LANG values
		$this->pi_loadLL();

		// Add the ng6 plugins css
		$GLOBALS['TSFE']->additionalHeaderData[$this->prefixId] = '<link type="text/css" rel="stylesheet" media="screen" href="'.t3lib_extMgm::siteRelPath($this->extKey).'res/css/tx_nG6.css"/>';

		// If the user is authorized to access the specified project/run, display the page
		if (tx_nG6_db::user_is_authorized($GLOBALS['TSFE']->fe_user->user['usergroup'], $this->piVars['project_id'], $this->piVars['run_id'])) {
			switch((string)$this->conf['view'])	{
				// If the plugin is configured to display results by project
				case 'project':
					if ($this->piVars['analyze_id']) {
						return $this->pi_wrapInBaseClass($this->pi_analyze_view('analyze'));
					} elseif ($this->piVars['project_id'] && $this->piVars['run_id']) {
						return $this->pi_wrapInBaseClass($this->pi_run_view());
					}elseif ($this->piVars['project_id'] && $this->piVars['summary']) {
						return $this->pi_wrapInBaseClass($this->pi_project_summary());
					} else {
						return $this->pi_wrapInBaseClass($this->pi_project_view());
					}
					break;
				// If the plugin is configured to display results by run
				case 'run':
					if ($this->piVars['analyze_id']) {
						return $this->pi_wrapInBaseClass($this->pi_analyze_view('analyze'));
					} else {
						return $this->pi_wrapInBaseClass($this->pi_run_view());
					}
					break;
				// If the plugin is not configured, display by project is default
				default:
					return $this->pi_wrapInBaseClass($this->pi_project_view());
					break;
			}
		// If the user is not authorized
		} else {
			return $this->pi_wrapInBaseClass($this->pi_getLL('not_authorized','[not_authorized]'));
		}
	}
	
	/**
	 * Shows the summary and statistics for a project
	 * TODELETE
	 * @return	HTML list of table entries
	 */
	function pi_project_summary()	{
		$project_runs = tx_nG6_db::get_project_runs($GLOBALS['TSFE']->fe_user->user['usergroup'], $this->piVars['project_id']);
		$content = "Le projet ".$this->piVars['project_id']." contient ".count($project_runs)." runs.";
		return $content;
	}
	
	/**
	 * Shows a list of database entries
	 *
	 * @return	HTML list of table entries
	 */
	function pi_project_view()	{

		// If a single element should be displayed
		if ($this->piVars['project_id'])	{
			
			return $this->pi_project_single_view($this->piVars['project_id']);

		// If multiple projects
		} else {
			
			// If the user is on a specific page
			if (isset($this->piVars['project_page'])) {
				$current_page = intval($this->internal['results_at_a_time']) * (intval($this->piVars['project_page']) -1);
				$limit = "$current_page".",". $this->internal['results_at_a_time'] ;
			} else $limit = '0,'.$this->internal['results_at_a_time'] ; 
			
			// Select all user projects
			$projects = tx_nG6_db::select_all_user_projects($GLOBALS['TSFE']->fe_user->user['usergroup'], 'tx_nG6_project.name', $limit);
			$all_projects = tx_nG6_db::select_all_user_projects($GLOBALS['TSFE']->fe_user->user['usergroup']);
			
			// If there is at least one result
			if (count($projects) > 0) {

	         	$project_list = $this->pi_project_list_view($projects);
	         	$nav_links = $this->pi_navigation_link_view('project_page', $this->piVars['project_page'], count($all_projects));
         		return $project_list.$nav_links;
         		
         	// If there is no results to display		
			} else { 
				return $this->pi_getLL('no_raw','[no_raw]');
			}
		}
	}

	/**
	 * Creates a list from a database query
	 * 
	 * @param	ressource	$res: A database result ressource
	 * @return	A HTML list if result items
	 */
	function pi_project_list_view($projects)	{

		// First add the table header
		$content = '<table'.$this->pi_classParam('listrow').'>
					<tr>
					<th>'.$this->pi_getLL('project_name','[project_name]').'</th>
					<th>'.$this->pi_getLL('description','[description]').'</th>
					</tr>';
						
		// Then the row for each project	
		foreach($projects as $project_id => $project_values) {
			// If it's not a hidden project
			$hidden = $this->pi_classParam('hidden');
			if ($project_values['hidden'] == 0) { $hidden = ''; }
				$content .= '<tr>
							 <td '.$hidden.' >'.$this->pi_list_linkSingle($project_values['name'],$project_values['id'],1, array('project_id'=>$project_values['id'])).'</td>
							 <td '.$hidden.' >'.$project_values['description'].'</td>
							 </tr>';

		}
		// Return the whole table
		return $content .= '</table>';
	}

	/**
	 * Display a single project
	 * 
	 * @param	string	$project_id	the project id
	 * @return	HTML of a single project entry
	 */
	function pi_project_single_view($project_id)	{
		
		// First select the project values 
		$project = tx_nG6_db::select_project($project_id);
		
		// Add the project description
		$content = '<div'.$this->pi_classParam('singleView').'>
			        <h2>Projet '.$project['name'].' :</h2>
				    <p><strong>'.$project['description'].'</strong></p></div>';
		// The project runs view
		$content .= '<br /> <h3> '.$this->pi_getLL('runs_done','[runs_done]').'</h3> <br />';
		$content .= $this->pi_run_view();
		// And the analyses performed on the project
		$content .= $this->pi_analyze_view('project');
		return $content;
		
	}

	/**
	 * Shows a list of database entries
	 *
	 * @return	HTML list of table entries
	 */
    function pi_run_view() {
    	
    	// If a single element should be displayed
		if ($this->piVars['run_id'])    {       
		
			return $this->pi_run_single_view($this->piVars['run_id']);
		
		// If multiple runs
		} else {        
			
			// If the user is on a specific page
			if (isset($this->piVars['run_page'])) {
				$current_page = intval($this->internal['results_at_a_time']) * (intval($this->piVars['run_page']) -1);
				$limit = "$current_page".",". $this->internal['results_at_a_time'] ;
			} else $limit = '0,'.$this->internal['results_at_a_time'] ; 
		   
			// Select all runs from this project
			if ($this->piVars['project_id']) {
				$runs = tx_nG6_db::get_project_runs($GLOBALS['TSFE']->fe_user->user['usergroup'], $this->piVars['project_id'], 'tx_nG6_run.date DESC, tx_nG6_run.name ASC', $limit);
				$all_runs = tx_nG6_db::get_project_runs($GLOBALS['TSFE']->fe_user->user['usergroup'], $this->piVars['project_id']);
			// If no project defined, select all runs owned by the user
			} else {
            	$runs = tx_nG6_db::select_all_user_runs($GLOBALS['TSFE']->fe_user->user['usergroup'], 'tx_nG6_run.date DESC, tx_nG6_run.name ASC', $limit);
            	$all_runs = tx_nG6_db::select_all_user_runs($GLOBALS['TSFE']->fe_user->user['usergroup']);
         	}
	
         	// If there is some results to display
			if (count($runs) > 0) {

				$run_list = $this->pi_run_list_view($runs);
				$nav_links = $this->pi_navigation_link_view('run_page', $this->piVars['run_page'], count($all_runs));
				return $run_list ."\n". $nav_links;
 			
 			// If there is no results
 			} else { 
 				return $this->pi_getLL('no_raw','[no_raw]');
 			}
 			
		}
    }

	/**
	 * Creates a list from a database query
	 *
	 * @param	ressource	$res: A database result ressource
	 * @return	A HTML list if result items
	 */
	function pi_run_list_view($runs) {
		
		// First add the table header
		$content = '<table'.$this->pi_classParam('listrow').'>
					<tr>
					<th>'.$this->pi_getLL('run_name','[run_name]').'</th>
					<th>'.$this->pi_getLL('project_name','[project_name]').'</th>
					<th>'.$this->pi_getLL('date','[date]').'</th>
					<th>'.$this->pi_getLL('species','[species]').'</th>
					<th>'.$this->pi_getLL('data_nature','[data_nature]').'</th>
					<th>'.$this->pi_getLL('type','[type]').'</th>
					<th>'.$this->pi_getLL('nb_sequences','[nb_sequences]').'</th>
					<th>'.$this->pi_getLL('full_seq_size','[full_seq_size]').'</th>
					<th>'.$this->pi_getLL('description','[description]').'</th>
					<th>'.$this->pi_getLL('sequencer','[sequencer]').'</th>
					</tr>';
					
		// Then the row for each run
		foreach($runs as $run_id => $run_values) {
			
			// If the run is hidden
			$hidden = $this->pi_classParam('hidden');
			if ($run_values['hidden'] == 0) { $hidden = ''; }

			// Add the row information
			$content .= '<tr>
						 <td '.$hidden.' >'.$this->pi_list_linkSingle($run_values['name'],$run_id,1, array('run_id'=>$run_values['id'], 'project_id'=>$run_values['project_id'])).'</td>
						 <td '.$hidden.' >'.$run_values['project_name'].'</td>
						 <td '.$hidden.' >'.strftime('%d-%m-%y',$run_values['date']).'</td>
						 <td '.$hidden.' >'.$run_values['species'].'</td>
						 <td '.$hidden.' >'.$run_values['data_nature'].'</td>
						 <td '.$hidden.' >'.$run_values['type'].'</td>
						 <td '.$hidden.' >'.number_format($run_values['nb_sequences'], 0, ',', ' ').'</td>
						 <td '.$hidden.' >'.number_format($run_values['full_seq_size'], 0, ',', ' ').'</td>
						 <td '.$hidden.' >'.$run_values['description'].'</td>
						 <td '.$hidden.' >'.$run_values['sequencer'].'</td>
						 </tr>';
		}
		
		// Return the html table
		return $content .= '</table>' ;
	}

	/**
	 * Display a single item from the database
	 * 
	 * @param	ressource	$res: A database result ressource
	 * @return	HTML of a single database entry
	 */
	function pi_run_single_view($run_id) {	
		
		// First select the run
		$run = tx_nG6_db::select_run($run_id);
		
		// Add the run description to the page content
		$content = '<div'.$this->pi_classParam('singleView').'>';
		$content .= '<h2>Run '.$run['name'].' :</h2>';
		$content .= '<p><strong>'.$run['description'].'</strong></p> </div>
					 <table'.$this->pi_classParam('listrow').'>
					 <tr>
						<th align="left">'.$this->pi_getLL('project_name','[project_name]').' :</th>
						<td align="left">'.$run['project_name'].'</td>
					 </tr>	
					 <tr>
						<th align="left">'.$this->pi_getLL('date','[date]').' :</th>
						<td align="left">'.strftime('%d-%m-%y',$run['date']).'</td>
					 </tr>					
					 <tr>
						<th align="left">'.$this->pi_getLL('species','[species]').' :</th>
						<td align="left">'.$run['species'].'</td>
					 </tr>
					 <tr>
						<th align="left">'.$this->pi_getLL('type','[type]').' :</th>
						<td align="left">'.$run['type'].'</td>
					 </tr>
					 <tr>
						<th align="left">'.$this->pi_getLL('data_nature','[data_nature]').' :</th>
						<td align="left">'.$run['data_nature'].'</td>
					 </tr>
					 <tr>
						<th align="left">'.$this->pi_getLL('nb_sequences','[nb_sequences]').' :</th>
						<td align="left">'.number_format($run['nb_sequences'], 0, ',', ' ').'</td>
					 </tr>
					 <tr>
						<th align="left">'.$this->pi_getLL('full_seq_size','[full_seq_size]').' :</th>
						<td align="left">'.number_format($run['full_seq_size'], 0, ',', ' ').'</td>
					 </tr>						
					 <tr>
						<th align="left">'.$this->pi_getLL('sequencer','[sequencer]').' :</th>
						<td align="left">'.$run['sequencer'].'</td>
					 </tr>
					 <tr>
						<th align="left">'.$this->pi_getLL('downloads','[downloads]').' :</th>
						<td align="left">'.$this->get_downloads_list($run['directory']).'</td>
					 </tr>
					 </table>';
					 
		// Add the run analysis
		$content .= $this->pi_analyze_view('run');
		
		// Return the run HTML page
		return $content;
	}
	
	/**
	 * Display a list of downloadable file
	 *
	 * @return	HTML of a list of downlabale links
	 */
	function get_downloads_list($run_directory) {
		$directory = (string)$this->conf['data'].$run_directory;
		
		// Try to look at all files in the specified directory
		try {
			if (!is_dir($directory)) { throw new Exception('Error when attempting to open the data folder !'); }
			$my_directory = opendir($directory) or die('Error when attempting to open the data folder !');
			$download = '<p '.$this->pi_classParam('downloads').'><ul>';
			// For every files
			while($entry = @readdir($my_directory)) {
				if(!is_dir($directory.'/'.$entry)&& $entry != '.' && $entry != '..' && !tx_nG6_utils::ends_with($entry, ".cfg")) {
					$link = 'fileadmin/'.$run_directory.'/'.$entry;
					$download .= '<li><a href="'.$link.'" target="_blank">'.$entry.'</a></li>';
				}
			}
			$download .= '</ul>';		
			closedir($my_directory);
			return $download;
		}
		catch (Exception $e) {
			return $this->pi_getLL('not_synchro','[not_synchro]');
		}
	}	
	
	/**
	 * Shows a list of database entries
	 *
	 * @param	string		$type: What kind of analyze is it : run or project
	 * 	 * @return	HTML list of table entries
	 */
	function pi_analyze_view($type)	{
		
		// If a single element should be displayed:
		if ($type == 'analyze')	{
			
			return $this->pi_analyze_single_view($this->piVars['analyze_id']);
		
		// If multiple analyses
		} else {
			
			// If the user is on a specific page
			if (isset($this->piVars['analyze_page'])) {
				$current_page = intval($this->internal['results_at_a_time']) * (intval($this->piVars['analyze_page']) -1);
				$limit = "$current_page".",". $this->internal['results_at_a_time'] ;
			} else $limit = '0,'.$this->internal['results_at_a_time'] ; 
			
			// If we want run analyses
			if ($type == 'run') {
				// Selects Analyzis done on this run
				$analyses = tx_nG6_db::get_run_analysis($GLOBALS['TSFE']->fe_user->user['usergroup'], $this->piVars['run_id'], 'tx_nG6_analyze.name', $limit);
				$all_analyses = tx_nG6_db::get_run_analysis($GLOBALS['TSFE']->fe_user->user['usergroup'], $this->piVars['run_id']);
			} else {
				$analyses = tx_nG6_db::get_project_analysis($GLOBALS['TSFE']->fe_user->user['usergroup'], $this->piVars['project_id'], 'tx_nG6_analyze.name', $limit);
				$all_analyses = tx_nG6_db::get_project_analysis($GLOBALS['TSFE']->fe_user->user['usergroup'], $this->piVars['project_id']);
			}

			// Define an empty content
			$content='';
			
			// If there is some analyse
			if (count($analyses) > 0) {	
				$analyze_list = $this->pi_analyze_list_view($analyses);
				$nav_links = $this->pi_navigation_link_view('analyze_page', $this->piVars['analyze_page'], count($all_analyses));
				$content.= $analyze_list.$nav_links;
			}
			
			// Return the final HTML
			return $content;
		}
	}

	/**
	 * Creates a list from a database query
	 *
	 * @param	ressource	$res: A database result ressource
	 * @return	A HTML list if result items
	 */
	function pi_analyze_list_view($analyses) {
		
		// First add the table header to the HTML
		$content = '<br /> <h3> '.$this->pi_getLL('analyzes_done','[analyzes_done]').'</h3> <br />
				   <table'.$this->pi_classParam('listrow').'>
				   <tr>
						<th>'.$this->pi_getLL('name','[name]').'</th>
						<th>'.$this->pi_getLL('description','[description]').'</th>
						<th>'.$this->pi_getLL('software','[software]').'</th>
						<th>'.$this->pi_getLL('version','[version]').'</th>
				   </tr>';
				   
		// Then the row for each analyse
		foreach($analyses as $analyse_id => $analyse_values) {

			// If it's not a hidden analyse
			$hidden = $this->pi_classParam('hidden');
			if ($analyse_values['hidden'] == 0) { $hidden = ''; }

			$content .= '<tr>
						 <td '.$hidden.' >'.$this->pi_list_linkSingle($analyse_values['name'],$analyse_values['id'],1, array('analyze_id'=>$analyse_values['id'], 'project_id'=>$this->piVars['project_id'], 'run_id'=>$this->piVars['run_id'])).'</td>
						 <td '.$hidden.' >'.$analyse_values['description'].'</td>
						 <td '.$hidden.' >'.$analyse_values['software'].'</td>
						 <td '.$hidden.' >'.$analyse_values['version'].'</td>
						 </tr>';

		}
		return $content.'</table>' ;	
	}


	/**
	 * Display a single item from the database
	 *
	 * @return	HTML of a single database entry
	 */
	function pi_analyze_single_view($analyse_id) {
		
		// First select the analyse
		$analyse = tx_nG6_db::select_analyse($analyse_id);
		
		// Add the jquery libs
		$GLOBALS['TSFE']->additionalHeaderData[$this->prefixId] = '
			<script type="text/javascript" src="'.t3lib_extMgm::siteRelPath($this->extKey).'res/js/jquery.js"></script>
			<script type="text/javascript" src="'.t3lib_extMgm::siteRelPath($this->extKey).'res/js/jquery.ui.core.min.js"></script>
			<script type="text/javascript" src="'.t3lib_extMgm::siteRelPath($this->extKey).'res/js/jquery.ui.dialog.min.js"></script>
			<script type="text/javascript" src="'.t3lib_extMgm::siteRelPath($this->extKey).'res/js/jquery.ui.draggable.min.js"></script>
			<script type="text/javascript" src="'.t3lib_extMgm::siteRelPath($this->extKey).'res/js/jquery.ui.resizable.min.js"></script> 
			<script type="text/javascript" src="'.t3lib_extMgm::siteRelPath($this->extKey).'res/js/jquery.bgiframe.min.js"></script>
			<script type="text/javascript" src="'.t3lib_extMgm::siteRelPath($this->extKey).'res/js/jquery.url.packed.js"></script>
			<script type="text/javascript" src="'.t3lib_extMgm::siteRelPath($this->extKey).'res/js/tx_nG6_pi1.js"></script>
			<link type="text/css" rel="stylesheet" media="screen" href="'.t3lib_extMgm::siteRelPath($this->extKey).'res/css/tx_nG6.css"/>
			<link type="text/css" rel="stylesheet" media="screen" href="'.t3lib_extMgm::siteRelPath($this->extKey).'res/css/jquery.ui.core.css"/>
			<link type="text/css" rel="stylesheet" media="screen" href="'.t3lib_extMgm::siteRelPath($this->extKey).'res/css/jquery.ui.theme.css"/>
			<link type="text/css" rel="stylesheet" media="screen" href="'.t3lib_extMgm::siteRelPath($this->extKey).'res/css/jquery.ui.dialog.css"/>';
		
		// Add the analyse description
		$content = '<div id="img_dialog" title=""></div>';
		$content .= '<input type="hidden" id="analyse_name" value="'.$analyse['name'].'" />';
		$content .= '<div'.$this->pi_classParam('singleView').'>';
		$content .= '<h2>Analyse '.$analyse['name'].' : <span>'.$analyse['description'].'</span></h2></div>';
		
		// If the analyse is defined by an xml
		if (file_exists($this->conf['data'].$analyse['directory'].'/analyse.xml' )) {
			$xml = new DomDocument;
			$xml->load($this->conf['data'].$analyse['directory'].'/analyse.xml');
			
			// Find out the analyse class
            $class = $xml->documentElement;
            $class_value = "";
			foreach ($class->childNodes AS $item) {
                if ($item->nodeName == "class") { $class_value = $item->nodeValue; } 
			}
			// If no class value : xml incorrect
			if ($class_value == "") { 
				$content .= $this->pi_getLL('uncorrect_xml','[uncorrect_xml]');
			} else {
				
	            $xslt = new XSLTProcessor();
	            $xsl = new DOMDocument();
	            if (file_exists(PATH_typo3conf.ext.'/'.$this->extKey.'/res/xsl/'.$this->LLkey.'.'.$class_value.'.xsl')) {
	                    $xsl->load( 'typo3conf/ext/'.$this->extKey.'/res/xsl/'.$this->LLkey.'.'.$class_value.'.xsl', LIBXML_NOCDATA);
	                    $xslt->importStylesheet( $xsl );
	                    $content .= $xslt->transformToXML( $xml );
	            } else if (file_exists(PATH_typo3conf.ext.'/'.$this->extKey.'/res/xsl/default.'.$class_value.'.xsl')) {
	                    $xsl->load( 'typo3conf/ext/'.$this->extKey.'/res/xsl/default.'.$class_value.'.xsl', LIBXML_NOCDATA);
	                    $xslt->importStylesheet( $xsl );
	                    $content .= $xslt->transformToXML( $xml );
	            } else {
	                    $content .= $this->pi_getLL('no_xsl_found','[no_xsl_found]');
	            }
			}
			
		// If the analyse is defined by an html file (old fashon)
		} else if (file_exists($this->conf['data'].$analyse['directory'].'/index.html' )) {
			$fp = fopen((string)$this->conf['data'].$analyse['directory'].'/index.html',"r"); //lecture du fichier
			while (!feof($fp)) { //on parcourt toutes les lignes
				$content .= fgets($fp, 4096); // lecture du contenu de la ligne
			}
			
		// Else meaning the analyse is not synchronized yet
		} else {
			$content .= $this->pi_getLL('not_synchro','[not_synchro]');
		}
		
		// Return the analyse HTML page
		return $content;
	}
	
	/**
	 * Overloading of the tslib_pibase->pi_list_linkSingle function so piVars[showUid] is not set.
	 * Uses pi_linkTP for the linking
	 *
	 * @param	string		The content string to wrap in <a> tags
	 * @param	integer		UID of the record for which to display details (basically this will become the value of [showUid]
	 * @param	boolean		See pi_linkTP_keepPIvars
	 * @param	array		Array of values to override in the current piVars. Same as $overrulePIvars in pi_linkTP_keepPIvars
	 * @param	boolean		If true, only the URL is returned, not a full link
	 * @param	integer		Alternative page ID for the link. (By default this function links to the SAME page!)
	 * @return	string		The input string wrapped in <a> tags
	 * @see pi_linkTP(), pi_linkTP_keepPIvars()
	 */
	function pi_list_linkSingle($str,$uid,$cache=FALSE,$mergeArr=array(),$urlOnly=FALSE,$altPageId=0)	{
		if ($this->prefixId)	{
			if ($cache)	{
				$overrulePIvars=(array)$mergeArr;
				$str = $this->pi_linkTP($str,Array($this->prefixId=>$overrulePIvars),$cache,$altPageId);
			} else {
				$overrulePIvars=(array)$mergeArr;
				$str = $this->pi_linkTP_keepPIvars($str,$overrulePIvars,$cache,0,$altPageId);
			}

				// If urlOnly flag, return only URL as it has recently be generated.
			if ($urlOnly)	{
				$str = $this->cObj->lastTypoLinkUrl;
			}
		}
		return $str;
	}
	
	/**
	 * Display links for navigation in run lists or analyse lists. Called only if $end>1
	 *
	 * @param	$name	name of the variable set in GET: run_page or analyze_page
	 * @param	$start	current page number
	 * @param	$total_count	current total number of rows
	 *
	 * @return	HTML navigation links
	 */
	function pi_navigation_link_view($name, $start, $total_count) 
	{  
		$start = intval($start);		
		
		//max page number
		$end = $total_count/$this->internal['results_at_a_time'] ;
		$end = ceil($end) ;
		//repair URL mistakes caused by the nasty user  		
		if ($start > $end)
			$start = $end;
		if (($start < 1) or (! $start))
			$start = 1; 
					
		$start=(string)$start ; $end=(string)$end ;
		//create navigation links
		
		$go_back = $this->pi_linkTP_keepPIvars ('<<', array ($name => 1))	.' '.		$this->pi_linkTP_keepPIvars ('<', array ($name => $start-1));
		$go_ahead= $this->pi_linkTP_keepPIvars ('>', array ($name => $start+1)).' '.$this->pi_linkTP_keepPIvars ('>>', array ($name => $end)); 
		$current_pos = 'page '.$start. '/'.$end;
		
		//do nothing
		if( $end == '1' ) { return '' ;
		//don't display << nor <
		} elseif($start == '1')	{ $go_back = '';
		//don't display > nor >>
		} elseif($start == $end) { $go_ahead = '';
		//display both		
		}		
		$content = '<div align="right">'.$go_back .' '. $current_pos .' '. $go_ahead .'</div>' ;
		return $content;
	}	
		
}

if (defined('TYPO3_MODE') && $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['ext/nG6/pi1/class.tx_nG6_pi1.php'])	{
	include_once($TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['ext/nG6/pi1/class.tx_nG6_pi1.php']);
}

?>