From 8f616a9fe1ac87f39333e688120df7a845599b6d Mon Sep 17 00:00:00 2001
From: Scott Walters <scott@slowass.net>
Date: Wed, 11 Aug 2010 22:04:46 -0400
Subject: [PATCH] addField takes the key/value pairs unrolled, not as a hash
 ref.

---
 lib/WebGUI/Asset/File.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset/File.pm b/lib/WebGUI/Asset/File.pm
index e7052ecc4..1d442e27e 100644
--- a/lib/WebGUI/Asset/File.pm
+++ b/lib/WebGUI/Asset/File.pm
@@ -218,13 +218,15 @@ override getEditForm => sub {
 
     # Add field to upload file
     if ($self->filename ne "") {
-        $f->getTab("properties")->addField( "ReadOnly", {
+        $f->getTab("properties")->addField( 
+            "ReadOnly", 
             name        => "viewFile",
             value       => '<p style="display:inline;vertical-align:middle;"><a href="'.$self->getFileUrl.'"><img src="'.$self->getFileIconUrl.'" alt="'.$self->filename.'" style="border-style:none;vertical-align:middle;" /> '.$self->filename.'</a></p>',
-        });
+        );
     }
 
-    $f->getTab( "properties" )->addField( "File", 
+    $f->getTab( "properties" )->addField( 
+        "File", 
         name        => 'newFile',
         label       => $i18n->get('new file'),
         hoverHelp   => $i18n->get('new file description'),