Subversion Repositories eFlore/Applications.bibliobota

Rev

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

Rev Author Line No. Line
5 jp_milcent 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 5.1.1                                                                                    |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2006 Tela Botanica (accueil@tela-botanica.org)                                         |
7
// +------------------------------------------------------------------------------------------------------+
8
// | This file is part of eFlore.                                                                         |
9
// |                                                                                                      |
10
// | Foobar is free software; you can redistribute it and/or modify                                       |
11
// | it under the terms of the GNU General Public License as published by                                 |
12
// | the Free Software Foundation; either version 2 of the License, or                                    |
13
// | (at your option) any later version.                                                                  |
14
// |                                                                                                      |
15
// | Foobar is distributed in the hope that it will be useful,                                            |
16
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
17
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                                        |
18
// | GNU General Public License for more details.                                                         |
19
// |                                                                                                      |
20
// | You should have received a copy of the GNU General Public License                                    |
21
// | along with Foobar; if not, write to the Free Software                                                |
22
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
23
// +------------------------------------------------------------------------------------------------------+
24
// CVS : $Id$
25
/**
26
* Titre
27
*
28
* Description
29
*
30
*@package eFlore
31
*@subpackage ef_fiche
32
//Auteur original :
33
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
34
//Autres auteurs :
35
*@author        aucun
36
*@copyright     Tela-Botanica 2000-2006
37
*@version       $Revision$ $Date$
38
// +------------------------------------------------------------------------------------------------------+
39
*/
40
 
41
// +------------------------------------------------------------------------------------------------------+
42
// |                                            ENTETE du PROGRAMME                                       |
43
// +------------------------------------------------------------------------------------------------------+
44
/** Inclusion du fichier de configuration de l'application Revue. */
45
//require_once BB_CHEMIN_APPLI.'bb_revue/configuration/bbre_config.inc.php';
46
 
47
// +------------------------------------------------------------------------------------------------------+
48
// |                                            CORPS du PROGRAMME                                        |
49
// +------------------------------------------------------------------------------------------------------+
50
// Initialisation de la variable à retourner
51
$retour = '';
52
$retour .= '<!-- BiblioBota - Revue : DEBUT -->'."\n";
8 jp_milcent 53
$retour .= '<div id="biblio_revue">';
5 jp_milcent 54
 
26 jp_milcent 55
$aso_revues = array();
56
$query =    'SELECT '.$GLOBALS['tbl']['collection'].'.* '.
57
            'FROM '.$GLOBALS['tbl']['collection'].' '.
58
            'WHERE B_C_CACHER = 0 '.
59
            'ORDER BY B_C_NOMCOMPLET ';
60
$do_query = mysql_query($query) or die(BOG_afficherErreurSql(__FILE__, __LINE__, mysql_error(), $query));
61
$nbre_revues_total = mysql_num_rows($do_query);
62
$nbre_revues_avec_article = 0;
5 jp_milcent 63
 
