From b98155ab157de1e61508a8b26c6e1dca2cd7a8a9 Mon Sep 17 00:00:00 2001 From: Eric Vaandering Date: Tue, 12 Jun 2018 16:15:20 -0500 Subject: [PATCH] Remove link to public version if the document is not public --- DocDB/cgi/RevisionHTML.pm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/DocDB/cgi/RevisionHTML.pm b/DocDB/cgi/RevisionHTML.pm index f7986251..d7900444 100644 --- a/DocDB/cgi/RevisionHTML.pm +++ b/DocDB/cgi/RevisionHTML.pm @@ -1,12 +1,10 @@ -# Name: $RCSfile$ -# Description: -# Revision: $Revision$ -# Modified: $Author$ on $Date$ +# Name: RevisionHTML.pm +# Description: Produce HTML related to information on document revisions # # Author: Eric Vaandering (ewv@fnal.gov) -# +# Modified: Eric Vaandering (ewv@fnal.gov) -# Copyright 2001-2014 Eric Vaandering, Lynn Garren, Adam Bryant +# Copyright 2001-2018 Eric Vaandering, Lynn Garren, Adam Bryant # This file is part of DocDB. @@ -472,7 +470,8 @@ sub OtherVersionLinks { require "Sorts.pm"; my ($DocumentID,$CurrentVersion) = @_; - my @RevIDs = reverse sort RevisionByVersion &FetchRevisionsByDocument($DocumentID); + my @RevIDs = reverse sort RevisionByVersion &FetchRevisionsByDocument($DocumentID); + my $DocRevID = $RevIDs[0]; my $HTML = ""; $HTML .= "
\n";