- Koha-devel - lists.koha-community.org

Fault in Cataloguing Search
by C W Nel 16 Nov '08

16 Nov '08

On logging in to Koha 3, choosing Cataloguing and doing a Cataloguing Search, I get the following instead of 'the number of results': ARRAY(0x93f2480) result(s) found in catalog Is this a known problem? Thanks

2 1

(no subject)
by ff darkness 16 Nov '08

16 Nov '08

Dear sirs, I am a library technique principal of Chinese Mainland.I have payed close attention to koha for a long time.We are a library develomen team and going in for carry out the job of opensource.We believe that we have the ablity that you need: 1.the Chinese and English translation. 2.If you need ,we can translate into Japanese. 3.perl compile and bug solving 4.soft promotion 5.our own Promotion platform:www.lib20.com We are very interested in popularizing koha to the Small and medium-sized libraries in some areas poverty freely.So we are writing to enquire whether you would be willing to establish the relations with us. We hope you will understand our position and look forward to your early reply. In the future we should open up the area that the automation management system develoment of the library online. my Msn:ff_dreamer@hotmail.com <Msn%3Aff_dreamer(a)hotmail.com> Best regards Sincerely lee

1 0

Re: [Koha-devel] [Koha] Wrong SAX Parser - does it matter? -> impact on Debian packaging
by Vincent Danjean 15 Nov '08

15 Nov '08

[moving from koha to koha-devel due to my questions] Mason James wrote: > On 2008/11/12, at 11:56 AM, Brendan Gallagher wrote: >> Did you try editing ParserDetails.ini What I do not understand is why koha is requiring to modify such a global configuration file. Is this setup really still required ? Were not the bugs from the expat filter fixed ? I do not know at all why this parser is/was needed, but Expact seems to work for the test case in koha scripts : vdanjean koha/misc$ ./sax_parser_print.pl XML::SAX::Expat=HASH(0x115c4f0) vdanjean koha/misc$ ./sax_parser_test.pl é vdanjean koha/misc ) By the way, this kind of requirement is really a bad thing (with my hat of trying to make a official Debian package) => it will be NOT possible at all that the koha package modifies the global configuration file. However, I really do not understand why, if the SAX parser is really needed, it is not required in the koha code itself. For example, I tried to add as the first line in sax_parser_print.pl and sax_parser_test.pl the line: $XML::SAX::ParserPackage = "XML::LibXML::SAX"; (tip found in the doc of XML::SAX::ParserFactory) Without changing my global configuration file, sax_parser_print.pl now report XML::LibXML::SAX. I failed to see where koha really instantiate a sax parser. 'rgrep "use XML::SAX" koha/' does not return anything (but sax_parser_print.pl and sax_parser_test.pl). Perhaps, koha gurus can know where SAX parser are used and add the line requesting the particular parser if it is still needed ? Regards, Vincent -- Vincent Danjean GPG key ID 0x9D025E87 vdanjean(a)debian.org GPG key fingerprint: FC95 08A6 854D DB48 4B9A 8A94 0BF7 7867 9D02 5E87 Unofficial pacakges: http://www-id.imag.fr/~danjean/deb.html#package APT repo: deb http://perso.debian.org/~vdanjean/debian unstable main

1 0

3.0.1 delay
by Henri-Damien LAURENT 14 Nov '08

14 Nov '08

Hi, I am writing to announce a little delay in 3.0.1 I propose to freeze patches on November, 21st. Then let 1 month for translations, if any one is OK. And 3.0.1 would be hopefully out on the 21st december. Sorry for cross posting. -- Henri-Damien LAURENT

1 0

The authnotrequired flag in scripts
by Rick Welykochy 14 Nov '08

14 Nov '08

