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

CVS: koha moredetail.pl,1.2,1.3 modbibitem.pl,1.1.1.1,1.2
by Chris Cormack 10 Sep '01

10 Sep '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv3802 Modified Files: moredetail.pl modbibitem.pl Log Message: Fixing a glitch that was showing the biblio notes field where the biblioitems notes should have been displaying Index: moredetail.pl =================================================================== RCS file: /cvsroot/koha/koha/moredetail.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** moredetail.pl 2001/03/15 10:17:33 1.2 --- moredetail.pl 2001/09/10 23:37:09 1.3 *************** *** 35,39 **** my (@items)=itemissues($bi); ! my ($order)=getorder($bi,$bib); #print @items; my $count=@items; --- 35,39 ---- my (@items)=itemissues($bi); ! my ($order,$ordernum)=getorder($bi,$bib); #print @items; my $count=@items; *************** *** 89,94 **** <b>Illus:</b> $data->{'illus'}<br> <b>Size:</b> $data->{'size'}<br> ! <b>Notes:</b> $data->{'notes'}<br> <b>No. of Items:</b> $count printend ; --- 89,95 ---- <b>Illus:</b> $data->{'illus'}<br> <b>Size:</b> $data->{'size'}<br> ! <b>Notes:</b> $data->{'bnotes'}<br> <b>No. of Items:</b> $count + printend ; *************** *** 98,101 **** --- 99,103 ---- } print <<printend + </font> </TD> *************** *** 118,121 **** --- 120,124 ---- <input type=hidden name=bibitem value=$bi> <input type=hidden name=item value=$items[$i]->{'itemnumber'}> + <input type=hidden name=type value=$type> <INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif"> <INPUT TYPE="image" name="delete" VALUE="delete" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif"> *************** *** 154,161 **** <b>Replacement Price:</b> $items[$i]->{'replacementprice'}<br> <b>Item lost:</b> $items[$i]->{'itemlost'}<br> ! <b>paid by:</b><br> <b>Notes:</b> $items[$i]->{'itemnotes'}<br> <b>Renewals:</b> $items[$i]->{'renewals'}<br> ! <b><a href=/cgi-bin/koha/acqui/acquire.pl?recieve=$order->{'ordernumber'}&biblio=$bib&invoice=$order->{'booksellerinvoicenumber'}&catview=yes>Accession</a> Date: $items[$i]->{'dateaccessioned'}<br> printend ; --- 157,164 ---- <b>Replacement Price:</b> $items[$i]->{'replacementprice'}<br> <b>Item lost:</b> $items[$i]->{'itemlost'}<br> ! <b>Paid for:</b> $items[$i]->{'paidfor'}<br> <b>Notes:</b> $items[$i]->{'itemnotes'}<br> <b>Renewals:</b> $items[$i]->{'renewals'}<br> ! <b><a href=/cgi-bin/koha/acqui/acquire.pl?recieve=$ordernum&biblio=$bib&invoice=$order->{'booksellerinvoicenumber'}&catview=yes>Accession</a> Date: $items[$i]->{'dateaccessioned'}<br> printend ; Index: modbibitem.pl =================================================================== RCS file: /cvsroot/koha/koha/modbibitem.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** modbibitem.pl 2000/12/19 23:45:52 1.1.1.1 --- modbibitem.pl 2001/09/10 23:37:09 1.2 *************** *** 113,117 **** <td><input type=text name=Volume value="$data->{'volumeddesc'}" size=20></td></tr> <tr valign=top bgcolor=white><td>Notes</td> ! <td><input type=text name=Notes value="$data->{'notes'}" size=20></td></tr> <tr valign=top bgcolor=white><td>Size</td> <td><input type=text name=Size value="$data->{'size'}" size=20></td></tr> --- 113,117 ---- <td><input type=text name=Volume value="$data->{'volumeddesc'}" size=20></td></tr> <tr valign=top bgcolor=white><td>Notes</td> ! <td><input type=text name=Notes value="$data->{'bnotes'}" size=20></td></tr> <tr valign=top bgcolor=white><td>Size</td> <td><input type=text name=Size value="$data->{'size'}" size=20></td></tr>

1 0

