星期三, 2月 28, 2007

modify zebra isbn

marc_subfield_table.sql

星期一, 2月 26, 2007

發自博客來網路書店

這個訊息是發自博客來網路書店,
告知您策略聯盟的審核已經通過!

【基本資料】
申請日期:2007-02-17 09:18:00
申請帳號:laxendion
網站名稱:南投縣國姓鄉南港國小圖書館
網  址:http://koha.nkes.ntct.edu.tw
網站描述:南投縣國姓鄉南港國小圖書館


【 合作內容】
合約日期:2007/02/26-2008/02/26
(合約到期15天前,系統會發信詢問您是否續約)
回饋分類:無仲介金行銷引薦
回饋金%:


 



==========================
如有任何問題,歡迎來信詢問
ap@books.com.tw
博客來網路書店 敬上
==========================  

星期六, 2月 24, 2007

koha3.0

perl libxml

[Sat Feb 17 11:21:53 2007] [error] [client 127.0.0.1] Start tag expected, '<' not found at /usr/local/lib/perl/5.8.7/XML/LibXML/SAX.pm line 64
[Sat Feb 17 11:21:53 2007] [error] [client 127.0.0.1] at /usr/local/share/perl/5.8.7/XML/Simple.pm line 291

/etc/koha-httpd.conf
SetEnv KOHA_CONF "/etc/koha.xml"

星期五, 2月 16, 2007

zebra command

1. zebraidx init
2. zebraidx create database
3. zebraidx -g iso2709 -d databae update /path/to/marc -n
4. zebraidx commit
5. zebrasrv @:2100

nkes

[nkes]Record type: USmarc
00691cam 2200229 4500
010 0 $a 957-754-154-2 $b 精裝
090 $9 1019 $a 1019
100 $a 20020412d1995 m y0chiy09 e.
101 0 $a chi
102 $a TW
105 $a y z 000fd.
200 1 $a 木魚石 $e 嘉慶皇帝傳奇 $f 林鐵均著.
205 $a 初版.
210 $a 臺北市 $c 國際村出版 $a 板橋市 $c 錦德發行 $d 1995[民84]
215 0 $a 217面 $d 22公分.
225 2 $a 清帝傳奇 $v 11.
606 $a 中國
700 1 $a 李
801 $a TW $b nges $g CCR $m 4
805 $a nges $d 627 $e 3024 $y v.7 $t CCL $v 增訂七版
990 $a BOOK
995 $b nges $c nges $e 中文書庫 $f A01139 $j A01139 $k 627 3024 v.7 $m 20060624 $o 0 $9 1313
--------------------------------------------------------------------------

zebra cfg

http://lists.gnu.org/archive/html/koha-devel/2005-08/msg00057.html

http://www.unt.edu/wmoen/Z3950/GIZMO/section3.htm


http://lists.indexdata.dk/pipermail/zebralist/2005-June/000800.html

GRS-1

[demo]Record type: GRS-1
(3,001) 101445213
(3,010)
(3,0 )
(3,b) 平裝
(3,d) 人民幣2.35元
(3,050)
(3, )
(3,a) 101445213
(3,100)
(3, )
(3,a) 20030718d1986 k y0chib09 e
(3,101)
(3,0 )
(3,a) chi
(3,102)
(3, )
(3,a) cn
(3,105)
(3, )
(3,a) a a 000yy
(3,200)
(3,1 )
(3,a) 系統辨識導論
(3,f) 徐南榮著
(3,205)
(3, )
(3,a) 第1版
(3,210)
(3, )
(3,a) 北京市
(3,c) 電子工業出版社
(3,d) 1986
(3,215)
(3,0 )
(3,a) 212面
(3,c) 圖
(3,d) 26公分
(3,300)
(3, )
(3,a) 簡體字本
(3,300)
(3, )
(3,a) 高等學校教材
(3,320)
(3, )
(3,a) 含參考書目
(3,517)
(3,1 )
(3,a) 系统辨识导论
(3,z) chi
(3,606)
(3, )
(3,2) csh
(3,a) 科學
(3,x) 哲學, 原理
(3,681)
(3, )
(3,a) 301
(3,b) 8556
(3,v) 增訂七版
(3,700)
(3, 1)
(3,a) 徐
(3,b) 南榮
(3,801)
(3, 0)
(3,a) cw
(3,b) 國圖
(3,c) 20060301
(3,g) CCR
(3,801)
(3, 1)
(3,a) cw
(3,b) 國圖
(3,c) 20060301
(3,g) CCR

zebra.cfg

# Simple Zebra configuration file that defines
# a database with MARCXML records.
# $Id: zebra-biblios.cfg,v 1.1.2.2 2006/10/05 20:50:52 kados Exp $
#
# Where are the config files located?
modulePath:/usr/local/lib/idzebra-2.0/modules/
#profilePath:/usr/share/idzebra-2.0/tab/
profilePath:${srcdir:-.}:/home/laxendion/tools/cvs/dev_week/koha/zebraplugin/zebradb/biblios/tab/