Hi all I am about to lock down a client Koha site so that users *MUST* be logged in to access any page. In Koha/2.2.9 this was straightforward: vi `grep -rl "authnotrequired => 1" /usr/local/koha/` and change each "authnotrequired => 1" to "authnotrequired => 0" It appears that things are not to simple in K3. There appears to be error handling and other scripts where this flag must remain as "authnotrequired => 1", e.g. 400.pl, abort.pl. I am in the process of writing a simple shell script to make this change globally to an installed instance of K3, but would like to avoid changing this flag where it should be left alone. Can anyone come up with a list of the perl scripts in the two cgi-bin directories where this flag MUST remain set to one? thanks rickw -- ________________________________________________________________ Rick Welykochy || Praxis Services || Internet Driving Instructor When the power of love overcomes the love of power, the world will know peace. -- Jimi Hendrix

3 4

Re: [Koha] primera vez
by eduardo vargas 14 Nov '08

14 Nov '08

hola mucho gusto, soy eduardo y estoy entrando en el tema de koha , empece hace un mes y medio . quiesiera hacerles unas preguntas si no es mucha molestio y si me puden enviar algun documento o indicar donde descargarlo. yo estoy trabajando en la parte de programacion . mis preguntas son ¿porque se usa perl en koha es decir que ventajas o beneficios trae? ¿ si los scripts de perl que trae koha se dividen en categorias? ¿porque instalar koha sobre linux? como ve es informacion sobre la programacion de koha. desde ya muchas gracias . eduardo

1 0

CPLANPLUS
by Rick Welykochy 14 Nov '08

14 Nov '08

Anyone have experience with the impending CPAN replacement called CPLANPLUS? http://cpanplus.dwim.org/ "CPAN++ (also referred to and pronounced as CPANPLUS) is a new and flexible method of perl module management and installation using the Comprehensive Perl Archive Network (CPAN). It aims to be a rewrite, and in time a replacement to the current CPAN.pm. In addition to fixing some long-standing problems, CPAN++ includes new features, such as module uninstall. ... Note: CPANPLUS will not become a full drop-in replacement for CPAN.pm. Instead, it will become part of the core in 5.10 under a new (as yet undetermined) name and CPAN.pm will be deprecated. " I raise this in light of addressing the issue of problems many seem to be having installing the perl module requirements for Koha. cheers rickw -- _________________________________ Rick Welykochy || Praxis Services Tis the dream of each programmer before his life is done, To write three lines of APL and make the damn thing run.

2 1

[PATCH] C4::Table - A simple OO database abstraction layer.
by Joe Atzberger 14 Nov '08

14 Nov '08

