// déclaration variables
var InfoNew,texte,Signet,VersionMaj,VersionMin,Section: string;
tags:string;
maj,min,build:integer;
datepub:string;
DB_NEW:string;
begin

InfoNew := GetParam('InfoNew',GetVarString('_INFONEW_',''));
Texte := GetParam('Titre','');
VersionMaj := GetParam('VersionMaj','');
VersionMin := GetParam('VersionMin','');
Signet := GetParam('Signet','');
Section := GetParam('Section','');

// extraire les infos de version du projet actuel
GetVersion(maj,min,build,datepub);

if signet<>'' then tags := '<<ICB(')>>+signet+<<FNT(STRING.-,-,-,-:')>>' else tags:='';

// si la version correspond on ajoute le code InfoNew
if (VersionMaj=inttostr(Maj)) and (VersionMin=inttostr(Min)) then tags := tags+InfoNew;

write(tags);

// on va maintenant stocker les infos dans une base de données qui servira à construire une table des nouveauté
DB_NEW := 'DBNEW.csv'; // nom de notre base
// la db est construite dynamiquement, la première fois il faut crééer les champs
if GetVarInt(DB_NEW,0)=0 then
begin
// pour ne pas y revenir la prochaine fois (1 seul ici passage par compilation)
SetVarInt(DB_NEW,1);

dbClear(DB_NEW);

if dbRowCount(DB_NEW)=0 then
begin
dbAddField(DB_NEW,'Version');
dbAddField(DB_NEW,'Titre');
dbAddField(DB_NEW,'Goto');
end;

end;

// on ajoute l'enregistrement correspondant à cette news
dbAddRow(DB_NEW);
dbSetData(DB_NEW,'Version',IntToStr(100*StrToInt(VersionMaj)+StrToInt(VersionMin)));
if texte<>'' then dbSetData(DB_NEW,'Titre',texte) else dbSetData(DB_NEW,'Titre',signet);
// construire le lien
tags := GetTitreReel;
if signet<>'' then tags := tags+'>'+signet;
dbSetData(DB_NEW,'goto',tags);

end;
end.

Sommaire