}
}
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] != "
" &&
+ oldnarr[i] !~ "^
+ print "
";
+ }
+ }
+
+ # dump out the last filename
print save_working;
+
if (html == "Y")
print "
";
{
print narr[i];
if (html == "Y" &&
- oldnarr[i] != "
" &&