From efa66f1f556dcff71779c9b89148f2bb99149e51 Mon Sep 17 00:00:00 2001 From: Andrew Elwell Date: Thu, 11 Nov 2010 08:18:47 -0500 Subject: [PATCH] Bug 5385: POD Cleanups (part 2) More podchecker cleanups to eliminate warnings / errors Signed-off-by: Andrew Elwell Signed-off-by: Galen Charlton Signed-off-by: Chris Cormack --- authorities/blinddetail-biblio-search.pl | 3 +-- authorities/detail-biblio-search.pl | 5 ++-- authorities/detail.pl | 3 +-- catalogue/ISBDdetail.pl | 3 +-- catalogue/MARCdetail.pl | 3 +-- catalogue/search.pl | 2 +- cataloguing/addbiblio.pl | 16 ++++++----- cataloguing/merge.pl | 7 +++-- cataloguing/value_builder/callnumber.pl | 2 +- cataloguing/value_builder/marc21_field_006.pl | 2 +- cataloguing/value_builder/marc21_field_007.pl | 2 +- cataloguing/value_builder/marc21_field_008.pl | 2 +- .../marc21_field_008_authorities.pl | 2 +- .../value_builder/marc21_field_040d.pl | 22 ++++++++------- .../value_builder/marc21_field_245h.pl | 24 +++++++++-------- cataloguing/value_builder/stocknumberam123.pl | 2 +- .../value_builder/unimarc_field_010.pl | 6 +++-- .../value_builder/unimarc_field_100.pl | 6 +++-- .../value_builder/unimarc_field_105.pl | 6 +++-- .../value_builder/unimarc_field_106.pl | 7 +++-- .../value_builder/unimarc_field_110.pl | 6 +++-- .../value_builder/unimarc_field_115a.pl | 6 +++-- .../value_builder/unimarc_field_115b.pl | 6 +++-- .../value_builder/unimarc_field_116.pl | 6 +++-- .../value_builder/unimarc_field_117.pl | 7 +++-- .../value_builder/unimarc_field_120.pl | 7 +++-- .../value_builder/unimarc_field_121a.pl | 7 +++-- .../value_builder/unimarc_field_121b.pl | 7 +++-- .../value_builder/unimarc_field_122.pl | 6 +++-- .../value_builder/unimarc_field_123a.pl | 7 +++-- .../value_builder/unimarc_field_123d.pl | 7 +++-- .../value_builder/unimarc_field_123e.pl | 7 +++-- .../value_builder/unimarc_field_123f.pl | 7 +++-- .../value_builder/unimarc_field_123g.pl | 7 +++-- installer/data/mysql/updatedatabase.pl | 27 ++++++++----------- misc/cronjobs/cloud-kw.pl | 2 +- misc/cronjobs/holds/build_holds_queue.pl | 26 +++++------------- misc/cronjobs/runreport.pl | 18 +++++++++---- misc/maintenance/fix_accountlines_date.pl | 2 ++ misc/translator/update.pl | 7 ++--- offline_circ/process_koc.pl | 10 ++++--- opac/opac-ISBDdetail.pl | 5 +--- opac/opac-MARCdetail.pl | 1 + opac/opac-authoritiesdetail.pl | 3 +-- opac/opac-tags.pl | 6 ++++- opac/opac-topissues.pl | 2 -- reports/dictionary.pl | 3 --- reports/guided_reports.pl | 2 -- tools/csv-profiles.pl | 3 +-- tools/picture-upload.pl | 4 +-- 50 files changed, 187 insertions(+), 152 deletions(-) diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl index e7231871e5..1495348596 100755 --- a/authorities/blinddetail-biblio-search.pl +++ b/authorities/blinddetail-biblio-search.pl @@ -23,6 +23,7 @@ blinddetail-biblio-search.pl : script to show an authority in MARC format =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -33,8 +34,6 @@ parameters tables. =head1 FUNCTIONS -=over 2 - =cut use strict; diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl index 31b5146eee..56a1a45400 100755 --- a/authorities/detail-biblio-search.pl +++ b/authorities/detail-biblio-search.pl @@ -19,10 +19,11 @@ =head1 NAME -etail.pl : script to show an authority in MARC format +detail-biblio-search.pl - script to show an authority in MARC format =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -33,8 +34,6 @@ parameters tables. =head1 FUNCTIONS -=over 2 - =cut diff --git a/authorities/detail.pl b/authorities/detail.pl index 18d6c6a979..f92e04b8b3 100755 --- a/authorities/detail.pl +++ b/authorities/detail.pl @@ -23,6 +23,7 @@ detail.pl : script to show an authority in MARC format =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -33,8 +34,6 @@ parameters tables. =head1 FUNCTIONS -=over 2 - =cut diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl index 40a434d37c..7ebe8e0c01 100755 --- a/catalogue/ISBDdetail.pl +++ b/catalogue/ISBDdetail.pl @@ -23,6 +23,7 @@ ISBDdetail.pl : script to show a biblio in ISBD format =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -30,8 +31,6 @@ This script needs a biblionumber as parameter =head1 FUNCTIONS -=over 2 - =cut use strict; diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl index b543d75e76..2dc7b1d5e7 100755 --- a/catalogue/MARCdetail.pl +++ b/catalogue/MARCdetail.pl @@ -23,6 +23,7 @@ MARCdetail.pl : script to show a biblio in MARC format =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -39,8 +40,6 @@ the items attached to the biblio =head1 FUNCTIONS -=over 2 - =cut use strict; diff --git a/catalogue/search.pl b/catalogue/search.pl index 920afb776a..485af6774b 100755 --- a/catalogue/search.pl +++ b/catalogue/search.pl @@ -79,7 +79,7 @@ There are several additional secondary functions performed that I will not cover in detail. =head3 1. Building Query Strings - + There are several types of queries needed in the process of search and retrieve: =over diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl index 85c0566328..86c049ed9d 100755 --- a/cataloguing/addbiblio.pl +++ b/cataloguing/addbiblio.pl @@ -45,7 +45,9 @@ if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { our($tagslib,$authorised_values_sth,$is_a_modif,$usedTagsLib,$mandatory_z3950); -=item MARCfindbreeding +=head1 FUNCTIONS + +=head2 MARCfindbreeding $record = MARCfindbreeding($breedingid); @@ -152,7 +154,7 @@ sub MARCfindbreeding { return -1; } -=item build_authorized_values_list +=head2 build_authorized_values_list =cut @@ -243,7 +245,7 @@ sub build_authorized_values_list ($$$$$$$) { ); } -=item CreateKey +=head2 CreateKey Create a random value to set it into the input name @@ -253,11 +255,11 @@ sub CreateKey(){ return int(rand(1000000)); } -=item GetMandatoryFieldZ3950 +=head2 GetMandatoryFieldZ3950 This function return an hashref which containts all mandatory field to search with z3950 server. - + =cut sub GetMandatoryFieldZ3950($){ @@ -277,7 +279,7 @@ sub GetMandatoryFieldZ3950($){ }; } -=item create_input +=head2 create_input builds the entry for a subfield. @@ -514,7 +516,7 @@ sub create_input { } -=item format_indicator +=head2 format_indicator Translate indicator value for output form - specifically, map indicator = ' ' to ''. This is for the convenience of a cataloger diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl index 1b890ba55c..eaf0c9763a 100755 --- a/cataloguing/merge.pl +++ b/cataloguing/merge.pl @@ -179,6 +179,9 @@ if ($merge) { output_html_with_http_headers $input, $cookie, $template->output; exit; +=head1 FUNCTIONS + +=cut # ------------------------ # Functions @@ -238,9 +241,9 @@ sub _createMarcHash { } -=item CreateKey +=head2 CreateKey - Create a random value to set it into the input name +Create a random value to set it into the input name =cut diff --git a/cataloguing/value_builder/callnumber.pl b/cataloguing/value_builder/callnumber.pl index 2b56958aa2..cc37af0d29 100755 --- a/cataloguing/value_builder/callnumber.pl +++ b/cataloguing/value_builder/callnumber.pl @@ -23,7 +23,7 @@ use C4::Auth; use CGI; use C4::Context; -=head1 +=head1 DESCRIPTION Is used for callnumber computation. diff --git a/cataloguing/value_builder/marc21_field_006.pl b/cataloguing/value_builder/marc21_field_006.pl index c2de828636..6d84cb4696 100755 --- a/cataloguing/value_builder/marc21_field_006.pl +++ b/cataloguing/value_builder/marc21_field_006.pl @@ -26,7 +26,7 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 DESCRIPTION plugin_parameters : other parameters added when the plugin is called by the dopop function diff --git a/cataloguing/value_builder/marc21_field_007.pl b/cataloguing/value_builder/marc21_field_007.pl index 240e4d6b9b..c852fa0613 100755 --- a/cataloguing/value_builder/marc21_field_007.pl +++ b/cataloguing/value_builder/marc21_field_007.pl @@ -27,7 +27,7 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 DESCRIPTION plugin_parameters : other parameters added when the plugin is called by the dopop function diff --git a/cataloguing/value_builder/marc21_field_008.pl b/cataloguing/value_builder/marc21_field_008.pl index 0ed2963029..57e0690804 100755 --- a/cataloguing/value_builder/marc21_field_008.pl +++ b/cataloguing/value_builder/marc21_field_008.pl @@ -26,7 +26,7 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 DESCRIPTION plugin_parameters : other parameters added when the plugin is called by the dopop function diff --git a/cataloguing/value_builder/marc21_field_008_authorities.pl b/cataloguing/value_builder/marc21_field_008_authorities.pl index fd3f203fdf..b887806b9a 100755 --- a/cataloguing/value_builder/marc21_field_008_authorities.pl +++ b/cataloguing/value_builder/marc21_field_008_authorities.pl @@ -27,7 +27,7 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 DESCRIPTION plugin_parameters : other parameters added when the plugin is called by the dopop function diff --git a/cataloguing/value_builder/marc21_field_040d.pl b/cataloguing/value_builder/marc21_field_040d.pl index 51a053fc8f..64e5bd3c7b 100755 --- a/cataloguing/value_builder/marc21_field_040d.pl +++ b/cataloguing/value_builder/marc21_field_040d.pl @@ -23,7 +23,7 @@ use strict; use C4::Context; # use MARC::Record; -=head1 +=head1 DESCRIPTION plugin_parameters : other parameters added when the plugin is called by the dopop function @@ -34,17 +34,19 @@ sub plugin_parameters { return ""; } -=head1 +=head1 FUNCTIONS -plugin_javascript : the javascript function called when the user enters the subfield. +=head2 plugin_javascript + +The javascript function called when the user enters the subfield. contain 3 javascript functions : -* one called when the field is entered (OnFocus). Named FocusXXX -* one called when the field is leaved (onBlur). Named BlurXXX -* one called when the ... link is clicked () named ClicXXX + * one called when the field is entered (OnFocus). Named FocusXXX + * one called when the field is leaved (onBlur). Named BlurXXX + * one called when the ... link is clicked () named ClicXXX returns : -* XXX -* a variable containing the 3 scripts. + * XXX + * a variable containing the 3 scripts. the 3 scripts are inserted after the in the html code =cut @@ -76,9 +78,9 @@ function Clic$function_name(subfield_managed) { return ($function_name,$res); } -=head1 +=head2 plugin -plugin : the true value_builded. The screen that is open in the popup window. +the true value_builded. The screen that is open in the popup window. =cut diff --git a/cataloguing/value_builder/marc21_field_245h.pl b/cataloguing/value_builder/marc21_field_245h.pl index 61984564fd..9ab2ca1bcd 100755 --- a/cataloguing/value_builder/marc21_field_245h.pl +++ b/cataloguing/value_builder/marc21_field_245h.pl @@ -22,9 +22,11 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Context; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +other parameters added when the plugin is called by the dopop function =cut @@ -32,17 +34,17 @@ sub plugin_parameters { return ""; } -=head1 +=head2 plugin_javascript -plugin_javascript : the javascript function called when the user enters the subfield. +Thee javascript function called when the user enters the subfield. contain 3 javascript functions : -* one called when the field is entered (OnFocus). Named FocusXXX -* one called when the field is leaved (onBlur). Named BlurXXX -* one called when the ... link is clicked () named ClicXXX + * one called when the field is entered (OnFocus). Named FocusXXX + * one called when the field is leaved (onBlur). Named BlurXXX + * one called when the ... link is clicked () named ClicXXX returns : -* XXX -* a variable containing the 3 scripts. + * XXX + * a variable containing the 3 scripts. the 3 scripts are inserted after the in the html code =cut @@ -79,9 +81,9 @@ function Clic$function_name(subfield_managed) { return ($function_name,$res); } -=head1 +=head2 plugin -plugin : the true value_builded. The screen that is open in the popup window. +The true value_builded. The screen that is open in the popup window. =cut diff --git a/cataloguing/value_builder/stocknumberam123.pl b/cataloguing/value_builder/stocknumberam123.pl index 014fd861f3..ab88f61bb4 100755 --- a/cataloguing/value_builder/stocknumberam123.pl +++ b/cataloguing/value_builder/stocknumberam123.pl @@ -23,7 +23,7 @@ use C4::Auth; use CGI; use C4::Context; -=head1 +=head1 DESCRIPTION This plugin is specific to AM123 but could be used as a base for similar operations. It is used for stocknumber computation. diff --git a/cataloguing/value_builder/unimarc_field_010.pl b/cataloguing/value_builder/unimarc_field_010.pl index 5e319d946b..19dbb9f762 100755 --- a/cataloguing/value_builder/unimarc_field_010.pl +++ b/cataloguing/value_builder/unimarc_field_010.pl @@ -25,9 +25,11 @@ use CGI; use C4::Context; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +other parameters added when the plugin is called by the dopop function =cut diff --git a/cataloguing/value_builder/unimarc_field_100.pl b/cataloguing/value_builder/unimarc_field_100.pl index 917b5c1233..c49b9568ef 100755 --- a/cataloguing/value_builder/unimarc_field_100.pl +++ b/cataloguing/value_builder/unimarc_field_100.pl @@ -26,9 +26,11 @@ use C4::Context; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut diff --git a/cataloguing/value_builder/unimarc_field_105.pl b/cataloguing/value_builder/unimarc_field_105.pl index 94cf84cc62..8d44a8262d 100755 --- a/cataloguing/value_builder/unimarc_field_105.pl +++ b/cataloguing/value_builder/unimarc_field_105.pl @@ -27,9 +27,11 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut diff --git a/cataloguing/value_builder/unimarc_field_106.pl b/cataloguing/value_builder/unimarc_field_106.pl index 725baf9ab6..0b51a18878 100755 --- a/cataloguing/value_builder/unimarc_field_106.pl +++ b/cataloguing/value_builder/unimarc_field_106.pl @@ -27,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; diff --git a/cataloguing/value_builder/unimarc_field_110.pl b/cataloguing/value_builder/unimarc_field_110.pl index 56f4bc833f..848a53a3ff 100755 --- a/cataloguing/value_builder/unimarc_field_110.pl +++ b/cataloguing/value_builder/unimarc_field_110.pl @@ -27,9 +27,11 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut diff --git a/cataloguing/value_builder/unimarc_field_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl index b6a89ef086..6144771432 100755 --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ b/cataloguing/value_builder/unimarc_field_115a.pl @@ -27,9 +27,11 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut diff --git a/cataloguing/value_builder/unimarc_field_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl index 50a14332f2..7582e7494b 100755 --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ b/cataloguing/value_builder/unimarc_field_115b.pl @@ -27,9 +27,11 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut diff --git a/cataloguing/value_builder/unimarc_field_116.pl b/cataloguing/value_builder/unimarc_field_116.pl index 696d5a7c71..21e236883b 100755 --- a/cataloguing/value_builder/unimarc_field_116.pl +++ b/cataloguing/value_builder/unimarc_field_116.pl @@ -27,9 +27,11 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut diff --git a/cataloguing/value_builder/unimarc_field_117.pl b/cataloguing/value_builder/unimarc_field_117.pl index 8bc9fc75bc..ff206f7524 100755 --- a/cataloguing/value_builder/unimarc_field_117.pl +++ b/cataloguing/value_builder/unimarc_field_117.pl @@ -27,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; diff --git a/cataloguing/value_builder/unimarc_field_120.pl b/cataloguing/value_builder/unimarc_field_120.pl index 8da2f6bfad..3f72c85e71 100755 --- a/cataloguing/value_builder/unimarc_field_120.pl +++ b/cataloguing/value_builder/unimarc_field_120.pl @@ -27,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; diff --git a/cataloguing/value_builder/unimarc_field_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl index f94dda2e03..a855332cad 100755 --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ b/cataloguing/value_builder/unimarc_field_121a.pl @@ -27,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; diff --git a/cataloguing/value_builder/unimarc_field_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl index 9891b29787..2d570d70ab 100755 --- a/cataloguing/value_builder/unimarc_field_121b.pl +++ b/cataloguing/value_builder/unimarc_field_121b.pl @@ -27,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; diff --git a/cataloguing/value_builder/unimarc_field_122.pl b/cataloguing/value_builder/unimarc_field_122.pl index 47d8d4cfaf..045bd66f8e 100755 --- a/cataloguing/value_builder/unimarc_field_122.pl +++ b/cataloguing/value_builder/unimarc_field_122.pl @@ -27,9 +27,11 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut diff --git a/cataloguing/value_builder/unimarc_field_123a.pl b/cataloguing/value_builder/unimarc_field_123a.pl index 7b8b9e34ec..0fe85dc1f2 100755 --- a/cataloguing/value_builder/unimarc_field_123a.pl +++ b/cataloguing/value_builder/unimarc_field_123a.pl @@ -27,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; diff --git a/cataloguing/value_builder/unimarc_field_123d.pl b/cataloguing/value_builder/unimarc_field_123d.pl index 4627aeac7f..1df7fbcb55 100755 --- a/cataloguing/value_builder/unimarc_field_123d.pl +++ b/cataloguing/value_builder/unimarc_field_123d.pl @@ -27,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; diff --git a/cataloguing/value_builder/unimarc_field_123e.pl b/cataloguing/value_builder/unimarc_field_123e.pl index 4627aeac7f..1df7fbcb55 100755 --- a/cataloguing/value_builder/unimarc_field_123e.pl +++ b/cataloguing/value_builder/unimarc_field_123e.pl @@ -27,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; diff --git a/cataloguing/value_builder/unimarc_field_123f.pl b/cataloguing/value_builder/unimarc_field_123f.pl index c5985526e1..5932db5985 100755 --- a/cataloguing/value_builder/unimarc_field_123f.pl +++ b/cataloguing/value_builder/unimarc_field_123f.pl @@ -27,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; diff --git a/cataloguing/value_builder/unimarc_field_123g.pl b/cataloguing/value_builder/unimarc_field_123g.pl index 4627aeac7f..1df7fbcb55 100755 --- a/cataloguing/value_builder/unimarc_field_123g.pl +++ b/cataloguing/value_builder/unimarc_field_123g.pl @@ -27,11 +27,14 @@ use C4::Context; use C4::Search; use C4::Output; -=head1 +=head1 FUNCTIONS -plugin_parameters : other parameters added when the plugin is called by the dopop function +=head2 plugin_parameters + +Other parameters added when the plugin is called by the dopop function =cut + sub plugin_parameters { my ($dbh,$record,$tagslib,$i,$tabloop) = @_; return ""; diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index 3aa1e2057a..27daa388c8 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -50,11 +50,8 @@ GetOptions( my $dbh = C4::Context->dbh; $|=1; # flushes output -=item - Deal with virtualshelves - -=cut +# Deal with virtualshelves my $DBversion = "3.00.00.001"; if (C4::Context->preference("Version") < TransformToNum($DBversion)) { @@ -2789,11 +2786,7 @@ if (C4::Context->preference("Version") < TransformToNum($DBversion)) { print "Upgrade to $DBversion done ( Adding enddate to subscription)\n"; } -=item - -Acquisitions update - -=cut +# Acquisitions update $DBversion = "3.01.00.072"; if (C4::Context->preference("Version") < TransformToNum($DBversion)) { @@ -3842,9 +3835,11 @@ if (C4::Context->preference("Version") < TransformToNum($DBversion)) { SetVersion ($DBversion); } -=item DropAllForeignKeys($table) +=head1 FUNCTIONS + +=head2 DropAllForeignKeys($table) - Drop all foreign keys of the table $table +Drop all foreign keys of the table $table =cut @@ -3871,10 +3866,10 @@ sub DropAllForeignKeys { } -=item TransformToNum +=head2 TransformToNum - Transform the Koha version from a 4 parts string - to a number, with just 1 . +Transform the Koha version from a 4 parts string +to a number, with just 1 . =cut @@ -3885,9 +3880,9 @@ sub TransformToNum { return $version; } -=item SetVersion +=head2 SetVersion - set the DBversion in the systempreferences +set the DBversion in the systempreferences =cut diff --git a/misc/cronjobs/cloud-kw.pl b/misc/cronjobs/cloud-kw.pl index ae917fe6a9..11aaf88d0d 100755 --- a/misc/cronjobs/cloud-kw.pl +++ b/misc/cronjobs/cloud-kw.pl @@ -345,7 +345,7 @@ Print this help page. =back =head1 CONFIGURATION - + Configuration file looks like that: --- diff --git a/misc/cronjobs/holds/build_holds_queue.pl b/misc/cronjobs/holds/build_holds_queue.pl index fab6b964ec..b02ab604ad 100755 --- a/misc/cronjobs/holds/build_holds_queue.pl +++ b/misc/cronjobs/holds/build_holds_queue.pl @@ -64,13 +64,11 @@ foreach my $biblionumber (@$bibs_with_pending_requests) { exit 0; -=head2 GetBibsWithPendingHoldRequests - -=over 4 +=head1 FUNCTIONS -my $biblionumber_aref = GetBibsWithPendingHoldRequests(); +=head2 GetBibsWithPendingHoldRequests -=back + my $biblionumber_aref = GetBibsWithPendingHoldRequests(); Return an arrayref of the biblionumbers of all bibs that have one or more unfilled hold requests. @@ -95,11 +93,7 @@ sub GetBibsWithPendingHoldRequests { =head2 GetPendingHoldRequestsForBib -=over 4 - -my $requests = GetPendingHoldRequestsForBib($biblionumber); - -=back + my $requests = GetPendingHoldRequestsForBib($biblionumber); Returns an arrayref of hashrefs to pending, unfilled hold requests on the bib identified by $biblionumber. The following keys @@ -142,11 +136,7 @@ sub GetPendingHoldRequestsForBib { =head2 GetItemsAvailableToFillHoldRequestsForBib -=over 4 - -my $available_items = GetItemsAvailableToFillHoldRequestsForBib($biblionumber); - -=back + my $available_items = GetItemsAvailableToFillHoldRequestsForBib($biblionumber); Returns an arrayref of items available to fill hold requests for the bib identified by C<$biblionumber>. An item is available @@ -205,11 +195,7 @@ sub GetItemsAvailableToFillHoldRequestsForBib { =head2 MapItemsToHoldRequests -=over 4 - -MapItemsToHoldRequests($hold_requests, $available_items); - -=back + MapItemsToHoldRequests($hold_requests, $available_items); =cut diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl index bb91b156b6..3187e9269c 100755 --- a/misc/cronjobs/runreport.pl +++ b/misc/cronjobs/runreport.pl @@ -57,7 +57,7 @@ runreport.pl [ -h | -m ] [ -v ] reportID [ reportID ... ] =head1 OPTIONS -=over 8 +=over =item B<-help> @@ -90,11 +90,19 @@ Same as above, but also runs report #17. =head1 TO DO -=over 8 +=over - ~ Complete testing for Sendmail related options: --email, --to, and --from. - ~ Allow Saved Results option. - ~ Possible --format option for CSV or tab-delimited output. +=item * + +Complete testing for Sendmail related options: --email, --to, and --from. + +=item * + +Allow Saved Results option. + +=item * + +Possible --format option for CSV or tab-delimited output. =back diff --git a/misc/maintenance/fix_accountlines_date.pl b/misc/maintenance/fix_accountlines_date.pl index 94a33cdaea..2956f57c43 100755 --- a/misc/maintenance/fix_accountlines_date.pl +++ b/misc/maintenance/fix_accountlines_date.pl @@ -81,6 +81,8 @@ be in whatever format your 'dateformat' system preference specifies. Run in debugging mode; this prints out a lot of information and should be used only if there is a problem and with the '-n' option. +=back + =cut my $mode = ''; diff --git a/misc/translator/update.pl b/misc/translator/update.pl index 9970c1eb7b..6f31ffbfa1 100755 --- a/misc/translator/update.pl +++ b/misc/translator/update.pl @@ -20,8 +20,9 @@ while (defined($po = readdir(DIR))) { } closedir DIR; -=head -my($theme, $module) = @$spec; +=head1 EXAMPLE + + my($theme, $module) = @$spec; my $pid = fork; die "fork: $!\n" unless defined $pid; if (!$pid) { @@ -47,5 +48,5 @@ my($theme, $module) = @$spec; die "tmpl_process3.pl: exec: $!\n"; } wait; -} + } =cut diff --git a/offline_circ/process_koc.pl b/offline_circ/process_koc.pl index d0a25963d0..5f0d9ffc0c 100755 --- a/offline_circ/process_koc.pl +++ b/offline_circ/process_koc.pl @@ -158,7 +158,9 @@ if ($completedJobID) { output_html_with_http_headers $query, $cookie, $template->output; -=head3 parse_header_line +=head1 FUNCTIONS + +=head2 parse_header_line parses the header line from a .koc file. This is the line that specifies things such as the file version, and the name and version of @@ -183,7 +185,7 @@ sub parse_header_line { return \%header_info; } -=head3 parse_command_line +=head2 parse_command_line =cut @@ -210,7 +212,7 @@ sub parse_command_line { } -=head3 arguments_for_command +=head2 arguments_for_command fetches the names of the columns (and function arguments) found in the .koc file for a particular command name. For instance, the C @@ -367,7 +369,7 @@ sub kocMakePayment { } ); } -=head3 _get_borrowernumber_from_barcode +=head2 _get_borrowernumber_from_barcode pass in a barcode get back the borrowernumber of the patron who has it checked out. diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl index 4883e89321..88904da451 100755 --- a/opac/opac-ISBDdetail.pl +++ b/opac/opac-ISBDdetail.pl @@ -20,8 +20,7 @@ =head1 NAME -opac-ISBDdetail.pl : script to show a biblio in ISBD format - +opac-ISBDdetail.pl - script to show a biblio in ISBD format =head1 DESCRIPTION @@ -37,8 +36,6 @@ the items attached to the biblio =head1 FUNCTIONS -=over 2 - =cut use strict; diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl index fae749c8dc..d1272024e5 100755 --- a/opac/opac-MARCdetail.pl +++ b/opac/opac-MARCdetail.pl @@ -23,6 +23,7 @@ MARCdetail.pl : script to show a biblio in MARC format =head1 SYNOPSIS +=cut =head1 DESCRIPTION diff --git a/opac/opac-authoritiesdetail.pl b/opac/opac-authoritiesdetail.pl index be4beca2bc..71f746ec7d 100755 --- a/opac/opac-authoritiesdetail.pl +++ b/opac/opac-authoritiesdetail.pl @@ -23,6 +23,7 @@ opac-authoritiesdetail.pl : script to show an authority in MARC format =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -33,8 +34,6 @@ parameters tables. =head1 FUNCTIONS -=over 2 - =cut use strict; diff --git a/opac/opac-tags.pl b/opac/opac-tags.pl index a362c749b1..b98ce40105 100755 --- a/opac/opac-tags.pl +++ b/opac/opac-tags.pl @@ -18,7 +18,11 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. -=head1 +=head1 NAME + +opac-tags.pl + +=head1 DESCRIPTION TODO :: Description here diff --git a/opac/opac-topissues.pl b/opac/opac-topissues.pl index 1d88850251..70b712ede9 100755 --- a/opac/opac-topissues.pl +++ b/opac/opac-topissues.pl @@ -36,8 +36,6 @@ plugin that shows a stats on borrowers =head1 DESCRIPTION -=over 2 - =cut my $input = new CGI; diff --git a/reports/dictionary.pl b/reports/dictionary.pl index 163e978522..393c91796a 100755 --- a/reports/dictionary.pl +++ b/reports/dictionary.pl @@ -31,9 +31,6 @@ Script to control the guided report creation =head1 DESCRIPTION - -=over2 - =cut my $input = new CGI; diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl index dbda18089c..dfec379cdc 100755 --- a/reports/guided_reports.pl +++ b/reports/guided_reports.pl @@ -36,8 +36,6 @@ guided_reports.pl Script to control the guided report creation -=over2 - =cut my $input = new CGI; diff --git a/tools/csv-profiles.pl b/tools/csv-profiles.pl index 6f467ee5cd..32f2b985b4 100755 --- a/tools/csv-profiles.pl +++ b/tools/csv-profiles.pl @@ -23,6 +23,7 @@ csv-profile.pl : Defines a CSV export profile =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -30,8 +31,6 @@ This script allow the user to define a new profile for CSV export =head1 FUNCTIONS -=over 2 - =cut use strict; diff --git a/tools/picture-upload.pl b/tools/picture-upload.pl index 4642365834..f4c75d8ea2 100755 --- a/tools/picture-upload.pl +++ b/tools/picture-upload.pl @@ -58,7 +58,7 @@ $debug and warn "Params are: filetype=$filetype, cardnumber=$cardnumber, borrowe =head1 NAME -picture-upload.p. - Script for handling uploading of both single and bulk patronimages and importing them into the database. +picture-upload.pl - Script for handling uploading of both single and bulk patronimages and importing them into the database. =head1 SYNOPSIS @@ -296,8 +296,6 @@ sub handle_file { return (%count); } -=back - =head1 AUTHORS Original contributor(s) undocumented -- 2.39.2