#@EXPRESSION::
EMP_Verbatim();
$table="";
$fieldsInfos = $entity->GetFieldsUpdatedThisEntireAction();
if ($fieldsInfos->Count() > 0) {
$table .= "The following fields were modified : <BR>";
$table .= "<TABLE>";
$table .= "<TR><TH> Field </TH><TH> New Value </TH><TH> Old Value </TH></TR>";
for (my $i=0; $i < $fieldsInfos->Count(); $i++) {
$fieldInfo = $fieldsInfos->Item($i);
$fieldName = $fieldInfo->GetName();
next if (lc($fieldName) eq "history");
$fieldValue = $entity->GetFieldValue($fieldName)->GetValue();
$oldFieldValue = $entity->GetFieldOriginalValue($fieldName)->GetValue();
$table .=
"<TR><TD>".EMP_EscapeHTML($fieldName).":</TD><TD>".EMP_EscapeHTML($fieldValue)."</TD><TD>".EMP_EscapeHTML($oldFieldValue)."</TD></TR>";
}
$table .= "</TABLE>";
}
$table;
@#
이 예제에서 코드 세그먼트는 #@FIELDSCHANGEDHTMLTABLE@#라는 새로운 사용자 정의 메타 태그를 작성하기 위해 EMP_Customisable 글로벌 스크립트의 EMP_SubstituteCustomMetaTag 함수에 삽입될 수 있습니다.
elsif ($customTag eq "fieldschangedhtmltable") {
if ($isTest) {
$errorTags = "";
}
else {
EMP_Verbatim();
$table="";
$fieldsInfos = $entity->GetFieldsUpdatedThisEntireAction();
if ($fieldsInfos->Count() > 0) {
$table .= "The following fields were modified : <BR>";
$table .= "<TABLE>";
$table .= "<TR><TH> Field </TH><TH> New Value </TH><TH> Old Value </TH></TR>";
for (my $i=0; $i < $fieldsInfos->Count(); $i++) {
$fieldInfo = $fieldsInfos->Item($i);
$fieldName = $fieldInfo->GetName();
next if (lc($fieldName) eq "history");
$fieldValue = $entity->GetFieldValue($fieldName)->GetValue();
$oldFieldValue = $entity->GetFieldOriginalValue($fieldName)->GetValue();
$table .= "<TR><TD>".EMP_EscapeHTML($fieldName).":</TD><TD>".EMP_EscapeHTML($fieldValue)."</TD><TD>".EMP_EscapeHTML($oldFieldValue)."</TD></TR>";
}
$table .= "</TABLE>";
}
$fieldValue = $table;
}
}