/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
- * Copyright (c) 2001-2014 *
+ * Copyright (c) 2001-2016 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
return autoriser('administrer','url');
}
+function autoriser_modifierurl($faire, $type='', $id=0, $qui = NULL, $opt = NULL){
+ if (autoriser('modifier',$type,$id,$qui,$opt)){
+ return true;
+ }
+
+ // si pas le droit de 'modifier', regarder d'un peu plus pres pourquoi
+ if (!$type OR !intval($id)) {
+ return false;
+ }
+ // verifier si l'objet existe encore en base
+ $table_sql = table_objet_sql($type);
+ $primary = id_table_objet($type);
+ if (!sql_countsel($table_sql,"$primary=".intval($id))){
+ return autoriser('administrer','url');
+ }
+ return false;
+}
+
function urls_afficher_fiche_objet($flux){
if (isset($GLOBALS['meta']['urls_activer_controle'])
AND $GLOBALS['meta']['urls_activer_controle']=='oui'
}
return $flux;
}
-?>
\ No newline at end of file
+?>