From 2dd4c19d8576aa4a6fbcae3fb18099e61957be8d Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Mon, 16 Aug 2004 01:50:12 +0000
Subject: [PATCH] (GetRcAtom): Only print content when full=1.

---
 modules/atom.pl | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/modules/atom.pl b/modules/atom.pl
index ae2b21f9..69aeaa19 100644
--- a/modules/atom.pl
+++ b/modules/atom.pl
@@ -16,7 +16,7 @@
 #    59 Temple Place, Suite 330
 #    Boston, MA 02111-1307 USA
 
-$ModulesDescription .= '<p>$Id: atom.pl,v 1.6 2004/08/16 01:46:39 as Exp $</p>';
+$ModulesDescription .= '<p>$Id: atom.pl,v 1.7 2004/08/16 01:50:12 as Exp $</p>';
 
 $Action{atom} = \&DoAtom;
 
@@ -88,12 +88,15 @@ EOT
 	    AtomTag('modified', AtomTime($timestamp)),
 	    AtomTag('issued', AtomTime($timestamp)),
 	    AtomTag('summary', QuoteHtml($summary), 1);
-	  print '<content type="application/xhtml+xml">', "\n",
-	    '<div xmlns="http://www.w3.org/1999/xhtml">', "\n";
-	  OpenPage($pagename);
-	  PrintPageDiff();
-	  PrintPageHtml();
-	  print "\n</div>\n</content>\n</entry>\n";
+	  if (GetParam('full', 0)) {
+	    print '<content type="application/xhtml+xml">', "\n",
+	      '<div xmlns="http://www.w3.org/1999/xhtml">', "\n";
+	    OpenPage($pagename);
+	    PrintPageDiff();
+	    PrintPageHtml();
+	    print "\n</div>\n</content>\n";
+	  }
+	  print "</entry>\n";
 	},
 	@_);
   print "</feed>\n";