encoding: utf-8

# Files that describe the attribute sets supported.
attset: bib1.att
attset: explain.att
attset: gils.att

systag sysno rank
# Specify record type
iso2709.recordType:grs.marcxml.record
iso2709.recordType: grs.marc.unimarc
recordType:grs.xml
#recordId: (bib1,Identifier-standard)
#recordId: (bib1,Local-number)
elm 001 local-number !
storeKeys:1
storeData:1


# Lock File Area
lockDir: /home/zebra/zebradb/biblios/lock
perm.anonymous:rw
#perm.kohaadmin:rw
#passw.kohalis
register: /home/zebra/zebradb/biblios/register:1G
shadow: /home/zebra/zebradb/biblios/shadow:1G

# Temp File area for result sets
setTmpDir: /home/zebra/zebradb/biblios/tmp

# Temp File area for index program
keyTmpDir: /home/zebra/zebradb/biblios/key

# Approx. Memory usage during indexing
memMax: 40M

MARC::File::XML

http://lists.gnu.org/archive/html/koha-devel/2006-05/msg00036.html

Hi everyone,

Just providing an update on this issue. As you may recall, I've
been putting the MARC::Record suite, specifically MARC::File::XML
and MARC::Charset, through some fairly rigourous tests, including
a 'roundtrip' test, which converts the binary MARC-8 records to
MARCXML / UTF-8 and then back to binary MARC but encoded as UTF-8.
This test is available here:

http://liblime.com/public/roundtrip.pl

I discovered a number of bugs or issues, not in the MARC::* stuff, but in the
back-end SAX parsers. I'll just summarize my discoveries here for
posterity:

1. MARC::File::XML, if it encounteres unmapped encoding in a
MARC-8 encoded binary MARC file (in as_xml()) will drop the entire
subfield where the improper encoding exists. The simple solution is
to always use: MARC::Charset->ignore_errors(1); if you expect your
data will have improper encoding.

2. the XML::SAX::PurePerl parser cannot properly handle combining
characters. I've reported this bug here:

http://rt.cpan.org/Public/Bug/Display.html?id=19543

At the suggestion of several, I tried replacing my default system
parser with expat, which cause another problem:

3. handing valid UTF-8 encoded XML to new_from_xml() sometimes
causes the entire record to be destroyed when using XML::SAX::Expat
as the parser (with PurePerl these seem to work). It fails with
the error:

not well-formed (invalid token) at line 23, column 43, byte 937 at
/usr/lib/perl5/XML/Parser.pm line 187

I haven't been able to track the cause of this bug, I eventually
found a workaround that didn't result in the above error, but instead,
silently mangled the resulting binary MARC record on the way out:

4. Using incompatible version of XML::SAX::LibXML and libxml2 will
cause binary MARC records to be mangled when passed through new_from_xml()
in some cases. The solution here is to make sure you're running
compatible versions of XML::SAX::LibXML and libxml2. I run Debian
Sarge and when I just used the package maintainer's versions it
fixed the bug. It's unclear to me why the binary MARC would be
mangled, this may indicate a problem with MARC::* but I haven't
had time to track it down and since installing compatible versions
of the parser back-end solves the problem I can only assume it's
the fault of the incompatible parsers.

Issues #3 and #4 above can be replicated following batch of records
through the roundtrip.pl script above:

http://liblime.com/public/several.mrc

If you want to test #2, try running this record through roundtrip.pl:

http://liblime.com/public/combiningchar.mrc

BTW: you can change your default SAX parser by editing the .ini file ...
mine is located in /usr/local/share/perl/5.8.4/XML/SAX/ParserDetails.ini

So the bottom line is, if you want to use MARC::File::XML in any
serious application, you've got to use compatible versions of the
libxml2 parser and XML::SAX::LibXML. Check the README in the perl
package for documentation on which are compatible...

Maybe a note somewhere in the MARC::File::XML documentation to point
these issues out would be useful. Also, it wouldn't be too bad to have
a few tests to make sure that the system's default SAX parser is capable
of handling these cases. Just my two cents.

Cheers,

zebra unimarc

