[Koha-cvs] koha/C4 Search.pm [rel_3_0]

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	06/10/16 09:21:34

Modified files:
	C4             : Search.pm 

Log message:
	fix some POD syntax error.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.120.2.7&r2=1.120.2.8

Patches:
Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.120.2.7
retrieving revision 1.120.2.8
diff -u -b -r1.120.2.7 -r1.120.2.8
--- Search.pm	10 Oct 2006 15:45:26 -0000	1.120.2.7
+++ Search.pm	16 Oct 2006 09:21:33 -0000	1.120.2.8
@@ -40,7 +40,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.120.2.7 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.120.2.8 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -58,6 +58,8 @@
 
 =head1 FUNCTIONS
 
+=over 2
+
 =cut
 
 @ISA = qw(Exporter);
@@ -87,14 +89,14 @@
 &getMARCnotes &getMARCsubjects &getMARCurls);
 # make all your functions, whether exported or not;
 
-=head1 findseealso($dbh,$fields);
+=item findseealso($dbh,$fields);
 
-=head2 $dbh is a link to the DB handler.
+C<$dbh> is a link to the DB handler.
 
 use C4::Context;
 my $dbh =C4::Context->dbh;
 
-=head2 $fields is a reference to the fields array
+C<$fields> is a reference to the fields array
 
 This function modify the @$fields array and add related fields to search on.
 
@@ -125,6 +127,7 @@
 of references to hash, which gives the actual results.
 
 =cut
+
 #'
 sub findguarantees{
   my ($bornum)=@_;
@@ -156,6 +159,7 @@
 from the C<borrowers> database table;
 
 =cut
+
 #'
 sub findguarantor{
   my ($bornum)=@_;
@@ -178,6 +182,7 @@
 Allocates a new, unused borrower number, and returns it.
 
 =cut
+
 #'
 # FIXME - This is identical to C4::Circulation::Borrower::NewBorrowerNumber.
 # Pick one and stick with it. Preferably use the other one. This function
@@ -231,6 +236,7 @@
 =back
 
 =cut
+
 #'
 sub catalogsearch {
     my ($dbh, $tags, $and_or, $excluding, $operator, $value, $offset,$length,$orderby,$desc_or_asc) = @_;
@@ -488,6 +494,7 @@
 C<$num> to 5 will return results 100 through 104 inclusive.
 
 =cut
+
 #'
 sub KeywordSearch {
   my ($env,$type,$search,$num,$offset)=@_;
@@ -908,6 +915,7 @@
 not ordered.
 
 =cut
+
 #'
 sub CatSearch  {
 	my ($env,$type,$search,$num,$offset)=@_;
@@ -1240,6 +1248,7 @@
 =back
 
 =cut
+
 #'
 sub ItemInfo {
 	my ($env,$biblionumber,$type) = @_;
@@ -1334,6 +1343,7 @@
 is lost.
 
 =cut
+
 #'
 sub GetItems {
    my ($env,$biblionumber)=@_;
@@ -1385,6 +1395,7 @@
 the Koha database.
 
 =cut
+
 #'
 sub itemdata {
   my ($barcode)=@_;
@@ -1416,6 +1427,7 @@
 the first one is considered.
 
 =cut
+
 #'
 sub bibdata {
 	my ($bibnum, $type) = @_;
@@ -1474,6 +1486,7 @@
 that C<biblioitems.notes> is given as C<$itemdata-E<gt>{bnotes}>.
 
 =cut
+
 #'
 sub bibitemdata {
     my ($bibitem) = @_;
@@ -1499,6 +1512,7 @@
 elements in C<$subjects>.
 
 =cut
+
 #'
 sub subject {
   my ($bibnum)=@_;
@@ -1527,6 +1541,7 @@
 elements in C<$authors>.
 
 =cut
+
 #'
 sub addauthor {
   my ($bibnum)=@_;
@@ -1554,6 +1569,7 @@
 elements in C<$subtitles>.
 
 =cut
+
 #'
 sub subtitle {
   my ($bibnum)=@_;
@@ -1613,6 +1629,7 @@
 =back
 
 =cut
+
 #'
 sub itemissues {
     my ($bibitem, $biblio)=@_;
@@ -1693,6 +1710,7 @@
 database.
 
 =cut
+
 #'
 sub itemnodata {
   my ($env,$dbh,$itemnumber) = @_;
@@ -1730,6 +1748,7 @@
 C<$count> is the number of elements in C<$borrowers>.
 
 =cut
+
 #'
 #used by member enquiries from the intranet
 #called by member.pl
@@ -1790,6 +1809,7 @@
 the C<borrowers> table in the Koha database.
 
 =cut
+
 #'
 sub borrdata {
   my ($cardnumber,$bornum)=@_;
@@ -1833,6 +1853,7 @@
 C<$issues>.
 
 =cut
+
 #'
 sub borrissues {
   my ($bornum)=@_;
@@ -1870,6 +1891,7 @@
 elements in C<$issues>
 
 =cut
+
 #'
 sub allissues {
   my ($bornum,$order,$limit)=@_;
@@ -1911,6 +1933,7 @@
 the total fine currently due by the borrower.
 
 =cut
+
 #'
 sub borrdata2 {
   my ($env,$bornum)=@_;
@@ -1987,6 +2010,7 @@
 total amount outstanding for all of the account lines.
 
 =cut
+
 #'
 sub getboracctrecord {
    my ($env,$params) = @_;
@@ -2056,6 +2080,7 @@
 (aqorders.quantity - aqorders.quantityreceived).
 
 =cut
+
 #'
 
 # FIXME - There's also a &C4::Biblio::itemcount.
@@ -2164,6 +2189,7 @@
 =back
 
 =cut
+
 #'
 sub itemcount2 {
   my ($env,$bibnum,$type)=@_;
@@ -2247,6 +2273,7 @@
 Given an item type code, returns the description for that type.
 
 =cut
+
 #'
 
 # FIXME - I'm pretty sure that after the initial setup, the list of
@@ -2296,6 +2323,7 @@
 all copies are lost; otherwise, there is at least one copy available.
 
 =cut
+
 #'
 sub bibitems {
     my ($bibnum) = @_;
@@ -2332,6 +2360,7 @@
 The returned items include very overdue items, but not lost ones.
 
 =cut
+
 #'
 sub barcodes{
     #called from request.pl
@@ -2364,6 +2393,7 @@
 fields from the C<websites> table in the Koha database.
 
 =cut
+
 #'
 sub getwebsites {
     my ($biblionumber) = @_;
@@ -2401,6 +2431,7 @@
 C<biblioitems> table of the Koha database.
 
 =cut
+
 #'
 sub getwebbiblioitems {
     my ($biblionumber) = @_;
@@ -3325,7 +3356,7 @@
 		$oldbiblio->{wthdrawncount} = $wthdrawn_count;
 		$oldbiblio->{itemlostcount} = $itemlost_count;
 
-=head1
+=head1 FIXME
 
  Ugh ... this is ugly, I'll re-write it better above then delete it
     my $norequests = 1;