Most of them were found and fixed using codespell.
Fix also some related grammar issues.
In C4/Serials.pm a variable was renamed to make future codespelling
checks easier.
Signed-off-by: Stefan Weil <sw@weilnetz.de>
http://bugs.koha-community.org/show_bug.cgi?id=14383
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Signed-off-by: Jonathan Druart <jonathan.druart@koha-community.org>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
LEFT JOIN biblioitems ON biblioitems.biblionumber=biblio.biblionumber
};
- # If we search on ordernumber, we retrieve the transfered order if a transfer has been done.
+ # If we search on ordernumber, we retrieve the transferred order if a transfer has been done.
$query .= q{
LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_to = aqorders.ordernumber
} if $ordernumber;
my $newordernumber = TransferOrder($ordernumber, $basketno);
Transfer an order line to a basket.
-Mark $ordernumber as cancelled with an internal note 'Cancelled and transfered
+Mark $ordernumber as cancelled with an internal note 'Cancelled and transferred
to BOOKSELLER on DATE' and create new order with internal note
-'Transfered from BOOKSELLER on DATE'.
+'Transferred from BOOKSELLER on DATE'.
Move all attached items to the new order.
-Received orders cannot be transfered.
+Received orders cannot be transferred.
Return the ordernumber of created order.
=cut
else { # if this is an anonymous session, setup to display public lists...
# If shibboleth is enabled, and we're in an anonymous session, we should allow
- # the user to attemp login via shibboleth.
+ # the user to attempt login via shibboleth.
if ($shib) {
$template->param( shibbolethAuthentication => $shib,
shibbolethLoginUrl => login_shib_url( $in->{'query'} ),
my $query = shift;
my $version;
- # If Version syspref is unavailable, it means Koha is beeing installed,
+ # If version syspref is unavailable, it means Koha is being installed,
# and so we must redirect to OPAC maintenance page or to the WebInstaller
# also, if OpacMaintenance is ON, OPAC should redirect to maintenance
if ( C4::Context->preference('OpacMaintenance') && $type eq 'opac' ) {
}
elsif ($persona) {
- # we dont want to set a session because we are being called by a persona callback
+ # we don't want to set a session because we are being called by a persona callback
}
elsif ( $sessionID = $query->cookie("CGISESSID") )
{ # assignment, not comparison
$info{'invalidShibLogin'} = 1 unless ($return);
}
- # If shib login and match were successfull, skip further login methods
+ # If shib login and match were successful, skip further login methods
unless ($shibSuccess) {
if ( $cas && $query->param('ticket') ) {
my $retuserid;
Returns a hashref with a summary of the specified record.
-Comment : authtypecode can be infered from both record and authid.
+Comment : authtypecode can be inferred from both record and authid.
Moreover, authid can also be inferred from $record.
Would it be interesting to delete those things.
}
my $x = length($incr); # number of digits
$incr =~ /^9+$/ and $x++; # if they're all 9's, we need an extra.
- # Note, this enlargement might be undesireable for some barcode formats.
+ # Note, this enlargement might be undesirable for some barcode formats.
# Those should override next_value() to work accordingly.
$incr++;
This format is deprecated and SHOULD NOT BE USED.
-It is fairly clear the originator of the format did not intend to accomodate
+It is fairly clear the originator of the format did not intend to accommodate
multiple branch libraries, given that the format caps the available namespace to
10,000 barcodes per year TOTAL.
# Internal functions
# those functions are exported but should not be used
- # they are usefull is few circumstances, so are exported.
- # but don't use them unless you're a core developer ;-)
+ # they are useful in a few circumstances, so they are exported,
+ # but don't use them unless you are a core developer ;-)
push @EXPORT, qw(
&ModBiblioMarc
);
( # start of capturing parenthesis
(?:
(?:[\p{Sc}\p{L}\/.]){1,4} # any character from Currency signs or Letter Unicode categories or slash or dot within 1 to 4 occurrences : call this whole block 'symbol block'
- |(?:\d+[\p{P}\s]?){1,4} # or else at least one digit followed or not by a punctuation sign or whitespace, all theese within 1 to 4 occurrences : call this whole block 'digits block'
+ |(?:\d+[\p{P}\s]?){1,4} # or else at least one digit followed or not by a punctuation sign or whitespace, all these within 1 to 4 occurrences : call this whole block 'digits block'
)
\s?\p{Sc}?\s? # followed or not by a whitespace. \p{Sc}?\s? are for cases like '25$ USD'
(?:
$error = &ModBranch($newvalue);
-This function modify an existing branch
+This function modifies an existing branch
-C<$newvalue> is a ref to an array wich is containt all the column from branches table.
+C<$newvalue> is a ref to an array which contains all the columns from branches table.
=cut
$single_holidays = $calendar->get_single_holidays();
Returns a hash reference to single holidays. This kind of holidays are those which
-happend just one time.
+happened just one time.
=cut
}
#
- # JB34 CHECKS IF BORROWERS DONT HAVE ISSUE TOO MANY BOOKS
+ # JB34 CHECKS IF BORROWERS DON'T HAVE ISSUE TOO MANY BOOKS
#
my ($current_loan_count, $max_loans_allowed) = TooMany( $borrower, $item->{biblionumber}, $item );
# if TooMany max_loans_allowed returns 0 the user doesn't have permission to check out this book
UpdateTotalIssues($item->{'biblionumber'}, 1);
}
- ## If item was lost, it has now been found, reverse any list item charges if neccessary.
+ ## If item was lost, it has now been found, reverse any list item charges if necessary.
if ( $item->{'itemlost'} ) {
if ( C4::Context->preference('RefundLostItemFeeOnReturn' ) ) {
_FixAccountForLostAndReturned( $item->{'itemnumber'}, undef, $item->{'barcode'} );
my $issue = GetItemIssue($itemnumber);
if ($issue and $issue->{borrowernumber}) {
$borrower = C4::Members::GetMemberDetails($issue->{borrowernumber})
- or die "Data inconsistency: barcode $barcode (itemnumber:$itemnumber) claims to be issued to non-existant borrowernumber '$issue->{borrowernumber}'\n"
+ or die "Data inconsistency: barcode $barcode (itemnumber:$itemnumber) claims to be issued to non-existent borrowernumber '$issue->{borrowernumber}'\n"
. Dumper($issue) . "\n";
} else {
$messages->{'NotIssued'} = $barcode;
}
}
- # if Hard Due Dates are used, retreive them and apply as necessary
+ # if Hard Due Dates are used, retrieve them and apply as necessary
my ( $hardduedate, $hardduedatecompare ) =
GetHardDueDate( $borrower->{'categorycode'}, $itemtype, $branch );
if ($hardduedate) { # hardduedates are currently dates
my @values = split ' ', uc($record_restrictions);
return unless @values;
- # Search first occurence of one of the markers
+ # Search first occurrence of one of the markers
my @markers = split /\|/, uc($markers);
return unless @markers;
&GetClassSortKey
);
-# intialization code
+# initialization code
my %loaded_routines = ();
my @sort_routines = GetSortRoutineNames();
foreach my $sort_routine (@sort_routines) {
# the first time the module is called
# (a config file can be optionaly passed)
- # default context allready exists?
+ # default context already exists?
return if $context;
# no ? so load it!
}
if ($ismemcached) {
- # retreive from memcached
+ # retrieve from memcached
$self = $memcached->get('kohaconf');
if (not defined $self) {
# not in memcached yet
}
# FIXME: This method is effectively useless the way the current add_item method is written. Ideally, the items should be added to the object
-# and then the save method called. This does not work well in practice due to the inability to pass objects accross cgi script calls.
-# I'm leaving it here because it should be here and for consistency's sake and once memcached support is fully implimented this should be as well. -cnighswonger
+# and then the save method called. This does not work well in practice due to the inability to pass objects across cgi script calls.
+# I'm leaving it here because it should be here and for consistency's sake and once memcached support is fully implemented this should be as well. -cnighswonger
#
#=head2 $batch->save()
#
push @params, $opts{'layout_id'}, $opts{'creator'};
}
if (scalar(@params) < 2) { # If there is no layout id or creator type then we cannot delete it
- warn sprintf('%s : Cannot delete layout as the profile id is invalid or non-existant.', $call_type) if !$params[0];
- warn sprintf('%s : Cannot delete layout as the creator type is invalid or non-existant.', $call_type) if !$params[1];
+ warn sprintf('%s : Cannot delete layout as the profile id is invalid or non-existent.', $call_type) if !$params[0];
+ warn sprintf('%s : Cannot delete layout as the creator type is invalid or non-existent.', $call_type) if !$params[1];
return -1;
}
my $query = "DELETE FROM creator_layouts WHERE layout_id = ? AND creator = ?";
CODE39MOD10 = Code 3 of 9 with modulo 10 checksum
=item .
- COOP2OF5 = A varient of 2 of 5 barcode based on NEC's "Process 8000" code
+ COOP2OF5 = A variant of 2 of 5 barcode based on NEC's "Process 8000" code
=item .
INDUSTRIAL2OF5 = The standard 2 of 5 barcode (a binary level bar code developed by Identicon Corp. and Computer Identics Corp. in 1970)
=head1 NAME
-C4::Creators::PDF - A class wrapper for PDF::Reuse and PDF::Reuse::Barcode to allow usage as a psuedo-object. For usage see
+C4::Creators::PDF - A class wrapper for PDF::Reuse and PDF::Reuse::Barcode to allow usage as a pseudo-object. For usage see
PDF::Reuse documentation and C4::Creators::PDF code.
=cut
push @params, $opts{'profile_id'}, $opts{'creator'};
}
if (scalar(@params) < 2) { # If there is no profile id or creator type then we cannot delete it
- warn sprintf('%s : Cannot delete profile as the profile id is invalid or non-existant.', $call_type) if !$params[0];
- warn sprintf('%s : Cannot delete profile as the creator type is invalid or non-existant.', $call_type) if !$params[1];
+ warn sprintf('%s : Cannot delete profile as the profile id is invalid or non-existent.', $call_type) if !$params[0];
+ warn sprintf('%s : Cannot delete profile as the creator type is invalid or non-existent.', $call_type) if !$params[1];
return -1;
}
my $query = "DELETE FROM printers_profile WHERE profile_id = ? AND creator = ?";
push @query_params, $opts{'template_id'}, $opts{'creator'};
}
if (scalar(@query_params) < 2) { # If there is no template id or creator type then we cannot delete it
- warn sprintf('%s : Cannot delete template as the template id is invalid or non-existant.', $call_type) if !$query_params[0];
- warn sprintf('%s : Cannot delete template as the creator type is invalid or non-existant.', $call_type) if !$query_params[1];
+ warn sprintf('%s : Cannot delete template as the template id is invalid or non-existent.', $call_type) if !$query_params[0];
+ warn sprintf('%s : Cannot delete template as the creator type is invalid or non-existent.', $call_type) if !$query_params[1];
return -1;
}
my $query = "DELETE FROM creator_templates WHERE template_id = ? AND creator = ?";
my $template = C4::Labels::Template->new(profile_id => 1, page_width => 8.5, page_height => 11.0, units => 'INCH'); # Creates and returns a new template object using
the supplied values to override the defaults
- B<NOTE:> This template is I<not> written to the database untill save() is invoked. You have been warned!
+ B<NOTE:> This template is I<not> written to the database until save() is invoked. You have been warned!
=head2 retrieve(template_id => $template_id)
With no argument, format returns the object's current date_format. Otherwise it attempts to
set the object format to the supplied value.
-Some previously desireable functions are now unnecessary. For example, you might want a
+Some previously desirable functions are now unnecessary. For example, you might want a
method/function to tell you whether or not a Dates.pm object is of the 'iso' type. But you
can see by this example that such a test is trivial to accomplish, and not necessary to
include in the module:
Perhaps you want to force data obtained in a known format to display according to the user's system
preference, without necessarily knowing what that preference is. For this purpose, you can use the
-psuedo-format argument "syspref".
+pseudo-format argument "syspref".
For example, to print an ISO date (from the database) in the <systempreference> format:
$error = qx($strcmd -f $filename 2>&1 1>/dev/null);
# Be sure to set 'client_min_messages = error' in postgresql.conf
# so that only true errors are returned to stderr or else the installer will
- # report the import a failure although it really succeded -fbcit
+ # report the import as a failure although it really succeeded -fbcit
}
# errors thrown while loading installer data should be logged
if($error) {
This function uses the hash %default_values_for_mod_from_marc,
which contains default values for item fields to
-apply when modifying an item. This is needed beccause
+apply when modifying an item. This is needed because
if an item field's value is cleared, TransformMarcToKoha
does not include the column in the
hash that's passed to ModItem, which without
NOTE: does B<not> return an individual item's
status.
-Can be MARC dependant.
+Can be MARC dependent.
fwkcode is optional.
But basically could be can be loan or not
Create a status selector with the following code
$error = "not_same_branch";
}
else{
- # check it doesnt have a waiting reserve
+ # check it doesn't have a waiting reserve
$sth = $dbh->prepare(q{
SELECT COUNT(*) FROM reserves
WHERE (found = 'W' OR found = 'T')
my @isbns = GetVariationsOfISBN( $isbn );
- Returns a list of varations of the given isbn in
+ Returns a list of variations of the given isbn in
both ISBN-10 and ISBN-13 formats, with and without
hyphens.
my @isbns = GetVariationsOfISBNs( @isbns );
- Returns a list of varations of the given isbns in
+ Returns a list of variations of the given isbns in
both ISBN-10 and ISBN-13 formats, with and without
hyphens.
CODE39MOD10 = Code 3 of 9 with modulo 10 checksum
=item .
- COOP2OF5 = A varient of 2 of 5 barcode based on NEC's "Process 8000" code
+ COOP2OF5 = A variant of 2 of 5 barcode based on NEC's "Process 8000" code
=item .
INDUSTRIAL2OF5 = The standard 2 of 5 barcode (a binary level bar code developed by Identicon Corp. and Computer Identics Corp. in 1970)
=head2 C4::Patroncards::Lib::unpack_UTF8()
- This function returns a reference to an array of hex values equivelant to the utf8 values of the string passed in. This assumes, of course, that the string is
+ This function returns a reference to an array of hex values equivalent to the utf8 values of the string passed in. This assumes, of course, that the string is
indeed utf8.
example:
=head2 C4::Patroncards::Lib::leading()
- This function accepts a single parameter, font postscript point size, and returns the ammount of leading to be added.
+ This function accepts a single parameter, font postscript point size, and returns the amount of leading to be added.
example:
All subroutines in Ratings.pm return a hashref which contain 4 keys
-for example, after executing this statment below...
+for example, after executing this statement below...
my $rating_hashref = GetRating ( $biblionumber, $borrowernumber ) ;
sub get_columns {
- # this calls the internal fucntion _get_columns
+ # this calls the internal function _get_columns
my ( $area, $cgi ) = @_;
my %table_areas = get_table_areas;
my $tables = $table_areas{$area}
C<$offset>, and C<$limit> are required parameters.
C<\@sql_params> is an optional list of parameter values to paste in.
-The caller is reponsible for making sure that C<$sql> has placeholders
+The caller is responsible for making sure that C<$sql> has placeholders
and that the number placeholders matches the number of parameters.
=cut
my $catalog;
my $schema;
- # mysql doesnt support a column selection, set column to %
+ # mysql doesn't support a column selection, set column to %
my $tempcolumn='%';
my $sth = $dbh->column_info( $catalog, $schema, $table, $tempcolumn ) || die $dbh->errstr;
while (my $info = $sth->fetchrow_hashref()){
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
- - found : NULL : means the patron requested the 1st available, and we haven't choosen the item
+ - 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
F(inished) : the reserve has been completed, and is done
if there is no transfer to do, the reserve waiting
patron can pick it up P =0, F=W, I=filled
if there is a transfer to do, write in branchtransfer P =0, F=T, I=filled
- The pickup library recieve the book, it check in P =0, F=W, I=filled
+ The pickup library receive the book, it check in P =0, F=W, I=filled
The patron borrow the book P =0, F=F, I=filled
==== 2nd use case ====
($messages,$nextreservinfo)=$GetOtherReserves(itemnumber);
-Check queued list of this document and check if this document must be transfered
+Check queued list of this document and check if this document must be transferred
=cut
my $request = GetReserveInfo($reserve_id);
my $already_on_shelf = ($request && $request->{found} eq 'W') ? 1 : 0;
- # If we affect a reserve that has to be transfered, don't set to Waiting
+ # If we affect a reserve that has to be transferred, don't set to Waiting
my $query;
if ($transferToDo) {
$query = "
my $itype;
if (C4::Context->preference('item-level_itypes')) {
- # We cant trust GetItem to honour the syspref, so safest to do it ourselves
+ # We can't trust GetItem to honour the syspref, so safest to do it ourselves
# When GetItem is fixed, we can remove this
$itype = $item->{itype};
}
my $dbh = C4::Context->dbh;
# TODO: consolidate at least the SELECT portion of the first 2 queries to a common $select var.
- # check for exact targetted match
+ # check for exact targeted match
my $item_level_target_query = qq{
SELECT reserves.biblionumber AS biblionumber,
reserves.borrowernumber AS borrowernumber,
}
return @results if @results;
- # check for title-level targetted match
+ # check for title-level targeted match
my $title_level_target_query = qq{
SELECT reserves.biblionumber AS biblionumber,
reserves.borrowernumber AS borrowernumber,
my $itype;
my $dbh = C4::Context->dbh;
if (C4::Context->preference('item-level_itypes')) {
- # We cant trust GetItem to honour the syspref, so safest to do it ourselves
+ # We can't trust GetItem to honour the syspref, so safest to do it ourselves
# When GetItem is fixed, we can remove this
$itype = $item->{itype};
}
##********************************************************************
## print_typetag(): prints the first line of a RIS dataset including
-## the preceeding newline
+## the preceding newline
## Argument: the leader of a MARC dataset
## Returns: the value at leader position 06
##********************************************************************
$protoyear =~ s% *[\.;:/]*$%%;
## isolate a four-digit year. We discard anything
- ## preceeding the year, but keep everything after
+ ## preceding the year, but keep everything after
## the year as other info.
$protoyear =~ s%\D*([0-9\-]{4})(.*)%$1///$2%;
my $schema = Koha::Database->new()->schema();
my $duplicate_titles = $schema->resultset('Collection')->count({ colTitle => $title });
- ## Check for all neccessary parameters
+ ## Check for all necessary parameters
if ( !$title ) {
return ( 0, 1, "NO_TITLE" );
} elsif ( $duplicate_titles ) {
my $schema = Koha::Database->new()->schema();
my $duplicate_titles = $schema->resultset('Collection')->count({ colTitle => $title, -not => { colId => $colId } });
- ## Check for all neccessary parameters
+ ## Check for all necessary parameters
if ( !$colId ) {
return ( 0, 1, "NO_ID" );
}
Deletes a collection of the given id
Input:
- $colId : id of the Archtype to be deleted
+ $colId : id of the Archetype to be deleted
Output:
$success: 1 if all database operations were successful, 0 otherwise
sub DeleteCollection {
my ($colId) = @_;
- ## Paramter check
+ ## Parameter check
if ( !$colId ) {
return ( 0, 1, "NO_ID" );
}
sub GetItemsInCollection {
my ($colId) = @_;
- ## Paramter check
+ ## Parameter check
if ( !$colId ) {
return ( 0, 0, 1, "NO_ID" );
}
sub AddItemToCollection {
my ( $colId, $itemnumber ) = @_;
- ## Check for all neccessary parameters
+ ## Check for all necessary parameters
if ( !$colId ) {
return ( 0, 1, "NO_ID" );
}
sub RemoveItemFromCollection {
my ( $colId, $itemnumber ) = @_;
- ## Check for all neccessary parameters
+ ## Check for all necessary parameters
if ( !$itemnumber ) {
return ( 0, 2, "NO_ITEM" );
}
sub TransferCollection {
my ( $colId, $colBranchcode ) = @_;
- ## Check for all neccessary parameters
+ ## Check for all necessary parameters
if ( !$colId ) {
return ( 0, 1, "NO_ID" );
}
=head2 C<$str = $patron-E<gt>sip_birthdate;>
-Returns the patron's birthday formated according to the SIP
+Returns the patron's birthday formatted according to the SIP
specification:
YYYYMMDD HHMMSS
=head2 C<$str = $patron-E<gt>language;>
-A three-digit string encoding the patron's prefered language.
+A three-digit string encoding the patron's preferred language.
The full list is defined in the SIP specification, but some of
the important values are:
$value=~s/\r/ /g; # CR terminates a sip message
# Protect against them in sip text fields
- # Replace any occurences of the field delimiter in the
+ # Replace any occurrences of the field delimiter in the
# field value with the HTML character entity
$ent = sprintf("&#%d;", ord($field_delimiter));
#
my $module = $server->{config}->{institutions}->{$inst}->{implementation};
syslog("LOG_DEBUG", 'login_core: ' . Dumper($module));
- # Suspect this is always ILS but so we dont break any eccentic install (for now)
+ # Suspect this is always ILS but so we don't break any eccentic install (for now)
if ($module eq 'ILS') {
$module = 'C4::SIP::ILS';
}
#
# Build the detailed summary information for the Patron
# Information Response message based on the first 'Y' that appears
-# in the 'summary' field of the Patron Information reqest. The
+# in the 'summary' field of the Patron Information request. The
# specification says that only one 'Y' can appear in that field,
# and we're going to believe it.
#
if ($no_block eq 'Y') {
syslog("LOG_WARNING",
- "handle_renew: recieved 'no block' renewal from terminal '%s'",
+ "handle_renew: received 'no block' renewal from terminal '%s'",
$server->{account}->{id});
}
$resp .= '0NUN';
$resp .= timestamp;
# If we found the patron or the item, the return the ILS
- # information, otherwise echo back the infomation we received
+ # information, otherwise echo back the information we received
# from the terminal
$resp .= add_field(FID_PATRON_ID, $patron ? $patron->id : $patron_id);
$resp .= add_field(FID_ITEM_ID, $item ? $item->id : $item_id );
* $query can be a simple keyword or a complete CCL query
* @servers is optional. Defaults to biblioserver as found in koha-conf.xml
- * $offset - If present, represents the number of records at the beggining to omit. Defaults to 0
+ * $offset - If present, represents the number of records at the beginning to omit. Defaults to 0
* $max_results - if present, determines the maximum number of records to fetch. undef is All. defaults to undef.
# remove stopwords from operand : parse all stopwords & remove them (case insensitive)
# we use IsAlpha unicode definition, to deal correctly with diacritics.
-# otherwise, a French word like "leçon" woudl be split into "le" "çon", "le"
+# otherwise, a French word like "leçon" would be split into "le" "çon", "le"
# is a stopword, we'd get "çon" and wouldn't find anything...
#
foreach ( keys %{ C4::Context->stopwords } ) {
=head2 is_barcode_in_use
-Returns number of occurence of the barcode in the items table
+Returns number of occurrences of the barcode in the items table
Can be used as a boolean test of whether the barcode has
been deployed as yet
sub is_barcode_in_use {
my $barcode = shift;
my $dbh = C4::Context->dbh;
- my $occurences = $dbh->selectall_arrayref(
+ my $occurrences = $dbh->selectall_arrayref(
'SELECT itemnumber from items where barcode = ?',
{}, $barcode
);
- return @{$occurences};
+ return @{$occurrences};
}
=head2 CloseSubscription
=head1 AUTHOR
-Koha Developement team <info@koha.org>
+Koha Development team <info@koha.org>
=cut
=head1 AUTHOR
-Koha Developement team <info@koha.org>
+Koha Development team <info@koha.org>
=cut
The option C<$num_each_side> value determines how many items will be fetched
each side of the supplied item. Note that the item itself is the first entry
in the 'next' set, and counts towards this limit (this is to keep the
-behaviour consistant with the code that this is a refactor of.) Default is
+behaviour consistent with the code that this is a refactor of.) Default is
3.
This will throw an exception if something went wrong.
sub build_tokens{
my ($self, $filename) = @_;
$self->{filename} = $filename;
- $self->handler(start => "start", "self, line, tagname, attr, text"); #signature is start( self, linenumber, tagname, hash of attributes, origional text )
- $self->handler(text => "text", "self, line, text, is_cdata"); #signature is text( self, linenumber, origional text, is_cdata )
- $self->handler(end => "end", "self, line, tag, attr, text"); #signature is end( self, linenumber, tagename, origional text )
+ $self->handler(start => "start", "self, line, tagname, attr, text"); #signature is start( self, linenumber, tagname, hash of attributes, original text )
+ $self->handler(text => "text", "self, line, text, is_cdata"); #signature is text( self, linenumber, original text, is_cdata )
+ $self->handler(end => "end", "self, line, tag, attr, text"); #signature is end( self, linenumber, tagename, original text )
$self->handler(declaration => "declaration", "self, line, text, is_cdata"); # declaration
$self->handler(comment => "comment", "self, line, text, is_cdata"); # comments
# $self->handler(default => "default", "self, line, text, is_cdata"); # anything else
my $line = shift;
my $tag = shift;
my $hash = shift; #hash of attr/value pairs
- my $text = shift; #origional text
+ my $text = shift; #original text
my $t = C4::TmplToken->new( $text, C4::TmplTokenType::TAG, $line, $self->{filename});
my %attr;
# tags seem to be uses in an 'interesting' way elsewhere..
# ($min, $max) = stratify_tags($strata, $tags);
# $stratum: the number of divisions you want
# $tags: the tags, as provided by get_approval_rows
-# $min: the minumum stratum value
+# $min: the minimum stratum value
# $max: the maximum stratum value. This may be the same as $min if there
# is only one weight. Beware of divide by zeros.
# This will add a field to the tag called "stratum" containing the calculated
approved - Negative, 0 or positive if tag is rejected, pending or approved.
date_approved - date of last action
approved_by - staffer performing the last action
- weight_total - total occurance of term in any biblio by any users
+ weight_total - total occurrence of term in any biblio by any users
tags_index - This table is for performance, because by far the most common operation will
be fetching tags for a list of search results. We will have a set of biblios, and we will
This module allows for tracking the progress of the file
currently being uploaded.
-TODO: implement secure persistant storage of uploaded files.
+TODO: implement secure persistent storage of uploaded files.
=cut
C4::Context->config('intranetdir') . '/admin/columns_settings.yml';
my $yaml = eval { YAML::LoadFile($yml_path) };
warn
-"ERROR: the yaml file for DT::ColumnsSettings is not correctly formated: $@"
+"ERROR: the yaml file for DT::ColumnsSettings is not correctly formatted: $@"
if $@;
return $yaml;
}
my ($iTotalRecords, $iTotalDisplayRecords);
- # If branches are independant and user is not superlibrarian
+ # If branches are independent and user is not superlibrarian
# The search has to be only on the user branch
if ( C4::Branch::onlymine ) {
my $userenv = C4::Context->userenv;
=head2 getAuthorisedValues4MARCSubfields
-Returns a ref of hash of ref of hash for tag -> letter controled by authorised values
+Returns a ref of hash of ref of hash for tag -> letter controlled by authorised values
Is only used in this module currently.
=cut