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

CVS: koha/C4 Maintainance.pm,1.2,1.3
by Chris Cormack 15 Mar '01

15 Mar '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv6565/C4 Modified Files: Maintainance.pm Log Message: Added functionality to allow invalid itemtype to be fixed Index: Maintainance.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Maintainance.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** Maintainance.pm 2001/03/13 22:04:04 1.2 --- Maintainance.pm 2001/03/15 10:15:51 1.3 *************** *** 14,18 **** @ISA = qw(Exporter); ! @EXPORT = qw(&listsubjects &updatesub &shiftgroup &deletedbib &undeletebib); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], --- 14,19 ---- @ISA = qw(Exporter); ! @EXPORT = qw(&listsubjects &updatesub &shiftgroup &deletedbib &undeletebib ! &updatetype); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], *************** *** 139,143 **** } ! END { } # module clean-up code here (global destructor) --- 140,151 ---- } ! sub updatetype{ ! my ($bi,$type)=@_; ! my $dbh=C4Connect; ! my $sth=$dbh->prepare("Update biblioitems set itemtype='$type' where biblioitemnumber=$bi"); ! $sth->execute; ! $sth->finish; ! $dbh->disconnect; ! } END { } # module clean-up code here (global destructor)

1 0

CVS: koha/maint shiftbib.pl,NONE,1.1
by Chris Cormack 15 Mar '01

15 Mar '01

Update of /cvsroot/koha/koha/maint In directory usw-pr-cvs1:/tmp/cvs-serv6288/maint Added Files: shiftbib.pl Log Message: Script to shift a group to another biblio, called as part of catalogue maintenance --- NEW FILE --- #!/usr/bin/perl #script to do some serious catalogue maintainance #written 22/11/00 # by chris(a)katipo.co.nz use strict; use CGI; use C4::Output; use C4::Database; use C4::Maintainance; my $input = new CGI; print $input->header; my $type=$input->param('type'); my $bi=$input->param('bi'); my $bib=$input->param('bib'); my $type=$input->param('type'); print startpage(); print startmenu('catalog'); if ($type eq 'change'){ my $biblionumber=$input->param('biblionumber'); my $dbh=C4Connect; my $query="Select * from biblio where biblionumber=$biblionumber"; my $sth=$dbh->prepare($query); $sth->execute; my $data=$sth->fetchrow_hashref; print "Shifting group $bi to biblio $biblionumber<br> Title:$data->{'title'}<br> Author:$data->{'author'}<p> Are you sure? <p> "; print "<a href=/cgi-bin/koha/maint/shiftbib.pl?type=update&bi=$bi&bib=$biblionumber>Yes</a>"; } elsif ($type eq 'update'){ shiftgroup($bib,$bi); print "Shifted"; } else { print "Shifting Group $bi from biblio $bib to <p>"; print "<form action=/cgi-bin/koha/maint/shiftbib.pl method=post>"; print "<input name=bi type=hidden value=$bi>"; print "<input type=hidden name=type value=change>"; print "<input type=text name=biblionumber><br>"; print "<input type=submit value=change></form>"; } print endmenu('catalog'); print endpage();

1 0

CVS: koha-html/intranet-html/catalogue index.html,1.1.1.1,1.2
by Chris Cornack 13 Mar '01

13 Mar '01

Update of /cvsroot/koha/koha-html/intranet-html/catalogue In directory usw-pr-cvs1:/tmp/cvs-serv13749/intranet-html/catalogue Modified Files: index.html Log Message: Changing catalogue maintenance link Index: index.html =================================================================== RCS file: /cvsroot/koha/koha-html/intranet-html/catalogue/index.html,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** index.html 2001/02/04 20:52:48 1.1.1.1 --- index.html 2001/03/13 22:42:43 1.2 *************** *** 27,31 **** <TD bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><b>HELP</b><br> <b>Searching:</b> Using more fields for your search (eg Keyword + author + class) will slow it down.<p> ! <b><a href=/cgi-bin/koha/catmaintain.pl target=window0>Catalogue Maintenance:</a></b> To add a <b>new</b> biblio or item go to <a href="acquisitions/">acquisitions</a>.<p> To <b>request, modify or delete</b> a biblio or item first search for it here. --- 27,31 ---- <TD bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><b>HELP</b><br> <b>Searching:</b> Using more fields for your search (eg Keyword + author + class) will slow it down.<p> ! <b><a href=/cgi-bin/koha/maint/catmaintain.pl target=window0>Catalogue Maintenance:</a></b> To add a <b>new</b> biblio or item go to <a href="acquisitions/">acquisitions</a>.<p> To <b>request, modify or delete</b> a biblio or item first search for it here.

