From: Mike Taylor <mike@indexdata.com>
Date: Tue, 14 Nov 2006 16:00:28 +0000 (+0000)
Subject: Do not try to xml_encode() undefined values.
X-Git-Tag: CPAN-v1.02~54^2~751
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=0322a96cb28174b6ca694e1f0900135df8c61a9c

Do not try to xml_encode() undefined values.
---

diff --git a/web/htdocs/details/form.mc b/web/htdocs/details/form.mc
index 73536b7..407b302 100644
--- a/web/htdocs/details/form.mc
+++ b/web/htdocs/details/form.mc
@@ -1,4 +1,4 @@
-%# $Id: form.mc,v 1.1 2006-11-14 14:54:06 mike Exp $
+%# $Id: form.mc,v 1.2 2006-11-14 16:00:28 mike Exp $
 <%args>
 $id => undef
 $conn
@@ -71,7 +71,8 @@ foreach my $ref (@fields) {
    <tr>
     <th><% $caption %></th>
     <td>
-% my $data = xml_encode($xc->find($xpath));
+% my $data = $xc->find($xpath);
+% $data = defined $data ? xml_encode($data) : "";
 % if ($nlines) {
      <textarea name="<% $name %>" rows="<% $nlines %>" cols="61"><% $data %></textarea>
 % } else {