else {
$field->{'data'} = _get_barcode_data($field->{'code'},$item,$record);
}
- # Find apropriate font it oblique title selected, except main font is oblique
+ # Find appropriate font it oblique title selected, except main font is oblique
if ( ( $field->{'code'} eq 'title' ) and ( $self->{'oblique_title'} == 1 ) ) {
if ( $font =~ /^TB$/ ) {
$font .= 'I';
For general password salting a C<$strength> of C<weak> is recommend,
For generating a server-salt a C<$strength> of C<strong> is recommended
-'strong' uses /dev/random which may block until sufficient entropy is acheived.
+'strong' uses /dev/random which may block until sufficient entropy is achieved.
'weak' uses /dev/urandom and is non-blocking.
=item length
$msg = q(
Use memcached to cache the results of some function calls?
-This provides a signficant performance improvement.
+This provides a significant performance improvement.
You will need a Memcached server running.);
$msg .= _add_valid_values_disp('USE_MEMCACHED', $valid_values);
$config{'USE_MEMCACHED'} = _get_value('USE_MEMCACHED', $msg, $defaults->{'USE_MEMCACHED'}, $valid_values, $install_log_values);
THE DATA IN THIS DATABASE WILL BE DESTROYED during the process of
testing. Please don't do this on your production database. It is not
-reversable.
+reversible.
YOU WILL SUFFER DATA LOSS if you run this test suite on your test
database. You are better off not running this optional test suite than
$template->param( SENT => "1" );
}
else {
- # do something if it doesnt work....
+ # do something if it doesn't work....
carp "Error sending mail: $Mail::Sendmail::error \n";
$template->param( error => 1 );
}
I'll try to flesh out this section to better explain.
This query incorporates query profiles that aren't compatible with most non-Zebra
-Z39.50 targets to acomplish the field weighting and relevance ranking.
+Z39.50 targets to accomplish the field weighting and relevance ranking.
=item 2 $simple_query - a simple query that doesn't contain the field weighting,
stemming, etc., suitable to pass off to other search targets
# shouldn't appear on the first one, scan indexes should, adding a new
# box should only appear on the last, etc.
my @search_boxes_array;
- my $search_boxes_count = 3; # begin whith 3 boxes
+ my $search_boxes_count = 3; # begin with 3 boxes
# FIXME: all this junk can be done in TMPL using __first__ and __last__
for (my $i=1;$i<=$search_boxes_count;$i++) {
# if it's the first one, don't display boolean option, but show scan indexes
# if a simple index (only one) display the index used in the top search box
if ($indexes[0] && (!$indexes[1] || $params->{'scan'})) {
my $idx = "ms_".$indexes[0];
- $idx =~ s/\,/comma/g; # template toolkit doesnt like variables with a , in it
+ $idx =~ s/\,/comma/g; # template toolkit doesn't like variables with a , in it
$template->param($idx => 1);
}
} # FIXME else?
}
-# collect the stack of books already transfered so they can printed...
+# collect the stack of books already transferred so they can printed...
my @trsfitemloop;
-my $transfered;
+my $transferred;
my $barcode = $query->param('barcode');
# remove leading/trailing whitespace
defined $barcode and $barcode =~ s/^\s*|\s*$//g; # FIXME: barcodeInputFilter
# warn "barcode : $barcode";
if ($barcode) {
- ( $transfered, $messages ) =
+ ( $transferred, $messages ) =
transferbook( $tobranchcd, $barcode, $ignoreRs );
my $item = Koha::Items->find({ barcode => $barcode });
$found = $messages->{'ResFound'};
- if ($transfered) {
+ if ($transferred) {
my %item;
my $biblio = $item->biblio;
my $frbranchcd = C4::Context->userenv->{'branch'};
my $reserved = 0;
# new op dev : we check if the document must be returned to his homebranch directly,
-# if the document is transfered, we have warning message .
+# if the document is transferred, we have warning message .
if ( $messages->{'WasTransfered'} ) {
$template->param(
);
}
-# case of wrong transfert, if the document wasn't transfered to the right library (according to branchtransfer (tobranch) BDD)
+# case of wrong transfert, if the document wasn't transferred to the right library (according to branchtransfer (tobranch) BDD)
if ( $messages->{'WrongTransfer'} and not $messages->{'WasTransfered'}) {
$template->param(
# Process..
# NB: if you think you're seeing double, you probably are, *some* (read:most) patterns appear twice: once with quotations marks, once without.
- # trying to combine them into a single pattern proved troublesome as a regex like ['"]?(.*?)['"]? was causing problems and fixing the problem caused (alot) more complex regex
+ # trying to combine them into a single pattern proved troublesome as a regex like ['"]?(.*?)['"]? was causing problems and fixing the problem caused (a lot) more complex regex
# variables
$input_tmpl =~ s/<[!-]*\s*TMPL_VAR\s+NAME\s?=\s?['"]?\s*(\w*?)\s*['"]?\s+ESCAPE=['"](\w*?)['"]\s+DEFAULT=['"]?(.*?)['"]?\s*-*>/[% DEFAULT $cur_scope[-1]$1="$3" |$2 %]/ig;
# Where <level> is a category of requirement : required, recommended optional
# level should contain :
# SQL File for import With a readable name.
-# txt File taht explains what this SQL File is meant for.
+# txt File that explains what this SQL File is meant for.
# Could be VERY useful to have A Big file for a kind of library.
# But could also be useful to have some Authorised values data set prepared here.
# Marcflavour Selection is achieved through radiobuttons.
<Value code="r"><description>Directories</description></Value>
<Value code="s"><description>Statistics</description></Value>
<Value code="t"><description>Technical reports</description></Value>
- <Value code="u"><description>Standars/specifications</description></Value>
+ <Value code="u"><description>Standards/specifications</description></Value>
<Value code="v"><description>Legal cases and case notes</description></Value>
<Value code="w"><description>Law reports and digests</description></Value>
<Value code="y"><description>Yearbooks</description></Value>
<Value code="r"><description>Directories</description></Value>
<Value code="s"><description>Statistics</description></Value>
<Value code="t"><description>Technical reports</description></Value>
- <Value code="u"><description>Standars/specifications</description></Value>
+ <Value code="u"><description>Standards/specifications</description></Value>
<Value code="v"><description>Legal cases and case notes</description></Value>
<Value code="w"><description>Law reports and digests</description></Value>
<Value code="y"><description>Yearbooks</description></Value>
<Value code="r"><description>Directories</description></Value>
<Value code="s"><description>Statistics</description></Value>
<Value code="t"><description>Technical reports</description></Value>
- <Value code="u"><description>Standars/specifications</description></Value>
+ <Value code="u"><description>Standards/specifications</description></Value>
<Value code="v"><description>Legal cases and case notes</description></Value>
<Value code="w"><description>Law reports and digests</description></Value>
<Value code="y"><description>Yearbooks</description></Value>
<legend>Accounting details</legend>
<ol>
<li>
- <!-- origquantityrec only here for javascript compatibility (additem.js needs it, useless here, usefull when receiveing an order -->
+ <!-- origquantityrec only here for javascript compatibility (additem.js needs it, useless here, useful when receiveing an order -->
<input id="origquantityrec" readonly="readonly" type="hidden" name="origquantityrec" value="1" />
</li>
<li>
[% END %]
<span class="required">Required</span>
[% END %]
- <!-- origquantityrec only here for javascript compatibility (additem.js needs it, useless here, usefull when receiveing an order -->
+ <!-- origquantityrec only here for javascript compatibility (additem.js needs it, useless here, useful when receiveing an order -->
<input id="origquantityrec" readonly="readonly" type="hidden" name="origquantityrec" value="1" />
</li>
<li>
yes: Do
no: "Don't"
- track last patron activity.
- - Everytime a patron will connect, the borrowers.lastseen will be updated with the current time.
+ - Every time a patron will connect, the borrowers.lastseen will be updated with the current time.
-
- Block a patron's account if it reaches
- pref: FailedLoginAttempts
<genre authority="marc">poetry</genre>
</xsl:if>
<xsl:if test="contains($controlField008-30-31,'r')">
- <genre authority="marc">rehersal</genre>
+ <genre authority="marc">rehearsal</genre>
</xsl:if>
<xsl:if test="contains($controlField008-30-31,'g')">
<genre authority="marc">reporting</genre>
<xsl:with-param name="codes">abc</xsl:with-param>
<xsl:with-param name="index">au</xsl:with-param>
<xsl:with-param name="UseAuthoritiesForTracings" select="$UseAuthoritiesForTracings"/>
- <!-- do not use label 'by ' here, it would be repeated for every occurence of 100,110,111,700,710,711 -->
+ <!-- do not use label 'by ' here, it would be repeated for every occurrence of 100,110,111,700,710,711 -->
</xsl:call-template>
</h5>
</xsl:if>
<!--CONTENT-->
[% IF Koha.Preference( 'opacuserlogin' ) == 1 %]
[% IF ( nopermission ) %]
- <!-- This is what is displayed if user doesnt have permission -->
+ <!-- This is what is displayed if user doesn't have permission -->
<div class="alert">
<h3>Access denied</h3>
<p>Sorry, the system doesn't think you have permission to access this page. </p>
[% END %]
[% IF ( different_ip ) %]
- <!-- This is what is displayed if user doesnt have permission -->
+ <!-- This is what is displayed if user doesn't have permission -->
<div class="alert alert-info">
<p>You are logging from a different IP address. Please log in again.</p>
</div>
[% IF invalid_username_or_password || too_many_login_attempts %]
- <!-- This is what is displayed if user doesnt have permission or account is locked. (Do not expose more information than needed.) -->
+ <!-- This is what is displayed if user doesn't have permission or account is locked. (Do not expose more information than needed.) -->
<div class="alert alert-info">
<p>You entered an incorrect username or password. Please try again! But note that passwords are case sensitive[% IF Koha.Preference('FailedLoginAttempts') %] and that your account will be locked out after a fixed number of failed login attempts[% END %]. Please contact a library staff member if you continue to have problems.</p>
</div>
[% END # / IF confirm %]
[% IF ( nopermission ) %]
- <!-- This is what is displayed if user doesnt have permission -->
+ <!-- This is what is displayed if user doesn't have permission -->
<div class="alert">
<h3>Access denied</h3>
<p>Sorry, this self-checkout station has lost authentication. Please contact the administrator to resolve this problem.</p>
[% END %]
[% IF ( different_ip ) %]
- <!-- This is what is displayed if user doesnt have permission -->
+ <!-- This is what is displayed if user doesn't have permission -->
<div class="alert">
<h3>Session lost</h3>
<p>You are accessing self-checkout from a different IP address! please log in again.</p>
[% END %]
[% IF ( invalid_username_or_password ) %]
- <!-- This is what is displayed if user doesnt have permission -->
+ <!-- This is what is displayed if user doesn't have permission -->
<div class="alert">
<h3>Record not found</h3>
<p>Your userid was not found in the database. Please try again.</p>
{profile_id => {label => 'Profile ID', link_field => 0}},
{printer_name => {label => 'Printer Name', link_field => 0}},
{paper_bin => {label => 'Paper Bin', link_field => 0}},
- {_template_code => {label => 'Template Name', link_field => 0}}, # this display column does not have a corrisponding db column in the profile table, hence the underscore
+ {_template_code => {label => 'Template Name', link_field => 0}}, # this display column does not have a corresponding db column in the profile table, hence the underscore
{select => {label => 'Actions', value => 'profile_id'}},
],
batch => [
],
};
-my $label_element = $cgi->param('label_element') || 'template'; # default to template managment
+my $label_element = $cgi->param('label_element') || 'template'; # default to template management
my $op = $cgi->param('op') || 'none';
my $element_id = $cgi->param('element_id') || undef;
my $error = $cgi->param('error') || 0;
This script cleans unused subfields in the MARC DB.
If you alter the MARC parameters and remove a subfield (ie : move it to ignore (10) tab), existing subfields are NOT removed.
It's not a bug, it prevents deleting useful values in case of erroneous move.
-This script definetly remove unused subfields in the MARC DB.
+This script definitely remove unused subfields in the MARC DB.
syntax :
\t./cleanmarcdb.pl -h (or without arguments => shows this screen)
\t./cleanmarcdb.pl -c (c like confirm => cleans the marc DB (may be long)
if ( !-d _ ) {
my $name = $File::Find::name;
if ( $name =~ /(\.pl|\.pm)$/ ) {
- open( FILE, "$_" ) || die "cant open $name";
+ open( FILE, "$_" ) || die "can't open $name";
while ( my $inp = <FILE> ) {
if ( $inp =~ /C4::Context->preference\((.*?)\)/ ) {
my $variable = $1;
This script is a basic implementation of ILS-DI protocol for Koha.
It acts like a dispatcher, that get the CGI request, check required and
-optionals arguments, call a function from C4::ILS-DI, and finaly
+optionals arguments, call a function from C4::ILS-DI, and finally
outputs the returned hashref as XML.
=cut
# Called Empty, Ask for data.
$template->param( 'Ask_data' => '1' );
if (!$query->param('Oldkey') && ($query->param('Newkey') || $query->param('Confirm'))){
- # Old password is empty but one of the others isnt
+ # Old password is empty but one of the others isn't
$template->param( 'Error_messages' => '1' );
$template->param( 'WrongPass' => '1' );
}
$itemInfo->{backgroundcolor} = 'other';
}
- # Check of the transfered documents
+ # Check of the transferred documents
my ( $transfertwhen, $transfertfrom, $transfertto ) =
GetTransfers($itemNum);
if ( $transfertwhen && ($transfertwhen ne '') ) {
# shouldn't appear on the first one, scan indexes should, adding a new
# box should only appear on the last, etc.
my @search_boxes_array;
- my $search_boxes_count = 3; # begin whith 3 boxes
+ my $search_boxes_count = 3; # begin with 3 boxes
$template->param( search_boxes_count => $search_boxes_count );
if ($cgi->cookie("num_paragraph")){
$template->param( SENT => "1" );
}
else {
- # do something if it doesnt work....
+ # do something if it doesn't work....
carp "Error sending mail: empty basket" if !defined($iso2709);
carp "Error sending mail: $Mail::Sendmail::error" if $Mail::Sendmail::error;
$template->param( error => 1 );
$template->param( SENT => "1" );
}
else {
- # do something if it doesnt work....
+ # do something if it doesn't work....
carp "Error sending mail: $Mail::Sendmail::error \n";
$template->param( error => 1 );
}
);
my $op = $cgi->param('op') || 'none';
-my $card_element = $cgi->param('card_element') || 'template'; # default to template managment
+my $card_element = $cgi->param('card_element') || 'template'; # default to template management
my $element_id = $cgi->param('element_id') || 0; # there should never be an element with a id of 0 so this is a safe default
my $db_rows = {};
profile => [ {profile_id => {label => 'Profile ID', link_field => 0}},
{printer_name => {label => 'Printer Name', link_field => 0}},
{paper_bin => {label => 'Paper Bin', link_field => 0}},
- {_template_code => {label => 'Template Name', link_field => 0}}, # this display column does not have a corrisponding db column in the profile table, hence the underscore
+ {_template_code => {label => 'Template Name', link_field => 0}}, # this display column does not have a corresponding db column in the profile table, hence the underscore
{_action => {label => 'Action', link_field => 0}},
{select => {label => 'Select', value => 'profile_id'}},
],
$req->execute;
$template->param( SORT1_LOOP => $req->fetchall_arrayref({}));
$req = $dbh->prepare("SELECT DISTINCTROW sort2 AS value FROM borrowers WHERE sort2 IS NOT NULL AND sort2 <> '' ORDER BY sort2 LIMIT 200");
- # More than 200 items in a dropdown is not going to be useful anyway, and w/ 50,000 patrons we can destory DB performance.
+ # More than 200 items in a dropdown is not going to be useful anyway, and w/ 50,000 patrons we can destroy DB performance.
$req->execute;
$template->param( SORT2_LOOP => $req->fetchall_arrayref({}));
$cache_expiry *= 86400; # 60 * 60 * 24
}
}
- # check $cache_expiry isnt too large, Memcached::set requires it to be less than 30 days or it will be treated as if it were an absolute time stamp
+ # check $cache_expiry isn't too large, Memcached::set requires it to be less than 30 days or it will be treated as if it were an absolute time stamp
if( $cache_expiry >= 2592000 ){
push @errors, {cache_expiry => $cache_expiry};
}
} elsif( $cache_expiry_units eq "days" ){
$cache_expiry *= 86400; # 60 * 60 * 24
}
- # check $cache_expiry isnt too large, Memcached::set requires it to be less than 30 days or it will be treated as if it were an absolute time stamp
+ # check $cache_expiry isn't too large, Memcached::set requires it to be less than 30 days or it will be treated as if it were an absolute time stamp
if( $cache_expiry >= 2592000 ){ # oops, over the limit of 30 days
# report error to user
$template->param(
'public' => scalar $input->param('public'),
);
} else {
- # they have choosen a new report and the area to report on
+ # they have chosen a new report and the area to report on
$template->param(
'build2' => 1,
'area' => scalar $input->param('area'),
$cache_expiry *= 86400; # 60 * 60 * 24
}
}
- # check $cache_expiry isnt too large, Memcached::set requires it to be less than 30 days or it will be treated as if it were an absolute time stamp
+ # check $cache_expiry isn't too large, Memcached::set requires it to be less than 30 days or it will be treated as if it were an absolute time stamp
if( $cache_expiry && $cache_expiry >= 2592000 ){
push @errors, {cache_expiry => $cache_expiry};
}
# for branches they arent logged in to
if ( C4::Context->preference("IndependentBranches") ) {
if (! C4::Context->preference("canreservefromotherbranches")){
- # cant reserve items so need to check if item homebranch and userenv branch match if not we cant reserve
+ # can't reserve items so need to check if item homebranch and userenv branch match if not we can't reserve
my $userenv = C4::Context->userenv;
unless ( C4::Context->IsSuperLibrarian ) {
$item->{cantreserve} = 1 if ( $item->{homebranch} ne $userenv->{branch} );
# along with Koha; if not, see <http://www.gnu.org/licenses>.
# Routing Preview.pl script used to view a routing list after creation
-# lets one print out routing slip and create (in this instance) the heirarchy
+# lets one print out routing slip and create (in this instance) the hierarchy
# of reserves for the serial
use Modern::Perl;
use CGI qw ( -utf8 );
C4::Serials::ReopenSubscription( $subscriptionid );
}
-# the subscription must be deletable if there is NO issues for a reason or another (should not happend, but...)
+# the subscription must be deletable if there is NO issues for a reason or another (should not happened, but...)
# Permission needed if it is a deletion (del) : delete_subscription
# Permission needed otherwise : *