Subversion Repositories eFlore/Applications.cel

Rev

Rev 416 | Rev 890 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
416 aurelien 1
<?php
2
/**
3
 
4
 David Delon david.delon@clapas.net 2007
5
 
423 aurelien 6
 Ce logiciel est r�gi par la licence CeCILL soumise au droit fran�ais et
416 aurelien 7
 respectant les principes de diffusion des logiciels libres. Vous pouvez
8
 utiliser, modifier et/ou redistribuer ce programme sous les conditions
423 aurelien 9
 de la licence CeCILL telle que diffus�e par le CEA, le CNRS et l'INRIA
416 aurelien 10
 sur le site "http://www.cecill.info".
423 aurelien 11
 En contrepartie de l'accessibilit� au code source et des droits de copie,
12
 de modification et de redistribution accord�s par cette licence, il n'est
13
 offert aux utilisateurs qu'une garantie limit�e.  Pour les m�mes raisons,
14
 seule une responsabilit� restreinte p�se sur l'auteur du programme,  le
15
 titulaire des droits patrimoniaux et les conc�dants successifs.
416 aurelien 16
 
423 aurelien 17
 A cet �gard  l'attention de l'utilisateur est attir�e sur les risques
18
 associ�s au chargement,  � l'utilisation,  � la modification et/ou au
19
 d�veloppement et � la reproduction du logiciel par l'utilisateur �tant
20
 donn� sa sp�cificit� de logiciel libre, qui peut le rendre complexe �
21
 manipuler et qui le r�serve donc � des d�veloppeurs et des professionnels
22
 avertis poss�dant  des  connaissances  informatiques approfondies.  Les
23
 utilisateurs sont donc invit�s � charger  et  tester  l'ad�quation  du
24
 logiciel � leurs besoins dans des conditions permettant d'assurer la
25
 s�curit� de leurs syst�mes et ou de leurs donn�es et, plus g�n�ralement,
26
 � l'utiliser et l'exploiter dans les m�mes conditions de s�curit�.
416 aurelien 27
 
423 aurelien 28
 Le fait que vous puissiez acc�der � cet en-t�te signifie que vous avez
29
 pris connaissance de la licence CeCILL, et que vous en avez accept� les
416 aurelien 30
 termes.
31
 
32
 */
33
 
34
 
35
 // in : utf8
36
 // out : utf8
37
 
38
 
39
 /*
40
 * Name.php
41
 *
42
 * Cas d'utilisation :
43
 * Service recherche nom retenu depuis un numero nomenclatural pour la BDNFF
44
 *
45
 * 1 : L'application recoit un numero nomenclatural
423 aurelien 46
 * 2 : L'application retourne le nom retenu associ�
416 aurelien 47
 */
48
 
49
 
50
Class Name extends DBAccessor {
51
 
52
 
53
	var $config;
54
 
55
	function Name($config) {
56
 
57
		$this->config=$config;
58
	}
59
 
60
 
61
	function getElement($uid){
62
 
63
			$value=array();
64
 
65
			// Num nomenclatural
66
			if (isset($uid[0])) {
67
				$DB=$this->connectDB($this->config);
68
			    	      $query = "SELECT DISTINCT en_nom_genre, en_epithete_espece, en_nom_supra_generique, en_epithete_infra_generique,".
69
        	       			"   auteur_bex.enaia_intitule_abrege AS abreviation_auteur_basio_ex ".
70
        	       			" , auteur_b.enaia_intitule_abrege AS abreviation_auteur_basio ".
71
        	       			" , auteur_mex.enaia_intitule_abrege AS abreviation_auteur_modif_ex ".
72
        	       			" , auteur_m.enaia_intitule_abrege AS abreviation_auteur_modif ".
73
        	       			" , en_epithete_espece, en_epithete_infra_specifique, enrg_abreviation_rang, en_id_nom" .
74
        	       			" FROM eflore_nom, eflore_nom_rang, eflore_selection_nom a,  " .
75
        	    			"  	  eflore_naturaliste_intitule_abreviation AS auteur_bex ".
76
			        	    "   , eflore_naturaliste_intitule_abreviation AS auteur_b ".
77
        				    "   , eflore_naturaliste_intitule_abreviation AS auteur_mex ".
78
			        	    "   , eflore_naturaliste_intitule_abreviation AS auteur_m ".
79
			     " WHERE a.esn_id_nom= '".$uid[0]. "'".
80
			     " AND a.esn_id_version_projet_taxon = 25 ".
81
			     " AND en_ce_rang = enrg_id_rang" .
82
			     " AND en_id_nom = a.esn_id_nom" .
83
			     " AND en_ce_auteur_basio_ex = auteur_bex.enaia_id_intitule_naturaliste_abrege ".
84
        	     " AND en_ce_auteur_basio = auteur_b.enaia_id_intitule_naturaliste_abrege  ".
85
        	     " AND en_ce_auteur_modif_ex = auteur_mex.enaia_id_intitule_naturaliste_abrege ".
86
        	     " AND en_ce_auteur_modif = auteur_m.enaia_id_intitule_naturaliste_abrege ".
87
			     " AND a.esn_id_version_projet_taxon=en_id_version_projet_nom ";
88
 
89
			}
90
			else {
91
				print "[\"null\"]";
92
            	return ;
93
			}
94
 
95
 
96
		    $res =& $DB->query($query);
97
 
98
 
99
	        if (DB::isError($res)) {
100
    	        die($res->getMessage());
101
        	}
102
 
103
 
104
			$value=array("null");
105
 
106
	        while ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
107
            	    $value=array(($this->formaterNom($row)));
108
	       }
109
 
110
 
111
 
423 aurelien 112
			$output = json_encode($value);
416 aurelien 113
			print($output);
114
 
115
 
116
 
117
	}
