[Gd-chatter] r11333 - trunk/libraries/network/web-framework
turbo24prg at gwydiondylan.org
turbo24prg at gwydiondylan.org
Mon May 7 23:50:35 CEST 2007
Author: turbo24prg
Date: Mon May 7 23:50:33 2007
New Revision: 11333
Modified:
trunk/libraries/network/web-framework/changes.dylan
Log:
Job: minor
"fallback" type is 'text'
Modified: trunk/libraries/network/web-framework/changes.dylan
==============================================================================
--- trunk/libraries/network/web-framework/changes.dylan (original)
+++ trunk/libraries/network/web-framework/changes.dylan Mon May 7 23:50:33 2007
@@ -339,9 +339,11 @@
end;
end;
+
+// provide more specific method for each content type
define method generate-atom (con :: <content>, #key)
with-xml()
- content(type => con.type) {
+ content(type => "text") {
text(con.content)
}
end
More information about the chatter
mailing list