[biblios]Record type: USmarc
00765nam0 2200253 4500
001 89017875
010 0 $a 957-33-1758-3 $b 平裝
090 $9 13 $a 13
100 $a 20001123d2000 k y0chiy09 e.
101 1 $a chi
102 $a US
105 $a a z 000ay.
200 1 $a 哈利波特 $e 消失的密室 $f J. K. 羅琳(J. K. Rowling)著 $g 彭倩文譯.
205 $a 初版.
210 $a 臺北市 $c 皇冠文化 $d 2000[民89]
215 0 $a 396面 $d 21公分.
225 1 $a 皇冠叢書 $v 第3063種.
225 1 $a Choice $v 36.
700 1 $a 羅林
702 1 $a 彭
801 0 $b lins $c 20010223 $g AACR
805 $f c33 $f c26.
990 $a BOOK
995 $b 輔仁大學圖書資訊學系資訊組織 $c 輔仁大學圖書資訊學系資訊組織 $e 西文書庫 $f 2 $j 2 $k 2 $o 0 $9 10
--------------------------------------------------------------------
[biblios]Record type: USmarc
00631nam0 2200205 4500
010 0 $a 4335352514 $b 精裝
090 $9 23 $a 23
100 $a 20060526d2005 k y0chiy09 e
101 0 $a jpn
102 $a US
105 $a y z 000yy
200 1 $a 消費者契約の法理論 $f 後藤卷則著
205 $a 初版
210 $a 東京 $c 弘文堂 $d 2002[民91]
215 0 $a 370面 $d 22公分
606 $a 消費者保護
700 $a 後藤
801 0 $b lins $c 20060526 $g CCR
990 $a BOOK
995 $b 輔仁大學圖書資訊學系資訊組織 $c 輔仁大學圖書資訊學系資訊組織 $e 西文書庫 $f 18 $j 18 $k 222 22 $m 20050311 $o 0 $9 20
-------------------------------------------------------------------------
[biblios]Record type: USmarc
00699cam0 2200229 4500
001 100141393
010 0 $b 平裝
090 $9 35 $a 35
100 $a 19890421d1984 k a0chib09 e
101 0 $a chi
102 $a US
105 $a a z 000yy
200 1 $a 最新臺灣公路指南 $f [南華出版社編輯部編]
210 $a 臺北市 $c 南華 $d 民73
215 0 $a 60面 $d 9 x 18公分
606 $a 公路
712 02 $a 南華出版社
801 0 $b lins $c 19970417 $g CCR
801 0 $b lins $c 19970417 $g CCR
801 0 $b lins $c 20060315 $g AACR
990 $a ????
995 $b 輔仁大學圖書資訊學系資訊組織 $c 輔仁大學圖書資訊學系資訊組織 $e 中文書庫 $f 35 $j 35 $k 234 44 $m 20070125 $o 0 $9 32
------------------------------------------------------------------------
[biblios]Record type: USmarc
00680cem0 2200205 4500
001 101603678
010 0 $b 平裝
090 $9 60 $a 60
100 $a 20041105d1947 m y0chib09 e
101 0 $a chi $a eng
102 $a US
200 1 $a 最新省都觀光地圖 $d Sketch map of Taipei $f [臺灣旅行社編]
205 $a 第三版
210 $a [臺北市 $c 臺灣旅行社 $d 民36]
215 0 $a 1幅地圖 $d 印於79 x 53公分紙上
712 02 $a 臺灣旅行社
801 0 $b lins $c 20060411 $g CCR
801 0 $b lins $c 20060411 $g AACR
990 $a BOOK
995 $b 輔仁大學圖書資訊學系資訊組織 $c 輔仁大學圖書資訊學系資訊組織 $e 中文書庫 $f 60 $j 60 $k 222 $m 20041109 $o 0 $9 57

koha3.0

i set up rel_3_0 and use zebra(unimarc),
my opac operl script & opac_tmpl(prog) use rel_3_0.
database execute updatedatabase.

koha.xml
---------------------------------------------

tcp:@:9900

/home/zebra/zebradb/biblios
/home/laxendion/tools/cvs/dev_week/koha/zebraplugin/etc/zebra.cfg
/home/laxendion/tools/cvs/dev_week/koha/zebraplugin/etc/pqf.properties


Koha
-------------------------------------------
it means mysql database name or zebra databae name.
i can't sure which that?
--------------------------------------------
localhost
koha
dion0104
default
0
default
0
/usr/loca/koha/intranet
/usr/local/koha/opac
/usr/local/koha/opac/htdocs/opac-tmpl
/usr/local/koha/intranet/htdocs/intranet-tmpl
/usr/local/koha/intranet/htdocs/intranet-tmpl/default/en/includes/


-----------------------------------------------------------------------
i import some biblios. i use yaz-client

