[Libreoffice-commits] website.git: Branch 'tinderbox' - lib/HTMLPopUp

[Christian Lohmaier]

 lib/HTMLPopUp/OverLib.pm |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

New commits:
commit 729706837726da83c3050003dc54cfb62fe68fb5
Author: Christian Lohmaier <lohmaier+LibreOffice at googlemail.com>
Date:   Mon Mar 17 18:05:18 2014 +0100

    proper place for lowercasing the branch

diff --git a/lib/HTMLPopUp/OverLib.pm b/lib/HTMLPopUp/OverLib.pm
index bb9ec1f..c681059 100644
--- a/lib/HTMLPopUp/OverLib.pm
+++ b/lib/HTMLPopUp/OverLib.pm
@@ -1573,9 +1573,9 @@ sub page_header {
   my $self = shift @_;
   my (%args) = @_;
   
-  my ($label, $branch) = lc($args{'title'} =~ /^([^:]*: )(.*)$/);
+  my ($label, $branch) = ($args{'title'} =~ /^([^:]*: )(.*)$/);
   my $heading = $args{'title'};
-  $heading = "$label <a href=\"http://cgit.freedesktop.org/libreoffice/core/log/?h=$branch\">$branch</a>" unless ($branch =~ /^[A-Z]/);
+  $heading = "$label <a href=\"http://cgit.freedesktop.org/libreoffice/core/log/?h=".lc($branch)."\">$branch</a>" unless ($branch =~ /^[A-Z]/);
 
   my ($html_time) = $main::LOCALTIME;
   $html_time =~ s/:[^:]+$//;