# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
+#use warnings; FIXME - Bug 2505
use C4::Context;
use C4::Output;
use URI::Split qw(uri_split);
=head1 NAME
- C4::Koha - Perl Module containing convenience functions for Koha scripts
+C4::Koha - Perl Module containing convenience functions for Koha scripts
=head1 SYNOPSIS
- use C4::Koha;
-
+use C4::Koha;
=head1 DESCRIPTION
- Koha.pm provides many functions for Koha scripts.
+Koha.pm provides many functions for Koha scripts.
=head1 FUNCTIONS
$slash_date = &slashifyDate($dash_date);
- Takes a string of the form "DD-MM-YYYY" (or anything separated by
- dashes), converts it to the form "YYYY/MM/DD", and returns the result.
+Takes a string of the form "DD-MM-YYYY" (or anything separated by
+dashes), converts it to the form "YYYY/MM/DD", and returns the result.
=cut
=head2 DisplayISBN
- my $string = DisplayISBN( $isbn );
+ my $string = DisplayISBN( $isbn );
=cut
Returns a string with the name of the itemtype.
-
=cut
sub GetSupportName{
=head3 in PERL SCRIPT
-my $authtypes = getauthtypes;
-my @authtypesloop;
-foreach my $thisauthtype (keys %$authtypes) {
- my $selected = 1 if $thisauthtype eq $authtype;
- my %row =(value => $thisauthtype,
+ my $authtypes = getauthtypes;
+ my @authtypesloop;
+ foreach my $thisauthtype (keys %$authtypes) {
+ my $selected = 1 if $thisauthtype eq $authtype;
+ my %row =(value => $thisauthtype,
selected => $selected,
authtypetext => $authtypes->{$thisauthtype}->{'authtypetext'},
);
- push @authtypesloop, \%row;
-}
-$template->param(itemtypeloop => \@itemtypesloop);
+ push @authtypesloop, \%row;
+ }
+ $template->param(itemtypeloop => \@itemtypesloop);
=head3 in TEMPLATE
-<form action='<!-- TMPL_VAR name="script_name" -->' method=post>
+ <form action='<!-- TMPL_VAR name="script_name" -->' method=post>
<select name="authtype">
<!-- TMPL_LOOP name="authtypeloop" -->
<option value="<!-- TMPL_VAR name="value" -->" <!-- TMPL_IF name="selected" -->selected<!-- /TMPL_IF -->><!-- TMPL_VAR name="authtypetext" --></option>
</select>
<input type=text name=searchfield value="<!-- TMPL_VAR name="searchfield" -->">
<input type="submit" value="OK" class="button">
-</form>
+ </form>
=cut
=head3 in PERL SCRIPT
-my $frameworks = frameworks();
-my @frameworkloop;
-foreach my $thisframework (keys %$frameworks) {
+ my $frameworks = frameworks();
+ my @frameworkloop;
+ foreach my $thisframework (keys %$frameworks) {
my $selected = 1 if $thisframework eq $frameworkcode;
my %row =(value => $thisframework,
selected => $selected,
description => $frameworks->{$thisframework}->{'frameworktext'},
);
push @frameworksloop, \%row;
-}
-$template->param(frameworkloop => \@frameworksloop);
+ }
+ $template->param(frameworkloop => \@frameworksloop);
=head3 in TEMPLATE
-<form action='<!-- TMPL_VAR name="script_name" -->' method=post>
+ <form action='<!-- TMPL_VAR name="script_name" -->' method=post>
<select name="frameworkcode">
<option value="">Default</option>
<!-- TMPL_LOOP name="frameworkloop" -->
</select>
<input type=text name=searchfield value="<!-- TMPL_VAR name="searchfield" -->">
<input type="submit" value="OK" class="button">
-</form>
-
+ </form>
=cut
=head2 getitemtypeimagedir
-=over
-
-=item 4
-
my $directory = getitemtypeimagedir( 'opac' );
pass in 'opac' or 'intranet'. Defaults to 'opac'.
returns the full path to the appropriate directory containing images.
-=back
-
=cut
sub getitemtypeimagedir {
=head3 _getImagesFromDirectory
- Find all of the image files in a directory in the filesystem
+Find all of the image files in a directory in the filesystem
- parameters:
- a directory name
+parameters: a directory name
- returns: a list of images in that directory.
+returns: a list of images in that directory.
- Notes: this does not traverse into subdirectories. See
- _getSubdirectoryNames for help with that.
- Images are assumed to be files with .gif or .png file extensions.
- The image names returned do not have the directory name on them.
+Notes: this does not traverse into subdirectories. See
+_getSubdirectoryNames for help with that.
+Images are assumed to be files with .gif or .png file extensions.
+The image names returned do not have the directory name on them.
=cut
=head3 _getSubdirectoryNames
- Find all of the directories in a directory in the filesystem
+Find all of the directories in a directory in the filesystem
- parameters:
- a directory name
+parameters: a directory name
- returns: a list of subdirectories in that directory.
+returns: a list of subdirectories in that directory.
- Notes: this does not traverse into subdirectories. Only the first
- level of subdirectories are returned.
- The directory names returned don't have the parent directory name
- on them.
+Notes: this does not traverse into subdirectories. Only the first
+level of subdirectories are returned.
+The directory names returned don't have the parent directory name on them.
=cut
=head3 getImageSets
- returns: a listref of hashrefs. Each hash represents another collection of images.
- { imagesetname => 'npl', # the name of the image set (npl is the original one)
- images => listref of image hashrefs
- }
-
- each image is represented by a hashref like this:
- { KohaImage => 'npl/image.gif',
- StaffImageUrl => '/intranet-tmpl/prog/img/itemtypeimg/npl/image.gif',
- OpacImageURL => '/opac-tmpl/prog/itemtypeimg/npl/image.gif'
- checked => 0 or 1: was this the image passed to this method?
- Note: I'd like to remove this somehow.
- }
+returns: a listref of hashrefs. Each hash represents another collection of images.
+
+ { imagesetname => 'npl', # the name of the image set (npl is the original one)
+ images => listref of image hashrefs
+ }
+
+each image is represented by a hashref like this:
+
+ { KohaImage => 'npl/image.gif',
+ StaffImageUrl => '/intranet-tmpl/prog/img/itemtypeimg/npl/image.gif',
+ OpacImageURL => '/opac-tmpl/prog/itemtypeimg/npl/image.gif'
+ checked => 0 or 1: was this the image passed to this method?
+ Note: I'd like to remove this somehow.
+ }
=cut
=head2 GetPrinter
-$printer = GetPrinter( $query, $printers );
+ $printer = GetPrinter( $query, $printers );
=cut
=head2 displayServers
-=over 4
-
-my $servers = displayServers();
-
-my $servers = displayServers( $position );
-
-my $servers = displayServers( $position, $type );
-
-=back
+ my $servers = displayServers();
+ my $servers = displayServers( $position );
+ my $servers = displayServers( $position, $type );
displayServers returns a listref of hashrefs, each containing
information about available z3950 servers. Each hashref has a format
'zed' => 1,
},
-
=cut
sub displayServers {
=head2 GetAuthValCode
-$authvalcode = GetAuthValCode($kohafield,$frameworkcode);
+ $authvalcode = GetAuthValCode($kohafield,$frameworkcode);
=cut
=head2 GetAuthValCodeFromField
-$authvalcode = GetAuthValCodeFromField($field,$subfield,$frameworkcode);
+ $authvalcode = GetAuthValCodeFromField($field,$subfield,$frameworkcode);
C<$subfield> can be undefined
=head2 GetAuthorisedValues
-$authvalues = GetAuthorisedValues([$category], [$selected]);
+ $authvalues = GetAuthorisedValues([$category], [$selected]);
This function returns all authorised values from the'authorised_value' table in a reference to array of hashrefs.
my $sth = $dbh->prepare($query);
$sth->execute;
while (my $data=$sth->fetchrow_hashref) {
- if ($selected eq $data->{'authorised_value'} ) {
+ if ($selected && $selected eq $data->{'authorised_value'} ) {
$data->{'selected'} = 1;
}
if ($opac && $data->{'lib_opac'}) {
=head2 GetAuthorisedValueCategories
-$auth_categories = GetAuthorisedValueCategories();
+ $auth_categories = GetAuthorisedValueCategories();
Return an arrayref of all of the available authorised
value categories.
}
=head2 GetKohaAuthorisedValues
-
- Takes $kohafield, $fwcode as parameters.
- If $opac parameter is set to a true value, displays OPAC descriptions rather than normal ones when they exist.
- Returns hashref of Code => description
- Returns undef
- if no authorised value category is defined for the kohafield.
+
+Takes $kohafield, $fwcode as parameters.
+
+If $opac parameter is set to a true value, displays OPAC descriptions rather than normal ones when they exist.
+
+Returns hashref of Code => description
+
+Returns undef if no authorised value category is defined for the kohafield.
=cut
}
=head2 GetKohaAuthorisedValuesFromField
-
- Takes $field, $subfield $fwcode as parameters.
- If $opac parameter is set to a true value, displays OPAC descriptions rather than normal ones when they exist.
- $subfield can be undefined
- Returns hashref of Code => description
- Returns undef
- if no authorised value category is defined for the given field and subfield
+
+Takes $field, $subfield, $fwcode as parameters.
+
+If $opac parameter is set to a true value, displays OPAC descriptions rather than normal ones when they exist.
+$subfield can be undefined
+
+Returns hashref of Code => description
+
+Returns undef if no authorised value category is defined for the given field and subfield
=cut
=head2 display_marc_indicators
-=over 4
-
-# field is a MARC::Field object
-my $display_form = C4::Koha::display_marc_indicators($field);
+ my $display_form = C4::Koha::display_marc_indicators($field);
-=back
+C<$field> is a MARC::Field object
Generate a display form of the indicators of a variable
MARC field, replacing any blanks with '#'.