1 0

CVS: koha/maint catmaintain.pl,NONE,1.1
by Chris Cornack 13 Mar '01

13 Mar '01

Update of /cvsroot/koha/koha/maint In directory usw-pr-cvs1:/tmp/cvs-serv13629/maint Added Files: catmaintain.pl Log Message: Shifted catmaintain.pl to a dir that can be easily passowrd protected --- NEW FILE --- #!/usr/bin/perl #script to do some serious catalogue maintainance #written 22/11/00 # by chris(a)katipo.co.nz use strict; use CGI; use C4::Output; use C4::Database; use C4::Maintainance; my $input = new CGI; print $input->header; my $type=$input->param('type'); print startpage(); print startmenu('catalog'); my $blah; my $num=0; my $offset=0; if ($type eq 'allsub'){ my $sub=$input->param('sub'); my ($count,$results)=listsubjects($sub,$num,$offset); for (my $i=0;$i<$count;$i++){ my $sub2=$results->[$i]->{'subject'}; $sub2=~ s/ /%20/g; print "\"<a href=\"/cgi-bin/koha/maint/catmaintain.pl?type=allsub&sub=$sub\" onclick=\'messenger(\"/cgi-bin/koha/maint/catmaintain.pl?type=modsub&sub=$sub2\");window1.focus()\'>$results->[$i]->{'subject'}\"</a><br>\n"; } } elsif ($type eq 'modsub'){ my $sub=$input->param('sub'); print "<form action=/cgi-bin/koha/maint/catmaintain.pl>"; print "Subject:<input type=text value=\"$sub\" name=sub size=40><br>\n"; print "<input type=hidden name=type value=upsub>"; print "<input type=hidden name=oldsub value=\"$sub\">"; print "<input type=submit value=modify>"; # print "<a href=\"nowhere\" onclick=\"document.forms[0].submit();\">Modify</a>"; print "</form>"; print "<p> This will change the subject headings on all the biblios this subject is applied to" } elsif ($type eq 'upsub'){ my $sub=$input->param('sub'); my $oldsub=$input->param('oldsub'); updatesub($sub,$oldsub); print "Successfully modified $oldsub is now $sub"; print "<p><a href=/cgi-bin/koha/maint/catmaintain.pl target=window0 onclick=\"window0.focus()\">Back to catalogue maintenance</a><br>"; print "<a href=nowhere onclick=\"self.close()\">Close this window</a>"; } elsif ($type eq 'undel'){ my $title=$input->param('title'); my ($count,$results)=deletedbib($title); print "<table border=0>"; print "<tr><td><b>Title</b></td><td><b>Author</b></td><td><b>Undelete</b></td></tr>"; for (my $i=0;$i<$count;$i++){ print "<tr><td>$results->[$i]->{'title'}</td><td>$results->[$i]->{'author'}</td><td><a href=/cgi-bin/koha/maint/catmaintain.pl?type=finun&bib=$results->[$i]->{'biblionumber'}>Undelete</a></td>\n"; } print "</table>"; } elsif ($type eq 'finun'){ my $bib=$input->param('bib'); undeletebib($bib); print "Succesfully undeleted"; print "<p><a href=/cgi-bin/koha/maint/catmaintain.pl>Back to Catalogue Maintenance</a>"; } else { print "<B>Subject Maintenance</b><br>"; print "<form action=/cgi-bin/koha/maint/catmaintain.pl method=post>"; print "<input type=hidden name=type value=allsub>"; print "Show all subjects beginning with <input type=text name=sub><br>"; print "<input type=submit value=Show>"; print "</form>"; print "<p>"; print "<B>Group Maintenance</b></br>"; print "<form action=/cgi-bin/koha/search.pl method=post>"; print "<input type=hidden name=type value=catmain>"; print "Show all Titles beginning with <input type=text name=title><br>"; print "<input type=submit value=Show>"; print "</form>"; print "<p>"; print "<B>Undelete Biblio</b></br>"; print "<form action=/cgi-bin/koha/maint/catmaintain.pl method=post>"; print "<input type=hidden name=type value=undel>"; print "Show all Titles beginning with <input type=text name=title><br>"; print "<input type=submit value=Show>"; print "</form>"; } print endmenu('catalog'); print endpage();