118
 
119
	function getRessource(){
120
 
121
			print "[\"null\"]";
122
            return;
123
	}
124
 
125
 
126
	 function formaterNom($rawnom) {
127
                // Constitution du nom:
128
                $nom = '';
129
 
130
                if ($rawnom['en_nom_supra_generique'] != '') {
131
                    $nom .= $rawnom['en_nom_supra_generique'];
132
                } else if ($rawnom['en_epithete_infra_generique'] != '') {
133
                    $nom .= $rawnom['en_epithete_infra_generique'];
134
                } else {
135
                        if ($rawnom['en_nom_genre'] != '') {
136
                            $nom .=  $rawnom['en_nom_genre'];
137
                        }
138
                        if ($rawnom['en_epithete_espece']!= '') {
139
                            $nom .= ' '.$rawnom['en_epithete_espece'];
140
                        }
141
                        if ($rawnom['en_epithete_infra_specifique'] != '') {
142
                                if (!empty($rawnom['enrg_abreviation_rang'])) {
143
                                        $nom .= ' '.$rawnom['enrg_abreviation_rang'].'';
144
                                }
145
                                $nom .= ' '.$rawnom['en_epithete_infra_specifique'];
146
                        }
147
 
148
                }
149
                return $nom .retournerAuteur($rawnom) ;
150
	 }
151
}
152
 
153
 
154
	function retournerAuteur($rawnom) {
155
		$auteurs = '';
156
		$auteur_basio = '';
157
		$auteur_modif = '';
158
		if (!empty($rawnom['abreviation_auteur_basio_ex']) && $rawnom['abreviation_auteur_basio_ex']!='-' )  {
159
		    $auteur_basio .= $rawnom['abreviation_auteur_basio_ex'];
160
		    if (!empty($rawnom['abreviation_auteur_basio']) && $rawnom['abreviation_auteur_basio']!='-') {
161
		        $auteur_basio .= ' ex '.$rawnom['abreviation_auteur_basio'];
162
		    }
163
		} else if (!empty($rawnom['abreviation_auteur_basio']) && $rawnom['abreviation_auteur_basio']!='-') {
164
		    $auteur_basio .= $rawnom['abreviation_auteur_basio'];
165
		}
166
 
167
		if (!empty($rawnom['abreviation_auteur_modif_ex']) && $rawnom['abreviation_auteur_modif_ex']!='-') {
168
		    $auteur_modif .= $rawnom['abreviation_auteur_modif_ex'];
169
		    if (!empty($rawnom['abreviation_auteur_modif']) && $rawnom['abreviation_auteur_modif']!='-') {
170
		        $auteur_modif .= ' ex '.$rawnom['abreviation_auteur_modif'];
171
		    }
172
		} else if (!empty($rawnom['abreviation_auteur_modif']) && $rawnom['abreviation_auteur_modif']!='-')  {
173
		    $auteur_modif .= $rawnom['abreviation_auteur_modif'];
174
		}
175
 
176
		if (!empty($auteur_modif)) {
177
		    $auteurs = ' ('.$auteur_basio.') '.$auteur_modif;
178
		} elseif (!empty($auteur_basio)) {
179
		    $auteurs = ' '.$auteur_basio;
180
		}
181
 
182
		return $auteurs ;
183
	}
184
 
185
/* +--Fin du code ---------------------------------------------------------------------------------------+
186
* $Log$
187
* Revision 1.3  2008-01-30 08:57:28  ddelon
188
* fin mise en place mygwt
189
*
190
* Revision 1.2  2007-05-21 18:13:30  ddelon
191
* Refactoring et documentation
192
*
193
*
194
*/
195
 
196
 
197
 
198
 
199
?>