Subversion Repositories eFlore/Applications.bibliobota

Rev

Rev 2 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 22
Line 17... Line 17...
17
// |                                                                                                      |
17
// |                                                                                                      |
18
// | You should have received a copy of the GNU Lesser General Public                                     |
18
// | You should have received a copy of the GNU Lesser General Public                                     |
19
// | License along with this library; if not, write to the Free Software                                  |
19
// | License along with this library; if not, write to the Free Software                                  |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21
// +------------------------------------------------------------------------------------------------------+
21
// +------------------------------------------------------------------------------------------------------+
22
// CVS : $Id: bbc_info_collection.inc.php,v 1.1 2005-11-23 10:22:25 jp_milcent Exp $
22
// CVS : $Id: bbc_info_collection.inc.php,v 1.2 2007-02-13 18:06:41 jp_milcent Exp $
23
/**
23
/**
24
* Appli bb_consultation : gestion des informations avancées "collection" de Biblio Bota
24
* Appli bb_consultation : gestion des informations avancées "collection" de Biblio Bota
25
*
25
*
26
* Ce fichier permet d'afficher les informations concernant les "collections" d'un organisme lié à la botanique.
26
* Ce fichier permet d'afficher les informations concernant les "collections" d'un organisme lié à la botanique.
27
*
27
*
Line 29... Line 29...
29
//Auteur original :
29
//Auteur original :
30
*@author        Jean-Charles GRANGER <tela@vecteur.org>
30
*@author        Jean-Charles GRANGER <tela@vecteur.org>
31
//Autres auteurs :
31
//Autres auteurs :
32
*@author        Jean-Pascal MILCENT <jpm@clapas.org>
32
*@author        Jean-Pascal MILCENT <jpm@clapas.org>
33
*@copyright     Tela-Botanica 2000-2004
33
*@copyright     Tela-Botanica 2000-2004
34
*@version       $Revision: 1.1 $ $Date: 2005-11-23 10:22:25 $
34
*@version       $Revision: 1.2 $ $Date: 2007-02-13 18:06:41 $
35
// +------------------------------------------------------------------------------------------------------+
35
// +------------------------------------------------------------------------------------------------------+
36
*/
36
*/
Line 37... Line 37...
37
 
37
 
38
// +------------------------------------------------------------------------------------------------------+
38
// +------------------------------------------------------------------------------------------------------+
Line 128... Line 128...
128
        if ($abrege != '') {
128
        if ($abrege != '') {
129
            $sortie .= ' ('.$abrege.')';
129
            $sortie .= ' ('.$abrege.')';
130
        }
130
        }
131
        $sortie .= ' </h3>'."\n";
131
        $sortie .= ' </h3>'."\n";
Line -... Line 132...
-
 
132
        
-
 
133
        // Affichage de la navigation avancée
-
 
134
		if ($intobiblio > 0) {
-
 
135
			$sortie .= CreateNavigBiblio('goto', 'fasc', $tableau, 'Voir la liste des fascicules indexés', 1)."\n";
-
 
136
		}
132
        
137
        
133
        // Comptage du nombre de fascicules indexés
138
        // Comptage du nombre de fascicules indexés
134
        $query_ser =    'SELECT COUNT(*) AS CPT '.
139
        $query_ser =    'SELECT COUNT(*) AS CPT '.
135
                        'FROM '.$tbl['fascicule'].' '.
140
                        'FROM '.$tbl['fascicule'].' '.
136
                        'WHERE B_F_CRAICOLL = "'.$idcoll.'" '.
141
                        'WHERE B_F_CRAICOLL = "'.$idcoll.'" '.
Line 142... Line 147...
142
            $sortie .= '<p class="erreur"><strong>'.'Échec du programme : '.'</strong> '.'Nombre de fascicules incohérent'.' '.'('.$nb_ser.')</p>'."\n";
147
            $sortie .= '<p class="erreur"><strong>'.'Échec du programme : '.'</strong> '.'Nombre de fascicules incohérent'.' '.'('.$nb_ser.')</p>'."\n";
143
        } else {
148
        } else {
144
            $row_ser = mysql_fetch_object($result_ser);
149
            $row_ser = mysql_fetch_object($result_ser);
145
            $intobiblio = $row_ser->CPT;
150
            $intobiblio = $row_ser->CPT;
146
            mysql_free_result($result_ser);
151
            mysql_free_result($result_ser);
147
            
152
                        
148
            // Affichage de la navigation avancée
-
 
149
            if ($intobiblio > 0) {
-
 
150
                $sortie .= CreateNavigBiblio('goto', 'fasc', $tableau, 'Liste des fascicules indexés', 0)."\n";
-
 
151
            }
-
 
152
            
-
 
153
            $sortie .= '<p>'."\n";
153
            $sortie .= '<p>'."\n";
Line 154... Line 154...
154
            
154
            
155
            if ($date > 0) {
155
            if ($date > 0) {
156
                $sortie .= '<span class="champ_cle">'.'Créé en'.' </span>'.FormateDateYYYYMMJJ($date).'.'.'<br />'."\n";
156
                $sortie .= '<span class="champ_cle">'.'Créé en'.' </span>'.FormateDateYYYYMMJJ($date).'.'.'<br />'."\n";
Line 275... Line 275...
275
mysql_free_result($do_query);
275
mysql_free_result($do_query);
Line 276... Line 276...
276
 
276
 
277
/* +--Fin du code ----------------------------------------------------------------------------------------+
277
/* +--Fin du code ----------------------------------------------------------------------------------------+
278
*
278
*
-
 
279
* $Log: not supported by cvs2svn $
-
 
280
* Revision 1.1  2005/11/23 10:22:25  jp_milcent
-
 
281
* Ajout au dépot de l'application BiblioBota.
-
 
282
* Elle doit à terme migrer dans eFlore.
279
* $Log: not supported by cvs2svn $
283
*
280
* Revision 1.3  2005/08/18 10:43:15  jpm
284
* Revision 1.3  2005/08/18 10:43:15  jpm
281
* Correction chemin.
285
* Correction chemin.
282
*
286
*
283
* Revision 1.2  2005/05/17 10:10:08  jpm
287
* Revision 1.2  2005/05/17 10:10:08  jpm