openpkg-packages/rt/rt.patch

--- lib/RT/User_Overlay.pm.dist	2003-08-05 16:22:34.000000000 +0200
+++ lib/RT/User_Overlay.pm	2003-08-05 16:29:17.000000000 +0200
@@ -203,7 +203,6 @@
         @_    # get the real argumentlist
     );
 
-
     $args{'EmailAddress'} = $self->CanonicalizeEmailAddress($args{'EmailAddress'});
 
     #Check the ACL
@@ -274,7 +273,7 @@
 
     #If the create failed.
     unless ($id) {
-        $RT::Logger->error("Could not create a new user - " .join('-'. %args));
+        $RT::Logger->error("Could not create a new user - " .join('-', %args));
 
         return ( 0, $self->loc('Could not create user') );
     }
--- html/Ticket/Elements/ShowMessageStanza.dist	2003-08-05 16:21:42.000000000 +0200
+++ html/Ticket/Elements/ShowMessageStanza	2003-08-06 14:01:58.000000000 +0200
@@ -22,23 +22,47 @@
 %# 
 %# END LICENSE BLOCK
 <%perl>
-foreach my $stanza (@$Message) {
-    if ( ref $stanza eq "ARRAY" ) {
-        $m->comp( 'ShowMessageStanza',
-                  Depth   => $Depth + 1,
-                  Transaction => $Transaction,
-                  Message => $stanza );
+  { my $msg='';
+    my $wrapfunc = sub {
+        my $max = 0;
+        foreach ( split ( /\n/, $_[0] ) ) {
+            $max = length if length > $max;
+        }
+        if ( $max > 76 ) {
+            require Text::Wrapper;
+            my $wrapper = new Text::Wrapper(
+                columns    => 70,
+                body_start => ( $max > 70 * 3 ? '   ' : '' ),
+                par_start  => '');
+            $_[0] = $wrapper->wrap($_[0]);
+        }
+        RT::Interface::Web::EscapeUTF8(\$_[0]);
+        $m->comp('/Elements/Callback', content => \$_[0], %ARGS);
+    };
+    foreach my $stanza (@$Message) {
+        if ( ref $stanza eq "ARRAY" ) {
+            if ($msg ne '') {
+                $wrapfunc->($msg);
+</%perl>
+<font color="<%$colors[$Depth]%>"><pre><%$msg |n%></pre></font>
+<%perl>
+                $msg = '';
+            }
+            $m->comp( 'ShowMessageStanza',
+                      Depth   => $Depth + 1,
+                      Transaction => $Transaction,
+                      Message => $stanza );
+        }
+        elsif ( ref $stanza eq "HASH" ) {
+            $msg .= "$stanza->{raw}\n";
+        }
     }
-    elsif ( ref $stanza eq "HASH" ) {
-        my $content = $stanza->{raw};
-        RT::Interface::Web::EscapeUTF8(\$content);
-        $m->comp('/Elements/Callback', content => \$content, %ARGS);
-                $content =~ s/\n/<br>/gi;
-
+    $wrapfunc->($msg);
+</%perl>
+<font color="<%$colors[$Depth]%>"><pre><%$msg |n%></pre></font>
+<%perl>
+  }
 </%perl>
-<font color="<%$colors[$Depth]%>"><%$content |n%><br></font>
-%       }
-% }
 <%INIT>
 use URI::URL;
 my $server = 'fsck.com';
--- html/Elements/Header.dist	2003-08-05 16:22:02.000000000 +0200
+++ html/Elements/Header	2003-08-05 16:24:22.000000000 +0200
@@ -40,9 +40,10 @@
 "
 % }
 >
+% if ($session{'CurrentUser'} && $session{'CurrentUser'}->Id && $LoggedIn) {
 <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
   <tr> 
-    <td colspan=2><a href="http://bestpractical.com"><img src="<%$RT::WebImagesURL%>/bplogo.gif" alt="" width="230" height="50"></a></td>
+    <td colspan=2><a href="<%$RT::LogoLink%>"><img src="<%$RT::LogoURL%>" alt="" width="230" height="50"></a></td>
     <td>&nbsp;</td>
     <td>&nbsp;</td>
     <td width="50%" align="right">
@@ -62,6 +63,7 @@
     </td>
   </tr>
 </table>
+% }
 <%INIT>
 
 $r->header_out('Pragma' => 'no-cache');
--- html/Elements/Login.dist	2003-08-05 16:22:17.000000000 +0200
+++ html/Elements/Login	2003-08-05 16:25:30.000000000 +0200
@@ -87,12 +87,13 @@
 If you've forgotten your username or password, RT can <A
 href="/NoAuth/Reminder.html">send you a reminder</a>.
 -->
+<!--
 <BR>
 <BR>
 <BR>
 <HR>
 <&|/l, '2003'&>RT is &copy; Copyright 1996-[_1] Jesse Vincent &lt;jesse@bestpractical.com&gt;.  It is distributed under <a href="http://www.gnu.org/copyleft/gpl.html">Version 2 of the GNU General Public License.</a></&>
-
+-->
 <%ARGS>
 $user => ""
 $pass => undef
--- lib/RT/Attachment_Overlay.pm.dist	2003-08-06 13:01:15.000000000 +0200
+++ lib/RT/Attachment_Overlay.pm	2003-08-06 13:01:32.000000000 +0200
@@ -313,7 +313,9 @@
     # If we somehow fail to do the decode, at least push out the raw bits
     eval {return( Encode::decode_utf8($content))} || return ($content);
   }
-  Encode::from_to($content, 'utf8' => $enc);
+  if (!$enc) {
+    eval {Encode::from_to($content, 'utf8' => $enc);}
+  }
   return $content;
 }