Rappel SupprimerContenu(Requete : Nul Ou RequeteContenu, Reponse : Nul Ou ReponseContenu=Nul Sortie);
La requpête soumise par le client est donnée par Requete de type RequeteContenu. La réponse à fournir par le serveur doit être rangée dans Reponse de type ReponseContenu.
La valeur de retour doit suivre la convention de fonctionnement de l'énuméré RappelReponse.
Cette méthode de rappel correspond à la réception de la commande DELETE du protocole HyperText Transfer Protocol (HTTP).
Rappel ClientContenu.SupprimerContenu(Requete : Nul Ou RequeteContenu, Reponse : Nul Ou ReponseContenu=Nul Sortie)
/********************************************************************************************************************************/
Variable
O : Nul Ou Objet;
MonClient : MonClientContenu;
MonEmploye2 : Employe;
Debut
O=LireExtension("AppCns");
Si O==Nul Alors
EcrireExtension("AppCns", MonClient);
Sinon
MonClient=MonClientContenu(O);
Fin Si
Si ActiverJournal Alors
EcrireJournal(Objet, MonClient, "SupprimerContenu("+Requete.URIContenu+")");
Fin Si
Si Non AnalyserParametres(Requete.URIContenu) Alors
Retourner RappelEchecTechnique;
Fin Si
Si ListeEmployes!=Nul Alors
Pour MonEmploye2=ListeEmployes.ParcoursAuDebut() JusquA ListeEmployes.DernierElement() Faire
Si MonEmploye2.Numero==MonEmploye.Numero Alors
ListeEmployes.Supprimer();
Arreter;
Fin Si
Fin Pour
Fin Si
Reponse=GenererContenu(Requete);
Retourner RappelSucces;
Fin Rappel
| - | - | - | - | - | - | - | - | - |