svn commit - mysqldoc@docsrva: r8473 - trunk/tools/MySQL/DynXML

[mcbrown]

Author: mcbrown
Date: 2007-11-01 16:32:22 +0100 (Thu, 01 Nov 2007)
New Revision: 8473

Log:
Some minor tweaks to changelog outpu



Modified:
   trunk/tools/MySQL/DynXML/Changelog.pm


Modified: trunk/tools/MySQL/DynXML/Changelog.pm
===================================================================
--- trunk/tools/MySQL/DynXML/Changelog.pm	2007-11-01 14:52:07 UTC (rev 8472)
+++ trunk/tools/MySQL/DynXML/Changelog.pm	2007-11-01 15:32:22 UTC (rev 8473)
Changed blocks: 2, Lines Added: 30, Lines Deleted: 9; 2834 bytes

@@ -182,14 +182,35 @@
         }
     }        
 
-    push @lines,sprintf('<title>%s %s%s %s (%s)</title>',
-                        $titleprefix,
-                        ($self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{productname} ? 
-                         $self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{productname} : 
-                         'release'),
-                        $titlesuffix,
-                        $ver,
-                        $self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{reldate});
+    if ($options->{showreldata} == 1)
+    {
+        push @lines,sprintf('<title>%s %s%s %s (%s)</title>',
+                            $titleprefix,
+                            ($self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{productname} ? 
+                             $self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{productname} : 
+                             'release'),
+                            $titlesuffix,
+                            $ver,
+                            $self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{reldate});
+    }
+    else
+    {
+        my $pkgtype = '';
+        $pkgtype = ' [QSP]'
+            if ($self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{package} eq 'qsp');
+        $pkgtype = ' [MRU]'
+            if ($self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{package} eq 'mru');
+
+        push @lines,sprintf('<title>%s %s%s %s%s (%s)</title>',
+                            $titleprefix,
+                            ($self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{productname} ? 
+                             $self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{productname} : 
+                             'release'),
+                            $titlesuffix,
+                            $ver,
+                            $pkgtype,
+                            $self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{reldate});
+    }        
     
     if (exists($self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{package}) &&
         defined($self->{tdcache}->{$options->{product}}->{versions}->{$ver}->{package}))

@@ -346,7 +367,7 @@
         }
         else
         {
-            print STDERR ("FATAL: Couldn't find a logentry message for version $ver  (bug(s): ",
+            print STDERR ("FATAL: Couldn't find a logentry message for version $ver (MD5: $md5) (bug(s): ",
                           join(', ',@{$logentries->{$md5}->{bugs}}),")\n");
             exit(1);
         }