The purpose of Table is to provide all the basic functionality that is reimplemented multiple times throughout Koha for each DB table. This code is considered experimental and does not yet supplant any production code. Please examine and test, like: use C4::Table; my $table = C4::Table->new("borrowers"); my $set = $table->select({surname=>"Smith", sort=>"branchcode,firstname"}); The argument style to select is similar to functions in C4::Tags using a hashref. The return from select is a reference to array of hashrefs, like fetchall_arrayref({}). The full database row is represented, like "SELECT(*)". --- C4/Table.pm | 216 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ t/other/README | 5 ++ t/other/Table.t | 103 ++++++++++++++++++++++++++ 3 files changed, 324 insertions(+), 0 deletions(-) create mode 100644 C4/Table.pm create mode 100644 t/other/README create mode 100644 t/other/Table.t diff --git a/C4/Table.pm b/C4/Table.pm new file mode 100644 index 0000000..0b7737b --- /dev/null +++ b/C4/Table.pm @@ -0,0 +1,216 @@ +package C4::Table; +# Copyright 2008 LibLime +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# 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 + +use strict; +use warnings; +use Carp; + +use C4::Context; +use C4::Debug; +use Data::Dumper; + +use vars qw($VERSION); +use vars qw(@tables $default); + +BEGIN { + $VERSION = 0.02; # experimental! + if ($debug) { + require Data::Dumper; + import Data::Dumper qw(:DEFAULT); + } +} + +$default = { + tablename => undef, + columns => undef, # = fetchall_arrayref({}) from SHOW COLUMNS + fields => undef, # = ref to array of ALL field names + key_fields => undef, # = hashref of just the keys (field_name => keytype) +}; +### Don't confuse the data structure here with the return values of similarly named functions + +sub new { + my ($class) = shift or croak "Bad call to " . __PACKAGE__ . " constructor new"; + my $type = ref($class) || $class; + my $self = {}; + foreach (keys %$default) { + $self->{$_} = $default->{$_}; + } + $debug and warn "new " . __PACKAGE__ ; + bless $self, $type; + return $self->_init(@_); +} + +sub fields { # returns array + my $self = shift or return undef; + defined ($self->{fields}) and return @{$self->{fields}}; + my @fields = map {$_->{Field}} @{$self->columns}; + $self->{fields} = \@fields; + return @fields; +} +sub key_fields { # returns hash + my $self = shift or return undef; + defined ($self->{key_fields}) and return %{$self->{key_fields}}; + my @keys = grep {$_->{Key}} @{$self->columns}; + my %map = (); + foreach (@keys) { + $map{$_->{Field}} = $_->{Key}; + } + $self->{key_fields} =\%map; + return %map; +} + +sub _columns_init { + my $self = shift or return undef; + $self->{tablename} or croak "No tablename set for " . __PACKAGE__ . " object"; + my $sth = C4::Context->dbh->prepare("SHOW COLUMNS FROM " . $self->{tablename}); + $sth->execute; + $self->{columns} = $sth->fetchall_arrayref({}); + return $self; +} +sub columns { # returns reference to array of hashref, i.e. [{},{},{}...] + my $self = shift or return undef; + defined ($self->{columns}) or $self->_columns_init; + return $self->{columns}; +} + +sub _init { + my $self = shift or return undef; + unless ($self->{tablename} = shift) { + croak "Missing tablename argument in _init for " . __PACKAGE__ ; + return undef; + } + $self->_columns_init; + ($debug > 1) and print STDERR __PACKAGE__ . " : " . Dumper($self); + return $self; +} + +sub delete ($$;$) { + die "delete not implemented yet"; + my $self = shift or return undef; + my $hash = shift || {}; +} + +sub parse_args ($$$) { # returns $sql_fragment, @args + my $self = shift or croak "Bad call to method parse_args"; + my $op = shift or croak "Bad call to method parse_args"; + my $hash = shift || {}; + my @ok_fields = $self->fields; + my $wheres; + my $limit = ""; + my $order = ""; + my @exe_args = (); + push @ok_fields, 'limit', 'sort'; # push the limit! :) + foreach my $key (keys %$hash) { + $debug and print STDERR "$op arg. '$key' = ", $hash->{$key}, "\n"; + unless (length $key) { + carp "Empty argument key to $op: ignoring!"; + next; + } + unless (1 == scalar grep {/^ $key $/x} @ok_fields) { + carp "$op received unreconized argument key '$key'."; + next; + } + if ($key eq 'limit') { + my $val = $hash->{$key}; + unless ($val =~ /^(\d+,)?\d+$/) { + carp "Non-nuerical limit value '$val' ignored!"; + next; + } + $limit = " LIMIT $val\n"; + } elsif ($key eq 'sort') { + unless ($op eq 'select') { + carp 'Unexpected "sort" in arguments to non-SELECT parse_args: ignoring'; + next; + } + foreach my $by (split /\s*\,\s*/, $hash->{$key}) { + my $sign; + $by =~ s/^([-+])// and $sign = $1; + unless (grep /^($by)$/, $self->fields) { + carp "Illegal sort order '$by'"; + next; + } + if ($order) { + $order .= ", "; + } else { + $order = " ORDER BY "; + } + $order .= $by . " " . ((!$sign) ? '' : $sign eq '-' ? 'DESC' : $sign eq '+' ? 'ASC' : '') . "\n"; + } + } else { + my $whereval = $hash->{$key}; + my $op = ($whereval =~ s/^(>=|<=)// or + $whereval =~ s/^(>|=|<)// ) ? $1 : '='; + $wheres .= ($wheres) ? " AND $key $op ?\n" : " WHERE $key $op ?\n"; + push @exe_args, $whereval; + } + } + ($order) and $wheres .= " $order"; + ($limit) and $wheres .= " $limit"; + $debug and print STDERR "$op WHERE(_LIMIT): $wheres\n"; + return $wheres, @exe_args; +} + +sub insert ($$) { + my $self = shift or croak "Bad call to method insert"; + my ($sql_tail,@exe_args) = $self->parse_args('insert', shift); + my $query = "SELECT * FROM $self->{tablename} " . ($sql_tail||''); + $debug and print STDERR "insert query:\n $query\n", + "insert query args: ", join(',', @exe_args), "\n"; + my $sth = C4::Context->dbh->prepare($query) or carp "dbh->prepare failed"; + if (@exe_args) { + $sth->execute(@exe_args); + } else { + $sth->execute; + } + return $sth->fetchall_arrayref({}); +} + +sub select { + my $self = shift or croak "Bad call to method select"; + my ($sql_tail,@exe_args) = $self->parse_args('select', shift); + my $query = "SELECT * FROM $self->{tablename} " . ($sql_tail||''); + $debug and print STDERR "select query:\n $query\n", + "select query args: ", join(',', @exe_args), "\n"; + my $sth = C4::Context->dbh->prepare($query); + if (@exe_args) { + $sth->execute(@exe_args); + } else { + $sth->execute; + } + return $sth->fetchall_arrayref({}); +} + +1; +__END__ + +=head1 C4::Table - A DBI for any and all tables. + +This class is intended to stand in for all the basic methods (select, insert, update, delete) that are re-implemented +everywhere. + +=head1 SYNOPSIS + +my $table = C4::Table->new('borrowers'); +my $set = $table->select({surname=>'Smith', sort=>'branchcode,firstname'}); + +my $all_branches = C4::Table->new('branches')->select({sort=>'branchname'}); + +=head1 TODO More documentation + +=head1 AUTHOR + +Joe Atzberger - atz AT liblime.com diff --git a/t/other/README b/t/other/README new file mode 100644 index 0000000..9e44dab --- /dev/null +++ b/t/other/README @@ -0,0 +1,5 @@ +This directory is for optional and experimental tests that do not get run by +"make test" from the t/ directory. + +Some of these tests may have additional module dependencies to demonstrate the +difference between alternative implementations. diff --git a/t/other/Table.t b/t/other/Table.t new file mode 100644 index 0000000..670c13e --- /dev/null +++ b/t/other/Table.t @@ -0,0 +1,103 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use Data::Dumper; + +use Test::More tests => 11; + +BEGIN { + use FindBin; + use lib $FindBin::Bin; + use_ok('C4::Table'); +} + +sub print_results ($;$) { + my $rows = shift; + my $max = (@_ ? shift : undef); + my $i = 0; + foreach my $row (@$rows) { + my @keys = sort keys %$row; + unless ($i++) { + diag(join "\t", @keys); + diag(join "\t", map {'-' x $_} map {length} @keys); + } + if ($max and $i > $max) { + diag(" ... ERROR: TOO MANY ROWS ... "); + return 0; + } + print "# " . (join "\t", map {$row->{$_}||''} @keys), "\n"; + # NOT + # diag (join "\t", map {$row->{$_}||''} @keys); + # because Test::Builder cannot handle Unicode/utf8 strings + # like "Žukauskaitė" + } +} +sub field_we_want ($) { + my $x = shift; + return ($x eq 'surname' or $x eq 'borrowernumber' or $x eq 'cardnumber' or $x eq 'firstname' or + $x eq 'branchcode' or $x eq 'userid' or $x eq 'categorycode') ? 1 : 0; +} + +binmode STDOUT, ':utf8'; +binmode STDERR, ':utf8'; +diag("843 LCC 1000001149 PT Simona Žukauskaitė szukaus06"); +my %tables; +my @tablenames = (qw(branches borrowers)); + +my $columns; +foreach my $tname (@tablenames) { + ok($tables{$tname} = C4::Table->new($tname), "C4::Table->new('$tname')"); +} +# construct all up front to test object independence from CLASS + +foreach my $tname (@tablenames) { + ok($columns = $tables{$tname}->columns, "\$$tname" . '->columns'); + diag(sprintf "$tname table has %2d columns:", scalar(@$columns)); + my $maxwidth = 0; + foreach(map {length($_->{Field})} @$columns) { + ($_ > $maxwidth) and $maxwidth = $_; + } + # diag("widest field name is $maxwidth characters"); + foreach(@$columns) { + my $padding = $maxwidth-length($_->{Field}); + diag(sprintf "\t$tname.%s %" . $padding . "s %s", $_->{Field}, '', $_->{Type}); + } + diag(sprintf "END $tname table (%2d columns)", scalar(@$columns)); + print "#\n"; +} + +foreach my $tname (qw(branches)) { + my $select; + ok($select = $tables{$tname}->select({sort=>"+branchcode"}), "\$$tname" . '->select({sort=>"+branchcode"})'); + diag(scalar(@$select) . " $tname retrieved, sorted by branchcode ASCENDING:"); + print_results($select); + ok($select = $tables{$tname}->select({sort=>"-branchcode"}), "\$$tname" . '->select({sort=>"-branchcode"})'); + diag(scalar(@$select) . " $tname retrieved, sorted by branchcode DESCENDING:"); + print_results($select); +} +foreach my $tname (qw(borrowers)) { + my ($select, $count); + ok($select = $tables{$tname}->select({sort=>"+surname", limit=>5}), "\$$tname" . '->select({sort=>"+surname", limit=>5})'); + diag(scalar(@$select) . " $tname retrieved, sorted by surname ASCENDING, limit 5:"); + ok($count = scalar(@$select) <= 5, "limit=>5 returned " . scalar(@$select) . " items"); + foreach my $row (@$select) { + foreach (keys %$row) {field_we_want($_) or delete $row->{$_};} + # make the display more managable. note: you wouldn't want to do this (select * then purge) in production code + } + print_results($select, 5); + ok($select = $tables{$tname}->select({sort=>"-surname", limit=>5}), "\$$tname" . '->select({sort=>"-surname", limit=>5})'); + diag(scalar(@$select) . " $tname retrieved, sorted by surname DESCENDING, limit 5:"); + ok($count = scalar(@$select) <= 5, "limit=>5 returned " . scalar(@$select) . " items"); + foreach my $row (@$select) { + foreach (keys %$row) {field_we_want($_) or delete $row->{$_};} + # make the display more managable. note: you wouldn't want to do this (select * then purge) in production code + } + print_results($select, 5); +} + +############################# +diag "done.\n"; +exit; +############################# + -- 1.5.5.GIT