1 0

CVS: koha catmaintain.pl,1.2,NONE
by Chris Cornack 13 Mar '01

13 Mar '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv13629 Removed Files: catmaintain.pl Log Message: Shifted catmaintain.pl to a dir that can be easily passowrd protected --- catmaintain.pl DELETED ---

1 0

CVS: koha/maint - New directory
by Chris Cornack 13 Mar '01

13 Mar '01

Update of /cvsroot/koha/koha/maint In directory usw-pr-cvs1:/tmp/cvs-serv10819/maint Log Message: Directory /cvsroot/koha/koha/maint added to the repository

1 0

CVS: koha catmaintain.pl,1.1.1.1,1.2
by Chris Cornack 13 Mar '01

13 Mar '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv9482 Modified Files: catmaintain.pl Log Message: Got undeleting biblios going (catalogue maintenance should probably be in a password protected super librarian area or the like) Index: catmaintain.pl =================================================================== RCS file: /cvsroot/koha/koha/catmaintain.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** catmaintain.pl 2000/12/19 23:45:51 1.1.1.1 --- catmaintain.pl 2001/03/13 22:04:04 1.2 *************** *** 44,51 **** --- 44,80 ---- print "<p><a href=/cgi-bin/koha/catmaintain.pl target=window0 onclick=\"window0.focus()\">Back to catalogue maintenance</a><br>"; print "<a href=nowhere onclick=\"self.close()\">Close this window</a>"; + } elsif ($type eq 'undel'){ + my $title=$input->param('title'); + my ($count,$results)=deletedbib($title); + print "<table border=0>"; + print "<tr><td><b>Title</b></td><td><b>Author</b></td><td><b>Undelete</b></td></tr>"; + for (my $i=0;$i<$count;$i++){ + print "<tr><td>$results->[$i]->{'title'}</td><td>$results->[$i]->{'author'}</td><td><a href=/cgi-bin/koha/catmaintain.pl?type=finun&bib=$results->[$i]->{'biblionumber'}>Undelete</a></td>\n"; + } + print "</table>"; + } elsif ($type eq 'finun'){ + my $bib=$input->param('bib'); + undeletebib($bib); + print "Succesfully undeleted"; + print "<p><a href=/cgi-bin/koha/catmaintain.pl>Back to Catalogue Maintenance</a>"; } else { + print "<B>Subject Maintenance</b><br>"; print "<form action=/cgi-bin/koha/catmaintain.pl method=post>"; print "<input type=hidden name=type value=allsub>"; print "Show all subjects beginning with <input type=text name=sub><br>"; + print "<input type=submit value=Show>"; + print "</form>"; + print "<p>"; + print "<B>Group Maintenance</b></br>"; + print "<form action=/cgi-bin/koha/search.pl method=post>"; + print "<input type=hidden name=type value=catmain>"; + print "Show all Titles beginning with <input type=text name=title><br>"; + print "<input type=submit value=Show>"; + print "</form>"; + print "<p>"; + print "<B>Undelete Biblio</b></br>"; + print "<form action=/cgi-bin/koha/catmaintain.pl method=post>"; + print "<input type=hidden name=type value=undel>"; + print "Show all Titles beginning with <input type=text name=title><br>"; print "<input type=submit value=Show>"; print "</form>";

