@@ -, +, @@ --- authorities/detail-biblio-search.pl | 18 +++++++++------- .../value_builder/marc21_leader_computerfile.pl | 6 ++++-- cataloguing/value_builder/normarc_field_008.pl | 6 ++++-- cataloguing/value_builder/unimarc_field_123i.pl | 7 ++++-- cataloguing/value_builder/unimarc_field_123j.pl | 6 ++++-- cataloguing/value_builder/unimarc_field_124.pl | 7 ++++-- cataloguing/value_builder/unimarc_field_124a.pl | 25 +++++++++++++--------- cataloguing/value_builder/unimarc_field_124g.pl | 7 ++++-- cataloguing/value_builder/unimarc_field_126.pl | 7 ++++-- cataloguing/value_builder/unimarc_field_127.pl | 7 ++++-- cataloguing/value_builder/unimarc_field_128a.pl | 7 ++++-- cataloguing/value_builder/unimarc_field_128c.pl | 6 ++++-- cataloguing/value_builder/unimarc_field_135a.pl | 7 ++++-- cataloguing/value_builder/unimarc_field_140.pl | 7 ++++-- cataloguing/value_builder/unimarc_field_210c.pl | 16 ++++++++------ cataloguing/value_builder/unimarc_leader.pl | 6 ++++-- members/mancredit.pl | 2 +- members/statistics.pl | 9 ++++++++ reports/acquisitions_stats.pl | 7 ++---- reports/borrowers_out.pl | 4 ++-- reports/issues_stats.pl | 5 ++--- serials/acqui-search-result.pl | 1 + virtualshelves/addbybiblionumber.pl | 2 +- 23 files changed, 113 insertions(+), 62 deletions(-) --- a/authorities/detail-biblio-search.pl +++ a/authorities/detail-biblio-search.pl @@ -62,14 +62,16 @@ my $tagslib = &GetTagsLabels(1,$authtypecode); my $record =GetAuthority($authid); # open template -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "authorities/detail-biblio-search.tt", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {catalogue => 1}, - debug => 1, - }); +my ($template, $loggedinuser, $cookie) = get_template_and_user( + { + template_name => "authorities/detail-biblio-search.tt", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => { catalogue => 1 }, + debug => 1, + } +); # fill arrays my @loop_data =(); --- a/cataloguing/value_builder/marc21_leader_computerfile.pl +++ a/cataloguing/value_builder/marc21_leader_computerfile.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 --- a/cataloguing/value_builder/normarc_field_008.pl +++ a/cataloguing/value_builder/normarc_field_008.pl @@ -25,9 +25,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 --- a/cataloguing/value_builder/unimarc_field_123i.pl +++ a/cataloguing/value_builder/unimarc_field_123i.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 ""; --- a/cataloguing/value_builder/unimarc_field_123j.pl +++ a/cataloguing/value_builder/unimarc_field_123j.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 --- a/cataloguing/value_builder/unimarc_field_124.pl +++ a/cataloguing/value_builder/unimarc_field_124.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 ""; --- a/cataloguing/value_builder/unimarc_field_124a.pl +++ a/cataloguing/value_builder/unimarc_field_124a.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 ""; @@ -68,14 +71,16 @@ my ($input) = @_; my $dbh = C4::Context->dbh; -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_124a.tt", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editcatalogue => '*'}, - debug => 1, - }); + my ($template, $loggedinuser, $cookie) = get_template_and_user( + { + template_name => "cataloguing/value_builder/unimarc_field_124a.tt", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => '*' }, + debug => 1, + } + ); my $f1 = substr($result,0,1); $template->param(index => $index, "f1$f1" => 1); --- a/cataloguing/value_builder/unimarc_field_124g.pl +++ a/cataloguing/value_builder/unimarc_field_124g.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 ""; --- a/cataloguing/value_builder/unimarc_field_126.pl +++ a/cataloguing/value_builder/unimarc_field_126.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 ""; --- a/cataloguing/value_builder/unimarc_field_127.pl +++ a/cataloguing/value_builder/unimarc_field_127.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 ""; --- a/cataloguing/value_builder/unimarc_field_128a.pl +++ a/cataloguing/value_builder/unimarc_field_128a.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 ""; --- a/cataloguing/value_builder/unimarc_field_128c.pl +++ a/cataloguing/value_builder/unimarc_field_128c.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 --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ a/cataloguing/value_builder/unimarc_field_135a.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 ""; --- a/cataloguing/value_builder/unimarc_field_140.pl +++ a/cataloguing/value_builder/unimarc_field_140.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 ""; --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ a/cataloguing/value_builder/unimarc_field_210c.pl @@ -32,19 +32,22 @@ use C4::Koha; ###TODO To rewrite in order to use SearchAuthorities -=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 ""; } -=head1 +=head2 plugin_javascript -plugin_javascript : the javascript function called when the user enters the subfield. +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 @@ -56,6 +59,7 @@ returns : the 3 scripts are inserted after the in the html code =cut + sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; my $function_name= $field_number; @@ -86,9 +90,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 --- a/cataloguing/value_builder/unimarc_leader.pl +++ a/cataloguing/value_builder/unimarc_leader.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 --- a/members/mancredit.pl +++ a/members/mancredit.pl @@ -60,7 +60,7 @@ if ($add){ print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber"); } } else { - my ($template, $loggedinuser, $cookie) = get_template_and_user( + my ($template, $loggedinuser, $cookie) = get_template_and_user( { template_name => "members/mancredit.tt", query => $input, --- a/members/statistics.pl +++ a/members/statistics.pl @@ -17,7 +17,9 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. =head1 members/statistics.pl + Generate statistic issues for a member + =cut use Modern::Perl; @@ -112,9 +114,12 @@ output_html_with_http_headers $input, $cookie, $template->output; =head1 FUNCTIONS =head2 add_actual_state + Add a 'count_actual_state' key in all hashes count_actual_state = count_precedent_state - count_total_issues_returned_today + count_total_issues_today + =cut + sub add_actual_state { my ( $array ) = @_; for my $hash ( @$array ) { @@ -123,6 +128,7 @@ sub add_actual_state { } =head2 build_array + Build a new array containing values of hashes. It used by template whitch display silly values. ex: @@ -151,6 +157,7 @@ sub add_actual_state { ]; =cut + sub build_array { my ( $array ) = @_; my ( @r, $total ); @@ -173,6 +180,7 @@ sub build_array { } =head2 merge + Merge hashes with the same statistic column names into one param: array, a arrayref of arrayrefs ex: @@ -202,6 +210,7 @@ sub build_array { ]; =cut + sub merge { my @array = @_; my @r; --- a/reports/acquisitions_stats.pl +++ a/reports/acquisitions_stats.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -18,8 +17,6 @@ # with Koha; if not, write to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. -# test comment - use Modern::Perl; use C4::Auth; @@ -35,11 +32,11 @@ use C4::Biblio; =head1 NAME -plugin that shows a stats on borrowers +reports/acquisitions_stats.pl =head1 DESCRIPTION -=over 2 +Plugin that shows a stats on borrowers =cut --- a/reports/borrowers_out.pl +++ a/reports/borrowers_out.pl @@ -32,11 +32,11 @@ use C4::Dates qw/format_date_in_iso/; =head1 NAME -plugin that shows a stats on borrowers +reports/borrowers_out.pl =head1 DESCRIPTION -=over 2 +Plugin that shows a stats on borrowers =cut --- a/reports/issues_stats.pl +++ a/reports/issues_stats.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl - # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -37,11 +36,11 @@ use C4::Members; =head1 NAME -plugin that shows circulation stats +reports/issues_stats.pl =head1 DESCRIPTION -=over 2 +Plugin that shows circulation stats =cut --- a/serials/acqui-search-result.pl +++ a/serials/acqui-search-result.pl @@ -26,6 +26,7 @@ acqui-search-result.pl =head1 DESCRIPTION + TODO =head1 PARAMETERS --- a/virtualshelves/addbybiblionumber.pl +++ a/virtualshelves/addbybiblionumber.pl @@ -23,7 +23,7 @@ =head1 NAME - addbybiblionumber.pl +addbybiblionumber.pl =head1 DESCRIPTION --