4 6

Re: [Koha-devel] [Koha] sound cues
by Paul POULAIN 13 Nov '08

13 Nov '08

Owen Leonard a écrit : >> here is the catch, i suspect even a wav file needs a plug-in to play >> correctly > > This is the case in my tests on Windows. The sound will have to be played only on circ-desk (not on OPAC or on all library computers) So I think it's acceptable to have something needing to be installed on those computers. Anyway, there's no other possibilities in HTML if I'm not mistaken. a syspref with html of the "play sound" would be perfect I think : it could either be <embeed> or <playflash> or whatever you want. We would just need 2 : - one "beep OK" - one "beep problem" -- Paul POULAIN http://www.biblibre.com Expert en Logiciels Libres pour l'info-doc NOUVEAU TELEPHONE : 04 91 81 35 08

2 1

Tab stops in source code
by Rick Welykochy 13 Nov '08

13 Nov '08

Hi all In the file abort.pl in Koha 3 I see the follow cryptic comment: # Please use 8-character tabs for this file (indents are every 4 characters) Does this mean that tabs should not be used for indentation, since a tab would indent 8 character positions in the source? Does this imply that we should be using FOUR SPACES for each indent level? If the answer to the latter is yes, I must register my protest. Might I suggest that we adopt a an indentation standard that makes use of the TAB character, and that the tab stop be set to 4 character positions? As it stands, much of the Koha source code is difficult to read and suffers from a variety of inconsistent indentation styles. Comments from developers most welcome. cheers rickw -- ________________________________________________________________ Rick Welykochy || Praxis Services || Internet Driving Instructor When the power of love overcomes the love of power, the world will know peace. -- Jimi Hendrix

8 14