// déclaration variables
var DefCount,i,j,k:integer;
terme,def:string;
cssTerme,cssLink,cssDef,cssCaption:string;
Caption,
OpenMarkTerme,OpenMarkDef,OpenMarkLink,
CloseMarkTerme,CloseMarkDef,CloseMarkLink,
cr,Lien,Liens:string;
begin



//script ici

cssDef := GetParam('cssDef','');
cssLink := GetParam('cssLink','');
cssTerme := GetParam('cssTerme','');
CssCaption := GetParam('cssCaption','');
Caption := GetParam('CaptionLink','Voir:');

if not Condition('_HTML_') then
begin
cssDef := '';
cssLink := '';
cssCaption := '';
cssTerme := '';
cr:=#13+#10;
end else cr:='';

if cssTerme<>'' then
OpenMarkTerme := '<<WEB(<h3 class="')>>+cssTerme+<<FNT(STRING.-,-,-,-:'">)>>' else
OpenMarkTerme := '<<WEB(h3)>>';

CloseMarkTerme:= '<<WEB(/h3)>>';

if cssDef<>'' then
OpenMarkDef := '<<WEB(<blockquote class="')>>+cssDef+<<FNT(STRING.-,-,-,-:'">)>>' else
OpenMarkDef := '<<WEB(<blockquote>)>>';

CloseMarkDef := '<<WEB(</blockquote>)>>';

if cssLink<>'' then
OpenMarkLink := '<<WEB(<div class="')>>+cssLink+<<FNT(STRING.-,-,-,-:'">)>>' else
OpenMarkLink := '<<WEB(<div>)>>';

CloseMarkLink := '<<WEB(<div>)>>';

if cssCaption<>'' then
Caption := '<<FNT(')>>+cssCaption+<<FNT(STRING.-,-,-,-:'.-,-,-,-:')>>+Caption+<<FNT(STRING.-,-,-,-:')>>' else
Caption := '<<FNT(-,-,-,G:')>>+Caption+<<FNT(STRING.-,-,-,-:')>>';

DefCount := GetDefCount;
for i:=0 to DefCount-1 do
begin
terme := GetDefTerme(i);
write(OpenMarkTerme+terme+CloseMarkTerme+cr);
write(OpenMarkDef+GetDef(i)+CloseMarkDef+cr);
j := GetDefLinkCount(terme);
Liens := '';
for k:=0 to j-1 do
begin
Lien := GetDefLink(terme,k);
lien := '<<MCR(JI(qchPath,`')>>+Lien+<<FNT(NUMBER.-,-,-,-:#39)>>+<<FNT(STRING.-,-,-,-:'):')>>+Lien+<<FNT(STRING.-,-,-,-:')>>';
Liens := Liens+Lien+', ';
end;
writeln(OpenMarkLink+Caption+' '+copy(Liens,1,length(Liens)-2)+CloseMarkLink);
writeln('');
end;
end;
end.

Sommaire