26 jp_milcent 64
if ($nbre_revues_total == 0) {
65
	// Titre de la page
66
	$retour .= '<h1>'.'Revues indexées dans la base de données du projet BiblioBota.'.'</h1>';
5 jp_milcent 67
	$retour .= '<p>'.'Pas encore de revues indexées...'.'</p>'."\n";
68
} else {
69
	while ($row = mysql_fetch_object($do_query)) {
18 jp_milcent 70
		$aso_revue = array();
71
        $aso_revue['id'] = $row->B_C_CRAI;
21 jp_milcent 72
        $aso_revue['idlink'] = $row->B_C_LKSTR;
18 jp_milcent 73
        $aso_revue['nom_complet'] = $row->B_C_NOMCOMPLET;
74
        $aso_revue['abreviation'] = $row->B_C_ABREGE;
75
        $aso_revue['date_debut'] = $row->B_C_DATECREATION;
76
        $aso_revue['suite_de'] = $row->B_C_FAISUITE;
77
        $aso_revue['date_fin'] = $row->B_C_DATEFIN;
78
        $aso_revue['periodicite'] = $row->B_C_PERIODICITE;
79
        $aso_revue['contact_nom'] = $row->B_C_CONTACTNOM;
80
        $aso_revue['contact_mail'] = $row->B_C_CONTACTMAIL;
81
        $aso_revue['logo'] = $row->B_C_IMAGE;
82
        $aso_revue['commentaires'] = $row->B_C_COMMENT;
83
        $aso_revue['date_maj'] = $row->B_C_MAJFICHE;
21 jp_milcent 84
		$aso_revue['fasc_nbre'] = 0;
85
		$aso_revue['fasc_date_premier'] = '';
86
		$aso_revue['fasc_date_dernier'] = '';
87
		$aso_revue['fasc_maj_dernier'] = '';
88
		$aso_revue['fasc_nom_dernier'] = '';
89
 
90
		// Construction de l'url de la page contenant les info sur l'organisme:
91
		$Url = clone $GLOBALS['_BIBLIOBOTA_']['url'];
92
		$Url->setId(BB_URL_APPLI_ORGA_ID);
93
		$Url->addQueryString('appli', 'bb_consultation');
94
		$Url->addQueryString('consultation', 'avancee');
95
		$Url->addQueryString('coll', $aso_revue['idlink']);
96
		$aso_revue['url'] = $Url->getUrl();
97
 
18 jp_milcent 98
		$aso_fasc_serie = array();
9 jp_milcent 99
		$query_fasc =	'SELECT '.$GLOBALS['tbl']['fascicule'].'.* '.
18 jp_milcent 100
	               		'FROM '.$GLOBALS['tbl']['fascicule'].' '.
9 jp_milcent 101
						'WHERE  B_F_CRAICOLL = "'.$row->B_C_CRAI.'" '.
102
						'AND B_F_CACHER = 0 '.
103
						'ORDER BY B_F_CRAISERIE, B_F_NUMERO DESC';
8 jp_milcent 104
		$do_query_fasc = mysql_query($query_fasc) or die(BOG_afficherErreurSql(__FILE__, __LINE__, mysql_error(), $query_fasc));
105
		while ($row_fasc = mysql_fetch_object($do_query_fasc)) {
106
			if (!isset($aso_fasc_serie[$row_fasc->B_F_CRAISERIE])) {
21 jp_milcent 107
				$aso_fasc = array();
9 jp_milcent 108
				$aso_fasc['nbre_fasc'] = 1;
21 jp_milcent 109
				$aso_fasc['nom_serie'] = $row_fasc->B_F_CRAISERIE;
9 jp_milcent 110
				$aso_fasc['nom_fin_serie'] = $row_fasc->B_SER_SOUSTITRE;
111
				$aso_fasc['nom_fin_fasc'] = $row_fasc->B_F_TITRE;
21 jp_milcent 112
				$aso_fasc_serie[$row_fasc->B_F_CRAISERIE] = $aso_fasc;
8 jp_milcent 113
			} else {
21 jp_milcent 114
				$aso_fasc_serie[$row_fasc->B_F_CRAISERIE]['nbre_fasc']++;
8 jp_milcent 115
			}
21 jp_milcent 116
			// Nombre de fascicule dans la collection
117
			$aso_revue['fasc_nbre']++;
118
			// Calcule de la date du premier fascicule et de la date du dernier
119
			if (preg_match('/^(\d{4})(?:\.(\d{2})|)$/', $row_fasc->B_F_DATE, $match)) {
120
				if (isset($match[1]) && $match[1] != '') {
121
					$annee = $match[1];
122
					$mois = '01';
123
					if (isset($match[2]) && $match[2] != '') {
124
						$mois = $match[2];
125
					}
126
					$date = $annee.'-'.$mois;
127
 
128
					// Initialisation avec une date.
129
					if ($aso_fasc_serie[$row_fasc->B_F_CRAISERIE]['nbre_fasc'] == 1) {
130
						$aso_revue['fasc_date_premier'] = $date;
131
						$aso_revue['fasc_date_dernier'] = $date;
132
						$aso_fasc['date_debut'] = $date;
133
						$aso_fasc['date_fin'] = $date;
134
					}
135
 
136
					// Date premier fascicule dans la série
137
					if (strcasecmp($date, $aso_fasc_serie[$row_fasc->B_F_CRAISERIE]['date_debut']) < 0) {
138
						$aso_fasc_serie[$row_fasc->B_F_CRAISERIE]['date_debut'] = $date;
139
					}
140
					// Date premier fascicule dans la collection
141
					//echo $date.'<'.$aso_revue['fasc_date_premier'].'/'.strcasecmp($date, $aso_revue['fasc_date_premier']).'<br>';
142
					if (strcasecmp($date, $aso_revue['fasc_date_premier']) < 0) {
143
						//echo $aso_revue['fasc_date_premier'].'<'.$date.'<br>';
144
						$aso_revue['fasc_date_premier'] = $date;
145
 
146
					}
147
					// Date dernier fascicule dans la série
148
					if (strcasecmp($date, $aso_fasc_serie[$row_fasc->B_F_CRAISERIE]['date_fin']) > 0) {
149
						$aso_fasc_serie[$row_fasc->B_F_CRAISERIE]['date_fin'] = $date;
150
						$aso_revue['fasc_nom_dernier'] = $row_fasc->B_F_TITRE;
151
						$aso_revue['fasc_maj_dernier'] = $row_fasc->B_F_MAJFICHE;
152
					}
153
					// Date dernier fascicule dans la collection
154
					if (strcasecmp($date, $aso_revue['fasc_date_dernier']) > 0) {
155
						$aso_revue['fasc_date_dernier'] = $date;
156
					}
157
				}
158
 
159
			}
8 jp_milcent 160
		}
18 jp_milcent 161
		mysql_free_result($do_query_fasc);
8 jp_milcent 162
		ksort($aso_fasc_serie, SORT_DESC);
18 jp_milcent 163
		$aso_revue['aso_fasc_serie'] = $aso_fasc_serie;
164
 
165
		$query_art =	'SELECT COUNT('.$GLOBALS['tbl']['article'].'.B_A_IDART) AS nbre_article '.
166
	               		'FROM '.$GLOBALS['tbl']['article'].' '.
167
						'WHERE B_A_CRAICOLL = "'.$row->B_C_CRAI.'" '.
168
						'GROUP BY B_A_CRAICOLL';
169
		//echo $query_art.'<br/>';
170
		$resultat_art = mysql_query($query_art) or die(BOG_afficherErreurSql(__FILE__, __LINE__, mysql_error(), $query_art));
171
		$ligne_article = mysql_fetch_assoc($resultat_art);
172
		//echo '<pre>'.print_r($ligne_article, true).'</pre>';
26 jp_milcent 173
		$aso_revue['nbre_article'] = $ligne_article['nbre_article'];
174
		if ($aso_revue['nbre_article'] != 0) {
175
			$nbre_revues_avec_article++;
176
		}
18 jp_milcent 177
		$aso_revues[] = $aso_revue;
178
	}
179
	mysql_free_result($do_query);
26 jp_milcent 180
 
18 jp_milcent 181
	if ($GLOBALS['_GEN_commun']['info_application']->affichage_type == 'tableau') {
26 jp_milcent 182
		// Titre de la page
183
		$retour .= '<h1>'.$nbre_revues_total.' revues indexées'.'</h1>';
184
		$retour .= 	'<p>'.
185
						'Liste de toutes les revues indexées dans la base de données du projet BiblioBota. '.'<br />'.
186
						'Les revues ne possédant pas d\'articles indexés figurent dans ce tableau.'.
187
					'</p>';
18 jp_milcent 188
		$o = 1;
189
		$retour .= '<table id="liste_biblio_revue" class="table_bordure" summary="Tableau résumant les informations sur les revues indexées dans la base de données du projet BiblioBota.">'."\n";
190
		$retour .= '<thead><tr>'.
191
				'<th>Collection</th>'.
21 jp_milcent 192
				'<th>Date début (collection)</th>'.
193
				'<th>Date fin (collection)</th>'.
18 jp_milcent 194
				'<th title="Nombre de fascicules pour la collection, toutes séries confondues">Nombre fascicules</th>'.
195
				'<th title="Nombre d\'articles pour la collection, toutes séries et fascicules confondues">Nombre d\'articles</th>'.
196
				'<th>Périodicité</th>'.
197
				'<th>Contact</th>'.
21 jp_milcent 198
				'<th title="Nom du dernier fascicule indexée dans la dernière série">Dernier fascicule</th>'.
199
				'<th title="Date de publication du dernier fascicule indexée dans la dernière série">Date dernier fascicule</th>'.
18 jp_milcent 200
				'</tr></thead>'."\n";
201
		$retour .= '<tbody>';
202
		foreach ($aso_revues as $revue) {
203
			$retour .= '<tr>';
204
			$retour .= '<th>';
205
		    if ($revue['nom_complet'] != '') {
21 jp_milcent 206
	            $retour .= 	'<h5 class="bbre_titre">'.
207
	            				'<a href="'.$revue['url'].'">'.
208
	            					$revue['nom_complet'].
209
	            				'</a>'.
210
							'</h5>';
18 jp_milcent 211
	            if ($revue['suite_de'] != '') {
212
					$retour .= '<p><span class="bb_intitule">Fait suite à : </span>'.$revue['suite_de'].'</p>';
213
				}
214
				if ($revue['abreviation'] != '') {
215
					$retour .= '<p><span class="bb_intitule">Abréviation : </span>'.$revue['abreviation'].'</p>';
216
				}
217
	            if ($revue['commentaires'] != '') {
218
	            	$retour .= '<p>'.$revue['commentaires'].'</p>';
219
	        	}
220
	            if ($revue['logo'] != '') {
221
	            	$retour .= '<img class="bbre_couverture" src="'.BB_CHEMIN_IMAGES_ILLUSTRATION.$revue['logo'].'" alt="Couverture de la revue '.$revue['nom_complet'].'"/>';
222
	        	}
223
	        	$retour .= '<p class="texte_inactif">Id. coll. : '.$revue['id'].' - Mise à jour : '.date('d/m/Y', $revue['date_maj']).'</p>';
21 jp_milcent 224
			} else {
225
				$retour .= '?';
8 jp_milcent 226
			}
18 jp_milcent 227
	        $retour .= '</th>';
228
			$retour .= '<td>';
229
			if ($revue['date_debut'] != '') {
230
				$retour .= $revue['date_debut'];
21 jp_milcent 231
			} else {
232
				$retour .= '?';
9 jp_milcent 233
			}
18 jp_milcent 234
			$retour .= '</td>';
235
			$retour .= '<td>';
236
			if ($revue['date_fin'] != '') {
237
				$retour .= $revue['date_fin'];
21 jp_milcent 238
			} else {
239
				$retour .= '?';
18 jp_milcent 240
			}
241
			$retour .= '</td>';
242
			$retour .= '<td>';
21 jp_milcent 243
			if ($revue['fasc_nbre'] != '') {
244
				$retour .= $revue['fasc_nbre'];
18 jp_milcent 245
			} else {
246
				$retour .= 0;
247
			}
248
			$retour .= '</td>';
249
			$retour .= '<td>';
250
			if ($revue['nbre_article'] != '') {
251
				$retour .= $revue['nbre_article'];
252
			} else {
253
				$retour .= 0;
254
			}
255
			$retour .= '</td>';
256
			$retour .= '<td>';
257
			if ($revue['periodicite'] != '') {
258
				$retour .= $revue['periodicite'];
21 jp_milcent 259
			} else {
260
				$retour .= '?';
18 jp_milcent 261
			}
262
			$retour .= '</td>';
263
			$retour .= '<td>';
264
			if ($revue['contact_nom'] != '') {
265
				if ($contact_mail != '') {
266
					$retour .= '<a href="mailto:'.$revue['contact_mail'].'">'.$revue['contact_nom'].'</a>';
267
				} else {
268
					$retour .= $revue['contact_nom'];
269
				}
21 jp_milcent 270
			} else {
271
				$retour .= '?';
18 jp_milcent 272
			}
273
			$retour .= '</td>';
274
			$retour .= '<td>';
21 jp_milcent 275
			if ($revue['fasc_nom_dernier'] != '') {
276
				$retour .= $revue['fasc_nom_dernier'];
277
			} else {
278
				$retour .= '?';
279
			}
18 jp_milcent 280
			$retour .= '</td>';
281
			$retour .= '<td>';
21 jp_milcent 282
			if ($revue['fasc_date_dernier'] != '') {
283
				$retour .= '<p>'.donnerDateConviviale($revue['fasc_date_dernier']).'</p>';
284
				$retour .= '<p class="texte_inactif">Mise à jour : '.date('d/m/Y', $revue['fasc_maj_dernier']).'</p>';
285
 
286
			} else {
287
				$retour .= '?';
288
			}
18 jp_milcent 289
			$retour .= '</td>';
290
			$retour .= '</tr>'."\n";
291
	        $o++;
5 jp_milcent 292
		}
18 jp_milcent 293
		$retour .= '</tbody>'."\n";
294
		$retour .= '</table>'."\n";
295
	} else {
26 jp_milcent 296
		// Titre de la page
297
		$retour .= '<h1>'.$nbre_revues_avec_article.' revues indexées'.'</h1>';
298
		$retour .= '<p>'.'Liste des revues possédant des articles indexés dans la base de données du projet BiblioBota.'.'</p>';
18 jp_milcent 299
		$o = 1;
300
		$retour .= '<ul id="liste_biblio_revue">'."\n";
21 jp_milcent 301
		$nbre_revue_sans_article = 0;
18 jp_milcent 302
		foreach ($aso_revues as $revue) {
21 jp_milcent 303
			if ($revue['nbre_article'] != '' && $revue['nbre_article'] > 0) {
304
				$retour .= '<li>';
305
				if ($revue['nom_complet'] != '') {
306
		            $retour .= 	'<h5 class="bbre_titre">'.
307
		            				'<a href="'.$revue['url'].'">'.
308
		            					$revue['nom_complet'].
309
		            				'</a>'.
310
								'.</h5>';
311
				}
312
				if ($revue['periodicite'] != '') {
313
					$retour .= ' '.$revue['periodicite'].'.';
314
				} else {
315
					$retour .= ' Périodicité inconnue';
316
				}
26 jp_milcent 317
				$retour .= ' Indexation des fascicules de ';
21 jp_milcent 318
				if ($revue['fasc_date_premier'] != '') {
319
					$retour .= donnerDateConviviale($revue['fasc_date_premier']);
320
				} else {
321
					$retour .= '?';
322
				}
323
				$retour .= ' à ';
324
				if ($revue['fasc_date_dernier'] != '') {
325
					$retour .= donnerDateConviviale($revue['fasc_date_dernier']).'. ';
326
				} else {
327
					$retour .= '?. ';
328
				}
329
				if ($revue['fasc_nbre'] != '') {
330
					$retour .= $revue['fasc_nbre'];
331
				} else {
332
					$retour .= 0;
333
				}
334
				$retour .= ' fascicules et ';
335
				if ($revue['nbre_article'] != '') {
336
					$retour .= $revue['nbre_article'];
337
				} else {
338
					$retour .= 0;
339
				}
26 jp_milcent 340
				$retour .= ' articles.';
21 jp_milcent 341
				$o++;
342
				$retour .= '</li>'."\n";
5 jp_milcent 343
			} else {
21 jp_milcent 344
				$nbre_revue_sans_article++;
5 jp_milcent 345
			}
346
		}
21 jp_milcent 347
		$retour .= '<li>';
348
		$retour .= 'Nombre de revue dont aucun article n\'est indexé dans la base : '.$nbre_revue_sans_article;
349
		$retour .= '</li>'."\n";
18 jp_milcent 350
		$retour .= '</ul>'."\n";
351
	}
5 jp_milcent 352
}
8 jp_milcent 353
$retour .= '</div>';
5 jp_milcent 354
$retour .= '<!-- BiblioBota - Revue : FIN -->'."\n";
355
$sortie .= $retour;
356
 
