[RFC PATCH] gitweb.perl: tags snapshot link

[WOLfgang Schricker <news@wols.org>]

Hello,

I missed a snapshot link in my local repo:
====
tags
====
	tag | commit | shortlog | log | *snapshot*

I found this threads

<http://kerneltrap.org/mailarchive/git/2009/11/8/15785/thread>
<http://thread.gmane.org/gmane.comp.version-control.git/132366>

and the code for "Smarter snapshot names" in 'gitwep.perl'.

My gitweb.perl-1.7.2.2.patch for "activating":


--- gitweb.perl.orig	2010-08-20 01:44:47.000000000 +0200
+++ gitweb.perl	2010-09-03 13:20:40.000000000 +0200
@@ -4909,6 +4909,10 @@
 		} elsif ($tag{'reftype'} eq "blob") {
 			print " | " . $cgi->a({-href => href(action=>"blob_plain", hash=>$tag{'refid'})}, "raw");
 		}
+        my $snapshot_links = format_snapshot_links($tag{'fullname'});
+        if (defined $snapshot_links) {
+            print " | " . $snapshot_links;
+        }
 		print "</td>\n" .
 		      "</tr>";
 	}

-- 
Regards
*WOL* fgang *S* chricker