#@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; @#
Im folgenden Beispiel kann das Codesegment in die Funktion EMP_SubstituteCustomMetaTag im globalen Script "EMP_Customisable" eingefügt werden, um einen neuen angepassten Meta-Tag mit der Bezeichnung #@FIELDSCHANGEDHTMLTABLE@# zu erstellen.
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; } }