21 jp_milcent 357
 
358
function fomaterDate($date) {
359
 
360
}
5 jp_milcent 361
/* +--Fin du code ----------------------------------------------------------------------------------------+
362
*
363
* $Log$
26 jp_milcent 364
* Revision 1.6  2007/02/13 17:41:06  jp_milcent
365
* Amélioration et corrections de bogues.
366
*
21 jp_milcent 367
* Revision 1.5  2007/01/02 17:45:16  jp_milcent
368
* Ajout d'un affichage simplifié.
369
*
18 jp_milcent 370
* Revision 1.4  2006/09/12 16:13:05  jp_milcent
371
* Ajout de nouvelles informations à la liste des revues.
372
*
9 jp_milcent 373
* Revision 1.3  2006/07/28 12:46:47  jp_milcent
374
* Début modification de l'interface de l'appli revue.
375
*
8 jp_milcent 376
* Revision 1.2  2006/05/29 14:19:07  jp_milcent
377
* Ajout d'une classe css à l'image de la couverture de la revue.
378
* Correction du chemin d'accés à l'image.
379
*
6 jp_milcent 380
* Revision 1.1  2006/05/23 16:20:50  jp_milcent
381
* Ajout de l'application affichant la liste des revues disponibles dans la base de données de BiblioBota.
5 jp_milcent 382
*
6 jp_milcent 383
*
5 jp_milcent 384
* +-- Fin du code ----------------------------------------------------------------------------------------+
385
*/
386
?>