root@laxendion:~# yaz-client @:9900/biblios
Connecting...OK.
Sent initrequest.
Connection accepted by v3 target.
ID : 81
Name : Zebra Information Server/GFS/YAZ
Version: Zebra 2.0.6/1.108/2.1.46
Options: search present delSet triggerResourceCtrl scan sort extendedServices namedResultSets
Elapsed: 0.052761
Z> find @attr 1=1016 perl
Sent searchRequest.
Received SearchResponse.
Search was a success.
Number of hits: 1, setno 1
SearchResult-1: term=perl cnt=1
records returned: 0
Elapsed: 0.208630
----------------------------------------------------
show 1
Z> show 1
Sent presentRequest (1+1).
Records: 1
[biblios]Record type: USmarc
01051 2200217 4500
010 $a 96007074 //r96
020 $a 1571690581
082 $a 005.13/3
090 $c 15 $d 15
100 1 $a Glover, Mike.
245 10 $a Perl 5 how-to / $c Mike Glover, Aidan Humphreys, Ed Weiss.
260 $a Corte Madera, Calif. : $b Waite Group Press, $c c1996.
300 $a xxiii, 860 p. : $b ill. ; $c 23 cm. + $e 1 computer laser optical disc (4 3/4 in.)
500 $a "The definitive perl programming problem-solver."--Cover.
538 $a System requirements for accompanying computer disc: IBM PC or UNIX workstation; DOS 3.3 or greater; Windows 3.1 or greater; Windows 95; UNIX-compatible operating system with Perl port; recommended: CD-ROM drive and Internet access.
650 0 $a Perl (Computer program language)
650 0 $a Object-oriented programming (Computer science)
700 1 $a Humphreys, Aidan.
700 1 $a Weiss, Ed.
942 $c BOOK
995 $b 輔仁大學圖書資訊學系資訊組織 $c 輔仁大學圖書資訊學系資訊組織 $e 西文書庫 $f 11 $j 11 $k 123.34 $o 0 $9 12

nextResultSetPosition = 2
Elapsed: 0.052356
--------------------------------------------------------------------------
and then my koha.conf

zebradb=localhost:9900/biblios
database=Koha
hostname=localhost
user=koha
pass=dion0104
intranetdir=/usr/local/koha/intranet
opacdir=/usr/local/koha/opac
kohalogdir=/usr/local/koha/log
kohaversion=3.0
httpduser=www-data
intrahtdocs=/usr/local/koha/intranet/htdocs/intranet-tmpl
opachtdocs=/usr/local/koha/opac/htdocs/opac-tmpl
-----------------------------------------------------
i run opac-search.pl but it can't work

error log
--------------------------------------------
error : Can't call method "_conn" on an undefined value at /usr/local/lib/perl/5.8.7/ZOOM.pm line 123.


[Fri Feb 16 09:43:10 2007] [error] [client 127.0.0.1] Start tag expected, '<' not found at /usr/local/lib/perl/5.8.7/XML/LibXML/SAX.pm line 64
[Fri Feb 16 09:43:10 2007] [error] [client 127.0.0.1] at /usr/local/share/perl/5.8.7/XML/Simple.pm line 291

星期四, 2月 08, 2007

可重複欄位

cp koha227 acqui.simple

books.com.tw 柏克萊

  1. 得獎榮譽
  2. 內容簡介
  3. 內容連載
  4. 同類推薦書籍
  5. 讀者書評
  6. 目錄

星期二, 2月 06, 2007

opac-images

modify

opac-basket.tmpl
opac-shelives.tmpl
opac-shelives.pl

$line{'isbn'}=$item->{'isbn'};

opac-readingrecord.tmpl
opac-readingrecord.pl
$line{isbn}=$issues->[$i]->{'isbn'};

星期一, 2月 05, 2007

rss XML::Simple

#!/usr/bin/perl

use strict;
use XML::Simple;
use LWP::Simple;
use Data::Dumper;

my $url = "http://newsrss.bbc.co.uk/rss/newsonline_world_edition/middle_east/rss.xml";


my $content = get($url);
warn "could not retrieve $url" unless $content;

my $simple = XML::Simple->new();
my $data = $simple->XMLin($content);
# DEBUG
#print Dumper($data) . "\n";


foreach my $result (@{$data->{channel}->{item}}){

print
join "\n",
$result->{title} . "\n",
$result->{description} . "\n\n";
}

phpMyAdmin 2.7.0(含)以上版本 中文顯示亂碼問題解決 + 基本設定

phpMyAdmin 2.7.0(含)以上版本 中文顯示亂碼問題解決 + 基本設定

select_lang.lib.php 這個檔案內容
'big5' => 'big5', 更改 'big5' => 'latin1',
'utf-8' => 'utf-8', 更改 'utf-8' => ' latin1',

星期六, 2月 03, 2007

Search.pm ISBN

ISBN -

Search.pm

line 1545;

$data->{'isbn'} = DisplayISBN($data->{'isbn'});
$data->{'isbn'} =~ s/-//g;

SearchMarc.pm

koha 229

NOT statements

222
$word =~ s/%//g unless length($word)>4;
$word = "\%" . $word . "\%";

247
NORMAL statements
$word =~ s/%//g unless length($word)>4;
$word = "\%" . $word . "\%";