Index: openacs-4/contrib/packages/irc-logger/ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/ChangeLog,v
diff -u -N -r1.3 -r1.4
--- openacs-4/contrib/packages/irc-logger/ChangeLog	1 Feb 2003 00:06:18 -0000	1.3
+++ openacs-4/contrib/packages/irc-logger/ChangeLog	10 Feb 2003 05:23:42 -0000	1.4
@@ -1,6 +1,13 @@
+2003-02-09  Bart Teeuwisse  <bart.teeuwisse@thecodemill.biz>
+
+	* data/default.xsl (Module): 
+	- Break the description of long hyper links in chunks of 50 characters as not to interfere with the page layout.
+	- Flush the ETP page whenever the log is updated so that the displayed ETP page is always current.
+
 2003-01-31  Bart Teeuwisse  <bart.teeuwisse@thecodemill.biz>
 
-	* www/doc/index.adp (Module): Fixed link to daemontools
+	* www/doc/index.adp (Module): 
+	- Fixed link to daemontools
 
 2003-01-30  Bart Teeuwisse  <bart.teeuwisse@thecodemill.biz>
 
Index: openacs-4/contrib/packages/irc-logger/data/default.xsl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/data/default.xsl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/contrib/packages/irc-logger/data/default.xsl	31 Jan 2003 06:51:09 -0000	1.1
+++ openacs-4/contrib/packages/irc-logger/data/default.xsl	10 Feb 2003 05:23:14 -0000	1.2
@@ -1,17 +1,20 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <xsl:stylesheet version="1.0"
-  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns="http://www.w3.org/TR/xhtml1/strict"
+  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
   xmlns:dc="http://purl.org/dc/elements/1.1/"
   xmlns:wn="http://xmlns.com/wordnet/1.6/"
   xmlns:foaf="http://xmlns.com/foaf/0.1/"
-  xmlns:irc="irc::logger">
+  xmlns:irc="irc::logger"
+  exclude-result-prefixes="#default xsl rdf dc wn foaf irc">
   
+  <!-- Process each ChatChannel in the RDF file -->
   <xsl:template match="foaf:ChatChannel">
     <xsl:apply-templates/>
   </xsl:template>
 
+  <!-- Create table per ChatChannel listing the events -->
   <xsl:template match="foaf:chatEventList">
     <table>
       <tbody>
@@ -20,6 +23,7 @@
     </table>
   </xsl:template>
 
+  <!-- One event per table row, listing date/time, nick and event description. -->
   <xsl:template match="foaf:chatEvent">
     <tr>
       <td nowrap="true" valign="top">
@@ -32,11 +36,16 @@
     </tr>
   </xsl:template>
 
+  <!-- Display the time only but with the full date/time in the
+       title. The title pops up in tooltip when the mouse pointer
+       rests on the time. -->
   <xsl:template match="dc:date">
     <xsl:variable name="formatted_date"><xsl:value-of select="translate(.,'TZ',' ')"/> GMT</xsl:variable>
     <font size="-1" color="grey" title="{$formatted_date}">[<xsl:value-of select="substring-before(substring-after(.,'T'), 'Z')"/>]</font>
   </xsl:template>
 
+  <!-- List the nick with a link to the OpenACS account if there is
+       an account with screen name 'nick'. -->
   <xsl:template match="dc:creator/wn:Person">
     <td align="right" valign="top">
       <font color="grey">&lt;</font>
@@ -45,31 +54,74 @@
     </td>
   </xsl:template>
 
+  <!-- Parse the description -->
   <xsl:template match="dc:description">
     <td valign="top">
       <xsl:choose>
+
+        <!-- Display users joining/leaving less prominent -->
         <xsl:when test="contains(.,'has joined #openacs') or contains(.,'has left #openacs')">
           <font color="grey"><xsl:value-of select="."/></font>
         </xsl:when>
+
+        <!-- Make http: links active hyperlinks -->
         <xsl:when test="contains(.,'http:')">
           <xsl:if test="contains(substring-after(.,'http:'),' ')">
             <xsl:value-of select="substring-before(.,'http:')"/>
-            <a href="http:{substring-before(substring-after(.,'http:'),' ')}">http:<xsl:value-of select="substring-before(substring-after(.,'http:'),' ')"/></a>
+            <a href="http:{substring-before(substring-after(.,'http:'),' ')}">http:<xsl:call-template name="split_string">
+                <xsl:with-param name="string" select="substring-before(substring-after(.,'http:'),' ')"/>
+              </xsl:call-template>
+            </a>
             <xsl:value-of select="concat(' ',substring-after(substring-after(.,'http:'),' '))"/>
           </xsl:if>
           <xsl:if test="not(contains(substring-after(.,'http:'),' '))">
             <xsl:value-of select="substring-before(.,'http:')"/>
-            <a href="http:{substring-after(.,'http:')}">http:<xsl:value-of select="substring-after(.,'http:')"/></a>
+            <a href="http:{substring-after(.,'http:')}">http:<xsl:call-template name="split_string">
+                <xsl:with-param name="string" select="substring-after(.,'http:')"/>
+              </xsl:call-template>
+            </a>
           </xsl:if>
         </xsl:when>
+
+        <!-- Display /me ... actions in a different style -->
         <xsl:when test="starts-with(.,'*')">
           <i><xsl:value-of select="substring-after(.,'* ')"/></i>
         </xsl:when>
+
+        <!-- For other events just copy the description from the log -->
         <xsl:otherwise>
           <xsl:value-of select="."/>
         </xsl:otherwise>
       </xsl:choose>
     </td>
   </xsl:template>
 
+  <!-- Insert spaces in long strings (e.g. href) so that they wrap and
+       no longer mess with the page layout. One space after each 50
+       characters.-->
+  <xsl:template name="split_string">
+    <xsl:param name="string"></xsl:param>
+    <xsl:param name="return"></xsl:param>
+    <xsl:variable name="max_length" select="50"/>
+
+    <xsl:choose>
+      <xsl:when test="string-length($string) != 0">
+        <xsl:choose>
+          <xsl:when test="string-length($string) > $max_length">
+            <xsl:call-template name="split_string">
+              <xsl:with-param name="string" select="substring($string, $max_length)"/>
+              <xsl:with-param name="return" select="concat($return, substring($string, 1, $max_length), ' ')"/>
+            </xsl:call-template>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:value-of select="concat($return, $string)"/>
+          </xsl:otherwise>
+      </xsl:choose>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:value-of select="$return"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+  
 </xsl:stylesheet>
Index: openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl	31 Jan 2003 06:27:32 -0000	1.2
+++ openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl	10 Feb 2003 05:22:34 -0000	1.3
@@ -169,11 +169,11 @@
                                    -package_id $package_id \
                                    -default ""]"
                         set log_latest_revision_id [etp::get_latest_revision_id $parent_package_id $date]
+                        set content_type [etp::get_content_type]
                         if {[empty_string_p $log_latest_revision_id]} {
 
                             # Create a new ETP page for the log.
 
-                            set content_type [etp::get_content_type]
                             db_exec_plsql page_create {}
                         }
 
@@ -182,6 +182,10 @@
                         set log_live_revision_id [etp::get_live_revision_id $parent_package_id $date]
                         set log_description "Conversation log of $irc_channel_name of $date"
                         db_dml update_revision {}
+
+                        # Flush the cached page from memory
+
+                        util_memoize_flush "etp::get_pa $parent_package_id $date $content_type"
                     }
                 }
             }