From 0fb3dda69fab38ebc7c7b6ac8f88300a4c4ccf00 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Mon, 1 Oct 2012 17:42:23 +0200 Subject: [PATCH] Bug 7642 follow-up fix POD The patch for bug 7642 did not introduce this error, but the QA tools detected it, so I fixed it --- C4/Tags.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/C4/Tags.pm b/C4/Tags.pm index 65062f59d1..d74dbf8777 100644 --- a/C4/Tags.pm +++ b/C4/Tags.pm @@ -61,6 +61,12 @@ BEGIN { } } +=head1 C4::Tags.pm - Support for user tagging of biblios. + +More verose debugging messages are sent in the presence of non-zero $ENV{"DEBUG"}. + +=cut + INIT { $ext_dict and $Lingua::Ispell::path = $ext_dict; $debug and print STDERR "\$Lingua::Ispell::path = $Lingua::Ispell::path\n"; @@ -607,10 +613,6 @@ sub stratify_tags { 1; __END__ -=head1 C4::Tags.pm - Support for user tagging of biblios. - -More verose debugging messages are sent in the presence of non-zero $ENV{"DEBUG"}. - =head2 add_tag(biblionumber,term[,borrowernumber]) =head3 TO DO: Add real perldoc -- 2.39.5