DataForm enhancements

This commit is contained in:
Len Kranendonk 2004-11-10 14:13:32 +00:00
parent 2b3b44c0b1
commit ec40d22a50
3 changed files with 11 additions and 1 deletions

View file

@ -246,6 +246,9 @@ sub getListTemplateVars {
push(@recordLoop,{
"record.ipAddress"=>$record->{ipAddress},
"record.edit.url"=>WebGUI::URL::page("func=view&entryId=".$record->{DataForm_entryId}."&wid=".$self->get("wobjectId")),
"record.edit.icon"=>editIcon(WebGUI::URL::page("func=view&entryId=".$record->{DataForm_entryId}."&wid=".$self->get("wobjectId"))),
"record.delete.url"=>WebGUI::URL::page("func=deleteEntry&entryId=".$record->{DataForm_entryId}."&wid=".$self->get("wobjectId")),
"record.delete.icon"=>deleteIcon(WebGUI::URL::page("func=deleteEntry&entryId=".$record->{DataForm_entryId}."&wid=".$self->get("wobjectId")),'',WebGUI::International::get('Delete entry confirmation',$self->get('namespace'))),
"record.username"=>$record->{username},
"record.userId"=>$record->{userId},
"record.submissionDate.epoch"=>$record->{submissionDate},