#@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;
@#
在此範例中,程式區段可以插入至 EMP_Customisable 廣域 Script 中的 EMP_SubstituteCustomMetaTag 函數,以建立一個稱為 #@FIELDSCHANGEDHTMLTABLE@# 的新自訂 meta 標籤。
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;
}
}