1 0

CVS: koha/C4 Maintainance.pm,1.1.1.1,1.2
by Chris Cornack 13 Mar '01

13 Mar '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv9482/C4 Modified Files: Maintainance.pm Log Message: Got undeleting biblios going (catalogue maintenance should probably be in a password protected super librarian area or the like) Index: Maintainance.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Maintainance.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** Maintainance.pm 2000/12/19 23:45:54 1.1.1.1 --- Maintainance.pm 2001/03/13 22:04:04 1.2 *************** *** 14,18 **** @ISA = qw(Exporter); ! @EXPORT = qw(&listsubjects &updatesub); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], --- 14,18 ---- @ISA = qw(Exporter); ! @EXPORT = qw(&listsubjects &updatesub &shiftgroup &deletedbib &undeletebib); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], *************** *** 81,84 **** --- 81,143 ---- $dbh->disconnect; } + + sub shiftgroup{ + my ($bib,$bi)=@_; + my $dbh=C4Connect; + my $query="update biblioitems set biblionumber=$bib where biblioitemnumber=$bi"; + my $sth=$dbh->prepare($query); + $sth->execute; + $sth->finish; + $query="update items set biblionumber=$bib where biblioitemnumber=$bi"; + $sth=$dbh->prepare($query); + $sth->execute; + $sth->finish; + $dbh->disconnect; + } + + sub deletedbib{ + my ($title)=@_; + my $dbh=C4Connect; + my $query="Select * from deletedbiblio where title like '$title%' order by title"; + my $sth=$dbh->prepare($query); + $sth->execute; + my @results; + my $i=0; + while (my $data=$sth->fetchrow_hashref){ + $results[$i]=$data; + $i++; + } + $sth->finish; + $dbh->disconnect; + return($i,\@results); + } + + sub undeletebib{ + my ($bib)=@_; + my $dbh=C4Connect; + my $query="select * from deletedbiblio where biblionumber=$bib"; + my $sth=$dbh->prepare($query); + $sth->execute; + if (my @data=$sth->fetchrow_array){ + $sth->finish; + $query="Insert into biblio values ("; + foreach my $temp (@data){ + $temp=~ s/\'/\\\'/g; + $query=$query."'$temp',"; + } + $query=~ s/\,$/\)/; + # print $query; + $sth=$dbh->prepare($query); + $sth->execute; + $sth->finish; + } + $query="Delete from deletedbiblio where biblionumber=$bib"; + $sth=$dbh->prepare($query); + $sth->execute; + $sth->finish; + $dbh->disconnect; + } + + END { } # module clean-up code here (global destructor)

1 0

CVS: koha newbiblio.pl,1.1,NONE
by Chris Cornack 13 Mar '01

13 Mar '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv14331 Removed Files: newbiblio.pl Log Message: Just realised this is supposed to be in the acqui/ dir (doh) --- newbiblio.pl DELETED ---

1 0

CVS: koha/acqui acquire.pl,1.1.1.1,1.2 newbiblio.pl,1.1.1.1,1.2
by Chris Cornack 13 Mar '01

13 Mar '01