CVS: koha/circ circulation.pl,1.19,1.20
by Chris Cormack 17 Aug '01

17 Aug '01

Update of /cvsroot/koha/koha/circ In directory usw-pr-cvs1:/tmp/cvs-serv19145/circ Modified Files: circulation.pl Log Message: Changed the sorting of the hash of items on issue. To sort numerically, (so 10 comes after 2) Just a quick fix to get the items showing in date_due order Index: circulation.pl =================================================================== RCS file: /cvsroot/koha/koha/circ/circulation.pl,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -r1.19 -r1.20 *** circulation.pl 2001/04/20 00:31:02 1.19 --- circulation.pl 2001/08/17 07:54:38 1.20 *************** *** 20,23 **** --- 20,24 ---- my $branch=$query->param('branch'); my $printer=$query->param('printer'); + #print $query->header; ($branch) || ($branch=$query->cookie('branch')); ($printer) || ($printer=$query->cookie('printer')); *************** *** 428,432 **** $barcode=''; } ! if ($print eq 'yes'){ my ($borrower, $flags) = getpatroninformation(\%env,$borrowernumber,0); $env{'todaysissues'}=1; --- 429,433 ---- $barcode=''; } ! if ($print eq 'yes' && $borrowernumber ne ''){ my ($borrower, $flags) = getpatroninformation(\%env,$borrowernumber,0); $env{'todaysissues'}=1; *************** *** 440,447 **** --- 441,458 ---- foreach (sort keys %$borrowerissues) { $issues[$i]=$borrowerissues->{$_}; + my $dd=$issues[$i]->{'date_due'}; + #convert to nz style dates + #this should be set with some kinda config variable + my @tempdate=split(/-/,$dd); + $issues[$i]->{'date_due'}="$tempdate[2]/$tempdate[1]/$tempdate[0]"; $i++; } foreach (sort keys %$borroweriss2) { $issues[$i]=$borroweriss2->{$_}; + my $dd=$issues[$i]->{'date_due'}; + #convert to nz style dates + #this should be set with some kinda config variable + my @tempdate=split(/-/,$dd); + $issues[$i]->{'date_due'}="$tempdate[2]/$tempdate[1]/$tempdate[0]"; $i++; } *************** *** 730,740 **** EOF ; ! my $amountold=$flags->{'CHARGES'}->{'message'}; ! my @temp=split(/\$/,$amountold); ! $amountold=$temp[1]; ! print "<input type=hidden name=oldamount value=$amountold>"; if ($flags->{'CHARGES'}){ print "<input type=hidden name=charges value=yes>"; } print <<EOF </form> --- 741,752 ---- EOF ; ! if ($flags->{'CHARGES'}){ print "<input type=hidden name=charges value=yes>"; } + my $amountold=$flags->{'CHARGES'}->{'message'}; + my @temp=split(/\$/,$amountold); + $amountold=$temp[1]; + print "<input type=hidden name=oldamount value=$amountold>"; print <<EOF </form>

1 0

OpenBook
by Nicholas Stephen Rosasco 18 Jul '01

18 Jul '01

The tool is impressive, but is definitely possessed of a few quirks -- doubtless this derives from the Beta nature of the thing. How should we handle their ... it isn't a fork ... derivative work? I've not "gotten my hands" dirty with our, or the Openbook code, enough to know if it would be possible to phase in additions from their back end. Alternately, could we replace the koha back end with theirs, in effect merging the two projects while preserving the Koha look and feel? That would get Koha full MARC functionality, especially if we wait for them to debug further. How seperate is the HTTP side from the database, etc side? I know I'm just blowing smoke, but I'd like to see us "get something" out of all the work they have put into their project, while preserving the (currently) more stable/production grade Koha code as much as possible.... I still have some odds and ends I've seen in commercial applications that I feel would be logical additions to both of the projects. [Good heavens I wish the had merged more of the code back while they were in development.... rather than just rewriting everything. Sigh.] Nick ...hoping to see the two projects move together, not apart.

3 6

CVS: koha/translator translator.readme,1.1,1.2
by Pawel Skuza 12 Jul '01

12 Jul '01

Update of /cvsroot/koha/koha/translator In directory usw-pr-cvs1:/tmp/cvs-serv2633 Modified Files: translator.readme Log Message: Spelling and english language corrections. Index: translator.readme =================================================================== RCS file: /cvsroot/koha/koha/translator/translator.readme,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** translator.readme 2001/06/26 22:13:50 1.1 --- translator.readme 2001/07/12 11:12:11 1.2 *************** *** 1,28 **** ! This is small note about 'translator.pl'. Author: Pawel Skuza email: pawelzc(a)cz.top.pl ! Script 'translator.pl' do two things: ! 1. Prepare strings which can be translate; ! 2. Translate strings used gettext. ! 1. Prepare strings which can be translate. ! Copy file 'translator.pl' into root koha directory and execute it. eg. cd /usr/src/koha cp scripts/translator.pl . ./translator.pl some_file_name ! xgettext some_file_name -okoha.po ! vi koha.po //now you must translate koha.po ! msgfmt koha.po -okoha.mo cp koha.mo /usr/share/locale/$$/LC_MESSAGES //where $$ is your language ! note: if you omnit 'some_file_name' translator create 'koha.gettext.c' ! 2. Translate strings used gettext. ! You have to configure your apache. Put this lines in koha and opac virtual: ! Action text/html /cgi-bin/koha/translator.pl ! Action text/plane /cgi-bin/koha/translator.pl ! Don't forget set up the language preference in your browser. --- 1,31 ---- ! This is a small note about 'translator.pl'. Author: Pawel Skuza email: pawelzc(a)cz.top.pl ! The Script 'translator.pl' does two things: ! 1. Prepares strings that can be translated; ! 2. Translates strings using gettext. ! 1. Prepare strings which can be translated. ! Copy file 'translator.pl' into koha root directory and execute it. eg. cd /usr/src/koha cp scripts/translator.pl . ./translator.pl some_file_name ! xgettext some_file_name -okoha.pot ! vi koha.pot //now you must translate koha.pot ! msgfmt koha.pot -okoha.mo cp koha.mo /usr/share/locale/$$/LC_MESSAGES //where $$ is your language ! note: if you omit 'some_file_name' the translator will create 'koha.gettext.c' ! 2. Translate strings using gettext. ! You have to configure your apache. Put these lines into koha and opac virtual servers: ! Action text/html /cgi-bin/koha/translator/translator.pl ! Action text/plane /cgi-bin/koha/translator/translator.pl ! Don't forget to set up the language preference in your browser. ! ! Enjoy koha in your language! !

1 0

CVS: koha deletemem.pl,NONE,1.1
by Chris Cormack 05 Jul '01

05 Jul '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv25435 Added Files: deletemem.pl Log Message: Script to delete a member/patron --- NEW FILE --- #!/usr/bin/perl #script to delete items #written 2/5/00 #by chris(a)katipo.co.nz use strict; use C4::Search; use CGI; use C4::Output; use C4::Database; use C4::Circulation::Circ2; #use C4::Acquisitions; my $input = new CGI; #print $input->header; my $member=$input->param('member'); my %env; $env{'nottodayissues'}=1; my %member2; $member2{'borrowernumber'}=$member; my $issues=currentissues(\%env,\%member2); my $i=0; foreach (sort keys %$issues) { $i++; } if ($i > 0){ print $input->header; print "error borrower has items on issue"; } else { delmember($member); print $input->redirect("/members/"); } sub delmember{ my ($member)=@_; my $dbh=C4Connect; my $query="Select * from borrowers where borrowernumber='$member'"; my $sth=$dbh->prepare($query); $sth->execute; my @data=$sth->fetchrow_array; $sth->finish; $query="Insert into deletedborrowers values ("; foreach my $temp (@data){ $query=$query."'$temp',"; } $query=~ s/\,$/\)/; # print $query; $sth=$dbh->prepare($query); $sth->execute; $sth->finish; $query = "Delete from borrowers where borrowernumber='$member'"; $sth=$dbh->prepare($query); $sth->execute; $sth->finish; $dbh->disconnect; }

1 0

CVS: koha memberentry.pl,1.3,1.4
by Chris Cormack 05 Jul '01

05 Jul '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv25218 Modified Files: memberentry.pl Log Message: Fix to handle the delete call, redirects to deletemem.pl Index: memberentry.pl =================================================================== RCS file: /cvsroot/koha/koha/memberentry.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** memberentry.pl 2001/03/12 23:29:44 1.3 --- memberentry.pl 2001/07/05 21:37:15 1.4 *************** *** 17,20 **** --- 17,24 ---- my $type=$input->param('type'); my $modify=$input->param('modify.x'); + my $delete=$input->param('delete.x'); + if ($delete){ + print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$member"); + } else { print $input->header; print startpage(); *************** *** 481,482 **** --- 485,487 ---- print endmenu('member'); print endpage(); + }

1 0

CVS: koha/translator translator.pl,1.1,1.2
by Chris Cormack 27 Jun '01

27 Jun '01

Update of /cvsroot/koha/koha/translator In directory usw-pr-cvs1:/tmp/cvs-serv24880/translator Modified Files: translator.pl Log Message: Modified so that the first available language is chosen if none is specified Index: translator.pl =================================================================== RCS file: /cvsroot/koha/koha/translator/translator.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** translator.pl 2001/06/26 22:13:50 1.1 --- translator.pl 2001/06/27 21:53:05 1.2 *************** *** 21,43 **** textdomain("koha"); ! my %lang=( ! fr => "fr_FR", ! pl => "pl_PL", ! ); ! my @lang=split/,/,$ENV{"HTTP_ACCEPT_LANGUAGE"}; my $lang="us_US"; ! foreach (@lang){ ! my $lg=$lang{$_}; ! setlocale(LC_MESSAGES,$lg); ! my $tmp = gettext($_); ! if ($tmp ne $_) ! { ! $lang=$tmp; ! last; } } setlocale(LC_MESSAGES,$lang); --- 21,50 ---- textdomain("koha"); ! my @locale=`locale -a`; ! my %lang; ! foreach(@locale){ ! next unless (/_/); ! push @{$lang{$`}}, $'; ! } ! my $str_env=$ENV{"HTTP_ACCEPT_LANGUAGE"}; ! $str_env=~s/\s*//g; ! my @lang=split/,/,$str_env; my $lang="us_US"; ! foreach my $locale(@lang){ ! goto find_locale if ($locale eq 'en'); ! foreach my $lg(@{$lang{$locale}}){ ! setlocale(LC_MESSAGES,$locale."_".$lg); ! my $tmp = gettext($locale); ! if ($tmp ne $locale) ! { ! $lang=$tmp; ! goto find_locale; ! } } } + find_locale: setlocale(LC_MESSAGES,$lang); *************** *** 63,66 **** --- 70,75 ---- $dgettxt{'iso-8859-1'}=1; + $dgettxt{'us_US'}=1; + my $txt =<<TXT; <HTML> *************** *** 103,107 **** $dane=~s/\\\"/&zamien/ges; # change \" ! # taka out graphics $dane=~s/[\"\']\/?([\w-\/\.]*?\.gif)[\"\']/&zamien($1)/ges; --- 112,116 ---- $dane=~s/\\\"/&zamien/ges; # change \" ! # take out graphics $dane=~s/[\"\']\/?([\w-\/\.]*?\.gif)[\"\']/&zamien($1)/ges; *************** *** 168,170 **** return "%${\($dane{$tmp})}%"; } - --- 177,178 ----

1 0

Catalogue.pm
by Tonnesen Steve 27 Jun '01

27 Jun '01

Chris: Catalogue.pm is getting pretty close to complete for updating records. Once it reaches that point, the next step is to modify the existing code to use the new API when inserting and updating data. You are more familiar with the existing code than I am, but do you see any problems with implementing this with the following six subroutines alone? There'll have to be some additional routines because some circulation data is also stored in these tables (items->datelastborrowed, datelastseen, etc) Also, I assume you'll want me to hold of on any changes to existing code until after you've made another release? Steve. ------------ newBiblio($env, $biblio) $biblio is a hash ref... $biblio->{'title'}, $biblio->{'author'}, etc. $biblio->{'subject'}, and $biblio->{'additionalauthors'} will be array references. Why is subtitle stored in a separate table, and not just another field in the biblio table? Historical reasons? newBiblioItem($env, $biblioitem) $biblioitem is a hash ref... $biblioitem->{'isbn'} (dewey, itemtype, publishercode, etc...) newItem($env, $item) again, $item is a hash ref... updateBiblio($env, $biblio) $biblio is a hash reference $biblio->{'biblionumber'} is used to compare all of the biblio fields between the old and new versions of the biblio. Any changes are logged and the change is made in both the Koha and the MARC tables. updateBiblioItem($env, $biblioitem) Same as updateBiblio updateItem($env, $item) Same as updateBiblio

2 2

CVS: koha/C4 Catalogue.pm,1.5,1.6
by Steve Tonnesen 26 Jun '01

26 Jun '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv429 Modified Files: Catalogue.pm Log Message: Finished updateBiblioItem subroutine Index: Catalogue.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -r1.5 -r1.6 *** Catalogue.pm 2001/06/26 21:13:01 1.5 --- Catalogue.pm 2001/06/26 22:27:12 1.6 *************** *** 546,549 **** --- 546,669 ---- my ($env, $biblioitem) = @_; + my $dbh=&C4Connect; + + my $biblioitemnumber=$biblioitem->{'biblioitemnumber'}; + my $sth=$dbh->prepare("select * from biblioitems where biblioitemnumber=$biblioitemnumber"); + # obi = original biblioitem + my $obi=$sth->fetchrow_hashref; + $sth=$dbh->prepare("select B.Record_ID from Bib_Table B, 0XX_Tag_Table T, 0XX_Subfield_Table S where B.Tag_0XX_ID=T.Tag_ID and T.Subfield_ID=S.Subfield_ID and T.Tag='090' and S.Subfield_Mark='c' and S.Subfield_Value=$biblioitemnumber"); + $sth->execute; + my ($Record_ID) = $sth->fetchrow; + if ($biblioitem->{'biblionumber'} ne $obi->{'biblionumber'}) { + logchange('kohadb', 'biblioitems', 'biblionumber', $obi->{'biblionumber'}, $biblioitem->{'biblionumber'}); + my $sth=$dbh->prepare("update biblioitems set biblionumber=$biblioitem->{'biblionumber'} where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '090', 'c', $obi->{'biblionumber'}, $biblioitem->{'biblionumber'}); + changeSubfield($Record_ID, '090', 'c', $obi->{'biblionumber'}, $biblioitem->{'biblionumber'}); + } + if ($biblioitem->{'volume'} ne $obi->{'volume'}) { + logchange('kohadb', 'biblioitems', 'volume', $obi->{'volume'}, $biblioitem->{'volume'}); + my $q_volume=$dbh->quote($biblioitem->{'volume'}); + my $sth=$dbh->prepare("update biblioitems set volume=$q_volume where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '440', 'v', $obi->{'volume'}, $biblioitem->{'volume'}); + changeSubfield($Record_ID, '440', 'v', $obi->{'volume'}, $biblioitem->{'volume'}); + } + if ($biblioitem->{'number'} ne $obi->{'number'}) { + logchange('kohadb', 'biblioitems', 'number', $obi->{'number'}, $biblioitem->{'number'}); + my $q_number=$dbh->quote($biblioitem->{'number'}); + my $sth=$dbh->prepare("update biblioitems set number=$q_number where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '440', 'v', $obi->{'number'}, $biblioitem->{'number'}); + changeSubfield($Record_ID, '440', 'v', $obi->{'number'}, $biblioitem->{'number'}); + } + if ($biblioitem->{'itemtype'} ne $obi->{'itemtype'}) { + logchange('kohadb', 'biblioitems', 'itemtype', $obi->{'itemtype'}, $biblioitem->{'itemtype'}); + my $q_itemtype=$dbh->quote($biblioitem->{'itemtype'}); + my $sth=$dbh->prepare("update biblioitems set itemtype=$q_itemtype where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '090', 'a', $obi->{'itemtype'}, $biblioitem->{'itemtype'}); + changeSubfield($Record_ID, '090', 'a', $obi->{'itemtype'}, $biblioitem->{'itemtype'}); + } + if ($biblioitem->{'isbn'} ne $obi->{'isbn'}) { + logchange('kohadb', 'biblioitems', 'isbn', $obi->{'isbn'}, $biblioitem->{'isbn'}); + my $q_isbn=$dbh->quote($biblioitem->{'isbn'}); + my $sth=$dbh->prepare("update biblioitems set isbn=$q_isbn where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '020', 'a', $obi->{'isbn'}, $biblioitem->{'isbn'}); + changeSubfield($Record_ID, '020', 'a', $obi->{'isbn'}, $biblioitem->{'isbn'}); + } + if ($biblioitem->{'issn'} ne $obi->{'issn'}) { + logchange('kohadb', 'biblioitems', 'issn', $obi->{'issn'}, $biblioitem->{'issn'}); + my $q_issn=$dbh->quote($biblioitem->{'issn'}); + my $sth=$dbh->prepare("update biblioitems set issn=$q_issn where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '022', 'a', $obi->{'issn'}, $biblioitem->{'issn'}); + changeSubfield($Record_ID, '022', 'a', $obi->{'issn'}, $biblioitem->{'issn'}); + } + if ($biblioitem->{'dewey'} ne $obi->{'dewey'}) { + logchange('kohadb', 'biblioitems', 'dewey', $obi->{'dewey'}, $biblioitem->{'dewey'}); + my $sth=$dbh->prepare("update biblioitems set dewey=$dewey where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '082', 'a', $obi->{'dewey'}, $biblioitem->{'dewey'}); + changeSubfield($Record_ID, '082', 'a', $obi->{'dewey'}, $biblioitem->{'dewey'}); + } + if ($biblioitem->{'subclass'} ne $obi->{'subclass'}) { + logchange('kohadb', 'biblioitems', 'subclass', $obi->{'subclass'}, $biblioitem->{'subclass'}); + my $q_subclass=$dbh->quote($biblioitem->{'subclass'}); + my $sth=$dbh->prepare("update biblioitems set subclass=$q_subclass where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '090', 'b', $obi->{'subclass'}, $biblioitem->{'subclass'}); + changeSubfield($Record_ID, '090', 'b', $obi->{'subclass'}, $biblioitem->{'subclass'}); + } + if ($biblioitem->{'place'} ne $obi->{'place'}) { + logchange('kohadb', 'biblioitems', 'place', $obi->{'place'}, $biblioitem->{'place'}); + my $q_place=$dbh->quote($biblioitem->{'place'}); + my $sth=$dbh->prepare("update biblioitems set place=$q_place where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '260', 'a', $obi->{'place'}, $biblioitem->{'place'}); + changeSubfield($Record_ID, '260', 'a', $obi->{'place'}, $biblioitem->{'place'}); + } + if ($biblioitem->{'publishercode'} ne $obi->{'publishercode'}) { + logchange('kohadb', 'biblioitems', 'publishercode', $obi->{'publishercode'}, $biblioitem->{'publishercode'}); + my $q_publishercode=$dbh->quote($biblioitem->{'publishercode'}); + my $sth=$dbh->prepare("update biblioitems set publishercode=$q_publishercode where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '260', 'b', $obi->{'publishercode'}, $biblioitem->{'publishercode'}); + changeSubfield($Record_ID, '260', 'b', $obi->{'publishercode'}, $biblioitem->{'publishercode'}); + } + if ($biblioitem->{'publicationyear'} ne $obi->{'publicationyear'}) { + logchange('kohadb', 'biblioitems', 'publicationyear', $obi->{'publicationyear'}, $biblioitem->{'publicationyear'}); + my $q_publicationyear=$dbh->quote($biblioitem->{'publicationyear'}); + my $sth=$dbh->prepare("update biblioitems set publicationyear=$q_publicationyear where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '260', 'c', $obi->{'publicationyear'}, $biblioitem->{'publicationyear'}); + changeSubfield($Record_ID, '260', 'c', $obi->{'publicationyear'}, $biblioitem->{'publicationyear'}); + } + if ($biblioitem->{'illus'} ne $obi->{'illus'}) { + logchange('kohadb', 'biblioitems', 'illus', $obi->{'illus'}, $biblioitem->{'illus'}); + my $q_illus=$dbh->quote($biblioitem->{'illus'}); + my $sth=$dbh->prepare("update biblioitems set illus=$q_illus where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '700', 'a', $obi->{'illus'}, $biblioitem->{'illus'}); + changeSubfield($Record_ID, '700', 'a', $obi->{'illus'}, $biblioitem->{'illus'}); + } + if ($biblioitem->{'pages'} ne $obi->{'pages'}) { + logchange('kohadb', 'biblioitems', 'pages', $obi->{'pages'}, $biblioitem->{'pages'}); + my $q_pages=$dbh->quote($biblioitem->{'pages'}); + my $sth=$dbh->prepare("update biblioitems set pages=$q_pages where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '300', 'a', $obi->{'pages'}, $biblioitem->{'pages'}); + changeSubfield($Record_ID, '300', 'a', $obi->{'pages'}, $biblioitem->{'pages'}); + } + if ($biblioitem->{'size'} ne $obi->{'size'}) { + logchange('kohadb', 'biblioitems', 'size', $obi->{'size'}, $biblioitem->{'size'}); + my $q_size=$dbh->quote($biblioitem->{'size'}); + my $sth=$dbh->prepare("update biblioitems set size=$q_size where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '300', 'c', $obi->{'size'}, $biblioitem->{'size'}); + changeSubfield($Record_ID, '300', 'c', $obi->{'size'}, $biblioitem->{'size'}); + } + if ($biblioitem->{'notes'} ne $obi->{'notes'}) { + logchange('kohadb', 'biblioitems', 'notes', $obi->{'notes'}, $biblioitem->{'notes'}); + my $q_notes=$dbh->quote($biblioitem->{'notes'}); + my $sth=$dbh->prepare("update biblioitems set notes=$q_notes where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '500', 'a', $obi->{'notes'}, $biblioitem->{'notes'}); + changeSubfield($Record_ID, '500', 'a', $obi->{'notes'}, $biblioitem->{'notes'}); + } + if ($biblioitem->{'lccn'} ne $obi->{'lccn'}) { + logchange('kohadb', 'biblioitems', 'lccn', $obi->{'lccn'}, $biblioitem->{'lccn'}); + my $q_lccn=$dbh->quote($biblioitem->{'lccn'}); + my $sth=$dbh->prepare("update biblioitems set lccn=$q_lccn where biblioitemnumber=$biblioitemnumber"); + logchange('marc', '010', 'c', $obi->{'lccn'}, $biblioitem->{'lccn'}); + changeSubfield($Record_ID, '010', 'c', $obi->{'lccn'}, $biblioitem->{'lccn'}); + } + } *************** *** 551,554 **** --- 671,675 ---- sub newItem { my ($env, $Record_ID, $item) = @_; + my $dbh=&C4Connect; my $barcode=$item->{'barcode'}; my $dateaccessioned=$item->{'dateaccessioned'};

1 0

CVS: koha/translator translator.pl,NONE,1.1 translator.readme,NONE,1.1
by Chris Cormack 26 Jun '01

26 Jun '01

Update of /cvsroot/koha/koha/translator In directory usw-pr-cvs1:/tmp/cvs-serv29400/translator Added Files: translator.pl translator.readme Log Message: Scripts to permit koha webpages to display in different natural languages Courtesy of Pawel Skuza --- NEW FILE --- #!/usr/bin/perl use strict; use locale; use POSIX; use Locale::gettext; my $tofile; if (exists $ENV{"HTTP_ACCEPT"}) { $tofile=0; } else { $tofile=1; } print "Content-Type: text/html \n\n" unless($tofile); my $path=$ENV{"PATH_TRANSLATED"}; textdomain("koha"); my %lang=( fr => "fr_FR", pl => "pl_PL", ); my @lang=split/,/,$ENV{"HTTP_ACCEPT_LANGUAGE"}; my $lang="us_US"; foreach (@lang){ my $lg=$lang{$_}; setlocale(LC_MESSAGES,$lg); my $tmp = gettext($_); if ($tmp ne $_) { $lang=$tmp; last; } } setlocale(LC_MESSAGES,$lang); my @katalog; my $plik; if ($tofile){ @katalog=`ls -R`; $plik=$ARGV[0]; if ($plik eq ''){ $plik="koha.gettext.c"; } } else { @katalog=("cos"); } my $kat; my (%dgettxt, %dane, %dane2, @dane2); my $i; $dgettxt{'iso-8859-1'}=1; my $txt =<<TXT; <HTML> <META http-equiv=Content-Type content="text/thml; charset=${$gettext('iso-8859-1'))}"> TXT foreach(@katalog){ if (/:$/){ $kat="$`/"; next; } if ($tofile){ unless ($_=~/(\.html|\.inc)$/i) { next; } } print "$kat$_" if ($tofile); my $dane; { local $/; if ($tofile){ open PL, "$kat$_"; } else { open PL, "$path"; } $dane=<PL>; close PL; } $dane=~s/<html>/$txt/i; $dane=~s/%/&zamien/ges; # change % (specjal symbol) $dane=~s/\\\'/&zamien/ges; # change \' $dane=~s/\\\"/&zamien/ges; # change \" # taka out graphics $dane=~s/[\"\']\/?([\w-\/\.]*?\.gif)[\"\']/&zamien($1)/ges; # $dane=~s/messenger\s*\((.*?)$\s*[\}\{;]/&zamien($1)/ges; # $dane=~s/\.write(ln)?\s*$(.*?)$\s*[\};]/&zamien($2)/ges; # take out string in field alt $dane=~s/alt\s*=\s*[\"]([^\"]*)[\"]/&zamien($1)/iges; $dane=~s/alt\s*=\s*[\']([^\']*)[\']/&zamien($1)/iges; $dane=~s//&zamien/ges; $dane=~s/<script.*?<\/script>/&zamien/iges; $dane=~s/<[\w\/]\w*\s*((\w*\s*=\s*(\'[^\']*\'|\"[^\"]*\"|[\w-\/?&,\.=%#]*)|[%\d*%]|\w)\s*)*>/&zamien/ges; $dane=~s/<!\[.*?\]>/&zamien/ges; $dane=~s/<![^>]*>/&zamien/ges; $dane=~s/<#.*?#>/&zamien/ges; my $dane2=$dane; $dane2=~s/(\s*%\d+%\s*)+/%/gs; $dane2=~s/^%//g; $dane2=~s/%$//g; foreach my $tmp(split/%/,$dane2){ my $tmp_ok = $tmp; $tmp_ok=~s/\s+/ /gs; next unless ($tmp_ok=~/\w+/); $dgettxt{$tmp_ok}++ unless $dgettxt{$tmp_ok}; $tmp=~s/([\)\(])/\\$1/g; $dane=~s/$tmp/gettext($tmp_ok)/es; } unless ($tofile){ while($dane=~/%\d+%/){ $dane=~s/%(\d+)%/$dane2{$1}/g; } print $dane; } } if ($tofile) { open PK, ">$plik"; foreach my $tmp(sort keys %dgettxt){ $tmp=~s/\"/\\\"/gs; print PK "gettext(\"$tmp\");\n"; } close PK; } exit; ########################################################### sub zamien { my $tmp = $&; unless ($dgettxt{$_[0]}) { $dgettxt{$_[0]}++; } $tmp=~s/$_[0]/gettext($&)/es; unless ($dane{$tmp}) { push @dane2, $tmp; $dane2{$i}=$tmp; $dane{$tmp}=$i++; } return "%${\($dane{$tmp})}%"; } --- NEW FILE --- This is small note about 'translator.pl'. Author: Pawel Skuza email: pawelzc(a)cz.top.pl Script 'translator.pl' do two things: 1. Prepare strings which can be translate; 2. Translate strings used gettext. 1. Prepare strings which can be translate. Copy file 'translator.pl' into root koha directory and execute it. eg. cd /usr/src/koha cp scripts/translator.pl . ./translator.pl some_file_name xgettext some_file_name -okoha.po vi koha.po //now you must translate koha.po msgfmt koha.po -okoha.mo cp koha.mo /usr/share/locale/$$/LC_MESSAGES //where $$ is your language note: if you omnit 'some_file_name' translator create 'koha.gettext.c' 2. Translate strings used gettext. You have to configure your apache. Put this lines in koha and opac virtual: Action text/html /cgi-bin/koha/translator.pl Action text/plane /cgi-bin/koha/translator.pl Don't forget set up the language preference in your browser.

1 0