From 3c0eaa3d68d1973fca9bc7114ea579a7d6d0ed80 Mon Sep 17 00:00:00 2001
From: "Kyle J. McKay" <mackyle@gmail.com>
Date: Tue, 7 May 2013 16:10:36 -0700
Subject: [PATCH] New $giroccobranch Config option to set view source hb param

---
 Girocco/CGI.pm    | 4 +++-
 Girocco/Config.pm | 3 +++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/Girocco/CGI.pm b/Girocco/CGI.pm
index d3e5185..8f92137 100644
--- a/Girocco/CGI.pm
+++ b/Girocco/CGI.pm
@@ -60,9 +60,11 @@ EOT
 sub DESTROY {
 	my $self = shift;
 	if ($self->{srcname} and $Girocco::Config::giroccourl) {
+		my $hb = $Girocco::Config::giroccobranch ?
+			"hb=$Girocco::Config::giroccobranch;" : "";
 		print <<EOT;
 <div align="right">
-<a href="$Girocco::Config::giroccourl?a=blob;f=$self->{srcname}">(view source)</a>
+<a href="$Girocco::Config::giroccourl?a=blob;${hb}f=$self->{srcname}">(view source)</a>
 </div>
 EOT
 	}
diff --git a/Girocco/Config.pm b/Girocco/Config.pm
index 412bf0f..63d870d 100644
--- a/Girocco/Config.pm
+++ b/Girocco/Config.pm
@@ -18,6 +18,9 @@ our $git_bin = '/usr/bin/git';
 # E-mail of the site admin
 our $admin = 'admin@example.org';
 
+# Girocco branch to use for html.cgi view source links (undef for HEAD)
+our $giroccobranch = undef;
+
 
 ## Feature knobs
 
-- 
2.11.4.GIT