Update of /cvsroot/koha/koha/acqui In directory usw-pr-cvs1:/tmp/cvs-serv14249/acqui Modified Files: acquire.pl newbiblio.pl Log Message: Glens updates to automatically increment barcode, and to remove hardcoded itemtypes in scripts Index: acquire.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui/acquire.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** acquire.pl 2000/12/19 23:45:56 1.1.1.1 --- acquire.pl 2001/03/12 23:32:47 1.2 *************** *** 6,10 **** use C4::Acquisitions; use C4::Output; ! use CGI; use strict; --- 6,11 ---- use C4::Acquisitions; use C4::Output; ! use C4::Database; ! use C4::Search; use CGI; use strict; *************** *** 60,64 **** print "<input type=image name=submit src=/images/save-changes.gif border=0 width=187 height=42 align=right>"; } else { ! print "<a href=/cgi-bin/koha/acqui/newbiblio.pl?ordnum=$results[0]->{'ordernumber'}&id=$results[0]->{'booksellerid'}><image src=/images/modify-mem.gif align=right border=0></a>"; } print <<EOP --- 61,65 ---- print "<input type=image name=submit src=/images/save-changes.gif border=0 width=187 height=42 align=right>"; } else { ! print "<a href=/cgi-bin/koha/acqui/newbiblio.pl?ordnum=$results[0]->{'ordernumber'}&id=$results[0]->{'booksellerid'}><img src=/images/modify-mem.gif align=right border=0></a>"; } print <<EOP *************** *** 88,93 **** <TR VALIGN=TOP> ! <TD><A HREF="popbox.html" onclick="messenger(600,300,'ITEMTYPES<BR>ART = Art Print<BR>BCD = CD-ROM from book<BR>CAS = Cassette<BR>CD = Compact disc (WN)<BR>F = Free Fiction<BR>FVID = Free video<BR>FYA = Young Adult Fiction<BR>GWB = Get Well Bag<BR>HCVF = Horowhenua Collection Vertical File<BR>IL = Interloan<BR>JCF = Junior Castle Fiction<BR>JCNF = Junior Castle Non-fiction<BR>JF = Junior Fiction<BR>JHC = Junior Horowhenua Collection VF<BR>JIG = Jigsaw puzzle<BR>JK = Junior Kermit<BR>JNF = Junior Non-Fiction<BR>JPB = Junior Paperbacks<BR>JPC = Junior Picture Book<BR>JPER = Junior Periodical<BR>JREF = Junior Reference<BR>JVF = Junior Vertical File<BR>LP = Large Print<BR>MAP = Map<BR>NF = Adult NonFiction<BR>NFLP = NonFiction LargePrint<BR>NGA = Nga Pukapuka<BR>PAY = Pay Collection<BR>PB = Pamphlet Box<BR>PER = Periodical<BR>PHOT = Photograph<BR>POS = Junior Poster<BR>REF = Adult Reference<BR>ROM = CD-Rom<BR>STF = Stack Fiction<BR>STJ = Stack Junior<BR>STLP = Stack Large Print<BR>STNF = Stack Non-fiction<BR>TB = Talking Book<BR>TREF = Taonga<BR>VF = Vertical File<BR>VID = Video'); return false"><B>Format *</B></A></td> ! <td><input type=text size=20 name=format value="$results[0]->{'itemtype'}"> </td> --- 89,114 ---- <TR VALIGN=TOP> ! <TD>Format</td> ! <td> ! <select name=format size=1> ! EOP ! ; ! ! my $dbh=C4Connect; ! my $query="Select itemtype,description from itemtypes order by description"; ! my $sth=$dbh->prepare($query); ! $sth->execute; ! while (my $data=$sth->fetchrow_hashref){ ! if ($data->{'itemtype'} eq $results[0]->{'itemtype'}) { ! print "<option SELECTED value=\"" . $data->{'itemtype'} . "\">" . $data->{'description'} . "\n"; ! } else { ! print "<option value=\"" . $data->{'itemtype'} . "\">" . $data->{'description'} . "\n"; ! } ! } ! $sth->finish; ! $dbh->disconnect; ! ! print <<EOP ! </select> </td> *************** *** 129,133 **** <TD><B>Item Barcode *</B></td> ! <td><input type=text size=20 name=barcode> </td> </tr> --- 150,171 ---- <TD><B>Item Barcode *</B></td> ! <td><input type=text size=20 name=barcode value= ! EOP ! ; ! ! my %systemprefs=systemprefs(); ! if ($systemprefs{'autoBarcode'} eq '1') { ! my $dbh=C4Connect; ! my $query="Select barcode from items order by barcode desc"; ! my $sth=$dbh->prepare($query); ! $sth->execute; ! my $data=$sth->fetchrow_hashref; ! print $data->{'barcode'}+1; ! $sth->finish; ! $dbh->disconnect; ! } ! ! print <<EOP ! > </td> </tr> *************** *** 201,205 **** <TD>Invoice Number</td> <td>$invoice ! <input type=hidden name=invoice value=$invoice> <TR VALIGN=TOP> <TD>Notes</td> --- 239,245 ---- <TD>Invoice Number</td> <td>$invoice ! <input type=hidden name=invoice value="$invoice"> ! </td> ! </tr> <TR VALIGN=TOP> <TD>Notes</td> Index: newbiblio.pl =================================================================== RCS file: /cvsroot/koha/koha/acqui/newbiblio.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** newbiblio.pl 2000/12/19 23:45:57 1.1.1.1 --- newbiblio.pl 2001/03/12 23:32:47 1.2 *************** *** 7,10 **** --- 7,11 ---- use C4::Output; use C4::Search; + use C4::Database; use CGI; use strict; *************** *** 149,154 **** </tr> <TR VALIGN=TOP> ! <TD><A HREF="popbox.html" onclick="messenger(600,300,'ITEMTYPES<BR>ART = Art Print<BR>BCD = CD-ROM from book<BR>CAS = Cassette<BR>CD = Compact disc (WN)<BR>F = Free Fiction<BR>FVID = Free video<BR>FYA = Young Adult Fiction<BR>GWB = Get Well Bag<BR>HCVF = Horowhenua Collection Vertical File<BR>IL = Interloan<BR>JCF = Junior Castle Fiction<BR>JCNF = Junior Castle Non-fiction<BR>JF = Junior Fiction<BR>JHC = Junior Horowhenua Collection VF<BR>JIG = Jigsaw puzzle<BR>JK = Junior Kermit<BR>JNF = Junior Non-Fiction<BR>JPB = Junior Paperbacks<BR>JPC = Junior Picture Book<BR>JPER = Junior Periodical<BR>JREF = Junior Reference<BR>JVF = Junior Vertical File<BR>LP = Large Print<BR>MAP = Map<BR>NF = Adult NonFiction<BR>NFLP = NonFiction LargePrint<BR>NGA = Nga Pukapuka<BR>PAY = Pay Collection<BR>PB = Pamphlet Box<BR>PER = Periodical<BR>PHOT = Photograph<BR>POS = Junior Poster<BR>REF = Adult Reference<BR>ROM = CD-Rom<BR>STF = Stack Fiction<BR>STJ = Stack Junior<BR>STLP = Stack Large Print<BR>STNF = Stack Non-fiction<BR>TB = Talking Book<BR>TREF = Taonga<BR>VF = Vertical File<BR>VID = Video'); return false"><b>Format *</b></A></td> ! <td><input type=text size=20 name=format value=$data->{'itemtype'}> </td> </tr> --- 150,174 ---- </tr> <TR VALIGN=TOP> ! <TD>Format</td> ! <td> ! <select name=format size=1> ! printend ! ; ! ! my $dbh=C4Connect; ! my $query="Select itemtype,description from itemtypes order by description"; ! my $sth=$dbh->prepare($query); ! $sth->execute; ! print "<option value=\"\">Please choose:\n"; ! while (my $data=$sth->fetchrow_hashref){ ! print "<option value=\"" . $data->{'itemtype'} . "\">" . $data->{'description'} . "\n"; ! } ! $sth->finish; ! $dbh->disconnect; ! ! print <<printend ! </select> ! ! </td> </tr> *************** *** 183,187 **** <TR VALIGN=TOP bgcolor=#ffffcc> <TD >Item Barcode</td> ! <td><input type=text size=20 name=barcode> </td> </tr> --- 203,224 ---- <TR VALIGN=TOP bgcolor=#ffffcc> <TD >Item Barcode</td> ! <td><input type=text size=20 name=barcode value= ! printend ! ; ! ! my %systemprefs=systemprefs(); ! if ($systemprefs{'autoBarcode'} eq '1') { ! my $dbh=C4Connect; ! my $query="Select barcode from items order by barcode desc"; ! my $sth=$dbh->prepare($query); ! $sth->execute; ! my $data=$sth->fetchrow_hashref; ! print $data->{'barcode'}+1; ! $sth->finish; ! $dbh->disconnect; ! } ! ! print <<printend ! > </td> </tr>

1 0