Subversion Repositories Applications.papyrus

Rev

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

Rev 190 Rev 195
Line 18... Line 18...
18
// |                                                                                                      |
18
// |                                                                                                      |
19
// | You should have received a copy of the GNU Lesser General Public                                     |
19
// | You should have received a copy of the GNU Lesser General Public                                     |
20
// | License along with this library; if not, write to the Free Software                                  |
20
// | License along with this library; if not, write to the Free Software                                  |
21
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
22
// +------------------------------------------------------------------------------------------------------+
22
// +------------------------------------------------------------------------------------------------------+
23
// CVS : $Id: adsi_site.fonct.php,v 1.10 2004-11-29 17:05:28 jpm Exp $
23
// CVS : $Id: adsi_site.fonct.php,v 1.11 2004-11-30 16:43:51 jpm Exp $
24
/**
24
/**
25
* Bibliothèque de fonctions d'admininistration des projets
25
* Bibliothèque de fonctions d'admininistration des projets
26
*
26
*
27
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
27
* Contient un ensemble de fonctions permettant à l'application Administrateur de Papyrus, de modifier des informations
28
* sur les projets (=sites gérés par Papyrus).
28
* sur les projets (=sites gérés par Papyrus).
Line 33... Line 33...
33
*@author        Laurent COUDOUNEAU <lc@gsite.org>
33
*@author        Laurent COUDOUNEAU <lc@gsite.org>
34
//Autres auteurs :
34
//Autres auteurs :
35
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
35
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
36
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
36
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
37
*@copyright     Tela-Botanica 2000-2004
37
*@copyright     Tela-Botanica 2000-2004
38
*@version       $Revision: 1.10 $ $Date: 2004-11-29 17:05:28 $
38
*@version       $Revision: 1.11 $ $Date: 2004-11-30 16:43:51 $
39
// +------------------------------------------------------------------------------------------------------+
39
// +------------------------------------------------------------------------------------------------------+
40
*/
40
*/
Line 41... Line 41...
41
 
41
 
42
// +------------------------------------------------------------------------------------------------------+
42
// +------------------------------------------------------------------------------------------------------+
Line 756... Line 756...
756
* @param  int      identifiant de l'administrateur réalisant cette modification.
756
* @param  int      identifiant de l'administrateur réalisant cette modification.
757
* @return string retourne un message en cas de succès ou d'échec.
757
* @return string retourne un message en cas de succès ou d'échec.
758
*/
758
*/
759
function ADMIN_modifierSite($db, $aso_valeurs, $id_admin)
759
function ADMIN_modifierSite($db, $aso_valeurs, $id_admin)
760
{
760
{
-
 
761
    // Initialisation de variables
-
 
762
    $message_complement = '';
-
 
763
    
761
    // Récupération de l'ancien code alphanumérique
764
    // Récupération de l'ancien code alphanumérique
762
    $requete =  'SELECT gs_code_alpha '.
765
    $requete =  'SELECT gs_code_alpha '.
763
                'FROM gen_site '.
766
                'FROM gen_site '.
764
                'WHERE gs_id_site = '.$aso_valeurs['gs_id_site'];
767
                'WHERE gs_id_site = '.$aso_valeurs['gs_id_site'];
765
    $ancien_code_alphnum = $db->getOne($requete);
768
    $ancien_code_alphnum = $db->getOne($requete);
Line 768... Line 771...
768
    }
771
    }
Line 769... Line 772...
769
    
772
    
770
    // Nous vérifions si nous avons à faire à un site externe.
773
    // Nous vérifions si nous avons à faire à un site externe.
771
    $id_type_site = '102';// par défaut on conscidére que c'est un site "principal"
774
    $id_type_site = '102';// par défaut on conscidére que c'est un site "principal"
772
    $requete_complement = ', gs_url = NULL';
775
    $requete_complement = ', gs_url = NULL';
773
    if ($aso_valeurs['externe'] == 1 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
776
    if (isset($aso_valeurs['externe']) && $aso_valeurs['externe'] == 1 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
774
        $requete_complement = ', gs_url = "'.$aso_valeurs['gs_url'].'"';
777
        $requete_complement = ', gs_url = "'.$aso_valeurs['gs_url'].'"';
775
        $id_type_site = '103';// c'est un site "externe"
778
        $id_type_site = '103';// c'est un site "externe"
Line 776... Line 779...
776
    }
779
    }
Line 1083... Line 1086...
1083
}
1086
}
Line 1084... Line 1087...
1084
 
1087
 
1085
// +- Fin du code source  --------------------------------------------------------------------------------+
1088
// +- Fin du code source  --------------------------------------------------------------------------------+
1086
/*
1089
/*
-
 
1090
* $Log: not supported by cvs2svn $
-
 
1091
* Revision 1.10  2004/11/29 17:05:28  jpm
-
 
1092
* Correction d'un bogue concernat les cases à cocher.
1087
* $Log: not supported by cvs2svn $
1093
*
1088
* Revision 1.9  2004/11/26 13:13:51  jpm
1094
* Revision 1.9  2004/11/26 13:13:51  jpm
1089
* Mise en commentaire de variable passée dans un message d'erreur car elles semblent provoquer un bogue et ne sont pas obligatoire.
1095
* Mise en commentaire de variable passée dans un message d'erreur car elles semblent provoquer un bogue et ne sont pas obligatoire.
1090
*
1096
*
1091
* Revision 1.8  2004/11/03 17:59:59  jpm
1097
* Revision 1.8  2004/11/03 17:59:59  jpm