Fixes to pgcvslog for last narrive entry.

diff --git a/src/tools/pgcvslog b/src/tools/pgcvslog
index 6a2c8411a00a0f48dced45e0d8e8f6cb637e5ed2..2661b2553ec0f64bff0a1b00d59f757e3e3d65ed 100755 (executable)
--- a/src/tools/pgcvslog
+++ b/src/tools/pgcvslog
@@ -147,9 +147,40 @@ awk '   BEGIN   { slot = 0; oldslot=0; save_working = ""; html="'"$HTML"'"}
                }
        }
        END     {
-                       # dump out the last filename
+                       # If there are a different number of narrative
+                       # lines, they can not possibly be the same.
+                       if (slot != oldslot)
+                               same = "N";
+                       else
+                       {
+                               same = "Y";
+                               for (i=1; i <= slot; i++)
+                               {
+                                       if (oldnarr[i] != narr[i])
+                                       {
+                                               same = "N";
+                                               break;
+                                       }
+                               }
+                       }
 
+                       # dump out the old narrative if it is new
+                       if (same == "N")
+                       {
+                               if (oldslot)
+                                       for (i=1; i <= oldslot; i++)
+                                       {
+                                               print oldnarr[i];
+                                               if (html == "Y" && 
+                                                   oldnarr[i] != "<HR>" &&
+                                                   oldnarr[i] !~ "^<DIV ")
+                                                       print "<BR>";
+                                       }
+                       }
+
+                       # dump out the last filename
                        print save_working;
+
                        if (html == "Y")
                                print "<BR>";
 
@@ -158,8 +189,8 @@ awk '   BEGIN   { slot = 0; oldslot=0; save_working = ""; html="'"$HTML"'"}
                        {
                                print narr[i];
                                if (html == "Y" && 
-                                   oldnarr[i] != "<HR>" &&
-                                   oldnarr[i] !~ "^<DIV ")
+                                   narr[i] != "<HR>" &&
+                                   narr[i] !~ "^<DIV ")
                                        print "<BR>";
                        }
                }' |