From e885bf337e572814d00d0e5a6de12e48f91da474 Mon Sep 17 00:00:00 2001
From: Mike Taylor <mike@indexdata.com>
Date: Tue, 14 Nov 2006 16:09:14 +0000
Subject: [PATCH] Defensive xml_encode() calling.

---
 web/htdocs/details/form.mc |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/web/htdocs/details/form.mc b/web/htdocs/details/form.mc
index 407b302..864524d 100644
--- a/web/htdocs/details/form.mc
+++ b/web/htdocs/details/form.mc
@@ -1,4 +1,4 @@
-%# $Id: form.mc,v 1.2 2006-11-14 16:00:28 mike Exp $
+%# $Id: form.mc,v 1.3 2006-11-14 16:09:14 mike Exp $
 <%args>
 $id => undef
 $conn
@@ -55,7 +55,7 @@ if (defined $update) {
     ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode());
 }
 </%perl>
- <h2><% xml_encode($xc->find("e:databaseInfo/e:title")) %></h2>
+ <h2><% xml_encode($xc->find("e:databaseInfo/e:title"), "[Untitled]") %></h2>
 % if ($nchanges) {
  <p style="font-weight: bold">
   The record has been updated.<br/>
@@ -71,8 +71,7 @@ foreach my $ref (@fields) {
    <tr>
     <th><% $caption %></th>
     <td>
-% my $data = $xc->find($xpath);
-% $data = defined $data ? xml_encode($data) : "";
+% my $data = xml_encode($xc->find($xpath), "");
 % if ($nlines) {
      <textarea name="<% $name %>" rows="<% $nlines %>" cols="61"><% $data %></textarea>
 % } else {
-- 
1.7.10.4