# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
-require Exporter;
use C4::Context;
use C4::Output;
-our ($VERSION,@ISA,@EXPORT);
-
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+use vars qw($VERSION @ISA @EXPORT $DEBUG);
+
+BEGIN {
+ $VERSION = 3.01;
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT = qw(
+ &slashifyDate
+ &DisplayISBN
+ &subfield_is_koha_internal_p
+ &GetPrinters &GetPrinter
+ &GetItemTypes &getitemtypeinfo
+ &GetCcodes
+ &get_itemtypeinfos_of
+ &getframeworks &getframeworkinfo
+ &getauthtypes &getauthtype
+ &getallthemes
+ &getFacets
+ &displayServers
+ &getnbpages
+ &getitemtypeimagesrcfromurl
+ &get_infos_of
+ &get_notforloan_label_of
+ &getitemtypeimagedir
+ &getitemtypeimagesrc
+ &GetAuthorisedValues
+ &GetKohaAuthorisedValues
+ &GetAuthValCode
+ &GetManagedTagSubfields
+
+ $DEBUG
+ );
+ $DEBUG = 0;
+}
=head1 NAME
=over 2
=cut
-
-@ISA = qw(Exporter);
-@EXPORT = qw(
- &slashifyDate
- &DisplayISBN
- &subfield_is_koha_internal_p
- &GetPrinters &GetPrinter
- &GetItemTypes &getitemtypeinfo
- &GetCcodes
- &GetAuthItemlost
- &GetAuthItembinding
- &get_itemtypeinfos_of
- &getframeworks &getframeworkinfo
- &getauthtypes &getauthtype
- &getallthemes
- &getFacets
- &displaySortby
- &displayIndexes
- &displaySubtypesLimit
- &displayLimitTypes
- &displayServers
- &getnbpages
- &getitemtypeimagesrcfromurl
- &get_infos_of
- &get_notforloan_label_of
- &getitemtypeimagedir
- &getitemtypeimagesrc
- &GetAuthorisedValues
- &FixEncoding
- &GetKohaAuthorisedValues
- &GetManagedTagSubfields
-
- $DEBUG
- );
-
-my $DEBUG = 0;
-
=head2 slashifyDate
$slash_date = &slashifyDate($dash_date);
sub DisplayISBN {
my ($isbn) = @_;
+ if (length ($isbn)<13){
my $seg1;
if ( substr( $isbn, 0, 1 ) <= 7 ) {
$seg1 = substr( $isbn, 0, 1 );
$seg3 = substr( $seg3, 0, length($seg3) - 1 );
my $seg4 = substr( $x, -1, 1 );
return "$seg1-$seg2-$seg3-$seg4";
+ } else {
+ my $seg1;
+ $seg1 = substr( $isbn, 0, 3 );
+ my $seg2;
+ if ( substr( $isbn, 3, 1 ) <= 7 ) {
+ $seg2 = substr( $isbn, 3, 1 );
+ }
+ elsif ( substr( $isbn, 3, 2 ) <= 94 ) {
+ $seg2 = substr( $isbn, 3, 2 );
+ }
+ elsif ( substr( $isbn, 3, 3 ) <= 995 ) {
+ $seg2 = substr( $isbn, 3, 3 );
+ }
+ elsif ( substr( $isbn, 3, 4 ) <= 9989 ) {
+ $seg2 = substr( $isbn, 3, 4 );
+ }
+ else {
+ $seg2 = substr( $isbn, 3, 5 );
+ }
+ my $x = substr( $isbn, length($seg2) +3);
+ my $seg3;
+ if ( substr( $x, 0, 2 ) <= 19 ) {
+
+ # if(sTmp2 < 10) sTmp2 = "0" sTmp2;
+ $seg3 = substr( $x, 0, 2 );
+ }
+ elsif ( substr( $x, 0, 3 ) <= 699 ) {
+ $seg3 = substr( $x, 0, 3 );
+ }
+ elsif ( substr( $x, 0, 4 ) <= 8399 ) {
+ $seg3 = substr( $x, 0, 4 );
+ }
+ elsif ( substr( $x, 0, 5 ) <= 89999 ) {
+ $seg3 = substr( $x, 0, 5 );
+ }
+ elsif ( substr( $x, 0, 6 ) <= 9499999 ) {
+ $seg3 = substr( $x, 0, 6 );
+ }
+ else {
+ $seg3 = substr( $x, 0, 7 );
+ }
+ my $seg4 = substr( $x, length($seg3) );
+ $seg4 = substr( $seg4, 0, length($seg4) - 1 );
+ my $seg5 = substr( $x, -1, 1 );
+ return "$seg1-$seg2-$seg3-$seg4-$seg5";
+ }
}
# FIXME.. this should be moved to a MARC-specific module
my $query = '
SELECT itemtype,
description,
+ imageurl,
notforloan
FROM itemtypes
WHERE itemtype IN (' . join( ',', map( { "'" . $_ . "'" } @itemtypes ) ) . ')
return ( $count, @results );
}
-=head2
-
-grab itemlost authorized values
-
-=cut
-
-sub GetAuthItemlost {
- my $itemlost = shift;
- my $count = 0;
- my @results;
- my $dbh = C4::Context->dbh;
- my $sth =
- $dbh->prepare(
- "SELECT * FROM authorised_values ORDER BY authorised_value");
- $sth->execute;
- while ( my $data = $sth->fetchrow_hashref ) {
- if ( $data->{category} eq "ITEMLOST" ) {
- $count++;
- if ( $itemlost eq $data->{'authorised_value'} ) {
- $data->{'selected'} = 1;
- }
- $results[$count] = $data;
-
- #warn "data: $data";
- }
- }
- $sth->finish;
- return ( $count, @results );
-}
-
-=head2 GetAuthItembinding
-
-grab itemlost authorized values
-
-=cut
-
-sub GetAuthItembinding {
- my $itembinding = shift;
- my $count = 0;
- my @results;
- my $dbh = C4::Context->dbh;
- my $sth =
- $dbh->prepare(
- "SELECT * FROM authorised_values ORDER BY authorised_value");
- $sth->execute;
- while ( my $data = $sth->fetchrow_hashref ) {
- if ( $data->{category} eq "BINDING" ) {
- $count++;
- if ( $itembinding eq $data->{'authorised_value'} ) {
- $data->{'selected'} = 1;
- }
- $results[$count] = $data;
-
- #warn "data: $data";
- }
- }
- $sth->finish;
- return ( $count, @results );
-}
-
=head2 getauthtypes
$authtypes = &getauthtypes();
}
sub getitemtypeimagedir {
- return C4::Context->opachtdocs . '/'
- . C4::Context->preference('template')
- . '/itemtypeimg';
+ my $src = shift;
+ if ($src eq 'intranet') {
+ return C4::Context->config('intrahtdocs') . '/' .C4::Context->preference('template') . '/img/itemtypeimg';
+ }
+ else {
+ return C4::Context->config('opachtdocs') . '/' . C4::Context->preference('template') . '/itemtypeimg';
+ }
}
sub getitemtypeimagesrc {
- return '/opac-tmpl' . '/'
- . C4::Context->preference('template')
- . '/itemtypeimg';
+ my $src = shift;
+ if ($src eq 'intranet') {
+ return '/intranet-tmpl' . '/' . C4::Context->preference('template') . '/img/itemtypeimg';
+ }
+ else {
+ return '/opac-tmpl' . '/' . C4::Context->preference('template') . '/itemtypeimg';
+ }
}
=head2 GetPrinters
},
{
link_value => 'branch',
- label_value => 'Branches',
+ label_value => 'Libraries',
tags => [ '995', ],
subfield => 'b',
expanded => '1',
},
{
link_value => 'branch',
- label_value => 'Branches',
+ label_value => 'Libraries',
tags => [ '952', ],
subfield => 'b',
expanded => '1',
=cut
+# FIXME - why not use GetAuthorisedValues ??
+#
sub get_notforloan_label_of {
my $dbh = C4::Context->dbh;
return \%notforloan_label_of;
}
-sub displaySortby {
- my ($sort_by) = @_;
- $sort_by =~ s/</\</;
- $sort_by =~ s/>/\>/;
- my $sort_by_loop = [
- { value => "1=9523 >i", label => "Popularity (Most to Least)" },
- { value => "1=9523 <i", label => "Popularity (Least to Most)" },
- { value => "1=1003 <i", label => "Author (A-Z)" },
- { value => "1=1003 >i", label => "Author (Z-A)" },
- {
- value => "1=20 <i",
- label => "Call Number (Non-fiction 0-9 to Fiction A-Z)"
- },
- {
- value => "1=20 >i",
- label => "Call Number (Fiction Z-A to Non-fiction 9-0)"
- },
- { value => "1=31 >i", label => "Dates" },
- {
- value => "1=31 >i",
- label =>
- " Publication/Copyright Date: Newest to Oldest"
- },
- {
- value => "1=31 <i",
- label =>
- " Publication/Copyright Date: Oldest to Newest"
- },
- {
- value => "1=32 >i",
- label => " Acquisition Date: Newest to Oldest"
- },
- {
- value => "1=32 <i",
- label => " Acquisition Date: Oldest to Newest"
- },
- { value => "1=4 <i", label => "Title (A-Z)" },
- { value => "1=4 >i", label => "Title (Z-A)" },
- ];
- for my $hash (@$sort_by_loop) {
-
- #warn "sort by: $sort_by ... hash:".$hash->{value};
- if ($sort_by && $hash->{value} eq $sort_by ) {
- $hash->{selected} = "selected";
- }
- }
- return $sort_by_loop;
-
-}
-
-sub displayIndexes {
- my $indexes = [
- { value => '', label => 'Keyword' },
- { value => 'au', label => 'Author' },
- {
- value => 'au,phr',
- label => ' Author Phrase'
- },
- { value => 'cpn', label => ' Corporate Name' },
- { value => 'cfn', label => ' Conference Name' },
- {
- value => 'cpn,phr',
- label => ' Corporate Name Phrase'
- },
- {
- value => 'cfn,phr',
- label => ' Conference Name Phrase'
- },
- { value => 'pn', label => ' Personal Name' },
- {
- value => 'pn,phr',
- label => ' Personal Name Phrase'
- },
- { value => 'ln', label => 'Language' },
-
- # { value => 'mt', label => 'Material Type' },
- # { value => 'mt,phr', label => 'Material Type Phrase' },
- # { value => 'mc', label => 'Musical Composition' },
- # { value => 'mc,phr', label => 'Musical Composition Phrase' },
-
- { value => 'nt', label => 'Notes/Comments' },
- { value => 'pb', label => 'Publisher' },
- { value => 'pl', label => 'Publisher Location' },
- { value => 'sn', label => 'Standard Number' },
- { value => 'nb', label => ' ISBN' },
- { value => 'ns', label => ' ISSN' },
- { value => 'lcn', label => ' Call Number' },
- { value => 'su', label => 'Subject' },
- {
- value => 'su,phr',
- label => ' Subject Phrase'
- },
-
-# { value => 'de', label => ' Descriptor' },
-# { value => 'ge', label => ' Genre/Form' },
-# { value => 'gc', label => ' Geographic Coverage' },
-
-# { value => 'nc', label => ' Named Corporation and Conference' },
-# { value => 'na', label => ' Named Person' },
-
- { value => 'ti', label => 'Title' },
- { value => 'ti,phr', label => ' Title Phrase' },
- { value => 'se', label => ' Series Title' },
- ];
- return $indexes;
-}
-
-sub displaySubtypesLimit {
- my $outer_subtype_limits_loop = [
-
- { # in MARC21, aud codes are stored in 008/22 (Target audience)
- name => "limit",
- inner_subtype_limits_loop => [
- {
- value => '',
- label => 'Any Audience',
- selected => "selected"
- },
- { value => 'aud:a', label => 'Easy', },
- { value => 'aud:c', label => 'Juvenile', },
- { value => 'aud:d', label => 'Young Adult', },
- { value => 'aud:e', label => 'Adult', },
-
- ],
- },
- { # in MARC21, fic is in 008/33, bio in 008/34, mus in LDR/06
- name => "limit",
- inner_subtype_limits_loop => [
- { value => '', label => 'Any Content', selected => "selected" },
- { value => 'fic:1', label => 'Fiction', },
- { value => 'fic:0', label => 'Non Fiction', },
- { value => 'bio:b', label => 'Biography', },
- { value => 'mus:j', label => 'Musical recording', },
- { value => 'mus:i', label => 'Non-musical recording', },
-
- ],
- },
- { # MARC21, these are codes stored in 007/00-01
- name => "limit",
- inner_subtype_limits_loop => [
- { value => '', label => 'Any Format', selected => "selected" },
- { value => 'l-format:ta', label => 'Regular print', },
- { value => 'l-format:tb', label => 'Large print', },
- { value => 'l-format:fk', label => 'Braille', },
- { value => '', label => '-----------', },
- { value => 'l-format:sd', label => 'CD audio', },
- { value => 'l-format:ss', label => 'Cassette recording', },
- {
- value => 'l-format:vf',
- label => 'VHS tape / Videocassette',
- },
- { value => 'l-format:vd', label => 'DVD video / Videodisc', },
- { value => 'l-format:co', label => 'CD Software', },
- { value => 'l-format:cr', label => 'Website', },
-
- ],
- },
- { # in MARC21, these are codes in 008/24-28
- name => "limit",
- inner_subtype_limits_loop => [
- { value => '', label => 'Additional Content Types', },
- { value => 'ctype:a', label => 'Abstracts/summaries', },
- { value => 'ctype:b', label => 'Bibliographies', },
- { value => 'ctype:c', label => 'Catalogs', },
- { value => 'ctype:d', label => 'Dictionaries', },
- { value => 'ctype:e', label => 'Encyclopedias ', },
- { value => 'ctype:f', label => 'Handbooks', },
- { value => 'ctype:g', label => 'Legal articles', },
- { value => 'ctype:i', label => 'Indexes', },
- { value => 'ctype:j', label => 'Patent document', },
- { value => 'ctype:k', label => 'Discographies', },
- { value => 'ctype:l', label => 'Legislation', },
- { value => 'ctype:m', label => 'Theses', },
- { value => 'ctype:n', label => 'Surveys', },
- { value => 'ctype:o', label => 'Reviews', },
- { value => 'ctype:p', label => 'Programmed texts', },
- { value => 'ctype:q', label => 'Filmographies', },
- { value => 'ctype:r', label => 'Directories', },
- { value => 'ctype:s', label => 'Statistics', },
- { value => 'ctype:t', label => 'Technical reports', },
- { value => 'ctype:v', label => 'Legal cases and case notes', },
- { value => 'ctype:w', label => 'Law reports and digests', },
- { value => 'ctype:z', label => 'Treaties ', },
- ],
- },
- ];
- return $outer_subtype_limits_loop;
-}
-
-sub displayLimitTypes {
- my $outer_limit_types_loop = [
-
- {
- inner_limit_types_loop => [
- {
- label => "Books",
- id => "mc-books",
- name => "limit",
- value => "(mc-collection:AF or mc-collection:MYS or mc-collection:SCI or mc-collection:NF or mc-collection:YA or mc-collection:BIO or mc-collection:LP or mc-collection:LPNF)",
- icon => "search-books.gif",
- title =>
-"Books, Pamphlets, Technical reports, Manuscripts, Legal papers, Theses and dissertations",
- },
-
- {
- label => "Movies",
- id => "mc-movies",
- name => "limit",
- value => "(mc-collection:DVD or mc-collection:AV or mc-collection:AVJ or mc-collection:AVJN or mc-collection:AVJNF or mc-collection:AVNF)",
- icon => "search-movies.gif",
- title =>
-"Motion pictures, Videorecordings, Filmstrips, Slides, Transparencies, Photos, Cards, Charts, Drawings",
- },
-
- {
- label => "Music",
- id => "mc-music",
- name => "limit",
- value => "(mc-collection:CDM)",
- icon => "search-music.gif",
- title => "Spoken, Books on CD and Cassette",
- },
- ],
- },
- {
- inner_limit_types_loop => [
- {
- label => "Audio Books",
- id => "mc-audio-books",
- name => "limit",
- value => "(mc-collection:AB or mc-collection:AC or mc-collection:JAC or mc-collection:YAC)",
- icon => "search-audio-books.gif",
- title => "Spoken, Books on CD and Cassette",
- },
-
- {
- label => "Local History Materials",
- id => "mc-local-history",
- name => "limit",
- value => "mc-collection:LH",
- icon => "Local history.gif",
- title => "Local History Materials",
- },
-
- {label => "Large Print",
- id => "mc-large-print",
- name => "limit",
- value => "(mc-collection:LP or mc-collection:LPNF)",
- icon => "search-large-print.gif ",
- title => "Large Print",},
- ],
- },
-{ inner_limit_types_loop => [
- {label => "Kids",
- id => "mc-kids",
- name => "limit",
- value => "(mc-collection:EASY or mc-collection:JNF or mc-collection:JF or mc-collection:JREF or mc-collection:JB)",
- icon => "search-kids.gif",
- title => "Music",},
-
- {label => "Software/Internet",
- id => "mc-sofware-web",
- name => "limit",
- value => "(mc-collection:CDR)",
- icon => "search-software-web.gif",
- title => "Kits",},
-
- {label => "Reference",
- id => "mc-reference",
- name => "limit",
- value => "mc-collection:REF",
- icon => "search-reference.gif",
- title => "Reference",},
-
- ],
- },
-
- ];
- return $outer_limit_types_loop;
-}
-
sub displayServers {
my ( $position, $type ) = @_;
my $dbh = C4::Context->dbh;
value => $data->{host} . ":"
. $data->{port} . "/"
. $data->{database},
+ encoding => ($data->{encoding}?$data->{encoding}:"iso-5426"),
checked => "checked",
icon => $data->{icon},
zed => $data->{type} eq 'zed',
return; #$secondary_servers_loop;
}
+=head2 GetAuthValCode
+
+$authvalcode = GetAuthValCode($kohafield,$frameworkcode);
+
+=cut
+
+sub GetAuthValCode {
+ my ($kohafield,$fwcode) = @_;
+ my $dbh = C4::Context->dbh;
+ $fwcode='' unless $fwcode;
+ my $sth = $dbh->prepare('select authorised_value from marc_subfield_structure where kohafield=? and frameworkcode=?');
+ $sth->execute($kohafield,$fwcode);
+ my ($authvalcode) = $sth->fetchrow_array;
+ return $authvalcode;
+}
+
=head2 GetAuthorisedValues
$authvalues = GetAuthorisedValues($category);
=cut
sub GetAuthorisedValues {
- my $category = shift;
+ my ($category,$selected) = @_;
+ my $count = 0;
+ my @results;
my $dbh = C4::Context->dbh;
my $query = "SELECT * FROM authorised_values";
$query .= " WHERE category = '" . $category . "'" if $category;
my $sth = $dbh->prepare($query);
$sth->execute;
- my $data = $sth->fetchall_arrayref({});
- return $data;
-}
-
-=item fixEncoding
-
- $marcrecord = &fixEncoding($marcblob);
-
-Returns a well encoded marcrecord.
-
-=cut
-sub FixEncoding {
- my $marc=shift;
- my $record = MARC::Record->new_from_usmarc($marc);
- if (C4::Context->preference("MARCFLAVOUR") eq "UNIMARC"){
- use Encode::Guess;
- my $targetcharset="utf8" if (C4::Context->preference("TemplateEncoding") eq "utf-8");
- $targetcharset="latin1" if (C4::Context->preference("TemplateEncoding") eq "iso-8859-1");
- my $decoder = guess_encoding($marc, qw/utf8 latin1/);
-# die $decoder unless ref($decoder);
- if (ref($decoder)) {
- my $newRecord=MARC::Record->new();
- foreach my $field ($record->fields()){
- if ($field->tag()<'010'){
- $newRecord->insert_grouped_field($field);
- } else {
- my $newField;
- my $createdfield=0;
- foreach my $subfield ($field->subfields()){
- if ($createdfield){
- if (($newField->tag eq '100')) {
- substr($subfield->[1],26,2,"0103") if ($targetcharset eq "latin1");
- substr($subfield->[1],26,4,"5050") if ($targetcharset eq "utf8");
- }
- map {C4::Biblio::char_decode($_,"UNIMARC")} @$subfield;
- $newField->add_subfields($subfield->[0]=>$subfield->[1]);
- } else {
- map {C4::Biblio::char_decode($_,"UNIMARC")} @$subfield;
- $newField=MARC::Field->new($field->tag(),$field->indicator(1),$field->indicator(2),$subfield->[0]=>$subfield->[1]);
- $createdfield=1;
- }
- }
- $newRecord->insert_grouped_field($newField);
- }
- }
- # warn $newRecord->as_formatted();
- return $newRecord;
- } else {
- return $record;
- }
- } else {
- return $record;
- }
+ while (my $data=$sth->fetchrow_hashref) {
+ if ($selected eq $data->{'authorised_value'} ) {
+ $data->{'selected'} = 1;
+ }
+ $results[$count] = $data;
+ $count++;
+ }
+ #my $data = $sth->fetchall_arrayref({});
+ return \@results; #$data;
}
=head2 GetKohaAuthorisedValues
=cut
sub GetKohaAuthorisedValues {
- my ($kohafield) = @_;
+ my ($kohafield,$fwcode) = @_;
+ $fwcode='' unless $fwcode;
my %values;
my $dbh = C4::Context->dbh;
- my $sthnflstatus = $dbh->prepare('select authorised_value from marc_subfield_structure where kohafield=?');
- $sthnflstatus->execute($kohafield);
- my $authorised_valuecode = $sthnflstatus->fetchrow;
- if ($authorised_valuecode) {
- $sthnflstatus = $dbh->prepare("select authorised_value, lib from authorised_values where category=? ");
- $sthnflstatus->execute($authorised_valuecode);
- while ( my ($val, $lib) = $sthnflstatus->fetchrow_array ) {
- $values{$val}= $lib;
- }
+ my $avcode = GetAuthValCode($kohafield,$fwcode);
+ if ($avcode) {
+ my $sth = $dbh->prepare("select authorised_value, lib from authorised_values where category=? ");
+ $sth->execute($avcode);
+ while ( my ($val, $lib) = $sth->fetchrow_array ) {
+ $values{$val}= $lib;
+ }
}
return \%values;
}
$res = GetManagedTagSubfields();
+=back
+
Returns a reference to a big hash of hash, with the Marc structure fro the given frameworkcode
-$forlibrarian :if set to 1, the MARC descriptions are the librarians ones, otherwise it's the public (OPAC) ones
-$frameworkcode : the framework code to read
-=back
+NOTE: This function is used only by the (incomplete) bulk editing feature. Since
+that feature currently does not deal with items and biblioitems changes
+correctly, those tags are specifically excluded from the list prepared
+by this function.
-=back
+For future reference, if a bulk item editing feature is implemented at some point, it
+needs some design thought -- for example, circulation status fields should not
+be changed willy-nilly.
=cut
ON marc_tag_structure.tagfield = marc_subfield_structure.tagfield
AND marc_tag_structure.frameworkcode = marc_subfield_structure.frameworkcode
WHERE marc_subfield_structure.tab>=0
-ORDER BY tagsubfield|);
+AND marc_tag_structure.tagfield NOT IN (SELECT tagfield FROM marc_subfield_structure WHERE kohafield like 'items.%')
+AND marc_tag_structure.tagfield NOT IN (SELECT tagfield FROM marc_subfield_structure WHERE kohafield = 'biblioitems.itemtype')
+AND marc_subfield_structure.kohafield <> 'biblio.biblionumber'
+AND marc_subfield_structure.kohafield <> 'biblioitems.biblioitemnumber'
+ORDER BY marc_subfield_structure.tagfield, tagsubfield|);
$rq->execute;
my $data=$rq->fetchall_arrayref({});
return $data;