Bug 39325: Automatic fix
Signed-off-by: Owen Leonard <oleonard@myacpl.org> Signed-off-by: Nick Clemens <nick@bywatersolutions.com> Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
parent
ea832ff246
commit
1d844a7d2f
|
|
@ -146,7 +146,7 @@ B<$days> -- Zero balance fees older than B<$days> days old will be deleted.
|
|||
|
||||
B<Warning:> Because fines and payments are not linked in accountlines, it is
|
||||
possible for a fine to be deleted without the accompanying payment,
|
||||
or vise versa. This won't affect the account balance, but might be
|
||||
or vice versa. This won't affect the account balance, but might be
|
||||
confusing to staff.
|
||||
|
||||
=cut
|
||||
|
|
|
|||
|
|
@ -142,9 +142,9 @@ sub GetOrderFromItemnumber {
|
|||
|
||||
$aqbasket = &GetBasket($basketnumber);
|
||||
|
||||
get all basket informations in aqbasket for a given basket
|
||||
get all basket information in aqbasket for a given basket
|
||||
|
||||
B<returns:> informations for a given basket returned as a hashref.
|
||||
B<returns:> information for a given basket returned as a hashref.
|
||||
|
||||
=cut
|
||||
|
||||
|
|
@ -2022,7 +2022,7 @@ sub get_rounded_price {
|
|||
|
||||
\@order_loop = GetHistory( %params );
|
||||
|
||||
Retreives some acquisition history information
|
||||
Retrieves some acquisition history information
|
||||
|
||||
params:
|
||||
title
|
||||
|
|
@ -2547,7 +2547,7 @@ sub GetInvoices {
|
|||
|
||||
my $invoice = GetInvoice($invoiceid);
|
||||
|
||||
Get informations about invoice with given $invoiceid
|
||||
Get information about invoice with given $invoiceid
|
||||
|
||||
Return a hash filled with aqinvoices.* fields
|
||||
|
||||
|
|
@ -2576,9 +2576,9 @@ sub GetInvoice {
|
|||
|
||||
my $invoice = GetInvoiceDetails($invoiceid)
|
||||
|
||||
Return informations about an invoice + the list of related order lines
|
||||
Return information about an invoice + the list of related order lines
|
||||
|
||||
Orders informations are in $invoice->{orders} (array ref)
|
||||
Orders information are in $invoice->{orders} (array ref)
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
18
C4/Auth.pm
18
C4/Auth.pm
|
|
@ -113,7 +113,7 @@ C4::Auth - Authenticates Koha users
|
|||
=head1 DESCRIPTION
|
||||
|
||||
The main function of this module is to provide
|
||||
authentification. However the get_template_and_user function has
|
||||
authentication. However the get_template_and_user function has
|
||||
been provided so that a users login information is passed along
|
||||
automatically. This gets loaded into the template.
|
||||
|
||||
|
|
@ -173,7 +173,7 @@ BEGIN {
|
|||
);
|
||||
|
||||
This call passes the C<query>, C<flagsrequired> and C<authnotrequired>
|
||||
to C<&checkauth> (in this module) to perform authentification.
|
||||
to C<&checkauth> (in this module) to perform authentication.
|
||||
See C<&checkauth> for an explanation of these parameters.
|
||||
|
||||
The C<template_name> is then used to find the correct template for
|
||||
|
|
@ -766,7 +766,7 @@ user has authenticated, C<&checkauth> restarts the original script
|
|||
The login page is provided using a HTML::Template, which is set in the
|
||||
systempreferences table or at the top of this file. The variable C<$type>
|
||||
selects which template to use, either the opac or the intranet
|
||||
authentification template.
|
||||
authentication template.
|
||||
|
||||
C<&checkauth> returns a user ID, a cookie, and a session ID. The
|
||||
cookie should be sent back to the browser; it verifies that the user
|
||||
|
|
@ -1032,7 +1032,7 @@ sub checkauth {
|
|||
if ($logout) {
|
||||
|
||||
# voluntary logout the user
|
||||
# check wether the user was using their shibboleth session or a local one
|
||||
# check FIXME CODESPELL (wether ==> weather, whether) the user was using their shibboleth session or a local one
|
||||
my $shibSuccess = C4::Context->userenv ? C4::Context->userenv->{'shibboleth'} : undef;
|
||||
if ($session) {
|
||||
$session->delete();
|
||||
|
|
@ -1413,7 +1413,7 @@ sub checkauth {
|
|||
}
|
||||
}
|
||||
|
||||
# finished authentification, now respond
|
||||
# finished authentication, now respond
|
||||
if ( $auth_state eq 'completed' || $authnotrequired ) {
|
||||
|
||||
# successful login
|
||||
|
|
@ -1691,7 +1691,7 @@ sub check_api_auth {
|
|||
if ( C4::Context->preference('Version') < $kohaversion ) {
|
||||
|
||||
# database in need of version update; assume that
|
||||
# no API should be called while databsae is in
|
||||
# no API should be called while database is in
|
||||
# this condition.
|
||||
return ( "maintenance", undef, undef );
|
||||
}
|
||||
|
|
@ -1737,7 +1737,7 @@ sub check_api_auth {
|
|||
# User / password auth
|
||||
unless ( $userid and $password ) {
|
||||
|
||||
# caller did something wrong, fail the authenticateion
|
||||
# caller did something wrong, fail the authentication
|
||||
return ( "failed", undef, undef );
|
||||
}
|
||||
my $newuserid;
|
||||
|
|
@ -1858,7 +1858,7 @@ sub check_api_auth {
|
|||
Given a CGISESSID cookie set during a previous login to Koha, determine
|
||||
if the user has the privileges specified by C<$userflags>. C<$userflags>
|
||||
is passed unaltered into C<haspermission> and as such accepts all options
|
||||
avaiable to that routine with the one caveat that C<check_api_auth> will
|
||||
available to that routine with the one caveat that C<check_api_auth> will
|
||||
also allow 'undef' to be passed and in such a case the permissions check
|
||||
will be skipped altogether.
|
||||
|
||||
|
|
@ -1906,7 +1906,7 @@ sub check_cookie_auth {
|
|||
if ( C4::Context->preference('Version') < $kohaversion ) {
|
||||
|
||||
# database in need of version update; assume that
|
||||
# no API should be called while databsae is in
|
||||
# no API should be called while database is in
|
||||
# this condition.
|
||||
return ( "maintenance", undef );
|
||||
}
|
||||
|
|
|
|||
|
|
@ -290,7 +290,7 @@ sub _url_with_get_params {
|
|||
sub logout_if_required {
|
||||
my ($query) = @_;
|
||||
|
||||
# Check we havent been hit by a logout call
|
||||
# Check we haven't been hit by a logout call
|
||||
my $xml = $query->param('logoutRequest');
|
||||
return 0 unless $xml;
|
||||
|
||||
|
|
|
|||
|
|
@ -123,7 +123,7 @@ sub checkpw_ldap {
|
|||
my @hosts = split( ',', $prefhost );
|
||||
my $db = Net::LDAP->new( \@hosts );
|
||||
unless ($db) {
|
||||
warn "LDAP connexion failed";
|
||||
warn "LDAP connection failed";
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
|
@ -456,7 +456,7 @@ C4::Auth - Authenticates Koha users
|
|||
|
||||
=head1 LDAP Configuration
|
||||
|
||||
This module is specific to LDAP authentification. It requires Net::LDAP package and one or more
|
||||
This module is specific to LDAP authentication. It requires Net::LDAP package and one or more
|
||||
working LDAP servers.
|
||||
To use it :
|
||||
* Modify ldapserver element in KOHA_CONF
|
||||
|
|
|
|||
16
C4/Biblio.pm
16
C4/Biblio.pm
|
|
@ -371,7 +371,7 @@ task to rebuild the holds queue for the biblio if I<RealTimeHoldsQueue> is enabl
|
|||
|
||||
=item C<skip_record_index>
|
||||
|
||||
Used when the indexing schedulling will be handled by the caller
|
||||
Used when the indexing scheduling will be handled by the caller
|
||||
|
||||
=item C<record_source_id>
|
||||
|
||||
|
|
@ -528,7 +528,7 @@ I<$params> is a hashref containing extra parameters. Valid keys are:
|
|||
|
||||
=item B<skip_holds_queue>: used when the holds queue update will be handled by the caller
|
||||
|
||||
=item B<skip_record_index>: used when the indexing schedulling will be handled by the caller
|
||||
=item B<skip_record_index>: used when the indexing scheduling will be handled by the caller
|
||||
|
||||
=back
|
||||
=cut
|
||||
|
|
@ -939,11 +939,11 @@ sub GetISBDView {
|
|||
my $tagslib = GetMarcStructure( 1, $itemtype, { unsafe => 1 } );
|
||||
|
||||
my $ISBD = C4::Context->preference($sysprefname);
|
||||
my $bloc = $ISBD;
|
||||
my $block = $ISBD;
|
||||
my $res;
|
||||
my $blocres;
|
||||
|
||||
foreach my $isbdfield ( split( /#/, $bloc ) ) {
|
||||
foreach my $isbdfield ( split( /#/, $block ) ) {
|
||||
|
||||
# $isbdfield= /(.?.?.?)/;
|
||||
$isbdfield =~ /(\d\d\d)([^\|])?\|(.*)\|(.*)\|(.*)/;
|
||||
|
|
@ -982,7 +982,7 @@ sub GetISBDView {
|
|||
$calculated =~ s#/cgi-bin/koha/[^/]+/([^.]*.pl\?.*)$#opac-$1#g;
|
||||
}
|
||||
|
||||
# field builded, store the result
|
||||
# field built, store the result
|
||||
if ( $calculated && !$hasputtextbefore ) { # put textbefore if not done
|
||||
$blocres .= $textbefore;
|
||||
$hasputtextbefore = 1;
|
||||
|
|
@ -1027,7 +1027,7 @@ sub GetISBDView {
|
|||
}
|
||||
}
|
||||
|
||||
# field builded, store the result
|
||||
# field built, store the result
|
||||
if ( $calculated && !$hasputtextbefore ) { # put textbefore if not done
|
||||
$blocres .= $textbefore;
|
||||
$hasputtextbefore = 1;
|
||||
|
|
@ -1199,7 +1199,7 @@ The following options are supported:
|
|||
|
||||
Pass { unsafe => 1 } do disable cached object cloning,
|
||||
and instead get a shared reference, resulting in better
|
||||
performance (but care must be taken so that retured object
|
||||
performance (but care must be taken so that returned object
|
||||
is never modified).
|
||||
|
||||
Note: If you call GetMarcSubfieldStructure with unsafe => 1, do not modify or
|
||||
|
|
@ -2303,7 +2303,7 @@ sub TransformHtmlToMarc {
|
|||
$newfield = 0;
|
||||
my $j = $i + 2;
|
||||
|
||||
if ( $tag < 10 ) { # no code for theses fields
|
||||
if ( $tag < 10 ) { # no code for FIXME CODESPELL (theses ==> these, thesis) fields
|
||||
# in MARC editor, 000 contains the leader.
|
||||
next if $tag == $biblionumbertagfield;
|
||||
my $fval = $cgi->param( $params[ $j + 1 ] );
|
||||
|
|
|
|||
|
|
@ -819,7 +819,7 @@ sub _recursiveAdd {
|
|||
}
|
||||
}
|
||||
|
||||
# Recursive method to add a budget and its chidren to an array
|
||||
# Recursive method to add a budget and its children to an array
|
||||
sub _add_budget_children {
|
||||
my $res = shift;
|
||||
my $budget = shift;
|
||||
|
|
@ -1054,7 +1054,7 @@ sub GetBudgetsByActivity {
|
|||
|
||||
Get all but cancelled orders for all funds.
|
||||
|
||||
If the optionnal activity parameter is passed, returns orders for active/inactive budgets only.
|
||||
If the optional activity parameter is passed, returns orders for active/inactive budgets only.
|
||||
|
||||
active = 1
|
||||
inactive = 0
|
||||
|
|
|
|||
|
|
@ -368,7 +368,7 @@ removed.
|
|||
This function exists to work around a problem
|
||||
that can occur with badly-encoded MARC records.
|
||||
Specifically, if a UTF-8 MARC record also
|
||||
has excape (\x1b) characters, MARC::File::XML
|
||||
has escape (\x1b) characters, MARC::File::XML
|
||||
will let the escape characters pass through
|
||||
when as_xml() or as_xml_record() is called. The
|
||||
problem is that the escape character is not
|
||||
|
|
@ -707,7 +707,7 @@ sub _marc_to_utf8_via_text_iconv {
|
|||
my $decoder;
|
||||
eval { $decoder = Text::Iconv->new( $source_encoding, 'utf8' ); };
|
||||
if ($@) {
|
||||
push @errors, "Could not initialze $source_encoding => utf8 converter: $@";
|
||||
push @errors, "Could not initialize $source_encoding => utf8 converter: $@";
|
||||
return @errors;
|
||||
}
|
||||
|
||||
|
|
@ -1043,7 +1043,7 @@ $chars{0xc777} = 0x1e87; # small w with dot above
|
|||
$chars{0xc778} = 0x1e8b; # small x with dot above
|
||||
$chars{0xc779} = 0x1e8f; # small y with dot above
|
||||
$chars{0xc77a} = 0x017c; # small z with dot above
|
||||
# 4/8 trema, diaresis
|
||||
# 4/8 trema, diaeresis
|
||||
$chars{0xc820} = 0x00a8; # diaeresis
|
||||
$chars{0xc841} = 0x00c4; # capital a with diaeresis
|
||||
$chars{0xc845} = 0x00cb; # capital e with diaeresis
|
||||
|
|
|
|||
|
|
@ -751,7 +751,7 @@ item withdrawn.
|
|||
item is restricted (set by ??)
|
||||
|
||||
C<$needsconfirmation> a reference to a hash. It contains reasons why the loan
|
||||
could be prevented, but ones that can be overriden by the operator.
|
||||
could be prevented, but ones that can be overridden by the operator.
|
||||
|
||||
Possible values are :
|
||||
|
||||
|
|
@ -1574,8 +1574,8 @@ AddIssue does the following things :
|
|||
- fill recall if recall to this patron
|
||||
- cancel recall or not
|
||||
- revert recall's waiting status or not
|
||||
* TRANSFERT PENDING ?
|
||||
- complete the transfert
|
||||
* FIXME CODESPELL (TRANSFERT ==> TRANSFER, TRANSFERRED) PENDING ?
|
||||
- complete the FIXME CODESPELL (transfert ==> transfer, transferred)
|
||||
* ISSUE THE BOOK
|
||||
|
||||
=back
|
||||
|
|
@ -1704,7 +1704,7 @@ sub AddIssue {
|
|||
|
||||
C4::Reserves::MoveReserve( $item_object->itemnumber, $patron->borrowernumber, $cancelreserve );
|
||||
|
||||
# Starting process for transfer job (checking transfert and validate it if we have one)
|
||||
# Starting process for transfer job (checking FIXME CODESPELL (transfert ==> transfer, transferred) and validate it if we have one)
|
||||
if ( my $transfer = $item_object->get_transfer ) {
|
||||
|
||||
# updating line of branchtranfert to finish it, and changing the to branch value, implement a comment for visibility of this case (maybe for stats ....)
|
||||
|
|
@ -2010,7 +2010,7 @@ category only
|
|||
default branch and category
|
||||
|
||||
If no rule has been found in the database, it will default to
|
||||
the buillt in rule:
|
||||
the built in rule:
|
||||
|
||||
patron_maxissueqty - undef
|
||||
patron_maxonsiteissueqty - undef
|
||||
|
|
@ -2699,7 +2699,7 @@ Ideally, this function would be internal to C<C4::Circulation>,
|
|||
not exported, but it is currently used in misc/cronjobs/longoverdue.pl
|
||||
and offline_circ/process_koc.pl.
|
||||
|
||||
The last optional parameter allos passing skip_record_index to the item store call.
|
||||
The last optional parameter allows passing skip_record_index to the item store call.
|
||||
|
||||
=cut
|
||||
|
||||
|
|
@ -4140,7 +4140,7 @@ sub CalcDateDue {
|
|||
|
||||
# if the calculated due date is after the 'before' Hard Due Date (ceiling), override
|
||||
# if the calculated date is before the 'after' Hard Due Date (floor), override
|
||||
# if the hard due date is set to 'exactly', overrride
|
||||
# if the hard due date is set to 'exactly', override
|
||||
if ( $hardduedatecompare == 0 || $hardduedatecompare == $cmp ) {
|
||||
$datedue = $hardduedate->clone;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -56,7 +56,7 @@ sub split_callnumber {
|
|||
}
|
||||
|
||||
if ( $lines[0] =~ /^([-a-zA-Z]+)\s?($possible_decimal)$/ ) {
|
||||
shift @lines; # pull off the mathching first element, like example 1
|
||||
shift @lines; # pull off the matching first element, like example 1
|
||||
unshift @lines, $1, $2; # replace it with the two pieces
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -107,7 +107,7 @@ sub import {
|
|||
|
||||
# Create the default context ($C4::Context::Context)
|
||||
# the first time the module is called
|
||||
# (a config file can be optionaly passed)
|
||||
# (a config file can be optionally passed)
|
||||
|
||||
# default context already exists?
|
||||
return if $context;
|
||||
|
|
|
|||
|
|
@ -46,7 +46,7 @@ use C4::Contract;
|
|||
=head1 DESCRIPTION
|
||||
|
||||
The functions in this module deal with contracts. They allow to
|
||||
add a new contract, to modify it or to get some informations around
|
||||
add a new contract, to modify it or to get some information around
|
||||
a contract.
|
||||
|
||||
=cut
|
||||
|
|
|
|||
|
|
@ -286,7 +286,7 @@ This module provides methods for creating, and otherwise manipulating batch obje
|
|||
=head2 delete()
|
||||
|
||||
Invoking the delete method attempts to delete the template from the database. The method returns -1 upon failure. Errors are logged to the Apache log.
|
||||
NOTE: This method may also be called as a function and passed a key/value pair simply deleteing that batch from the database. See the example below.
|
||||
NOTE: This method may also be called as a function and passed a key/value pair simply deleting that batch from the database. See the example below.
|
||||
|
||||
examples:
|
||||
my $exitstat = $batch->delete(); # to delete the record behind the $batch object
|
||||
|
|
|
|||
|
|
@ -378,7 +378,7 @@ R = Right
|
|||
=head2 delete()
|
||||
|
||||
Invoking the delete method attempts to delete the layout from the database. The method returns 0 upon success and -1 upon failure. Errors are logged to the Apache log.
|
||||
NOTE: This method may also be called as a function and passed a key/value pair simply deleteing that template from the database. See the example below.
|
||||
NOTE: This method may also be called as a function and passed a key/value pair simply deleting that template from the database. See the example below.
|
||||
|
||||
examples:
|
||||
C<my $exitstat = $layout->delete(); # to delete the record behind the $layout object>
|
||||
|
|
|
|||
|
|
@ -271,7 +271,7 @@ ADD_LAYOUTS:
|
|||
my $profiles = get_all_profiles({ fields => [@fields], filters => { filters => [$value1, $value2] } });
|
||||
|
||||
This function returns an arrayref whose elements are hashes containing all profiles upon success and 1 upon failure. Errors are logged
|
||||
to the Apache log. Two parameters are accepted. The first limits the field(s) returned. This parameter should be string of comma separted
|
||||
to the Apache log. Two parameters are accepted. The first limits the field(s) returned. This parameter should be string of comma separated
|
||||
fields. ie. "field_1, field_2, ...field_n" The second limits the records returned based on a string containing a valud SQL 'WHERE' filter.
|
||||
|
||||
NOTE: Do not pass in the keyword 'WHERE.'
|
||||
|
|
@ -382,7 +382,7 @@ sub get_label_summary {
|
|||
$record->{'author'} =~ s/[^\.|\w]$//
|
||||
if $record->{'author'}; # strip off ugly trailing chars... but not periods or word chars
|
||||
$record->{'title'} =~ s/\W*$//; # strip off ugly trailing chars
|
||||
# FIXME contructing staff interface URLs should be done *much* higher up the stack - for the most part, C4 module code
|
||||
# FIXME constructing staff interface URLs should be done *much* higher up the stack - for the most part, C4 module code
|
||||
# should not know that it's part of a web app
|
||||
$label_summary->{'_summary'} =
|
||||
{ title => $record->{title}, author => $record->{author}, biblionumber => $record->{biblionumber} };
|
||||
|
|
@ -527,7 +527,7 @@ sub get_table_names {
|
|||
|
||||
=head2 C4::Creators::Lib::html_table()
|
||||
|
||||
This function returns an arrayref of an array of hashes contianing the supplied data formatted suitably to
|
||||
This function returns an arrayref of an array of hashes containing the supplied data formatted suitably to
|
||||
be passed off as a template parameter and used to build an html table.
|
||||
|
||||
my $table = html_table(header_fields, array_of_row_data);
|
||||
|
|
|
|||
|
|
@ -265,7 +265,7 @@ CM = SI Centimeters (28.3464567 points per)
|
|||
=head2 delete()
|
||||
|
||||
Invoking the delete method attempts to delete the profile from the database. The method returns -1 upon failure. Errors are logged to the Apache log.
|
||||
NOTE: This method may also be called as a function and passed a key/value pair simply deleteing that profile from the database. See the example below.
|
||||
NOTE: This method may also be called as a function and passed a key/value pair simply deleting that profile from the database. See the example below.
|
||||
|
||||
examples:
|
||||
C<my $exitstat = $profile->delete(); # to delete the record behind the $profile object>
|
||||
|
|
|
|||
|
|
@ -309,7 +309,7 @@ This module provides methods for creating, retrieving, and otherwise manipulatin
|
|||
Invoking the I<new> method constructs a new template object containing the default values for a template.
|
||||
The following parameters are optionally accepted as key => value pairs:
|
||||
|
||||
C<profile_id> A valid profile id to be assciated with this template. NOTE: The profile must exist in the database and B<not> be assigned to another template.
|
||||
C<profile_id> A valid profile id to be associated with this template. NOTE: The profile must exist in the database and B<not> be assigned to another template.
|
||||
C<template_code> A template code. ie. 'Avery 5160 | 1 x 2-5/8'
|
||||
C<template_desc> A readable description of the template. ie. '3 columns, 10 rows of labels'
|
||||
C<page_width> The width of the page measured in the units supplied by the units parameter in this template.
|
||||
|
|
@ -373,7 +373,7 @@ CM = SI Centimeters (28.3464567 points per)
|
|||
=head2 delete()
|
||||
|
||||
Invoking the delete method attempts to delete the template from the database. The method returns -1 upon failure. Errors are logged to the Apache log.
|
||||
NOTE: This method may also be called as a function and passed a key/value pair simply deleteing that template from the database. See the example below.
|
||||
NOTE: This method may also be called as a function and passed a key/value pair simply deleting that template from the database. See the example below.
|
||||
|
||||
examples:
|
||||
C<my $exitstat = $template->delete(); # to delete the record behind the $template object>
|
||||
|
|
|
|||
|
|
@ -156,7 +156,7 @@ PREF: foreach my $option (@$messaging_options) {
|
|||
|
||||
=item Handle when form input is invalid
|
||||
|
||||
=item Generalize into a system of form handler clases
|
||||
=item Generalize into a system of form handler FIXME CODESPELL (clases ==> classes, clashes, cases)
|
||||
|
||||
=back
|
||||
|
||||
|
|
|
|||
|
|
@ -711,7 +711,7 @@ RETRY:
|
|||
sub MapItemsToHoldRequests {
|
||||
my ( $hold_requests, $available_items, $branches_to_use, $transport_cost_matrix ) = @_;
|
||||
|
||||
# handle trival cases
|
||||
# handle trivial cases
|
||||
return unless scalar(@$hold_requests) > 0;
|
||||
return unless scalar(@$available_items) > 0;
|
||||
|
||||
|
|
|
|||
|
|
@ -253,7 +253,7 @@ sub GetRecords {
|
|||
foreach my $item (@items) {
|
||||
my %item = %{ $item->unblessed };
|
||||
|
||||
# This hides additionnal XML subfields, we don't need these info
|
||||
# This hides additional XML subfields, we don't need these info
|
||||
delete $item{'more_subfields_xml'};
|
||||
|
||||
# Display branch names instead of branch codes
|
||||
|
|
@ -493,7 +493,7 @@ sub GetPatronInfo {
|
|||
|
||||
my ( $item, $biblio, $biblioitem ) = ( {}, {}, {} );
|
||||
|
||||
# Get additional informations
|
||||
# Get additional information
|
||||
if ( $hold->itemnumber ) { # item level holds
|
||||
$item = Koha::Items->find( $hold->itemnumber );
|
||||
$biblio = $item->biblio;
|
||||
|
|
|
|||
|
|
@ -177,7 +177,7 @@ C4::ImportExportFramework - Import/Export Framework to Excel-xml/ODS Module Func
|
|||
Module to Import/Export Framework to Excel-xml/ODS on intranet administration - MARC Frameworks section
|
||||
|
||||
Module to Import/Export Framework to Excel-xml/ODS on intranet administration - MARC Frameworks section
|
||||
exporting the tables marc_tag_structure, marc_subfield_structure to excel-xml/ods or viceversa
|
||||
exporting the tables marc_tag_structure, marc_subfield_structure to excel-xml/ods or vice-versa
|
||||
|
||||
Functions for handling import/export.
|
||||
|
||||
|
|
@ -191,7 +191,7 @@ Functions for handling import/export.
|
|||
Export all information of a bibliographic or authority MARC framework to an Excel "xml" file, comma separated values "csv" or OpenDocument SpreadSheet "ods".
|
||||
|
||||
return :
|
||||
succes
|
||||
success
|
||||
|
||||
=cut
|
||||
|
||||
|
|
@ -746,7 +746,7 @@ sub ImportFramework {
|
|||
}
|
||||
unlink($filename) if ($deleteFilename); # remove temporary file
|
||||
} else {
|
||||
Koha::Logger->get->warn("Error ImportFramework no conex to database or not readeable $filename");
|
||||
Koha::Logger->get->warn("Error ImportFramework no conex to database or not readable $filename");
|
||||
}
|
||||
if ( $deleteFilename && $tempdir && -d $tempdir && -w $tempdir ) {
|
||||
eval {
|
||||
|
|
@ -1009,7 +1009,7 @@ sub _import_table_csv {
|
|||
while ( my $row = $csv->getline($dom) ) {
|
||||
my @fields = @$row;
|
||||
@arrData = @fields;
|
||||
next if scalar @arrData == grep { $_ eq '' } @arrData; # Emtpy lines
|
||||
next if scalar @arrData == grep { $_ eq '' } @arrData; # Empty lines
|
||||
#$arrData[0] = substr($arrData[0], 1) if ($arrData[0] =~ /^"/);
|
||||
#$arrData[$#arrData] =~ s/[\r\n]+$//;
|
||||
#chop $arrData[$#arrData] if ($arrData[$#arrData] =~ /"$/);
|
||||
|
|
|
|||
|
|
@ -65,7 +65,7 @@ InstallAuth - Authenticates Koha users for Install process
|
|||
=head1 DESCRIPTION
|
||||
|
||||
The main function of this module is to provide
|
||||
authentification. However the get_template_and_user function has
|
||||
authentication. However the get_template_and_user function has
|
||||
been provided so that a users login information is passed along
|
||||
automatically. This gets loaded into the template.
|
||||
This package is different from C4::Auth in so far as
|
||||
|
|
@ -87,7 +87,7 @@ As in C4::Auth, Authentication is based on cookies.
|
|||
);
|
||||
|
||||
This call passes the C<query>, C<flagsrequired> and C<authnotrequired>
|
||||
to C<&checkauth> (in this module) to perform authentification.
|
||||
to C<&checkauth> (in this module) to perform authentication.
|
||||
See C<&checkauth> for an explanation of these parameters.
|
||||
|
||||
The C<template_name> is then used to find the correct template for
|
||||
|
|
@ -222,7 +222,7 @@ user has authenticated, C<&checkauth> restarts the original script
|
|||
The login page is provided using a HTML::Template, which is set in the
|
||||
systempreferences table or at the top of this file. The variable C<$type>
|
||||
selects which template to use, either the opac or the intranet
|
||||
authentification template.
|
||||
authentication template.
|
||||
|
||||
C<&checkauth> returns a user ID, a cookie, and a session ID. The
|
||||
cookie should be sent back to the browser; it verifies that the user
|
||||
|
|
@ -341,7 +341,7 @@ sub checkauth {
|
|||
}
|
||||
}
|
||||
|
||||
# finished authentification, now respond
|
||||
# finished authentication, now respond
|
||||
if ($loggedin) {
|
||||
|
||||
# successful login
|
||||
|
|
|
|||
|
|
@ -407,7 +407,7 @@ sub load_sql_in_order {
|
|||
unless ( index( $systempreference, $file[ scalar(@file) - 1 ] ) >= 0 );
|
||||
}
|
||||
|
||||
#Bulding here a hierarchy to display files by level.
|
||||
#Building here a hierarchy to display files by level.
|
||||
push @{ $hashlevel{$level} },
|
||||
{ "fwkname" => $file[ scalar(@file) - 1 ], "error" => $error };
|
||||
}
|
||||
|
|
@ -628,7 +628,7 @@ sub load_sql {
|
|||
my $filename = $installer->get_file_path_from_name('script_name');
|
||||
|
||||
searches through the set of known SQL scripts and finds the fully
|
||||
qualified path name for the script that mathches the input.
|
||||
qualified path name for the script that matches the input.
|
||||
|
||||
returns undef if no match was found.
|
||||
|
||||
|
|
|
|||
|
|
@ -571,7 +571,7 @@ seen. It is ordered by callnumber then title.
|
|||
|
||||
The required minlocation & maxlocation parameters are used to specify a range of item callnumbers
|
||||
the datelastseen can be used to specify that you want to see items not seen since a past date only.
|
||||
offset & size can be used to retrieve only a part of the whole listing (defaut behaviour)
|
||||
offset & size can be used to retrieve only a part of the whole listing (default behaviour)
|
||||
$statushash requires a hashref that has the authorized values fieldname (intems.notforloan, etc...) as keys, and an arrayref of statuscodes we are searching for as values.
|
||||
|
||||
$iTotalRecords is the number of rows that would have been returned without the $offset, $size limit clause
|
||||
|
|
|
|||
|
|
@ -632,7 +632,7 @@ This module provides methods for creating, and otherwise manipulating single lab
|
|||
=head2 new()
|
||||
|
||||
Invoking the I<new> method constructs a new label object containing the supplied values. Depending on the final output format of the label data
|
||||
the minimal required parameters change. (See the implimentation of this object type in labels/label-create-pdf.pl and labels/label-create-csv.pl
|
||||
the minimal required parameters change. (See the implementation of this object type in labels/label-create-pdf.pl and labels/label-create-csv.pl
|
||||
and labels/label-create-xml.pl for examples.) The following parameters are optionally accepted as key => value pairs:
|
||||
|
||||
C<batch_id> Batch id with which this label is associated
|
||||
|
|
@ -765,7 +765,7 @@ R = Right
|
|||
|
||||
=head2 create_label()
|
||||
|
||||
Invoking the I<create_label> method generates the text for that label and returns it as an arrayref of an array contianing the formatted text as well as creating the barcode
|
||||
Invoking the I<create_label> method generates the text for that label and returns it as an arrayref of an array containing the formatted text as well as creating the barcode
|
||||
and writing it directly to the pdf stream. The handling of the barcode is not quite good OO form due to the linear format of PDF::Reuse::Barcode. Be aware that the instantiating
|
||||
code is responsible to properly format the text for insertion into the pdf stream as well as the actual insertion.
|
||||
|
||||
|
|
|
|||
|
|
@ -425,12 +425,12 @@ sub _build_languages_arrayref {
|
|||
my @ordered_keys = sort {
|
||||
my $aa = '';
|
||||
my $bb = '';
|
||||
my $acount = @{ $language_groups->{$a} };
|
||||
my $account = @{ $language_groups->{$a} };
|
||||
my $bcount = @{ $language_groups->{$b} };
|
||||
if ( $language_groups->{$a}->[0]->{enabled} ) {
|
||||
$aa = $language_groups->{$a}->[0]->{rfc4646_subtag};
|
||||
} elsif ( $acount > 1 ) {
|
||||
for ( my $i = 1 ; $i < $acount ; $i++ ) {
|
||||
} elsif ( $account > 1 ) {
|
||||
for ( my $i = 1 ; $i < $account ; $i++ ) {
|
||||
if ( $language_groups->{$a}->[$i]->{enabled} ) {
|
||||
$aa = $language_groups->{$a}->[$i]->{rfc4646_subtag};
|
||||
last;
|
||||
|
|
@ -625,7 +625,7 @@ sub accept_language {
|
|||
my @languages = ();
|
||||
if ($clientPreferences) {
|
||||
|
||||
# There should be no whitespace anways, but a cleanliness/sanity check
|
||||
# There should be no whitespace anyway, but a cleanliness/sanity check
|
||||
$clientPreferences =~ s/\s//g;
|
||||
|
||||
# Prepare the list of client-acceptable languages
|
||||
|
|
|
|||
|
|
@ -80,7 +80,7 @@ C4::Letters - Give functions for Letters management
|
|||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
"Letters" is the tool used in Koha to manage informations sent to the patrons and/or the library. This include some cron jobs like
|
||||
"Letters" is the tool used in Koha to manage information sent to the patrons and/or the library. This include some cron jobs like
|
||||
late issues, as well as other tasks like sending a mail to users that have subscribed to a "serial issue alert" (= being warned every time a new issue has arrived at the library)
|
||||
|
||||
Letters are managed through "alerts" sent by Koha on some events. All "alert" related functions are in this module too.
|
||||
|
|
@ -88,7 +88,7 @@ C4::Letters - Give functions for Letters management
|
|||
=head2 GetLetters([$module])
|
||||
|
||||
$letters = &GetLetters($module);
|
||||
returns informations about letters.
|
||||
returns information about letters.
|
||||
if needed, $module filters for letters given module
|
||||
|
||||
DEPRECATED - You must use Koha::Notice::Templates instead
|
||||
|
|
@ -236,7 +236,7 @@ sub GetLettersAvailableForALibrary {
|
|||
);
|
||||
|
||||
Delete the letter. The mtt parameter is facultative.
|
||||
If not given, all templates mathing the other parameters will be removed.
|
||||
If not given, all templates matching the other parameters will be removed.
|
||||
|
||||
=cut
|
||||
|
||||
|
|
@ -1597,7 +1597,7 @@ sub _send_message_by_email {
|
|||
}
|
||||
|
||||
# if initial message address was empty, coming here means that a to address was found and
|
||||
# queue should be updated; same if to address was overriden by Koha::Email->create
|
||||
# queue should be updated; same if to address was overridden by Koha::Email->create
|
||||
_update_message_to_address( $message->{'message_id'}, $email->email->header('To') )
|
||||
if !$message->{to_address}
|
||||
|| $message->{to_address} ne $email->email->header('To');
|
||||
|
|
@ -1975,7 +1975,7 @@ sub _get_tt_params {
|
|||
},
|
||||
problem_reports => {
|
||||
module => 'Koha::ProblemReports',
|
||||
singluar => 'problemreport',
|
||||
singular => 'problemreport',
|
||||
plural => 'problemreports',
|
||||
pk => 'reportid'
|
||||
},
|
||||
|
|
@ -2040,7 +2040,7 @@ sub _get_tt_params {
|
|||
my $object;
|
||||
if ( @{ $tables->{$table} } == 1 ) { # Param is a single key
|
||||
$object = $module->search( { $pk => $tables->{$table} } )->last();
|
||||
} else { # Params are mutliple foreign keys
|
||||
} else { # Params are multiple foreign keys
|
||||
croak "Multiple foreign keys (table $table) should be passed using an hashref";
|
||||
}
|
||||
$params->{ $config->{$table}->{singular} } = $object;
|
||||
|
|
|
|||
|
|
@ -181,7 +181,7 @@ sub logaction {
|
|||
&cronlogaction($infos);
|
||||
|
||||
Convenience routine to add a record into action_logs table from a cron job.
|
||||
Logs the path and name of the calling script plus the information privided by param $infos.
|
||||
Logs the path and name of the calling script plus the information provided by param $infos.
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
|
|
@ -487,7 +487,7 @@ parameter identifies the index that will be searched, while $score
|
|||
is the weight that will be added if a match is found.
|
||||
|
||||
$matchcomponents should be a reference to an array of matchpoint
|
||||
compoents, each of which should be a hash containing the following
|
||||
components, each of which should be a hash containing the following
|
||||
keys:
|
||||
tag
|
||||
subfields
|
||||
|
|
@ -524,7 +524,7 @@ sub add_matchpoint {
|
|||
|
||||
|
||||
Adds a simple matchpoint rule -- after composing a key based on the source tag and subfields,
|
||||
normalized per the normalization fuction, search the index. All records retrieved
|
||||
normalized per the normalization function, search the index. All records retrieved
|
||||
will receive the assigned score.
|
||||
|
||||
=cut
|
||||
|
|
@ -865,7 +865,7 @@ sub _get_match_keys {
|
|||
# matchpoint includes both 003 and 001), any repeats
|
||||
# of the first component's tag are identified; repeats
|
||||
# of the subsequent components' tags are appended to
|
||||
# each parallel key dervied from the first component,
|
||||
# each parallel key derived from the first component,
|
||||
# up to the number of repeats of the first component's tag.
|
||||
#
|
||||
# For example, if the record has one 003 and two 001s, only
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@ This module lets you modify a patron's messaging preferences.
|
|||
my $preferences = C4::Members::Messaging::GetMessagingPreferences( { categorycode => 'LIBRARY',
|
||||
message_name => 'Item_Due ' } );
|
||||
|
||||
returns: a hashref of messaging preferences for a borrower or patron category for a particlar message_name
|
||||
returns: a hashref of messaging preferences for a borrower or patron category for a particular message_name
|
||||
|
||||
Requires either a borrowernumber or a categorycode key, but not both.
|
||||
|
||||
|
|
|
|||
|
|
@ -264,7 +264,7 @@ sub marc2dcxml {
|
|||
my ( $marcxml, $record, $output );
|
||||
|
||||
# set the default path for intranet xslts
|
||||
# differents xslts to process (OAIDC, SRWDC and RDFDC)
|
||||
# FIXME CODESPELL (differents ==> different, difference) xslts to process (OAIDC, SRWDC and RDFDC)
|
||||
my $xsl =
|
||||
C4::Context->config('intrahtdocs')
|
||||
. '/prog/en/xslt/'
|
||||
|
|
|
|||
|
|
@ -307,7 +307,7 @@ sub _build_query {
|
|||
my @definitions = split( ',', $definition );
|
||||
my $deftext;
|
||||
foreach my $def (@definitions) {
|
||||
my $defin = get_from_dictionary( '', $def );
|
||||
my $define = get_from_dictionary( '', $def );
|
||||
$deftext .= " " . $defin->[0]->{'saved_sql'};
|
||||
}
|
||||
if ( $query =~ /WHERE/i ) {
|
||||
|
|
@ -347,7 +347,7 @@ sub get_criteria {
|
|||
my ( $area, $cgi ) = @_;
|
||||
my $dbh = C4::Context->dbh();
|
||||
|
||||
# have to do someting here to know if its dropdown, free text, date etc
|
||||
# have to do something here to know if its dropdown, free text, date etc
|
||||
my %criteria = (
|
||||
CIRC => [
|
||||
'statistics.type', 'borrowers.categorycode', 'statistics.branch',
|
||||
|
|
@ -915,7 +915,7 @@ sub get_column_type {
|
|||
|
||||
=head2 get_distinct_values($column)
|
||||
|
||||
Given a column name, return an arrary ref of hashrefs suitable for use as a tmpl_loop
|
||||
Given a column name, return an array ref of hashrefs suitable for use as a tmpl_loop
|
||||
with the distinct values of the column
|
||||
|
||||
=cut
|
||||
|
|
@ -1034,7 +1034,7 @@ sub get_results {
|
|||
|
||||
my %reserved_authorised_values = GetReservedAuthorisedValues();
|
||||
|
||||
Returns a hash containig all reserved words
|
||||
Returns a hash containing all reserved words
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
|
|
@ -59,12 +59,12 @@ C4::Reserves - Koha functions for dealing with reservation.
|
|||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
This modules provides somes functions to deal with reservations.
|
||||
This modules provides FIXME CODESPELL (somes ==> some, sums) functions to deal with reservations.
|
||||
|
||||
Reserves are stored in reserves table.
|
||||
The following columns contains important values :
|
||||
- priority >0 : then the reserve is at 1st stage, and not yet affected to any item.
|
||||
=0 : then the reserve is being dealed
|
||||
=0 : then the reserve is being dealt
|
||||
- found : NULL : means the patron requested the 1st available, and we haven't chosen the item
|
||||
T(ransit) : the reserve is linked to an item but is in transit to the pickup branch
|
||||
W(aiting) : the reserve is linked to an item, is at the pickup branch, and is waiting on the hold shelf
|
||||
|
|
@ -162,7 +162,7 @@ BEGIN {
|
|||
|
||||
Adds reserve and generates HOLDPLACED message and HOLDPLACED_PATRON message.
|
||||
|
||||
The following tables are available witin the HOLDPLACED message:
|
||||
The following tables are available within the HOLDPLACED message:
|
||||
|
||||
branches
|
||||
borrowers
|
||||
|
|
@ -230,7 +230,7 @@ sub AddReserve {
|
|||
|
||||
my $waitingdate;
|
||||
|
||||
# If the reserv had the waiting status, we had the value of the resdate
|
||||
# If the reserve had the waiting status, we had the value of the resdate
|
||||
if ( $found && $found eq 'W' ) {
|
||||
$waitingdate = $resdate;
|
||||
}
|
||||
|
|
@ -891,9 +891,9 @@ sub CheckReserves {
|
|||
if ( $res->{'found'} && $res->{'found'} eq 'W' ) {
|
||||
return ( "Waiting", $res, \@reserves ); # Found it, it is waiting
|
||||
} elsif ( $res->{'found'} && $res->{'found'} eq 'P' ) {
|
||||
return ( "Processing", $res, \@reserves ); # Found determinated hold, e. g. the transferred one
|
||||
return ( "Processing", $res, \@reserves ); # Found determined hold, e. g. the transferred one
|
||||
} elsif ( $res->{'found'} && $res->{'found'} eq 'T' ) {
|
||||
return ( "Transferred", $res, \@reserves ); # Found determinated hold, e. g. the transferred one
|
||||
return ( "Transferred", $res, \@reserves ); # Found determined hold, e. g. the transferred one
|
||||
} else {
|
||||
my $patron;
|
||||
my $local_hold_match;
|
||||
|
|
@ -1308,7 +1308,7 @@ Reduce the values of queued list
|
|||
sub ModReserveMinusPriority {
|
||||
my ( $itemnumber, $reserve_id ) = @_;
|
||||
|
||||
#first step update the value of the first person on reserv
|
||||
#first step update the value of the first person on reserve
|
||||
my $dbh = C4::Context->dbh;
|
||||
my $query = "
|
||||
UPDATE reserves
|
||||
|
|
@ -1627,7 +1627,7 @@ sub _FixPriority {
|
|||
}
|
||||
my @priority;
|
||||
|
||||
# get whats left
|
||||
# get what's left
|
||||
my $query = "
|
||||
SELECT reserve_id, borrowernumber, reservedate
|
||||
FROM reserves
|
||||
|
|
@ -1802,7 +1802,7 @@ The letter code for this notice may be found using the following query:
|
|||
This will probably sipmly be 'HOLD', but because it is defined in the database,
|
||||
it is subject to addition or change.
|
||||
|
||||
The following tables are availalbe witin the notice:
|
||||
The following tables are available within the notice:
|
||||
|
||||
branches
|
||||
borrowers
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@ package C4::RotatingCollections;
|
|||
|
||||
# $Id: RotatingCollections.pm,v 0.1 2007/04/20 kylemhall
|
||||
|
||||
# This package is inteded to keep track of what library
|
||||
# This package is intended to keep track of what library
|
||||
# Items of a certain collection should be at.
|
||||
|
||||
# Copyright 2007 Kyle Hall
|
||||
|
|
|
|||
|
|
@ -131,7 +131,7 @@ sub offline_ok {
|
|||
# Checkout(patron_id, item_id, sc_renew):
|
||||
# patron_id & item_id are the identifiers send by the terminal
|
||||
# sc_renew is the renewal policy configured on the terminal
|
||||
# returns a status opject that can be queried for the various bits
|
||||
# returns a status object that can be queried for the various bits
|
||||
# of information that the protocol (SIP or NCIP) needs to generate
|
||||
# the response.
|
||||
|
||||
|
|
|
|||
|
|
@ -55,13 +55,13 @@ my %transports = (
|
|||
# Read configuration
|
||||
#
|
||||
my $config = C4::SIP::Sip::Configuration->new( $ARGV[0] );
|
||||
my @parms;
|
||||
my @FIXME CODESPELL (parms ==> params, prams);
|
||||
|
||||
#
|
||||
# Ports to bind
|
||||
#
|
||||
foreach my $svc ( keys %{ $config->{listeners} } ) {
|
||||
push @parms, "port=" . $svc;
|
||||
push @FIXME CODESPELL (parms ==> params, prams), "port=" . $svc;
|
||||
}
|
||||
|
||||
#
|
||||
|
|
@ -81,17 +81,17 @@ foreach my $svc ( keys %{ $config->{listeners} } ) {
|
|||
#
|
||||
if ( defined( $config->{'server-params'} ) ) {
|
||||
while ( my ( $key, $val ) = each %{ $config->{'server-params'} } ) {
|
||||
push @parms, $key . '=' . $val;
|
||||
push @FIXME CODESPELL (parms ==> params, prams), $key . '=' . $val;
|
||||
}
|
||||
}
|
||||
|
||||
# Add user and group to prevent warn from Net::Server.
|
||||
push @parms, 'user=' . $>;
|
||||
push @parms, 'group=' . $>;
|
||||
push @FIXME CODESPELL (parms ==> params, prams), 'user=' . $>;
|
||||
push @FIXME CODESPELL (parms ==> params, prams), 'group=' . $>;
|
||||
|
||||
#
|
||||
# This is the main event.
|
||||
__PACKAGE__->run(@parms);
|
||||
__PACKAGE__->run(@FIXME CODESPELL (parms ==> params, prams));
|
||||
|
||||
#
|
||||
# Server
|
||||
|
|
|
|||
|
|
@ -64,7 +64,7 @@ use File::Spec;
|
|||
|
||||
=cut
|
||||
|
||||
# The previous implmentation used username and password.
|
||||
# The previous implementation used username and password.
|
||||
# our $user = C4::Context->config('smsuser');
|
||||
# our $pwd = C4::Context->config('smspass');
|
||||
|
||||
|
|
|
|||
|
|
@ -108,7 +108,7 @@ sub add_at_job {
|
|||
# not check all error conditions - in particular, it does
|
||||
# not check the return value of the "at" run; it basically
|
||||
# complains only if it can't find at.
|
||||
# 3. Similary, Schedule::At::add() does not do something more useful,
|
||||
# 3. Similarly, Schedule::At::add() does not do something more useful,
|
||||
# such as returning the job ID. To be fair, it is possible
|
||||
# that 'at' does not allow this in any portable way.
|
||||
# 4. Although unlikely, it is possible that a job could be added
|
||||
|
|
|
|||
|
|
@ -191,7 +191,7 @@ for my $r ( @{$marcresults} ) {
|
|||
my $marcrecord = MARC::File::USMARC::decode($r);
|
||||
my $biblio = TransformMarcToKoha({ record => $marcrecord });
|
||||
|
||||
#build the iarray of hashs for the template.
|
||||
#build the iarray of hashes for the template.
|
||||
push @results, {
|
||||
title => $biblio->{'title'},
|
||||
subtitle => $biblio->{'subtitle'},
|
||||
|
|
@ -307,7 +307,7 @@ sub getRecords {
|
|||
my @results;
|
||||
my $results_hashref = ();
|
||||
|
||||
# TODO simplify this structure ( { branchcode => $branchname } is enought) and remove this parameter
|
||||
# TODO simplify this structure ( { branchcode => $branchname } is enough) and remove this parameter
|
||||
$branches ||= { map { $_->branchcode => { branchname => $_->branchname } } Koha::Libraries->search->as_list };
|
||||
|
||||
# Initialize variables for the faceted results objects
|
||||
|
|
|
|||
|
|
@ -1719,7 +1719,7 @@ sub NewIssue {
|
|||
|
||||
1 or 0 = HasSubscriptionStrictlyExpired($subscriptionid)
|
||||
|
||||
the subscription has stricly expired when today > the end subscription date
|
||||
the subscription has strictly expired when today > the end subscription date
|
||||
|
||||
return :
|
||||
1 if true, 0 if false, -1 if the expiration date is not set.
|
||||
|
|
@ -1744,7 +1744,7 @@ sub HasSubscriptionStrictlyExpired {
|
|||
# Getting today's date
|
||||
my ( $nowyear, $nowmonth, $nowday ) = Today();
|
||||
|
||||
# if today's date > expiration date, then the subscription has stricly expired
|
||||
# if today's date > expiration date, then the subscription has strictly expired
|
||||
if ( Delta_Days( $nowyear, $nowmonth, $nowday, $endyear, $endmonth, $endday ) < 0 ) {
|
||||
return 1;
|
||||
} else {
|
||||
|
|
@ -2486,7 +2486,7 @@ this function it takes the publisheddate and will return the next issue's date
|
|||
and will skip dates if there exists an irregularity.
|
||||
$publisheddate has to be an ISO date
|
||||
$subscription is a hashref containing at least 'firstacquidate', 'irregularity', and 'countissuesperunit'
|
||||
$frequency is a hashref containing frequency informations
|
||||
$frequency is a hashref containing frequency information
|
||||
$updatecount is a boolean value which, when set to true, update the 'countissuesperunit' in database
|
||||
- eg if periodicity is monthly and $publisheddate is 2007-02-10 but if March and April is to be
|
||||
skipped then the returned date will be 2007-05-10
|
||||
|
|
|
|||
|
|
@ -122,10 +122,10 @@ sub GetSuggestionFromBiblionumber {
|
|||
|
||||
=head2 GetSuggestionInfoFromBiblionumber
|
||||
|
||||
Get a suggestion and borrower's informations from it's biblionumber.
|
||||
Get a suggestion and borrower's information from it's biblionumber.
|
||||
|
||||
return :
|
||||
all informations (suggestion and borrower) of the suggestion which is related to the biblionumber given.
|
||||
all information (suggestion and borrower) of the suggestion which is related to the biblionumber given.
|
||||
|
||||
=cut
|
||||
|
||||
|
|
@ -149,10 +149,10 @@ sub GetSuggestionInfoFromBiblionumber {
|
|||
|
||||
=head2 GetSuggestionInfo
|
||||
|
||||
Get a suggestion and borrower's informations from it's suggestionid
|
||||
Get a suggestion and borrower's information from it's suggestionid
|
||||
|
||||
return :
|
||||
all informations (suggestion and borrower) of the suggestion which is related to the suggestionid given.
|
||||
all information (suggestion and borrower) of the suggestion which is related to the suggestionid given.
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
|
|
@ -15,7 +15,7 @@
|
|||
# You should have received a copy of the GNU General Public License
|
||||
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
||||
|
||||
#simple parser for HTML with Template Toolkit directives. Tokens are put into @tokens and are accesible via next_token and peep_token
|
||||
#simple parser for HTML with Template Toolkit directives. Tokens are put into @tokens and are accessible via next_token and peep_token
|
||||
package C4::TTParser;
|
||||
use base qw(HTML::Parser);
|
||||
use C4::TmplToken;
|
||||
|
|
|
|||
|
|
@ -32,8 +32,8 @@ C4::UsageStats
|
|||
=head1 DESCRIPTION
|
||||
|
||||
This package contains what is needed to report Koha statistics to hea
|
||||
hea.koha-community.org is the server that centralize Koha setups informations
|
||||
Koha libraries are encouraged to provide informations about their collections,
|
||||
hea.koha-community.org is the server that centralize Koha setups information
|
||||
Koha libraries are encouraged to provide information about their collections,
|
||||
their structure,...
|
||||
|
||||
=cut
|
||||
|
|
@ -85,7 +85,7 @@ sub BuildReport {
|
|||
|
||||
ReportToCommunity;
|
||||
|
||||
Send to hea.koha-community.org database informations
|
||||
Send to hea.koha-community.org database information
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
|
|
@ -520,7 +520,7 @@ sub pickup_locations {
|
|||
|
||||
my $bool = $biblio->hidden_in_opac({ [ rules => $rules ] })
|
||||
|
||||
Returns true if the biblio matches the hidding criteria defined in $rules.
|
||||
Returns true if the biblio matches the FIXME CODESPELL (hidding ==> hiding, hidden) criteria defined in $rules.
|
||||
Returns false otherwise. It involves the I<OpacHiddenItems> and
|
||||
I<OpacHiddenItemsHidesRecord> system preferences.
|
||||
|
||||
|
|
@ -1261,7 +1261,7 @@ sub get_coins {
|
|||
[ 'rft.issn', $issn ],
|
||||
);
|
||||
|
||||
# If it's a subscription, these informations have no meaning.
|
||||
# If it's a subscription, these information have no meaning.
|
||||
if ( $genre ne 'journal' ) {
|
||||
push @params, (
|
||||
[ 'rft.aulast', $aulast ],
|
||||
|
|
@ -1332,7 +1332,7 @@ sub is_serial {
|
|||
my $image_url = $biblio->custom_cover_image_url
|
||||
|
||||
Return the specific url of the cover image for this bibliographic record.
|
||||
It is built regaring the value of the system preference CustomCoverImagesURL
|
||||
It is built regarding the value of the system preference CustomCoverImagesURL
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
|
|
@ -189,7 +189,7 @@ sub summary {
|
|||
|
||||
=head3 to_api_mapping
|
||||
|
||||
This method returns the mapping for representing a Koha::Cash::Regiser::Cashup object
|
||||
This method returns the mapping for representing a Koha::Cash::Register::Cashup object
|
||||
on the API.
|
||||
|
||||
=cut
|
||||
|
|
|
|||
|
|
@ -25,7 +25,7 @@ use base qw(Koha::Object);
|
|||
|
||||
=head1 NAME
|
||||
|
||||
Koha::ClassSplitRule Koha Classfication Spliting Rule Object class
|
||||
Koha::ClassSplitRule Koha Classfication Splitting Rule Object class
|
||||
|
||||
=head1 API
|
||||
|
||||
|
|
|
|||
|
|
@ -29,7 +29,7 @@ use base qw(Koha::Objects);
|
|||
|
||||
Koha::Club::Template::EnrollemntFields
|
||||
|
||||
Represents a colleciton of club fields that are only set at the time a patron is enrolled
|
||||
Represents a collection of club fields that are only set at the time a patron is enrolled
|
||||
|
||||
=head1 API
|
||||
|
||||
|
|
|
|||
|
|
@ -1197,7 +1197,7 @@ sub _get_budget {
|
|||
}
|
||||
);
|
||||
|
||||
# db does not ensure budget code is unque
|
||||
# db does not ensure budget code is unique
|
||||
return $schema->resultset('Aqbudget')->single(
|
||||
{
|
||||
budget_code => $budget_code,
|
||||
|
|
@ -1340,7 +1340,7 @@ Koha::EDI
|
|||
|
||||
passed a message object for an invoice, add the contained invoices
|
||||
and update the orderlines referred to in the invoice
|
||||
As an Edifact invoice is in effect a despatch note this receipts the
|
||||
As an Edifact invoice is in effect a dispatch note this receipts the
|
||||
appropriate quantities in the orders
|
||||
|
||||
no meaningful return value
|
||||
|
|
@ -1409,7 +1409,7 @@ Koha::EDI
|
|||
|
||||
classmark = title_level_class(edi_item)
|
||||
|
||||
Trys to return a title level classmark from a quote message line
|
||||
Tries to return a title level classmark from a quote message line
|
||||
Will return a dewey or lcc classmark if one exists according to the
|
||||
value in DefaultClassificationSource syspref
|
||||
|
||||
|
|
|
|||
|
|
@ -280,7 +280,7 @@ Edifact - Edifact message handler
|
|||
|
||||
=head2 get_transmission
|
||||
|
||||
This method is useful in debugg:ing. Call on an Edifact object
|
||||
This method is useful in debug:ing. Call on an Edifact object
|
||||
it returns the object's transmission member
|
||||
|
||||
=head2 message_type
|
||||
|
|
|
|||
|
|
@ -438,7 +438,7 @@ sub coded_substitute_text {
|
|||
}
|
||||
|
||||
# This will take a standard code as returned
|
||||
# by (orderline|substitue)-free_text (FTX seg LIN)
|
||||
# by (orderline|substitute)-free_text (FTX seg LIN)
|
||||
# and expand it using EditEUR code list 8B
|
||||
|
||||
sub translate_8B {
|
||||
|
|
@ -778,7 +778,7 @@ sub pri_price {
|
|||
return;
|
||||
}
|
||||
|
||||
# unit price that will be chaged excl tax
|
||||
# unit price that will be FIXME CODESPELL (chaged ==> changed, charged) excl tax
|
||||
|
||||
sub price_net {
|
||||
my $self = shift;
|
||||
|
|
|
|||
|
|
@ -226,7 +226,7 @@ sub message_reference {
|
|||
my ( $self, $function ) = @_;
|
||||
if ( $function eq 'new' || !$self->{message_reference_no} ) {
|
||||
|
||||
# unique 14 char mesage ref
|
||||
# unique 14 char message ref
|
||||
$self->{message_reference_no} = sprintf 'ME%012d', int rand($NINES_12);
|
||||
}
|
||||
return $self->{message_reference_no};
|
||||
|
|
@ -776,7 +776,7 @@ Make handling of GIR segments more customizable
|
|||
pass the string 'new'.
|
||||
In practice we encode 1 message per transmission so there is only one message
|
||||
referenced. were we to encode multiple messages a new reference would be
|
||||
neaded for each
|
||||
FIXME CODESPELL (neaded ==> needed, kneaded, headed) for each
|
||||
|
||||
=head2 message_header
|
||||
|
||||
|
|
@ -784,7 +784,7 @@ Make handling of GIR segments more customizable
|
|||
|
||||
=head2 interchange_trailer
|
||||
|
||||
returns the UNZ segment which ends the tranmission encoding the
|
||||
returns the UNZ segment which ends the transmission encoding the
|
||||
message count and control reference for the interchange
|
||||
|
||||
=head2 order_msg_header
|
||||
|
|
@ -801,7 +801,7 @@ Make handling of GIR segments more customizable
|
|||
Id
|
||||
Agency
|
||||
|
||||
Returns a NAD segment containg the id and agency for for the Function
|
||||
Returns a NAD segment containing the id and agency for for the Function
|
||||
value. Handles the fact that NAD segments encode the value for 'EAN' differently
|
||||
to elsewhere.
|
||||
|
||||
|
|
@ -854,7 +854,7 @@ Make handling of GIR segments more customizable
|
|||
|
||||
=head2 _interchange_sr_identifier
|
||||
|
||||
Format sender and receipient identifiers for use in the interchange header
|
||||
Format sender and recipient identifiers for use in the interchange header
|
||||
|
||||
=head2 encode_text
|
||||
|
||||
|
|
|
|||
|
|
@ -232,7 +232,7 @@ nothing is passed. Valid values include 'opac' or 'intranet'.
|
|||
=cut
|
||||
|
||||
sub should_hide_marc {
|
||||
my ( $self, $parms ) = @_;
|
||||
my ( $self, $FIXME CODESPELL (parms ==> params, prams) ) = @_;
|
||||
my $frameworkcode = $parms->{frameworkcode} // q{};
|
||||
my $interface = $parms->{interface} // 'opac';
|
||||
my $hide = _should_hide_on_interface();
|
||||
|
|
|
|||
|
|
@ -182,7 +182,7 @@ sub build {
|
|||
=head2 launch
|
||||
|
||||
Launches the popup for this plugin by calling its launcher sub
|
||||
Old style plugins still expect to receive a CGI oject, new style
|
||||
Old style plugins still expect to receive a CGI object, new style
|
||||
plugins expect a params hashref.
|
||||
Returns undef on failure, otherwise launcher return value (if any).
|
||||
|
||||
|
|
|
|||
|
|
@ -54,7 +54,7 @@ sub existing_statuses {
|
|||
# We need the 'status' field for obvious reasons, the 'backend' field is required to not
|
||||
# throw 'Koha::Exceptions::Ill::InvalidBackendId' when we're converting to a Koha object.
|
||||
# Finally, to get around 'ONLY_FULL_GROUP_BY', we have to be explicit about which
|
||||
# 'request_id' we want to return, hense the 'MAX' call.
|
||||
# 'request_id' we want to return, hence the 'MAX' call.
|
||||
my $ill_requests = Koha::ILL::Requests->search(
|
||||
{ backend => $backend_id },
|
||||
{
|
||||
|
|
|
|||
|
|
@ -935,7 +935,7 @@ sub can_article_request {
|
|||
|
||||
my $bool = $item->hidden_in_opac({ [ rules => $rules ] })
|
||||
|
||||
Returns true if item fields match the hidding criteria defined in $rules.
|
||||
Returns true if item fields match the FIXME CODESPELL (hidding ==> hiding, hidden) criteria defined in $rules.
|
||||
Returns false otherwise.
|
||||
|
||||
Takes HASHref that can have the following parameters:
|
||||
|
|
|
|||
|
|
@ -52,7 +52,7 @@ from this table. However, this method does accept an arbitrary
|
|||
string as 'tabletag', and an arbitrary integer as 'recordid'.
|
||||
|
||||
Particular Koha::Misc::Files object can have one or more file records
|
||||
(actuall file contents + various file metadata) associated with it.
|
||||
(FIXME CODESPELL (actuall ==> actually, actual) file contents + various file metadata) associated with it.
|
||||
|
||||
In case of an error (wrong parameter format) it returns undef.
|
||||
|
||||
|
|
@ -150,7 +150,7 @@ my $file = $mf->GetFile( id => $file_id );
|
|||
For an individual, specific file ID this method returns a hashref
|
||||
containing all metadata (file_id, table_tag, record_id, file_name,
|
||||
file_type, file_description, file_content, date_uploaded), plus
|
||||
an actuall contents of a file (in 'file_content'). In typical usage
|
||||
an FIXME CODESPELL (actuall ==> actually, actual) contents of a file (in 'file_content'). In typical usage
|
||||
scenarios, for a given $mf object, specific file IDs have to be
|
||||
obtained first by GetFilesInfo() call.
|
||||
|
||||
|
|
@ -218,7 +218,7 @@ sub DelAllFiles {
|
|||
|
||||
$mf->MergeFileRecIds(@ids_to_be_merged);
|
||||
|
||||
This method re-associates all individuall file records associated with
|
||||
This method re-associates all FIXME CODESPELL (individuall ==> individually, individual) file records associated with
|
||||
some "parent" records IDs (provided in @ids_to_be_merged) with the given
|
||||
single $mf object (which would be treated as a "parent" destination).
|
||||
|
||||
|
|
|
|||
|
|
@ -65,7 +65,7 @@ preferences (OAI-PMH:archiveID and OAI-PMH:MaxCount) and the server returns
|
|||
records in marcxml or dublin core format. Dublin core records are created from
|
||||
koha marcxml records transformed with XSLT. Used XSL file is located in koha-
|
||||
tmpl/intranet-tmpl/prog/en/xslt directory and chosen based on marcflavour,
|
||||
respecively MARC21slim2OAIDC.xsl for MARC21 and MARC21slim2OAIDC.xsl for
|
||||
respectively MARC21slim2OAIDC.xsl for MARC21 and MARC21slim2OAIDC.xsl for
|
||||
UNIMARC.
|
||||
|
||||
In extended mode, it's possible to parameter other format than marcxml or
|
||||
|
|
|
|||
|
|
@ -52,7 +52,7 @@ use Koha::Patron::Password::Recovery;
|
|||
|
||||
=head2 ValidateBorrowernumber
|
||||
|
||||
$alread = ValidateBorrowernumber( $borrower_number );
|
||||
$already = ValidateBorrowernumber( $borrower_number );
|
||||
|
||||
Check if the system already start recovery
|
||||
|
||||
|
|
|
|||
|
|
@ -768,9 +768,9 @@ sub format_dates {
|
|||
my ( $self, $params ) = @_;
|
||||
|
||||
foreach my $date_type (qw(dateofbirth dateenrolled dateexpiry date_renewed)) {
|
||||
my $tempdate = $params->{borrower}->{$date_type} or next();
|
||||
my $template = $params->{borrower}->{$date_type} or next();
|
||||
my $formatted_date =
|
||||
eval { output_pref( { dt => dt_from_string($tempdate), dateonly => 1, dateformat => 'iso' } ); };
|
||||
eval { output_pref( { dt => dt_from_string($template), dateonly => 1, dateformat => 'iso' } ); };
|
||||
|
||||
if ($formatted_date) {
|
||||
$params->{borrower}->{$date_type} = $formatted_date;
|
||||
|
|
|
|||
|
|
@ -156,7 +156,7 @@ Then name of the plugin method used. For example 'tool' or 'report'.
|
|||
=item B<PLUGIN_PATH>
|
||||
|
||||
The URL path to the plugin. It can be used in templates in order to localize
|
||||
ressources like images in html tags, or other templates.
|
||||
resources like images in html tags, or other templates.
|
||||
|
||||
=item B<PLUGIN_DIR>
|
||||
|
||||
|
|
@ -344,7 +344,7 @@ sub _version_compare {
|
|||
push( @v1, 0 ) unless defined( $v1[$i] );
|
||||
push( @v2, 0 ) unless defined( $v2[$i] );
|
||||
|
||||
# Strip letters before comparing, supresses 'Argument "v1" isn't numeric in int' warning
|
||||
# Strip letters before comparing, suppresses 'Argument "v1" isn't numeric in int' warning
|
||||
$v1[$i] =~ s/^v//g;
|
||||
$v2[$i] =~ s/^v//g;
|
||||
|
||||
|
|
@ -359,7 +359,7 @@ sub _version_compare {
|
|||
|
||||
=head2 is_enabled
|
||||
|
||||
Method that returns wether the plugin is enabled or not
|
||||
Method that returns FIXME CODESPELL (wether ==> weather, whether) the plugin is enabled or not
|
||||
|
||||
$plugin->enable
|
||||
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@ Koha::REST::Plugin::Exceptions
|
|||
}
|
||||
|
||||
Provides a generic and reusable way to throw unhandled exceptions. This way we
|
||||
can centralize the behaviour control (e.g. production vs. development environmet)
|
||||
can centralize the behaviour control (e.g. production vs. development environment)
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
|
|
@ -38,14 +38,14 @@ sub get {
|
|||
if ( C4::Context->config("enable_plugins") ) {
|
||||
my $path = $c->req->url->path->leading_slash(1);
|
||||
|
||||
return $c->render( status => 400, openapi => { error => 'Endpoint inteded for plugin static files' } )
|
||||
return $c->render( status => 400, openapi => { error => 'Endpoint intended for plugin static files' } )
|
||||
unless "$path" =~ /^\/api\/v1\/contrib/;
|
||||
|
||||
my $namespace = $path->[3];
|
||||
|
||||
my $checkpath = '/api/v1/contrib/' . $namespace . '/static';
|
||||
|
||||
return $c->render( status => 400, openapi => { error => 'Endpoint inteded for plugin static files' } )
|
||||
return $c->render( status => 400, openapi => { error => 'Endpoint intended for plugin static files' } )
|
||||
unless "$path" =~ /\Q$checkpath/;
|
||||
|
||||
my @plugins = Koha::Plugins->new()->GetPlugins(
|
||||
|
|
|
|||
|
|
@ -37,7 +37,7 @@ B<filter ($record)> - apply the filter and return the result. $record
|
|||
may be either a scalar or an arrayref, and the return result will be
|
||||
the same type.
|
||||
|
||||
These methods may be overriden:
|
||||
These methods may be overridden:
|
||||
|
||||
B<initialize (%params)> - initialize the filter
|
||||
|
||||
|
|
|
|||
|
|
@ -38,7 +38,7 @@ The following variables must be defined in each filter:
|
|||
our $NAME ='Filter';
|
||||
our $VERSION = '1.0';
|
||||
|
||||
These methods may be overriden:
|
||||
These methods may be overridden:
|
||||
|
||||
B<initialize (%params)> - initialize the filter
|
||||
|
||||
|
|
@ -87,7 +87,7 @@ sub new {
|
|||
|
||||
=head2 initialize
|
||||
|
||||
$filter->initalize(%params);
|
||||
$filter->initialize(%params);
|
||||
|
||||
Initialize a filter using the specified parameters.
|
||||
|
||||
|
|
|
|||
|
|
@ -184,7 +184,7 @@ the fax number for your patron/borrower's primary address
|
|||
data_type: 'mediumtext'
|
||||
is_nullable: 1
|
||||
|
||||
the secondary email addres for your patron/borrower's primary address
|
||||
the secondary email address for your patron/borrower's primary addresss
|
||||
|
||||
=head2 phonepro
|
||||
|
||||
|
|
@ -368,7 +368,7 @@ comment on the stop of the patron
|
|||
data_type: 'longtext'
|
||||
is_nullable: 1
|
||||
|
||||
used for children and profesionals to include surname or last name of guarantor or organization name
|
||||
used for children and professionals to include surname or last name of guarantor or organization name
|
||||
|
||||
=head2 contactfirstname
|
||||
|
||||
|
|
@ -621,7 +621,7 @@ lang to use to send notices to this patron
|
|||
default_value: 0
|
||||
is_nullable: 0
|
||||
|
||||
number of failed login attemps
|
||||
number of failed login attempts
|
||||
|
||||
=head2 overdrive_auth_token
|
||||
|
||||
|
|
|
|||
|
|
@ -51,7 +51,7 @@ id for the bibliographic record the hold has been placed against
|
|||
is_foreign_key: 1
|
||||
is_nullable: 1
|
||||
|
||||
If item-level, the id for the item the hold has been placed agains
|
||||
If item-level, the id for the item the hold has been placed FIXME CODESPELL (agains ==> against, again)
|
||||
|
||||
=head2 date_created
|
||||
|
||||
|
|
|
|||
|
|
@ -38,7 +38,7 @@ unique identifier assigned to each bibliographic record
|
|||
is_nullable: 0
|
||||
size: 4
|
||||
|
||||
foriegn key from the biblio_framework table to identify which framework was used in cataloging this record
|
||||
foreign key from the biblio_framework table to identify which framework was used in cataloging this record
|
||||
|
||||
=head2 author
|
||||
|
||||
|
|
|
|||
|
|
@ -184,7 +184,7 @@ the fax number for your patron/borrower's primary address
|
|||
data_type: 'mediumtext'
|
||||
is_nullable: 1
|
||||
|
||||
the secondary email addres for your patron/borrower's primary address
|
||||
the secondary email address for your patron/borrower's primary addresss
|
||||
|
||||
=head2 phonepro
|
||||
|
||||
|
|
@ -366,7 +366,7 @@ comment on the stop of patron
|
|||
data_type: 'longtext'
|
||||
is_nullable: 1
|
||||
|
||||
used for children and profesionals to include surname or last name of guarantor or organization name
|
||||
used for children and professionals to include surname or last name of guarantor or organization name
|
||||
|
||||
=head2 contactfirstname
|
||||
|
||||
|
|
@ -618,7 +618,7 @@ lang to use to send notices to this patron
|
|||
default_value: 0
|
||||
is_nullable: 0
|
||||
|
||||
number of failed login attemps
|
||||
number of failed login attempts
|
||||
|
||||
=head2 overdrive_auth_token
|
||||
|
||||
|
|
|
|||
|
|
@ -383,7 +383,7 @@ inventory number (MARC21 952$i)
|
|||
is_nullable: 1
|
||||
size: 32
|
||||
|
||||
'new' value, you can put whatever free-text information. This field is intented to be managed by the automatic_item_modification_by_age cronjob.
|
||||
'new' value, you can put whatever free-text information. This field is FIXME CODESPELL (intented ==> intended, indented) to be managed by the automatic_item_modification_by_age cronjob.
|
||||
|
||||
=head2 exclude_from_local_holds_priority
|
||||
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@ The preferred day of the week for delivery.
|
|||
data_type: 'mediumtext'
|
||||
is_nullable: 0
|
||||
|
||||
The Authorised_Value definining the pattern for delivery.
|
||||
The Authorised_Value defining the pattern for delivery.
|
||||
|
||||
=head2 fav_itemtypes
|
||||
|
||||
|
|
|
|||
|
|
@ -387,7 +387,7 @@ inventory number (MARC21 952$i)
|
|||
is_nullable: 1
|
||||
size: 32
|
||||
|
||||
'new' value, you can put whatever free-text information. This field is intented to be managed by the automatic_item_modification_by_age cronjob.
|
||||
'new' value, you can put whatever free-text information. This field is FIXME CODESPELL (intented ==> intended, indented) to be managed by the automatic_item_modification_by_age cronjob.
|
||||
|
||||
=head2 exclude_from_local_holds_priority
|
||||
|
||||
|
|
|
|||
|
|
@ -54,7 +54,7 @@ The branchcode of a branch belonging to the parent group
|
|||
is_nullable: 1
|
||||
size: 100
|
||||
|
||||
Short description of the goup
|
||||
Short description of the group
|
||||
|
||||
=head2 description
|
||||
|
||||
|
|
|
|||
|
|
@ -61,7 +61,7 @@ Branch this stage relates to
|
|||
default_value: 4
|
||||
is_nullable: 0
|
||||
|
||||
The number of days items shoud occupy this stage
|
||||
The number of days items should occupy this stage
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
|
|
@ -53,7 +53,7 @@ borrower that accepted access to this list
|
|||
is_nullable: 1
|
||||
size: 10
|
||||
|
||||
temporary string used in accepting the invitation to access thist list; not-empty means that the invitation has not been accepted yet
|
||||
temporary string used in accepting the invitation to access this list; not-empty means that the invitation has not been accepted yet
|
||||
|
||||
=head2 sharedate
|
||||
|
||||
|
|
|
|||
|
|
@ -1209,7 +1209,7 @@ each call to C<MARC::Record>->field) we create an optimized structure of mapping
|
|||
rules keyed by MARC field tags holding all the mapping rules for that particular tag.
|
||||
|
||||
We can then iterate through all MARC fields for each record and apply all relevant
|
||||
rules once per fields instead of retreiving fields multiple times for each mapping rule
|
||||
rules once per fields instead of retrieving fields multiple times for each mapping rule
|
||||
which is terribly slow.
|
||||
|
||||
=cut
|
||||
|
|
|
|||
|
|
@ -255,7 +255,7 @@ sub index_status {
|
|||
Generate Elasticsearch mappings from mappings stored in database and
|
||||
perform a request to update Elasticsearch index mappings. Will throw an
|
||||
error and set index status to C<INDEX_STATUS_RECREATE_REQUIRED> if update
|
||||
failes.
|
||||
fails.
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
|
|
@ -36,7 +36,7 @@ namespace, and provide the following methods:
|
|||
B<get_suggestions ($search)> - get suggestions from the plugin for the
|
||||
specified search.
|
||||
|
||||
These methods may be overriden:
|
||||
These methods may be overridden:
|
||||
|
||||
B<initialize (%params)> - initialize the plugin
|
||||
|
||||
|
|
|
|||
|
|
@ -38,7 +38,7 @@ B<NAME> - return a string with the name of the plugin.
|
|||
|
||||
B<VERSION> - return a string with the version of the plugin.
|
||||
|
||||
These methods may be overriden:
|
||||
These methods may be overridden:
|
||||
|
||||
B<initialize (%params)> - initialize the plugin
|
||||
|
||||
|
|
@ -81,7 +81,7 @@ sub new {
|
|||
|
||||
=head2 initialize
|
||||
|
||||
$plugin->initalize(%params);
|
||||
$plugin->initialize(%params);
|
||||
|
||||
Initialize a filter using the specified parameters.
|
||||
|
||||
|
|
|
|||
|
|
@ -25,7 +25,7 @@ Koha::Template::Plugin::Asset
|
|||
|
||||
The Asset plugin is a helper that generates HTML tags for JS and CSS files
|
||||
|
||||
=head1 SYNOPSYS
|
||||
=head1 SYNOPSIS
|
||||
|
||||
[% USE Asset %]
|
||||
|
||||
|
|
|
|||
|
|
@ -21,7 +21,7 @@ package Koha::Template::Plugin::TablesSettings;
|
|||
|
||||
Koha::Template::Plugin::TablesSettings
|
||||
|
||||
=head2 SYNOPSYS
|
||||
=head2 SYNOPSIS
|
||||
|
||||
[% USE TablesSettings %]
|
||||
|
||||
|
|
|
|||
|
|
@ -36,8 +36,8 @@ BEGIN {
|
|||
@EXPORT = qw(printpdf);
|
||||
}
|
||||
|
||||
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
|
||||
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
|
||||
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurement of PDF::API2).
|
||||
#The constants exported transform that into PostScript points (/mm for millimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
|
||||
use constant mm => 25.4 / 72;
|
||||
use constant in => 1 / 72;
|
||||
use constant pt => 1;
|
||||
|
|
|
|||
|
|
@ -36,8 +36,8 @@ BEGIN {
|
|||
@EXPORT_OK = qw(printpdf);
|
||||
}
|
||||
|
||||
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
|
||||
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
|
||||
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurement of PDF::API2).
|
||||
#The constants exported transform that into PostScript points (/mm for millimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
|
||||
use constant mm => 25.4 / 72;
|
||||
use constant in => 1 / 72;
|
||||
use constant pt => 1;
|
||||
|
|
|
|||
|
|
@ -38,8 +38,8 @@ BEGIN {
|
|||
@EXPORT = qw(printpdf);
|
||||
}
|
||||
|
||||
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
|
||||
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
|
||||
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurement of PDF::API2).
|
||||
#The constants exported transform that into PostScript points (/mm for millimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
|
||||
use constant mm => 25.4 / 72;
|
||||
use constant in => 1 / 72;
|
||||
use constant pt => 1;
|
||||
|
|
|
|||
|
|
@ -39,8 +39,8 @@ BEGIN {
|
|||
@EXPORT = qw(printpdf);
|
||||
}
|
||||
|
||||
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
|
||||
#The constants exported transform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
|
||||
#be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurement of PDF::API2).
|
||||
#The constants exported transform that into PostScript points (/mm for millimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
|
||||
use constant mm => 25.4 / 72;
|
||||
use constant in => 1 / 72;
|
||||
use constant pt => 1;
|
||||
|
|
|
|||
|
|
@ -450,7 +450,7 @@ Name of DBMS user account for Koha's database.
|
|||
|
||||
=item DB_PASS
|
||||
|
||||
Pasword of DMBS user account for Koha's database.
|
||||
Password of DMBS user account for Koha's database.
|
||||
|
||||
=item ZEBRA_MARC_FORMAT
|
||||
|
||||
|
|
|
|||
|
|
@ -50,7 +50,7 @@ basket.pl
|
|||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
This script display all informations about basket for the supplier given
|
||||
This script display all information about basket for the supplier given
|
||||
on input arg. Moreover, it allows us to add a new order for this supplier from
|
||||
an existing record, a suggestion or a new record.
|
||||
|
||||
|
|
|
|||
|
|
@ -281,7 +281,7 @@ if ( $op eq "add_form" ) {
|
|||
selectedbaskets => $selecteds
|
||||
);
|
||||
|
||||
# Get general informations about the basket group to prefill the form
|
||||
# Get general information about the basket group to prefill the form
|
||||
my $basketgroup = GetBasketgroup($basketgroupid);
|
||||
$template->param(
|
||||
name => $basketgroup->{name},
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@ booksellers.pl
|
|||
=head1 DESCRIPTION
|
||||
|
||||
this script displays the list of suppliers & baskets like C<$supplier> given on input arg.
|
||||
thus, this page brings differents features like to display supplier's details,
|
||||
thus, this page brings FIXME CODESPELL (differents ==> different, difference) features like to display supplier's details,
|
||||
to add an order for a specific supplier or to just add a new supplier.
|
||||
|
||||
=head1 CGI PARAMETERS
|
||||
|
|
|
|||
|
|
@ -26,7 +26,7 @@ use C4::Budgets qw( GetBudget );
|
|||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
fetches the budget amount fron the DB
|
||||
fetches the budget amount FIXME CODESPELL (fron ==> from, front) the DB
|
||||
|
||||
=cut
|
||||
|
||||
|
|
|
|||
|
|
@ -345,7 +345,7 @@ $template->param(
|
|||
defined($invoice_files) && $template->param( files => $invoice_files->GetFilesInfo() );
|
||||
|
||||
# FIXME
|
||||
# Fonction dupplicated from basket.pl
|
||||
# Function duplicated from basket.pl
|
||||
# Code must to be exported. Where ??
|
||||
sub get_infos {
|
||||
my $order = shift;
|
||||
|
|
|
|||
|
|
@ -448,7 +448,7 @@ $template->param(
|
|||
$template->param(
|
||||
existing => $biblionumber,
|
||||
|
||||
# basket informations
|
||||
# basket information
|
||||
basketname => $basket->{'basketname'},
|
||||
basketnote => $basket->{'note'},
|
||||
booksellerid => $basket->{'booksellerid'},
|
||||
|
|
|
|||
|
|
@ -32,7 +32,7 @@ a supplier. This script is called from acqui/supplier.pl.
|
|||
|
||||
=head1 CGI PARAMETERS
|
||||
|
||||
All informations regarding this supplier are listed on input parameter.
|
||||
All information regarding this supplier are listed on input parameter.
|
||||
Here is the list :
|
||||
|
||||
supplier, id, company, company_postal, physical, company_phone,
|
||||
|
|
|
|||
|
|
@ -254,7 +254,7 @@ if ( $op eq 'list' ) {
|
|||
my $period_total = 0;
|
||||
my ( $period_alloc_total, $spent_total, $ordered_total, $available_total ) = ( 0, 0, 0, 0 );
|
||||
|
||||
#This Looks WEIRD to me : should budgets be filtered in such a way ppl who donot own it would not see the amount spent on the budget by others ?
|
||||
#This Looks WEIRD to me : should budgets be filtered in such a way ppl who FIXME CODESPELL (donot ==> do not, donut) own it would not see the amount spent on the budget by others ?
|
||||
|
||||
my @budgets_to_display;
|
||||
foreach my $budget (@budgets) {
|
||||
|
|
|
|||
|
|
@ -26,7 +26,7 @@ use C4::Budgets qw( CheckBudgetParent GetBudget );
|
|||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
fetches the budget amount fron the DB,
|
||||
fetches the budget amount FIXME CODESPELL (fron ==> from, front) the DB,
|
||||
called by aqbudgets.pl and neworderempty.pl
|
||||
|
||||
=cut
|
||||
|
|
|
|||
|
|
@ -54,7 +54,7 @@ $period = GetBudgetPeriod($period_id) if $period_id;
|
|||
$parent = GetBudget($parent_id) if defined $parent_id;
|
||||
$budget = GetBudget($budget_id) if defined $budget_id;
|
||||
|
||||
# CHECK THE PARENT BUDGET FOR ENOUGHT AMOUNT UNALLOCATED, IF NOT THEN RETURN 1
|
||||
# CHECK THE PARENT BUDGET FOR ENOUGH AMOUNT UNALLOCATED, IF NOT THEN RETURN 1
|
||||
my ( $sub_unalloc, $period_sum, $budget_period_unalloc );
|
||||
|
||||
if ($parent) {
|
||||
|
|
|
|||
|
|
@ -110,8 +110,8 @@ if ( $op eq 'acct_form' ) {
|
|||
$schema->resultset('VendorEdiAccount')->search( { id => scalar $input->param('id'), } )->delete_all;
|
||||
}
|
||||
|
||||
# we do a default dispaly after deletes and saves
|
||||
# as well as when thats all you want
|
||||
# we do a default display after deletes and saves
|
||||
# as well as when that's all you want
|
||||
$template->param( display => 1 );
|
||||
my @ediaccounts = $schema->resultset('VendorEdiAccount')->search(
|
||||
{},
|
||||
|
|
|
|||
|
|
@ -422,7 +422,7 @@ sub get_prefs_from_files {
|
|||
return @names;
|
||||
}
|
||||
|
||||
# Return an array containg all preferences defined in DB
|
||||
# Return an array containing all preferences defined in DB
|
||||
|
||||
sub get_prefs_from_db {
|
||||
my $dbh = C4::Context->dbh;
|
||||
|
|
|
|||
|
|
@ -438,7 +438,7 @@ sub build_tabs {
|
|||
fixedfield => ( $tag < 10 ) ? (1) : (0),
|
||||
random => CreateKey,
|
||||
);
|
||||
if ( $tag >= 10 ) { # no indicator for theses tag
|
||||
if ( $tag >= 10 ) { # no indicator for FIXME CODESPELL (theses ==> these, thesis) tag
|
||||
$tag_data{indicator1} = format_indicator( $field->indicator(1) ),
|
||||
$tag_data{indicator2} = format_indicator( $field->indicator(2) ),;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -251,7 +251,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
|
|||
# now, build item tab !
|
||||
# the main difference is that datas are in lines and not in columns : thus, we build the <th> first, then the values...
|
||||
# loop through each tag
|
||||
# warning : we may have differents number of columns in each row. Thus, we first build a hash, complete it if necessary
|
||||
# warning : we may have FIXME CODESPELL (differents ==> different, difference) number of columns in each row. Thus, we first build a hash, complete it if necessary
|
||||
# then construct template.
|
||||
my @fields = $record->fields();
|
||||
my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code
|
||||
|
|
|
|||
|
|
@ -411,7 +411,7 @@ if ( $params->{'limit-yr'} ) {
|
|||
}
|
||||
push @limits, $limit_yr;
|
||||
|
||||
#FIXME: Should return a error to the user, incorect date format specified
|
||||
#FIXME: Should return a error to the user, incorrect date format specified
|
||||
}
|
||||
|
||||
# convert indexes and operands to corresponding parameter names for the z3950 search
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue