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

CVS: koha/updater updatedatabase,1.5,1.6
by Chris Cormack 06 May '02

06 May '02

Update of /cvsroot/koha/koha/updater In directory usw-pr-cvs1:/tmp/cvs-serv15559/updater Modified Files: updatedatabase Log Message: Fixing a typo Index: updatedatabase =================================================================== RCS file: /cvsroot/koha/koha/updater/updatedatabase,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -r1.5 -r1.6 *** updatedatabase 2 May 2002 00:08:53 -0000 1.5 --- updatedatabase 6 May 2002 21:59:40 -0000 1.6 *************** *** 47,51 **** unless ($tables{'z3950queue'}) { print "Adding z3950queue table...\n"; ! my $sti=$dbh->prepare("create table z3950queue (id int auto_increment primary key, term text, type char(10), startdate int, enddate int, done smallint, results longblob, numercords int, servers text, identifier char(30))"); $sti->execute; } --- 47,51 ---- unless ($tables{'z3950queue'}) { print "Adding z3950queue table...\n"; ! my $sti=$dbh->prepare("create table z3950queue (id int auto_increment primary key, term text, type char(10), startdate int, enddate int, done smallint, results longblob, numrecords int, servers text, identifier char(30))"); $sti->execute; }

1 0

CVS: koha/C4/Circulation Circ2.pm,1.23,1.24
by Finlay Thompson 05 May '02

05 May '02

Update of /cvsroot/koha/koha/C4/Circulation In directory usw-pr-cvs1:/tmp/cvs-serv26528/C4/Circulation Modified Files: Circ2.pm Log Message: Removed the "Item has been transfered" message from the returnbook2 subroutine. Index: Circ2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -r1.23 -r1.24 *** Circ2.pm 6 May 2002 04:30:37 -0000 1.23 --- Circ2.pm 6 May 2002 04:36:42 -0000 1.24 *************** *** 586,590 **** my ($iteminformation) = getiteminformation($env, 0, $barcode); if (not $iteminformation) { ! push(@messages, "<font color='red' size='+2'> There is no book with barcode: $barcode </font>"); return (0, \@messages, 0 ,0); } --- 586,590 ---- my ($iteminformation) = getiteminformation($env, 0, $barcode); if (not $iteminformation) { ! push(@messages, "<font color='red' size='+2'> No item with barcode: $barcode </font>"); return (0, \@messages, 0 ,0); } *************** *** 610,616 **** my $tbr = $env->{'branchcode'}; my ($transfered, $message, $item) = transferbook($tbr, $barcode); - if ($transfered) { - push(@messages, "Book: as been transfered."); - } if ($iteminformation->{'itemlost'}) { --- 610,613 ----

1 0

CVS: koha/C4/Circulation Circ2.pm,1.22,1.23
by Finlay Thompson 05 May '02

05 May '02

Update of /cvsroot/koha/koha/C4/Circulation In directory usw-pr-cvs1:/tmp/cvs-serv25518/C4/Circulation Modified Files: Circ2.pm Log Message: Changed the error message from: There is no book with barcode: XXXXXX to: No item with barcode: XXXXXXX Index: Circ2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -r1.22 -r1.23 *** Circ2.pm 2 May 2002 00:08:53 -0000 1.22 --- Circ2.pm 6 May 2002 04:30:37 -0000 1.23 *************** *** 230,234 **** my $iteminformation = getiteminformation(\%env,0, $barcode); if (not $iteminformation) { ! $message = "<font color='red' size='+2'>There is no book with barcode: $barcode </font>"; return (0, $message, 0); } --- 230,234 ---- my $iteminformation = getiteminformation(\%env,0, $barcode); if (not $iteminformation) { ! $message = "<font color='red' size='+2'>No item with barcode: $barcode </font>"; return (0, $message, 0); }

1 0

CVS: koha member.pl,1.1.1.1,1.2
by Finlay Thompson 05 May '02

05 May '02

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv22769 Modified Files: member.pl Log Message: Changed the word: Fines to: Charges Index: member.pl =================================================================== RCS file: /cvsroot/koha/koha/member.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** member.pl 19 Dec 2000 23:45:51 -0000 1.1.1.1 --- member.pl 6 May 2002 04:12:48 -0000 1.2 *************** *** 28,32 **** print mktablehdr; print mktablerow(8,'#99cc33',bold('Card'),bold('Surname'),bold('Firstname'),bold('Category') ! ,bold('Address'),bold('OD/Issues'),bold('Fines'),bold('Notes'),'/images/background-mem.gif'); my $env; my ($count,$results)=BornameSearch($env,$member,'web'); --- 28,32 ---- print mktablehdr; print mktablerow(8,'#99cc33',bold('Card'),bold('Surname'),bold('Firstname'),bold('Category') ! ,bold('Address'),bold('OD/Issues'),bold('Charges'),bold('Notes'),'/images/background-mem.gif'); my $env; my ($count,$results)=BornameSearch($env,$member,'web');

1 0

CVS: koha/acqui.simple addbiblioitem.pl,1.2,1.3 additem.pl,1.2,1.3 savebiblio.pl,1.2,1.3 savebiblioitem.pl,1.2,1.3 saveitem.pl,1.2,1.3
by Gynn Lomax 05 May '02

05 May '02

Update of /cvsroot/koha/koha/acqui.simple In directory usw-pr-cvs1:/tmp/cvs-serv7908 Modified Files: addbiblioitem.pl additem.pl savebiblio.pl savebiblioitem.pl saveitem.pl Log Message: Fixed bug due to way hashes take values. Was stopping items being saved to database. Added code to pick up branch list from database. Index: addbiblioitem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/addbiblioitem.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** addbiblioitem.pl 3 May 2002 02:47:33 -0000 1.2 --- addbiblioitem.pl 6 May 2002 02:47:49 -0000 1.3 *************** *** 115,119 **** </tr> <tr valign="top"> ! <td colspan="4" align="center"><input type="submit" value="Add New Item"></td> </tr> --- 115,119 ---- </tr> <tr valign="top"> ! <td colspan="4" align="center"><input type="submit" value="Add New Group"></td> </tr> Index: additem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** additem.pl 3 May 2002 02:47:33 -0000 1.2 --- additem.pl 6 May 2002 02:47:49 -0000 1.3 *************** *** 12,15 **** --- 12,17 ---- my $count; my @results; + my $branchcount; + my @branches; if (! $biblioitemnum) { *************** *** 30,33 **** --- 32,36 ---- ($count, @results) = &getitemsbybiblioitem($biblioitemnum); + ($branchcount, @branches) = &branches; if ($count) { *************** *** 70,74 **** <td><input name="barcode" size="10" value="$maxbarcode" /></td> <td align="right">Home Branch:</td> ! <td><select name="homebranch"><option value="STWE">Stewart Elementary<option value="MEZ">Meziadin Elementary</select></td> </tr> <tr> --- 73,87 ---- <td><input name="barcode" size="10" value="$maxbarcode" /></td> <td align="right">Home Branch:</td> ! <td><select name="homebranch"> ! EOF ! ! for (my $i = 0; $i < $branchcount; $i ++) { ! print << "EOF"; ! <option value="$branches[$i]->{'branchcode'}">$branches[$i]->{'branchname'} ! EOF ! } # for ! ! print << "EOF"; ! </select></td> </tr> <tr> Index: savebiblio.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/savebiblio.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** savebiblio.pl 3 May 2002 02:47:33 -0000 1.2 --- savebiblio.pl 6 May 2002 02:47:49 -0000 1.3 *************** *** 6,17 **** my $input = new CGI; ! my $biblio = { title => $input->param('title'), ! subtitle => $input->param('subtitle'), ! author => $input->param('author'), ! seriestitle => $input->param('seriestitle'), ! copyright => $input->param('copyrightdate'), ! abstract => $input->param('abstract'), ! notes => $input->param('notes') ! }; # my $biblio my $biblionumber; --- 6,18 ---- my $input = new CGI; ! my $biblio = { ! title => $input->param('title'), ! subtitle => $input->param('subtitle')?$input->param('subtitle'):"", ! author => $input->param('author')?$input->param('author'):"", ! seriestitle => $input->param('seriestitle')?$input->param('seriestitle'):"", ! copyright => $input->param('copyrightdate')?$input->param('copyrightdate'):"", ! abstract => $input->param('abstract')?$input->param('abstract'):"", ! notes => $input->param('notes')?$input->param('notes'):"" ! }; # my $biblio my $biblionumber; Index: savebiblioitem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/savebiblioitem.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** savebiblioitem.pl 3 May 2002 02:47:33 -0000 1.2 --- savebiblioitem.pl 6 May 2002 02:47:49 -0000 1.3 *************** *** 9,31 **** my $biblioitem = { biblionumber => $biblionumber, ! publishercode => $input->param('publishercode'), ! publicationyear => $input->param('publicationyear'), ! place => $input->param('year'), ! illus => $input->param('illus'), ! isbn => $input->param('isbn'), ! additionalauthors => $input->param('additionalauthors'), ! subjectheadings => $input->param('subjectheadings'), ! itemtype => $input->param('itemtype'), ! url => $input->param('url'), ! dewey => $input->param('dewey'), ! subclass => $input->param('subclass'), ! issn => $input->param('issn'), ! lccn => $input->param('lccn'), ! volume => $input->param('volume'), ! number => $input->param('number'), ! volumeddesc => $input->param('volumeddesc'), ! pages => $input->param('pages'), ! size => $input->param('size'), ! notes => $input->param('notes') }; my $biblioitemnum; --- 9,31 ---- my $biblioitem = { biblionumber => $biblionumber, ! publishercode => $input->param('publishercode')?$input->param('publishercode'):"", ! publicationyear => $input->param('publicationyear')?$input->param('publicationyear'):"", ! place => $input->param('year')?$input->param('year'):"", ! illus => $input->param('illus')?$input->param('illus'):"", ! isbn => $input->param('isbn')?$input->param('isbn'):"", ! additionalauthors => $input->param('additionalauthors')?$input->param('additionalauthors'):"", ! subjectheadings => $input->param('subjectheadings')?$input->param('subjectheadings'):"", ! itemtype => $input->param('itemtype')?$input->param('itemtype'):"", ! url => $input->param('url')?$input->param('url'):"", ! dewey => $input->param('dewey')?$input->param('dewey'):"", ! subclass => $input->param('subclass')?$input->param('subclass'):"", ! issn => $input->param('issn')?$input->param('issn'):"", ! lccn => $input->param('lccn')?$input->param('lccn'):"", ! volume => $input->param('volume')?$input->param('volume'):"", ! number => $input->param('number')?$input->param('number'):"", ! volumeddesc => $input->param('volumeddesc')?$input->param('volumeddesc'):"", ! pages => $input->param('pages')?$input->param('pages'):"", ! size => $input->param('size')?$input->param('size'):"", ! notes => $input->param('notes')?$input->param('notes'):"" }; my $biblioitemnum; Index: saveitem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/saveitem.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** saveitem.pl 3 May 2002 02:47:33 -0000 1.2 --- saveitem.pl 6 May 2002 02:47:49 -0000 1.3 *************** *** 11,17 **** biblioitemnumber => $biblioitemnum, homebranch => $input->param('homebranch'), ! replacementprice => $input->param('replacementprice'), ! itemnotes => $input->param('notes') ! }; my $count; my @results; --- 11,17 ---- biblioitemnumber => $biblioitemnum, homebranch => $input->param('homebranch'), ! replacementprice => $input->param('replacementprice')?$input->param('replacementprice'):"", ! itemnotes => $input->param('notes')?$input->param('notes'):"" ! }; # my $item my $count; my @results;

1 0

CVS: koha INSTALL,NONE,1.1.2.1 Hints,NONE,1.1.2.1
by Chris Cormack 03 May '02

03 May '02

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv19047 Added Files: Tag: rel-1-2 INSTALL Hints Log Message: Installation documents --- NEW FILE --- Koha - Requirements and quick-start installation guide INSTALL document included with [Koha] For information on how to install Koha without requiring multiple virtual servers - See KohaAllInOne. For additional information on how your Configuration files should look see the Hints file. Important.... To successfully use Koha you need some additional software: A webserver (It was built to work with Apache, but there is no reason it shouldnt work with any other webserver). Mysql (You could intead use postgres, or another sql based database) Perl (mod_perl isnt needed, tho koha should work with mod_perl but this hasnt been tested yet). Perl Modules: Date::Manip DBI Set::Scalar DBD::mysql (or whatever database system you use) AuthenDBI (if you want to use Database based authentication) CDK (for the telnet interface not nessecary if you plan to use the web based circulation module) also requires installation of the C CDK libraries http://www.vexus.ca/CDK.html ( CDKModuleHasProblems ) -------------------------------------------------------------------------------- Quick-start Installation Guide (Assumes the Use of MySQL and Apache) 1. Create a new mysql database called for example Koha

1 0

CVS: koha INSTALL,1.1,1.2 Hints,1.1,1.2
by Chris Cormack 03 May '02

03 May '02

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv20806 Added Files: INSTALL Hints Log Message: No harm in adding these to the main branch either

1 0

CVS: koha database.mysql,1.4,1.5
by Paul POULAIN 03 May '02

03 May '02

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv32641 Modified Files: database.mysql Log Message: updated database.mysql : dropped unused tables, created indexes : old database.mysql updated by updatedatabase2.pl script Index: database.mysql =================================================================== RCS file: /cvsroot/koha/koha/database.mysql,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -r1.4 -r1.5 *** database.mysql 2 May 2002 00:23:26 -0000 1.4 --- database.mysql 2 May 2002 09:19:49 -0000 1.5 *************** *** 1,60 **** ! # MySQL dump 7.1 ! # ! # Host: localhost Database: c4test ! #-------------------------------------------------------- ! # Server version 3.22.32-log # ! # Table structure for table 'accountlines' # CREATE TABLE accountlines ( [...1500 lines suppressed...] + CREATE TABLE systempreferences ( ! variable char(50) NOT NULL default '', ! value char(200) default NULL, ! PRIMARY KEY (variable) ! ) TYPE=ISAM PACK_KEYS=1; ! # -------------------------------------------------------- # ! # Table structure for table `users` # + CREATE TABLE users ( ! usercode varchar(10) NOT NULL default '', username text, password text, ! level smallint(6) default NULL, ! PRIMARY KEY (usercode) ! ) TYPE=ISAM PACK_KEYS=1;

2 1

CVS: koha/acqui.simple addbiblioitem.pl,1.1,1.2 additem.pl,1.1,1.2 savebiblio.pl,1.1,1.2 savebiblioitem.pl,1.1,1.2 saveitem.pl,1.1,1.2
by Gynn Lomax 02 May '02

02 May '02

Update of /cvsroot/koha/koha/acqui.simple In directory usw-pr-cvs1:/tmp/cvs-serv25277/acqui.simple Modified Files: addbiblioitem.pl additem.pl savebiblio.pl savebiblioitem.pl saveitem.pl Log Message: Bug fixes to get the new acqui.simple system working. Index: addbiblioitem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/addbiblioitem.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** addbiblioitem.pl 29 Apr 2002 05:29:02 -0000 1.1 --- addbiblioitem.pl 3 May 2002 02:47:33 -0000 1.2 *************** *** 17,27 **** ($count, @results) = &getbiblio($biblionumber); ! $title = @results[0]->{'title'}; ! print $input->header; ! print startpage(); ! print startmenu('acquisitions'); ! print << "EOF"; <font size="6"><em>Adding New Group Information - $title</em></font> <table bgcolor="#ffcc00" width="80%" cellpadding="5"> --- 17,31 ---- ($count, @results) = &getbiblio($biblionumber); ! ! if (! $count) { ! print $input->redirect('addbooks.pl'); ! } else { ! $title = @results[0]->{'title'}; ! print $input->header; ! print startpage(); ! print startmenu('acquisitions'); ! print << "EOF"; <font size="6"><em>Adding New Group Information - $title</em></font> <table bgcolor="#ffcc00" width="80%" cellpadding="5"> *************** *** 64,75 **** EOF ! ($count, @results) = &getitemtypes; ! for (my $i = 0; $i < $count; $i++) { ! print << "EOF"; <option value="$results[$i]->{'itemtype'}">$results[$i]->{'itemtype'} - $results[$i]->{'description'} EOF ! } # for ! print << "EOF"; </select></td> </tr> --- 68,79 ---- EOF ! ($count, @results) = &getitemtypes; ! for (my $i = 0; $i < $count; $i++) { ! print << "EOF"; <option value="$results[$i]->{'itemtype'}">$results[$i]->{'itemtype'} - $results[$i]->{'description'} EOF ! } # for ! print << "EOF"; </select></td> </tr> *************** *** 117,121 **** EOF ! print endmenu(); ! print endpage(); } # else --- 121,126 ---- EOF ! print endmenu(); ! print endpage(); ! } # else } # else Index: additem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** additem.pl 29 Apr 2002 05:29:02 -0000 1.1 --- additem.pl 3 May 2002 02:47:33 -0000 1.2 *************** *** 16,20 **** print $input->redirect('addbooks.pl'); } else { ! ($count, @results) = &getbiblioitem($biblioitemnum); --- 16,20 ---- print $input->redirect('addbooks.pl'); } else { ! ($count, @results) = &getbiblioitem($biblioitemnum); *************** *** 63,67 **** <center> <h2>Section Three: Specific Item Information</h2> ! <form action="saveitems" method="post"> <input type="hidden" name="biblioitemnum" value="$biblioitemnum"> <table> --- 63,67 ---- <center> <h2>Section Three: Specific Item Information</h2> ! <form action="saveitem.pl" method="post"> <input type="hidden" name="biblioitemnum" value="$biblioitemnum"> <table> Index: savebiblio.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/savebiblio.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** savebiblio.pl 29 Apr 2002 05:29:02 -0000 1.1 --- savebiblio.pl 3 May 2002 02:47:33 -0000 1.2 *************** *** 6,16 **** my $input = new CGI; ! my $biblio->{'title'} = $input->param('title'); ! my $biblio->{'subtitle'} = $input->param('subtitle'); ! my $biblio->{'author'} = $input->param('author'); ! my $biblio->{'seriestitle'} = $input->param('seriestitle'); ! my $biblio->{'copyright'} = $input->param('copyrightdate'); ! my $biblio->{'abstract'} = $input->param('abstract'); ! my $biblio->{'notes'} = $input->param('notes'); my $biblionumber; --- 6,17 ---- my $input = new CGI; ! my $biblio = { title => $input->param('title'), ! subtitle => $input->param('subtitle'), ! author => $input->param('author'), ! seriestitle => $input->param('seriestitle'), ! copyright => $input->param('copyrightdate'), ! abstract => $input->param('abstract'), ! notes => $input->param('notes') ! }; # my $biblio my $biblionumber; *************** *** 20,25 **** $biblionumber = &newbiblio($biblio); ! &newsubtitle($biblionumber, $subtitle); ! print $input->redirect('addbiblioitem.pl?biblionumber=$biblionumber'); } # else --- 21,26 ---- $biblionumber = &newbiblio($biblio); ! &newsubtitle($biblionumber, $biblio->{'subtitle'}); ! print $input->redirect("addbiblioitem.pl?biblionumber=$biblionumber"); } # else Index: savebiblioitem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/savebiblioitem.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** savebiblioitem.pl 29 Apr 2002 05:29:02 -0000 1.1 --- savebiblioitem.pl 3 May 2002 02:47:33 -0000 1.2 *************** *** 37,40 **** $biblioitemnum = &newbiblioitem($biblioitem); ! print $input->redirect('additem.pl?biblioitemnum=$biblioitemnum'); } # else --- 37,40 ---- $biblioitemnum = &newbiblioitem($biblioitem); ! print $input->redirect("additem.pl?biblioitemnum=$biblioitemnum"); } # else Index: saveitem.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui.simple/saveitem.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** saveitem.pl 29 Apr 2002 05:29:02 -0000 1.1 --- saveitem.pl 3 May 2002 02:47:33 -0000 1.2 *************** *** 9,13 **** my $biblioitemnum = $input->param('biblioitemnum'); my $item = { ! biblioitemnum => $biblioitemnum, homebranch => $input->param('homebranch'), replacementprice => $input->param('replacementprice'), --- 9,13 ---- my $biblioitemnum = $input->param('biblioitemnum'); my $item = { ! biblioitemnumber => $biblioitemnum, homebranch => $input->param('homebranch'), replacementprice => $input->param('replacementprice'), *************** *** 31,35 **** &newitems($item, ($barcode)); ! print $input->redirect('additem.pl?biblioitemnum=$biblioitemnum'); } # else } # else --- 31,35 ---- &newitems($item, ($barcode)); ! print $input->redirect("additem.pl?biblioitemnum=$biblioitemnum"); } # else } # else

1 0

CVS: koha detail.pl,1.3,1.4
by Gynn Lomax 02 May '02

02 May '02

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv25277 Modified Files: detail.pl Log Message: Bug fixes to get the new acqui.simple system working. Index: detail.pl =================================================================== RCS file: /cvsroot/koha/koha/detail.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** detail.pl 15 Mar 2001 10:17:33 -0000 1.3 --- detail.pl 3 May 2002 02:47:33 -0000 1.4 *************** *** 5,9 **** use strict; - #use DBI; use C4::Search; use CGI; --- 5,8 ---- *************** *** 11,53 **** my $input = new CGI; ! print $input->header; ! #whether it is called from the opac of the intranet ! my $type=$input->param('type'); ! if ($type eq ''){ ! $type='intra'; ! } ! #setup colours my $main; my $secondary; if ($type eq 'opac'){ ! $main='#99cccc'; ! $secondary='#efe5ef'; } else { ! $main='#cccc99'; ! $secondary='#ffffcc'; ! } print startpage(); print startmenu($type); - #print $type; - my $blah; - my $bib=$input->param('bib'); - my $title=$input->param('title'); - if ($type ne 'opac'){ - print "<a href=request.pl?bib=$bib><img height=42 WIDTH=120 BORDER=0 src=\"/images/requests.gif\" align=right border=0></a>"; - } - my @items=ItemInfo(\$blah,$bib,$type); - my $dat=bibdata($bib); - my $count=@items; - my ($count3,$addauthor)=addauthor($bib); - my $additional=$addauthor->[0]->{'author'}; - for (my $i=1;$i<$count3;$i++){ - $additional=$additional."|".$addauthor->[$i]->{'author'}; - } - my @temp=split('\t',$items[0]); if ($type eq 'catmain'){ print mkheadr(3,"Catalogue Maintenance"); ! } if ($dat->{'author'} ne ''){ print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]"); --- 10,56 ---- my $input = new CGI; ! my $type = $input->param('type'); ! my $bib = $input->param('bib'); ! my $title = $input->param('title'); ! my @items = &ItemInfo(undef, $bib, $type); ! my $dat = &bibdata($bib); ! my $count = @items; ! my ($count3, $addauthor) = &addauthor($bib); ! my $additional = $addauthor->[0]->{'author'}; ! my @temp = split('\t', $items[0]); my $main; my $secondary; + + if ($type eq ''){ + $type = 'opac'; + } # if + + # setup colours if ($type eq 'opac'){ ! $main = '#99cccc'; ! $secondary = '#efe5ef'; } else { ! $main = '#cccc99'; ! $secondary = '#ffffcc'; ! } # else ! ! print $input->header; print startpage(); print startmenu($type); + if ($type ne 'opac'){ + print << "EOF"; + <a href=request.pl?bib=$bib><img height=42 WIDTH=120 BORDER=0 src=\"/images/requests.gif\" align=right border=0></a> + EOF + } # if + + for (my $i = 1; $i < $count3; $i++) { + $additional .= "|" . $addauthor->[$i]->{'author'}; + } # for if ($type eq 'catmain'){ print mkheadr(3,"Catalogue Maintenance"); ! } # if ! if ($dat->{'author'} ne ''){ print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]"); *************** *** 55,59 **** print mkheadr(3,"$dat->{'title'} $temp[4]"); } ! print <<printend <TABLE CELLSPACING=0 CELLPADDING=5 border=1 align=left width="220"> --- 58,62 ---- print mkheadr(3,"$dat->{'title'} $temp[4]"); } ! print << "EOF"; <TABLE CELLSPACING=0 CELLPADDING=5 border=1 align=left width="220"> *************** *** 67,83 **** <td bgcolor="$main" ! printend ! ; if ($type ne 'opac'){ print "background=\"/images/background-mem.gif\""; } ! print <<printend ><B>BIBLIO RECORD ! printend ! ; if ($type ne 'opac'){ print "$bib"; } ! print <<printend </TD></TR> --- 70,86 ---- <td bgcolor="$main" ! EOF ! if ($type ne 'opac'){ print "background=\"/images/background-mem.gif\""; } ! print << "EOF"; ><B>BIBLIO RECORD ! EOF ! if ($type ne 'opac'){ print "$bib"; } ! print << "EOF"; </TD></TR> *************** *** 85,103 **** <tr VALIGN=TOP > <TD> ! printend ! ; if ($type ne 'opac'){ print "<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\">"; } ! print <<printend <br> <FONT SIZE=2 face="arial, helvetica"> ! printend ! ; if ($type ne 'opac'){ ! print <<printend <b>Subtitle:</b> $dat->{'subtitle'}<br> <b>Author:</b> $dat->{'author'}<br> --- 88,105 ---- <tr VALIGN=TOP > <TD> ! EOF ! if ($type ne 'opac'){ print "<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\">"; } ! print << "EOF"; <br> <FONT SIZE=2 face="arial, helvetica"> ! EOF if ($type ne 'opac'){ ! print << "EOF"; <b>Subtitle:</b> $dat->{'subtitle'}<br> <b>Author:</b> $dat->{'author'}<br> *************** *** 113,118 **** <b>Total Number of Items:</b> $count <p> ! printend ! ; } else { --- 115,120 ---- <b>Total Number of Items:</b> $count <p> ! EOF ! } else { *************** *** 149,153 **** } ! print <<printend </form> </font></TD> --- 151,155 ---- } ! print << "EOF"; </form> </font></TD> *************** *** 156,165 **** </TABLE> <img src="/images/holder.gif" width=16 height=300 align=left> ! ! printend ! ; ! ! ! #print @items; my $i=0; --- 158,162 ---- </TABLE> <img src="/images/holder.gif" width=16 height=300 align=left> ! EOF my $i=0; *************** *** 174,179 **** my $colour=1; while ($i < $count){ ! # print $items[$i],"<br>"; ! my @results=split('\t',$items[$i]); if ($type ne 'opac'){ $results[1]=mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]&type=$type",$results[1]); --- 171,176 ---- my $colour=1; while ($i < $count){ ! ! my @results = split('\t', $items[$i]); if ($type ne 'opac'){ $results[1]=mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]&type=$type",$results[1]); *************** *** 217,229 **** print mktablehdr(); if ($type ne 'opac'){ ! print <<printend <TR VALIGN=TOP> <TD bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><p><b>HELP</b><br> <b>Update Biblio for all Items:</b> Click on the <b>Modify</b> button [left] to amend the biblio. Any changes you make will update the record for <b>all</b> the items listed above. <p> <b>Updating the Biblio for only ONE or SOME Items:</b> ! printend ! ; if ($type eq 'catmain'){ ! print <<printend If some of the items listed above need a different biblio, you need to click on the wrong item, then shift the group it belongs to, to the correct biblio. --- 214,226 ---- print mktablehdr(); if ($type ne 'opac'){ ! print << "EOF"; <TR VALIGN=TOP> <TD bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><p><b>HELP</b><br> <b>Update Biblio for all Items:</b> Click on the <b>Modify</b> button [left] to amend the biblio. Any changes you make will update the record for <b>all</b> the items listed above. <p> <b>Updating the Biblio for only ONE or SOME Items:</b> ! EOF ! if ($type eq 'catmain'){ ! print << "EOF"; If some of the items listed above need a different biblio, you need to click on the wrong item, then shift the group it belongs to, to the correct biblio. *************** *** 232,245 **** </TR> ! printend ! ; } else { ! print <<printend If some of the items listed above need a different biblio, or are on the wrong biblio, you must use the <a href="acquisitions/">acquisitions</a> process to fix this. You will need to "re-order" the items, and delete them from this biblio. <p> </TR> ! printend ! ; } } --- 229,242 ---- </TR> ! EOF ! } else { ! print << "EOF"; If some of the items listed above need a different biblio, or are on the wrong biblio, you must use the <a href="acquisitions/">acquisitions</a> process to fix this. You will need to "re-order" the items, and delete them from this biblio. <p> </TR> ! EOF ! } }

1 0