Update of /home/spip-cvs/spip/ecrire
In directory miel:/tmp/cvs-serv17124/ecrire
Modified Files:
inc_filtres.php3
Log Message:
un peu de "dublin core" dans les backend...
Index: inc_filtres.php3
RCS file: /home/spip-cvs/spip/ecrire/inc_filtres.php3,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -d -r1.97 -r1.98
--- inc_filtres.php3 27 Jan 2004 23:27:05 -0000 1.97
+++ inc_filtres.php3 1 Feb 2004 00:53:46 -0000 1.98
@@ -499,7 +499,7 @@
// Export iCal
//
-function filtrer_ical ($texte) {
+function filtrer_ical($texte) {
$texte = html2unicode($texte);
$texte = unicode2charset(charset2unicode($texte, lire_meta('charset'), 1), 'utf-8');
$texte = ereg_replace("\n", " ", $texte);
@@ -508,8 +508,15 @@
return $texte;
}
-function date_ical ($date_heure, $minutes = 0) {
- return date ("Ymd\THis", mktime (heures($date_heure),minutes($date_heure)+$minutes,0,mois($date_heure),jour($date_heure),annee($date_heure)));
+function date_ical($date_heure, $minutes = 0) {
+ return date("Ymd\THis", mktime(heures($date_heure),minutes($date_heure)+$minutes,0,mois($date_heure),jour($date_heure),annee($date_heure)));
+}
+
+function date_iso($date_heure) {
+ list($annee, $mois, $jour) = recup_date($date_heure);
+ list($heures, $minutes, $secondes) = recup_heure($date_heure);
+ $time = mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
+ return gmdate("Y-m-d\TH:i:s\Z", $time);
}
// [(#ID_ARTICLE|exposer)] affiche 'on' si on est sur l'objet (article,