Fixed one word journal title with period

A one word journal title finishing with a period was still abbreviated before.
Added the original BibTeX styles for easier testing.
Added the Vancouver BibTeX styles to test an example where a period is always added after the journal title.

Author: mjthoraval

example.bib

@@ -1,16 +1,96 @@
+@article{ref:TestNoPeriod,
+	author		= {Normal Article Reference},
+	title		= {A one word journal title in first position},
+	journal		= {OneWord},
+	publisher	= {A. Good Publisher},
+	pages		= {1--1000},
+	place		= {Golden, Colorado},
+	year		= {2010}
+}
+
 @article{ref:Test,
 	author		= {Normal Article Reference},
-	title		= {The Title of a Good Normal Reference},
+	title		= {The Title of a Good Normal Reference abbreviated},
 	journal		= {Test Journal of Reference Information},
 	publisher	= {A. Good Publisher},
 	pages		= {1--1000},
 	place		= {Golden, Colorado},
 	year		= {2010}
 }
 
+@article{ref:TestPeriod,
+	author		= {Normal Article Reference},
+	title		= {A second one word journal title after another one abbreviated},
+	journal		= {OneWord},
+	publisher	= {A. Good Publisher},
+	pages		= {1--1000},
+	place		= {Golden, Colorado},
+	year		= {2010}
+}
+
+@article{ref:TestPeriodTwoWords,
+	author		= {Normal Article Reference},
+	title		= {Journal title without abbreviation},
+	journal		= {Two Words},
+	publisher	= {A. Good Publisher},
+	pages		= {1--1000},
+	place		= {Golden, Colorado},
+	year		= {2010}
+}
+
+@article{ref:TestPeriodRefInf,
+	author		= {Normal Article Reference},
+	title		= {Journal title entered: ``Reference Information''},
+	journal		= {Reference Information},
+	publisher	= {A. Good Publisher},
+	pages		= {1--1000},
+	place		= {Golden, Colorado},
+	year		= {2010}
+}
+
+@article{ref:TestPeriodInf,
+	author		= {Normal Article Reference},
+	title		= {Journal title entered: ``Information''},
+	journal		= {Information},
+	publisher	= {A. Good Publisher},
+	pages		= {1--1000},
+	place		= {Golden, Colorado},
+	year		= {2010}
+}
+
+@article{ref:TestMyAbbrvOneWord,
+	author		= {Normal Article Reference},
+	title		= {Keep the period after a non-abbreviated journal title: One Word.},
+	journal		= {MyAbbrv.},
+	publisher	= {A. Good Publisher},
+	pages		= {1--1000},
+	place		= {Golden, Colorado},
+	year		= {2010}
+}
+
+@article{ref:TestMyAbbrvTwoWords,
+	author		= {Normal Article Reference},
+	title		= {Keep the period after a non-abbreviated journal title: Two Words},
+	journal		= {Two MyAbbrv.},
+	publisher	= {A. Good Publisher},
+	pages		= {1--1000},
+	place		= {Golden, Colorado},
+	year		= {2010}
+}
+
+@article{ref:TestPeriodInfPeriod,
+	author		= {Normal Article Reference},
+	title		= {With the option oneword, journal title containing a end period are still abbreviated},
+	journal		= {Information.},
+	publisher	= {A. Good Publisher},
+	pages		= {1--1000},
+	place		= {Golden, Colorado},
+	year		= {2010}
+}
+
 @article{ref:CmdTest,
 	author		= {Command Article Reference},
-	title		= {The Title of a Good Command Reference},
+	title		= {Test of the journal title custom command},
 	journal		= {\tjri},
 	publisher	= {A. Good Publisher},
 	pages		= {1000--1001},
@@ -20,7 +100,7 @@ @article{ref:CmdTest
 
 @article{ref:AbbrvTest,
 	author		= {Abbreviated Article Reference},
-	title		= {The Title of a Good Abbreviated Reference},
+	title		= {Journal title entered: ``Test J. of Reference Inf.''},
 	journal		= {Test J. of Reference Inf.},
 	publisher	= {A. Good Publisher},
 	pages		= {1002--1050},

jabbrv.sty

@@ -1,3 +1,6 @@
+%% 2018_02_07 - Modifications of Marie-Jean Thoraval ([email protected]):
+%% Suppress the end period after non-abbreviated journal titles.
+%%
 %% Copyright 2010 Erich Hoover
 %% E-mail: [email protected]
 %% 
@@ -54,10 +57,7 @@
 %% abbreviate and the second parameter is the actual abbreviation,
 %% for example:
 %%   \DefineJournalAbbreviation{Journal}{J}
-%% Important Note!: Adding a period after the abbreviation is
-%% automatically handled by the package, if you do not wish to
-%% have periods after abbreviations then enable the "noperiod"
-%% package option. \DefineJournalPartialAbbreviation takes two
+%% \DefineJournalPartialAbbreviation takes two
 %% parameters juts like \DefineJournalAbbreviation; however,
 %% \DefineJournalPartialAbbreviation creates an entry that matches
 %% any title that begins with the first parameter, for example:
@@ -96,7 +96,6 @@
 		\journal@output@abbrv%
 	\else%
 		\the\temp@journal@text%
-		\global\@end@period@false%
 	\fi%
 }
 
@@ -408,11 +407,17 @@
 		% Properly handle where the user has entered abbreviations themselves,
 		% in that case we don't want to get a double-period at the end of the entry.
 		\ifx .\@jrnl@temp@char%
-			\journal@output@abbrv%
+			\expandafter\ifnum\value{jabbrv@word@count} > 0\relax%
+				\journal@output@abbrv%
+				\let\@tempa\@journal@gobble%
+			\else%
+				% Do not remove the period at the end of a user defined journal title,
+				% in case that he has defined a one word journal title abbreviation
+				\jabbrv@one@word@title%
+			\fi%
 			\temp@journal@text{}%
 			\@no@space@true%
 			\@special@period@true%
-			\let\@tempa\@journal@gobble%
 		\else%
 			% \journal@char@stop is specially defined so this routine knows
 			% when the entire text has been read (where to stop)
@@ -461,7 +466,7 @@
 % journal abbreviation replacements should be performed.
 \providecommand{\JournalTitle}[1]{%
 	\@abbreviate@journal@true%
-	\@end@period@false%
+	\global\@end@period@false%
 	\begingroup%
 		\jabbrv@redefine@diacritic%
 		\edef\journal@fulltitle{#1}%
@@ -480,8 +485,6 @@
 				#1%
 			\journal@char@stop%
 		\endgroup%
-	\else
-		\global\@end@period@false%
 	\fi%
 	% If the next character is not a period then add one in
 	% if the last character would have been a period
@@ -491,7 +494,7 @@
 % Declare an option for disabling periods
 \DeclareVoidOption{noperiod}{\@show@period@false}
 
-% Declare an option for disabling periods
+% Declare an option for abbreviating one word titles
 \DeclareVoidOption{oneword}{\@jabbrv@abbrv@one@word@title@true}
 
 % Declare an option for enabling undefined abbreviation warnings