From tipaul@users.sourceforge.net Tue Mar  5 12:48:52 2002
From: Paul POULAIN <tipaul@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha/admin aqbookfund.pl,NONE,1.1
 aqbudget.pl,NONE,1.1 branches.pl,NONE,1.1 categorie.pl,NONE,1.1
 categoryitem.pl,NONE,1.1 currency.pl,NONE,1.1 itemtypes.pl,NONE,1.1
 printers.pl,NONE,1.1 stopwords.pl,NONE,1.1 systempreferences.pl,NONE,1.1
Date: Tue, 05 Mar 2002 13:38:03 +0000
Message-ID: <E16iLrc-0005Pd-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============6202719671662161188=="

--===============6202719671662161188==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Update of /cvsroot/koha/koha/admin
In directory usw-pr-cvs1:/tmp/cvs-serv20545/admin

Added Files:
	aqbookfund.pl aqbudget.pl branches.pl categorie.pl=20
	categoryitem.pl currency.pl itemtypes.pl printers.pl=20
	stopwords.pl systempreferences.pl=20
Log Message:
scripts to manage parameters tables


--- NEW FILE ---
#!/usr/bin/perl

#script to administer the aqbudget table
#written 20/02/2002 by paul.poulain@free.fr
# This software is placed under the gnu General Public License, v2 (http://ww=
w.gnu.org/licenses/gpl.html)

# ALGO :
# this script use an $op to know what to do.
# if $op is empty or none of the above values,
#	- the default screen is build (with all records, or filtered datas).
#	- the   user can clic on add, modify or delete record.
# if $op=3Dadd_form
#	- if primkey exists, this is a modification,so we read the $primkey record
#	- builds the add/modify form
# if $op=3Dadd_validate
#	- the user has just send datas, so we create/modify the record
# if $op=3Ddelete_form
#	- we show the record having primkey=3D$primkey and ask for deletion validat=
ion form
# if $op=3Ddelete_confirm
#	- we delete the record having primkey=3D$primkey

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Database;

sub StringSearch  {
	my ($env,$searchstring,$type)=3D@_;
	my $dbh =3D &C4Connect;
	$searchstring=3D~ s/\'/\\\'/g;
	my @data=3Dsplit(' ',$searchstring);
	my $count=3D@data;
	my $query=3D"Select aqbudget.bookfundid,startdate,enddate,budgetamount,bookf=
undname from aqbudget,aqbookfund where aqbudget.bookfundid=3Daqbookfund.bookf=
undid and (aqbudget.bookfundid like \"$data[0]%\") order by bookfundid";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	my @results;
	my $cnt=3D0;
	while (my $data=3D$sth->fetchrow_hashref){
	push(@results,$data);
	$cnt ++;
	}
	#  $sth->execute;
	$sth->finish;
	$dbh->disconnect;
	return ($cnt,\@results);
}

my $input =3D new CGI;
my $searchfield=3D$input->param('searchfield');
my $offset=3D$input->param('offset');
my $script_name=3D"/cgi-bin/koha/admin/aqbookfund.pl";
my $bookfundid=3D$input->param('bookfundid');
my $pagesize=3D20;
my $op =3D $input->param('op');
$searchfield=3D~ s/\,//g;
print $input->header;

#start the page and read in includes
print startpage();
print startmenu('admin');

################## ADD_FORM ##################################
# called by default. Used to create form to add or  modify a record
if ($op eq 'add_form') {
	#---- if primkey exists, it's a modify action, so read values to modify...
	my $data;
	if ($bookfundid) {
		my $dbh =3D &C4Connect;
		my $sth=3D$dbh->prepare("select bookfundid,bookfundname,bookfundgroup from =
aqbookfund where bookfundid=3D'$bookfundid'");
		$sth->execute;
		$data=3D$sth->fetchrow_hashref;
		$sth->finish;
	}
	print <<printend
	<script>
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNotNull(f,noalert) {
		if (f.value.length =3D=3D0) {
   return false;
		}
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function toUC(f) {
		var x=3Df.value.toUpperCase();
		f.value=3Dx;
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNum(v,maybenull) {
	var n =3D new Number(v.value);
	if (isNaN(n)) {
		return false;
		}
	if (maybenull=3D=3D0 && v.value=3D=3D'') {
		return false;
	}
	return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isDate(f) {
		var t =3D Date.parse(f.value);
		if (isNaN(t)) {
			return false;
		}
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function Check(f) {
		var ok=3D1;
		var _alertString=3D"";
		var alertString2;
		if (f.bookfundid.value.length=3D=3D0) {
			_alertString +=3D "- bookfundid missing\\n";
		}
		if (f.bookfundname.value.length=3D=3D0) {
			_alertString +=3D "- bookfundname missing\\n";
		}
		if (_alertString.length=3D=3D0) {
			document.Aform.submit();
		} else {
			alertString2 =3D "Form not submitted because of the following problem(s)\\=
n";
			alertString2 +=3D "-------------------------------------------------------=
-----------------------------\\n\\n";
			alertString2 +=3D _alertString;
			alert(alertString2);
		}
	}
	</SCRIPT>
printend
;#/
	if ($bookfundid) {
		print "<h1>Modify book fund</h1>";
	} else {
		print "<h1>Add book fund</h1>";
	}
	print "<form action=3D'$script_name' name=3DAform method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3D'add_validate'>";
	print "<input type=3Dhidden name=3Dchecked value=3D0>";
	print "<table>";
	if ($bookfundid) {
		print "<tr><td>Book fund</td><td><input type=3Dhidden name=3Dbookfundid val=
ue=3D$bookfundid>$bookfundid</td></tr>";
	} else {
		print "<tr><td>Book fund</td><td><input type=3Dtext name=3Dbookfundid size=
=3D5 maxlength=3D5 onBlur=3DtoUC(this)></td></tr>";
	}
	print "<tr><td>Name</td><td><input type=3Dtext name=3Dbookfundname size=3D40=
 maxlength=3D80 value=3D'$data->{'bookfundname'}'>&nbsp;</td></tr>";
	print "<tr><td>Group</td><td><input type=3Dtext name=3Dbookfundgroup value=
=3D'$data->{'bookfundgroup'}'></td></tr>";
	print "<tr><td>&nbsp;</td><td><INPUT type=3Dbutton value=3D'OK' onClick=3D'C=
heck(this.form)'></td></tr>";
print "</table>";
	print "</form>";
;
													# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
	my $dbh=3DC4Connect;
	my $query =3D "replace aqbookfund (bookfundid,bookfundname,bookfundgroup) va=
lues (";
	$query.=3D $dbh->quote($input->param('bookfundid')).",";
	$query.=3D $dbh->quote($input->param('bookfundname')).",";
	$query.=3D $dbh->quote($input->param('bookfundgroup')).")";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data recorded";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################
# called by default form, used to confirm deletion of data in DB
} elsif ($op eq 'delete_confirm') {
	my $dbh =3D &C4Connect;
#	my $sth=3D$dbh->prepare("select count(*) as total from categoryitem where i=
temtype=3D'$itemtype'");
#	$sth->execute;
#	my $total =3D $sth->fetchrow_hashref;
#	$sth->finish;
	my $sth=3D$dbh->prepare("select bookfundid,bookfundname,bookfundgroup from a=
qbookfund where bookfundid=3D'$bookfundid'");
	$sth->execute;
	my $data=3D$sth->fetchrow_hashref;
	$sth->finish;
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Book fund'),bold("$bookfundid"),'/images/=
background-mem.gif');
	print "<form action=3D'$script_name' method=3Dpost><input type=3Dhidden name=
=3Dop value=3Ddelete_confirmed><input type=3Dhidden name=3Dbookfundid value=
=3D'$bookfundid'>";
	print "<tr><td>Name</td><td>$data->{'bookfundname'}</td></tr>";
	print "<tr><td>Group</td><td>$data->{'bookfundgroup'}</td></tr>";
#	if ($total->{'total'} >0) {
#		print "<tr><td colspan=3D2 align=3Dcenter><b>This record is used $total->{=
'total'} times. Deletion not possible</b></td></tr>";
#		print "<tr><td colspan=3D2></form><form action=3D'$script_name' method=3Dp=
ost><input type=3Dsubmit value=3DOK></form></td></tr>";
#	} else {
		print "<tr><td colspan=3D2 align=3Dcenter>CONFIRM DELETION</td></tr>";
		print "<tr><td><INPUT type=3Dsubmit value=3D'YES'></form></td><td><form act=
ion=3D'$script_name' method=3Dpost><input type=3Dsubmit value=3DNO></form></t=
d></tr>";
#	}
													# END $OP eq DELETE_CONFIRM
################## DELETE_CONFIRMED ##################################
# called by delete_confirm, used to effectively confirm deletion of data in DB
} elsif ($op eq 'delete_confirmed') {
	my $dbh=3DC4Connect;
	my $bookfundid=3Duc($input->param('bookfundid'));
	my $query =3D "delete from aqbookfund where bookfundid=3D'$bookfundid'";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data deleted";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
	my @inputs=3D(["text","searchfield",$searchfield],
		["reset","reset","clr"]);
	print mkheadr(2,'bookfund admin');
	print mkformnotable("$script_name",@inputs);
	print <<printend

printend
	;
	if  ($searchfield ne '') {
		print "You Searched for <b>$searchfield<b><p>";
	}
	print mktablehdr;
	print mktablerow(6,'#99cc33',bold('Book fund'),bold('Start date'),bold('End =
date'),bold('Budget amount'),
	'&nbsp;','&nbsp;','/images/background-mem.gif');
	my $env;
	my ($count,$results)=3DStringSearch($env,$searchfield,'web');
	my $toggle=3D"white";
	for (my $i=3D$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$coun=
t); $i++){
		#find out stats
	#  	my ($od,$issue,$fines)=3Dcategdata2($env,$results->[$i]{'borrowernumber'=
});
	#  	$fines=3D$fines+0;
	  	if ($toggle eq 'white'){
	    		$toggle=3D"#ffffcc";
	  	} else {
	    		$toggle=3D"white";
	  	}
		print mktablerow(6,$toggle,$results->[$i]{'bookfundid'},
		$results->[$i]{'bookfundname'},$results->[$i]{'bookfundgroup'},
		mklink("$script_name?op=3Dadd_form&bookfundid=3D".$results->[$i]{'bookfundi=
d'},'Edit'),
		mklink("$script_name?op=3Ddelete_confirm&bookfundid=3D".$results->[$i]{'boo=
kfundid'},'Delete',''));
	}
	print mktableft;
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3Dadd_form>";
	if ($offset>0) {
		my $prevpage =3D $offset-$pagesize;
		print mklink("$script_name?offset=3D".$prevpage,'&lt;&lt; Prev');
	}
	print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	if ($offset+$pagesize<$count) {
		my $nextpage =3D$offset+$pagesize;
		print mklink("$script_name?offset=3D".$nextpage,'Next &gt;&gt;');
	}
	print "<br><input type=3Dimage src=3D\"/images/button-add-member.gif\"  WIDT=
H=3D188  HEIGHT=3D44  ALT=3D\"Add budget\" BORDER=3D0 ></a><br>";
	print "</form>";
} #---- END $OP eq DEFAULT
print endmenu('admin');
print endpage();

--- NEW FILE ---
#!/usr/bin/perl

#script to administer the aqbudget table
#written 20/02/2002 by paul.poulain@free.fr
# This software is placed under the gnu General Public License, v2 (http://ww=
w.gnu.org/licenses/gpl.html)

# ALGO :
# this script use an $op to know what to do.
# if $op is empty or none of the above values,
#	- the default screen is build (with all records, or filtered datas).
#	- the   user can clic on add, modify or delete record.
# if $op=3Dadd_form
#	- if primkey exists, this is a modification,so we read the $primkey record
#	- builds the add/modify form
# if $op=3Dadd_validate
#	- the user has just send datas, so we create/modify the record
# if $op=3Ddelete_form
#	- we show the record having primkey=3D$primkey and ask for deletion validat=
ion form
# if $op=3Ddelete_confirm
#	- we delete the record having primkey=3D$primkey

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Database;

sub StringSearch  {
	my ($env,$searchstring,$type)=3D@_;
	my $dbh =3D &C4Connect;
	$searchstring=3D~ s/\'/\\\'/g;
	my @data=3Dsplit(' ',$searchstring);
	my $count=3D@data;
	my $query=3D"Select aqbudget.bookfundid,startdate,enddate,budgetamount,bookf=
undname from aqbudget,aqbookfund where aqbudget.bookfundid=3Daqbookfund.bookf=
undid and (aqbudget.bookfundid like \"$data[0]%\") order by bookfundid";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	my @results;
	my $cnt=3D0;
	while (my $data=3D$sth->fetchrow_hashref){
	push(@results,$data);
	$cnt ++;
	}
	#  $sth->execute;
	$sth->finish;
	$dbh->disconnect;
	return ($cnt,\@results);
}

my $input =3D new CGI;
my $searchfield=3D$input->param('searchfield');
my $offset=3D$input->param('offset');
my $script_name=3D"/cgi-bin/koha/admin/aqbudget.pl";
my $bookfundid=3D$input->param('bookfundid');
my $pagesize=3D20;
my $op =3D $input->param('op');
$searchfield=3D~ s/\,//g;
print $input->header;

#start the page and read in includes
print startpage();
print startmenu('admin');

################## ADD_FORM ##################################
# called by default. Used to create form to add or  modify a record
if ($op eq 'add_form') {
	#---- if primkey exists, it's a modify action, so read values to modify...
	my $data;
	if ($bookfundid) {
		my $dbh =3D &C4Connect;
		my $sth=3D$dbh->prepare("select bookfundid,startdate,enddate,budgetamount,b=
ookfundname from aqbudget,aqbookfund where aqbudget.bookfundid=3Daqbookfund.b=
ookfundid and bookfundid=3D'$bookfundid'");
		$sth->execute;
		$data=3D$sth->fetchrow_hashref;
		$sth->finish;
	}
	print <<printend
	<script>
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNotNull(f,noalert) {
		if (f.value.length =3D=3D0) {
   return false;
		}
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function toUC(f) {
		var x=3Df.value.toUpperCase();
		f.value=3Dx;
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNum(v,maybenull) {
	var n =3D new Number(v.value);
	if (isNaN(n)) {
		return false;
		}
	if (maybenull=3D=3D0 && v.value=3D=3D'') {
		return false;
	}
	return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isDate(f) {
		var t =3D Date.parse(f.value);
		if (isNaN(t)) {
			return false;
		}
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function Check(f) {
		var ok=3D1;
		var _alertString=3D"";
		var alertString2;
		if (f.bookfundid.value.length=3D=3D0) {
			_alertString +=3D "- bookfundid missing\\n";
		}
		if (!(isNotNull(window.document.Aform.budgetamount,1))) {
			_alertString +=3D "- Budget missing\\n";
		}
		if (_alertString.length=3D=3D0) {
			document.Aform.submit();
		} else {
			alertString2 =3D "Form not submitted because of the following problem(s)\\=
n";
			alertString2 +=3D "-------------------------------------------------------=
-----------------------------\\n\\n";
			alertString2 +=3D _alertString;
			alert(alertString2);
		}
	}
	</SCRIPT>
printend
;#/
	if ($bookfundid) {
		print "<h1>Modify budget</h1>";
	} else {
		print "<h1>Add budget</h1>";
	}
	print "<form action=3D'$script_name' name=3DAform method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3D'add_validate'>";
	print "<input type=3Dhidden name=3Dchecked value=3D0>";
	print "<table>";
	if ($bookfundid) {
		print "<tr><td>Book fund</td><td><input type=3Dhidden name=3Dbookfundid val=
ue=3D$bookfundid>$bookfundid</td></tr>";
	} else {
		print "<tr><td>Book fund</td><td><input type=3Dtext name=3Dbookfundid size=
=3D5 maxlength=3D5 onBlur=3DtoUC(this)></td></tr>";
	}
	print "<tr><td>Start date</td><td><input type=3Dtext name=3Dstartdate size=
=3D40 maxlength=3D80 value=3D'$data->{'startdate'}'>&nbsp;</td></tr>";
	print "<tr><td>End date</td><td><input type=3Dtext name=3Denddate value=3D'$=
data->{'enddate'}'></td></tr>";
	print "<tr><td>Budget amount</td><td><input type=3Dtext name=3Dbudgetamount =
value=3D'$data->{'budgetamount'}'></td></tr>";
	print "<tr><td>&nbsp;</td><td><INPUT type=3Dbutton value=3D'OK' onClick=3D'C=
heck(this.form)'></td></tr>";
print "</table>";
	print "</form>";
;
													# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
	my $dbh=3DC4Connect;
	my $query =3D "replace aqbudget (bookfundid,startdate,enddate,budgetamount) =
values (";
	$query.=3D $dbh->quote($input->param('bookfundid')).",";
	$query.=3D $dbh->quote($input->param('startdate')).",";
	$query.=3D $dbh->quote($input->param('enddate')).",";
	$query.=3D $dbh->quote($input->param('budgetamount')).")";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data recorded";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################
# called by default form, used to confirm deletion of data in DB
} elsif ($op eq 'delete_confirm') {
	my $dbh =3D &C4Connect;
#	my $sth=3D$dbh->prepare("select count(*) as total from categoryitem where i=
temtype=3D'$itemtype'");
#	$sth->execute;
#	my $total =3D $sth->fetchrow_hashref;
#	$sth->finish;
	my $sth=3D$dbh->prepare("select bookfundid,startdate,enddate,budgetamount fr=
om aqbudget where bookfundid=3D'$bookfundid'");
	$sth->execute;
	my $data=3D$sth->fetchrow_hashref;
	$sth->finish;
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Book fund'),bold("$bookfundid"),'/images/=
background-mem.gif');
	print "<form action=3D'$script_name' method=3Dpost><input type=3Dhidden name=
=3Dop value=3Ddelete_confirmed><input type=3Dhidden name=3Dbookfundid value=
=3D'$bookfundid'>";
	print "<tr><td>Start date</td><td>$data->{'startdate'}</td></tr>";
	print "<tr><td>End date</td><td>$data->{'enddate'}</td></tr>";
	print "<tr><td>budgetamount</td><td>$data->{'budgetamount'}</td></tr>";
#	if ($total->{'total'} >0) {
#		print "<tr><td colspan=3D2 align=3Dcenter><b>This record is used $total->{=
'total'} times. Deletion not possible</b></td></tr>";
#		print "<tr><td colspan=3D2></form><form action=3D'$script_name' method=3Dp=
ost><input type=3Dsubmit value=3DOK></form></td></tr>";
#	} else {
		print "<tr><td colspan=3D2 align=3Dcenter>CONFIRM DELETION</td></tr>";
		print "<tr><td><INPUT type=3Dsubmit value=3D'YES'></form></td><td><form act=
ion=3D'$script_name' method=3Dpost><input type=3Dsubmit value=3DNO></form></t=
d></tr>";
#	}
													# END $OP eq DELETE_CONFIRM
################## DELETE_CONFIRMED ##################################
# called by delete_confirm, used to effectively confirm deletion of data in DB
} elsif ($op eq 'delete_confirmed') {
	my $dbh=3DC4Connect;
	my $bookfundid=3Duc($input->param('bookfundid'));
	my $query =3D "delete from aqbudget where bookfundid=3D'$bookfundid'";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data deleted";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
	my @inputs=3D(["text","searchfield",$searchfield],
		["reset","reset","clr"]);
	print mkheadr(2,'bookfund admin');
	print mkformnotable("$script_name",@inputs);
	print <<printend

printend
	;
	if  ($searchfield ne '') {
		print "You Searched for <b>$searchfield<b><p>";
	}
	print mktablehdr;
	print mktablerow(6,'#99cc33',bold('Book fund'),bold('Start date'),bold('End =
date'),bold('Budget amount'),
	'&nbsp;','&nbsp;','/images/background-mem.gif');
	my $env;
	my ($count,$results)=3DStringSearch($env,$searchfield,'web');
	my $toggle=3D"white";
	for (my $i=3D$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$coun=
t); $i++){
		#find out stats
	#  	my ($od,$issue,$fines)=3Dcategdata2($env,$results->[$i]{'borrowernumber'=
});
	#  	$fines=3D$fines+0;
	  	if ($toggle eq 'white'){
	    		$toggle=3D"#ffffcc";
	  	} else {
	    		$toggle=3D"white";
	  	}
		print mktablerow(6,$toggle,$results->[$i]{'bookfundid'}.' ('.$results->[$i]=
{'bookfundname'}.')',
		$results->[$i]{'startdate'},$results->[$i]{'enddate'},
		$results->[$i]{'budgetamount'},
		mklink("$script_name?op=3Dadd_form&bookfundid=3D".$results->[$i]{'bookfundi=
d'},'Edit'),
		mklink("$script_name?op=3Ddelete_confirm&bookfundid=3D".$results->[$i]{'boo=
kfundid'},'Delete',''));
	}
	print mktableft;
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3Dadd_form>";
	if ($offset>0) {
		my $prevpage =3D $offset-$pagesize;
		print mklink("$script_name?offset=3D".$prevpage,'&lt;&lt; Prev');
	}
	print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	if ($offset+$pagesize<$count) {
		my $nextpage =3D$offset+$pagesize;
		print mklink("$script_name?offset=3D".$nextpage,'Next &gt;&gt;');
	}
	print "<br><input type=3Dimage src=3D\"/images/button-add-member.gif\"  WIDT=
H=3D188  HEIGHT=3D44  ALT=3D\"Add budget\" BORDER=3D0 ></a><br>";
	print "</form>";
} #---- END $OP eq DEFAULT
print endmenu('admin');
print endpage();

--- NEW FILE ---
#!/usr/bin/perl

#script to administer the aqbudget table
#written 20/02/2002 by paul.poulain@free.fr
# This software is placed under the gnu General Public License, v2 (http://ww=
w.gnu.org/licenses/gpl.html)

# ALGO :
# this script use an $op to know what to do.
# if $op is empty or none of the above values,
#	- the default screen is build (with all records, or filtered datas).
#	- the   user can clic on add, modify or delete record.
# if $op=3Dadd_form
#	- if primkey exists, this is a modification,so we read the $primkey record
#	- builds the add/modify form
# if $op=3Dadd_validate
#	- the user has just send datas, so we create/modify the record
# if $op=3Ddelete_form
#	- we show the record having primkey=3D$primkey and ask for deletion validat=
ion form
# if $op=3Ddelete_confirm
#	- we delete the record having primkey=3D$primkey

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Database;

sub StringSearch  {
	my ($env,$searchstring,$type)=3D@_;
	my $dbh =3D &C4Connect;
	$searchstring=3D~ s/\'/\\\'/g;
	my @data=3Dsplit(' ',$searchstring);
	my $count=3D@data;
	my $query=3D"Select branchcode,branchname,branchaddress1,branchaddress2,bran=
chaddress3,branchphone,branchfax,branchemail,issuing from branches where (bra=
nchcode like \"$data[0]%\") order by branchcode";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	my @results;
	my $cnt=3D0;
	while (my $data=3D$sth->fetchrow_hashref){
	push(@results,$data);
	$cnt ++;
	}
	#  $sth->execute;
	$sth->finish;
	$dbh->disconnect;
	return ($cnt,\@results);
}

my $input =3D new CGI;
my $searchfield=3D$input->param('searchfield');
my $pkfield=3D"branchcode";
my $reqsel=3D"select branchcode,branchname,branchaddress1,branchaddress2,bran=
chaddress3,branchphone,branchfax,branchemail,issuing from branches where bran=
chcode=3D'$searchfield'";
my $reqdel=3D"delete from branches where branchcode=3D'$searchfield'";
#my $branchcode=3D$input->param('branchcode');
my $offset=3D$input->param('offset');
my $script_name=3D"/cgi-bin/koha/admin/branches.pl";

my $pagesize=3D20;
my $op =3D $input->param('op');
$searchfield=3D~ s/\,//g;
print $input->header;

#start the page and read in includes
print startpage();
print startmenu('admin');

################## ADD_FORM ##################################
# called by default. Used to create form to add or  modify a record
if ($op eq 'add_form') {
	#---- if primkey exists, it's a modify action, so read values to modify...
	my $data;
	if ($searchfield) {
		my $dbh =3D &C4Connect;
		my $sth=3D$dbh->prepare("select branchcode,branchname,branchaddress1,branch=
address2,branchaddress3,branchphone,branchfax,branchemail,issuing  from branc=
hes where branchcode=3D'$searchfield'");
		$sth->execute;
		$data=3D$sth->fetchrow_hashref;
		$sth->finish;
	}
	print <<printend
	<script>
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNotNull(f,noalert) {
		if (f.value.length =3D=3D0) {
   return false;
		}
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function toUC(f) {
		var x=3Df.value.toUpperCase();
		f.value=3Dx;
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNum(v,maybenull) {
	var n =3D new Number(v.value);
	if (isNaN(n)) {
		return false;
		}
	if (maybenull=3D=3D0 && v.value=3D=3D'') {
		return false;
	}
	return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isDate(f) {
		var t =3D Date.parse(f.value);
		if (isNaN(t)) {
			return false;
		}
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function Check(f) {
		var ok=3D1;
		var _alertString=3D"";
		var alertString2;
		if (f.searchfield.value.length=3D=3D0) {
			_alertString +=3D "- branch code missing\\n";
		}
		if (f.branchname.value.length=3D=3D0) {
			_alertString +=3D "- branch name missing\\n";
		}
		if (_alertString.length=3D=3D0) {
			document.Aform.submit();
		} else {
			alertString2 =3D "Form not submitted because of the following problem(s)\\=
n";
			alertString2 +=3D "-------------------------------------------------------=
-----------------------------\\n\\n";
			alertString2 +=3D _alertString;
			alert(alertString2);
		}
	}
	</SCRIPT>
printend
;#/
	if ($searchfield) {
		print "<h1>Modify branch</h1>";
	} else {
		print "<h1>Add branch</h1>";
	}
	print "<form action=3D'$script_name' name=3DAform method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3D'add_validate'>";
	print "<table>";
	if ($searchfield) {
		print "<tr><td>Branch code</td><td><input type=3Dhidden name=3Dsearchfield =
value=3D$searchfield>$searchfield</td></tr>";
	} else {
		print "<tr><td>Branch code</td><td><input type=3Dtext name=3Dsearchfield si=
ze=3D5 maxlength=3D5 onBlur=3DtoUC(this)></td></tr>";
	}
	print "<tr><td>Name</td><td><input type=3Dtext name=3Dbranchname size=3D40 m=
axlength=3D80 value=3D'$data->{'branchname'}'>&nbsp;</td></tr>";
	print "<tr><td>Adress</td><td><input type=3Dtext name=3Dbranchaddress1 value=
=3D'$data->{'branchaddress1'}'></td></tr>";
	print "<tr><td>&nbsp;</td><td><input type=3Dtext name=3Dbranchaddress2 value=
=3D'$data->{'branchaddress2'}'></td></tr>";
	print "<tr><td>&nbsp;</td><td><input type=3Dtext name=3Dbranchaddress3 value=
=3D'$data->{'branchaddress3'}'></td></tr>";
	print "<tr><td>Phone</td><td><input type=3Dtext name=3Dbranchphone value=3D'=
$data->{'branchphone'}'></td></tr>";
	print "<tr><td>Fax</td><td><input type=3Dtext name=3Dbranchfax value=3D'$dat=
a->{'branchfax'}'></td></tr>";
	print "<tr><td>E-mail</td><td><input type=3Dtext name=3Dbranchemail value=3D=
'$data->{'branchemail'}'></td></tr>";
	print "<tr><td>Issuing</td><td><input type=3Dtext name=3Dissuing value=3D'$d=
ata->{'issuing'}'></td></tr>";
	print "<tr><td>&nbsp;</td><td><INPUT type=3Dbutton value=3D'OK' onClick=3D'C=
heck(this.form)'></td></tr>";
	print "</table>";
	print "</form>";
;
													# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
	my $dbh=3DC4Connect;
	my $query =3D "replace branches (branchcode,branchname,branchaddress1,branch=
address2,branchaddress3,branchphone,branchfax,branchemail,issuing) values (";
	$query.=3D $dbh->quote($input->param('branchcode')).",";
	$query.=3D $dbh->quote($input->param('branchname')).",";
	$query.=3D $dbh->quote($input->param('branchaddress1')).",";
	$query.=3D $dbh->quote($input->param('branchaddress2')).",";
	$query.=3D $dbh->quote($input->param('branchaddress3')).",";
	$query.=3D $dbh->quote($input->param('branchphone')).",";
	$query.=3D $dbh->quote($input->param('branchfax')).",";
	$query.=3D $dbh->quote($input->param('branchemail')).",";
	$query.=3D $dbh->quote($input->param('issuing')).")";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data recorded";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################
# called by default form, used to confirm deletion of data in DB
} elsif ($op eq 'delete_confirm') {
	my $dbh =3D &C4Connect;
	my $sth=3D$dbh->prepare("select count(*) as total from borrowers where branc=
hcode=3D'$searchfield'");
	$sth->execute;
	my $total =3D $sth->fetchrow_hashref;
	$sth->finish;
	print "$reqsel";
	my $sth=3D$dbh->prepare($reqsel);
	$sth->execute;
	my $data=3D$sth->fetchrow_hashref;
	$sth->finish;
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Branch code'),bold("$searchfield"),'/imag=
es/background-mem.gif');
	print "<form action=3D'$script_name' method=3Dpost><input type=3Dhidden name=
=3Dop value=3Ddelete_confirmed><input type=3Dhidden name=3Dsearchfield value=
=3D'$searchfield'>";
	print "<tr><td>Branch code</td><td>$data->{'branchcode'}</td></tr>";
	print "<tr><td>&nbsp; name</td><td>$data->{'branchname'}</td></tr>";
	print "<tr><td>&nbsp; adress</td><td>$data->{'branchaddress1'}</td></tr>";
	print "<tr><td>&nbsp;</td><td>$data->{'branchaddress2'}</td></tr>";
	print "<tr><td>&nbsp;</td><td>$data->{'branchaddress3'}</td></tr>";
	print "<tr><td>&nbsp;phone</td><td>$data->{'branchphone'}</td></tr>";
	print "<tr><td>&nbsp; fax</td><td>$data->{'branchfax'}</td></tr>";
	print "<tr><td>&nbsp; e-mail</td><td>$data->{'branchemail'}</td></tr>";
	print "<tr><td>&nbsp; issuing</td><td>$data->{'issuing'}</td></tr>";
	if ($total->{'total'} >0) {
		print "<tr><td colspan=3D2 align=3Dcenter><b>This record is used $total->{'=
total'} times. Deletion not possible</b></td></tr>";
		print "<tr><td colspan=3D2></form><form action=3D'$script_name' method=3Dpo=
st><input type=3Dsubmit value=3DOK></form></td></tr>";
	} else {
		print "<tr><td colspan=3D2 align=3Dcenter>CONFIRM DELETION</td></tr>";
		print "<tr><td><INPUT type=3Dsubmit value=3D'YES'></form></td><td><form act=
ion=3D'$script_name' method=3Dpost><input type=3Dsubmit value=3DNO></form></t=
d></tr>";
	}
													# END $OP eq DELETE_CONFIRM
################## DELETE_CONFIRMED ##################################
# called by delete_confirm, used to effectively confirm deletion of data in DB
} elsif ($op eq 'delete_confirmed') {
	my $dbh=3DC4Connect;
#	my $searchfield=3D$input->param('branchcode');
	my $sth=3D$dbh->prepare($reqdel);
	$sth->execute;
	$sth->finish;
	print "data deleted";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
	my @inputs=3D(["text","searchfield",$searchfield],
		["reset","reset","clr"]);
	print mkheadr(2,'branches admin');
	print mkformnotable("$script_name",@inputs);
	print <<printend

printend
	;
	if  ($searchfield ne '') {
		print "You Searched for <b>$searchfield<b><p>";
	}
	print mktablehdr;
	print mktablerow(9,'#99cc33',bold('Branch code'),bold('name'),bold('adress'),
	bold('phone'),bold('fax'),bold('mail'),bold('issuing'),
	'&nbsp;','&nbsp;','/images/background-mem.gif');
	my $env;
	my ($count,$results)=3DStringSearch($env,$searchfield,'web');
	my $toggle=3D"white";
	for (my $i=3D$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$coun=
t); $i++){
		#find out stats
	#  	my ($od,$issue,$fines)=3Dcategdata2($env,$results->[$i]{'borrowernumber'=
});
	#  	$fines=3D$fines+0;
	  	if ($toggle eq 'white'){
	    		$toggle=3D"#ffffcc";
	  	} else {
	    		$toggle=3D"white";
	  	}
		print mktablerow(9,$toggle,$results->[$i]{'branchcode'},$results->[$i]{'bra=
nchname'},
		$results->[$i]{'branchaddress1'}.$results->[$i]{'branchaddress2'}.$results-=
>[$i]{'branchaddress3'},
		$results->[$i]{'branchphone'},,$results->[$i]{'branchfax'},,$results->[$i]{=
'branchmail'},,$results->[$i]{'issuing'},
		mklink("$script_name?op=3Dadd_form&searchfield=3D".$results->[$i]{'branchco=
de'},'Edit'),
		mklink("$script_name?op=3Ddelete_confirm&searchfield=3D".$results->[$i]{'br=
anchcode'},'Delete',''));
	}
	print mktableft;
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3Dadd_form>";
	if ($offset>0) {
		my $prevpage =3D $offset-$pagesize;
		print mklink("$script_name?offset=3D".$prevpage,'&lt;&lt; Prev');
	}
	print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	if ($offset+$pagesize<$count) {
		my $nextpage =3D$offset+$pagesize;
		print mklink("$script_name?offset=3D".$nextpage,'Next &gt;&gt;');
	}
	print "<br><input type=3Dimage src=3D\"/images/button-add-member.gif\"  WIDT=
H=3D188  HEIGHT=3D44  ALT=3D\"Add budget\" BORDER=3D0 ></a><br>";
	print "</form>";
} #---- END $OP eq DEFAULT
print endmenu('admin');
print endpage();

--- NEW FILE ---
#!/usr/bin/perl

#script to administer the categories table
#written 20/02/2002 by paul.poulain@free.fr

# ALGO :
# this script use an $op to know what to do.
# if $op is empty or none of the above values,
#	- the default screen is build (with all records, or filtered datas).
#	- the   user can clic on add, modify or delete record.
# if $op=3Dadd_form
#	- if primkey exists, this is a modification,so we read the $primkey record
#	- builds the add/modify form
# if $op=3Dadd_validate
#	- the user has just send datas, so we create/modify the record
# if $op=3Ddelete_form
#	- we show the record having primkey=3D$primkey and ask for deletion validat=
ion form
# if $op=3Ddelete_confirm
#	- we delete the record having primkey=3D$primkey

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Database;

sub StringSearch  {
	my ($env,$searchstring,$type)=3D@_;
	my $dbh =3D &C4Connect;
	$searchstring=3D~ s/\'/\\\'/g;
	my @data=3Dsplit(' ',$searchstring);
	my $count=3D@data;
	my $query=3D"Select * from categories where (description like \"$data[0]%\")=
";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	my @results;
	my $cnt=3D0;
	while (my $data=3D$sth->fetchrow_hashref){
	push(@results,$data);
	$cnt ++;
	}
	#  $sth->execute;
	$sth->finish;
	$dbh->disconnect;
	return ($cnt,\@results);
}

my $input =3D new CGI;
my $searchfield=3D$input->param('description');
my $script_name=3D"/cgi-bin/koha/admin/categorie.pl";
my $categorycode=3D$input->param('categorycode');
my $op =3D $input->param('op');
$searchfield=3D~ s/\,//g;
print $input->header;
#start the page and read in includes
print startpage();
print startmenu('admin');

################## ADD_FORM ##################################
# called by default. Used to create form to add or  modify a record
if ($op eq 'add_form') {
	#---- if primkey exists, it's a modify action, so read values to modify...
	my $data;
	if ($categorycode) {
		my $dbh =3D &C4Connect;
		my $sth=3D$dbh->prepare("select categorycode,description,enrolmentperiod,up=
peragelimit,dateofbirthrequired,finetype,bulk,enrolmentfee,issuelimit,reserve=
fee,overduenoticerequired from categories where categorycode=3D'$categorycode=
'");
		$sth->execute;
		$data=3D$sth->fetchrow_hashref;
		$sth->finish;
	}
	print <<printend
	<script>
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNotNull(f,noalert) {
		if (f.value.length =3D=3D0) {
   return false;
		}
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function toUC(f) {
		var x=3Df.value.toUpperCase();
		f.value=3Dx;
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNum(v,maybenull) {
	var n =3D new Number(v.value);
	if (isNaN(n)) {
		return false;
		}
	if (maybenull=3D=3D0 && v.value=3D=3D'') {
		return false;
	}
	return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isDate(f) {
		var t =3D Date.parse(f.value);
		if (isNaN(t)) {
			return false;
		}
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function Check(f) {
		var ok=3D1;
		var _alertString=3D"";
		var alertString2;
		if (f.categorycode.value.length=3D=3D0) {
			_alertString +=3D "- categorycode missing\\n";
		}
//		alert(window.document.Aform.description.value);
		if (!(isNotNull(window.document.Aform.description,1))) {
			_alertString +=3D "- description missing\\n";
		}
		if (!isNum(f.upperagelimit,0)) {
			_alertString +=3D "- upperagelimit is not a number\\n";
		}
		if (_alertString.length=3D=3D0) {
			document.Aform.submit();
		} else {
			alertString2 =3D "Form not submitted because of the following problem(s)\\=
n";
			alertString2 +=3D "-------------------------------------------------------=
-----------------------------\\n\\n";
			alertString2 +=3D _alertString;
			alert(alertString2);
		}
	}
	</SCRIPT>
printend
;#/
	if ($categorycode) {
		print "<h1>Modify category</h1>";
	} else {
		print "<h1>Add category</h1>";
	}
	print "<form action=3D'$script_name' name=3DAform method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3D'add_validate'>";
	print "<input type=3Dhidden name=3Dchecked value=3D0>";
	print "<table>";
	if ($categorycode) {
		print "<tr><td>Category code</td><td><input type=3Dhidden name=3Dcategoryco=
de value=3D$categorycode>$categorycode</td></tr>";
	} else {
		print "<tr><td>Category code</td><td><input type=3Dtext name=3Dcategorycode=
 size=3D3 maxlength=3D2 onBlur=3DtoUC(this)></td></tr>";
	}
	print "<tr><td>Description</td><td><input type=3Dtext name=3Ddescription siz=
e=3D40 maxlength=3D80 value=3D'$data->{'description'}'>&nbsp;</td></tr>";
	print "<tr><td>Enrolment period</td><td><input type=3Dtext name=3Denrolmentp=
eriod value=3D'$data->{'enrolmentperiod'}'></td></tr>";
	print "<tr><td>Upperage limit</td><td><input type=3Dtext name=3Dupperagelimi=
t value=3D'$data->{'upperagelimit'}'></td></tr>";
	print "<tr><td>Date of birth Required</td><td><input type=3Dtext name=3Ddate=
ofbirthrequired value=3D'$data->{'dateofbirthrequired'}'> (14/02/2002)</td></=
tr>";
	print "<tr><td>Fine type</td><td><input type=3Dtext name=3Dfinetype size=3D3=
0 maxlength=3D30 value=3D'$data->{'finetype'}'></td></tr>";
	print "<tr><td>Bulk</td><td><input type=3Dtext name=3Dbulk value=3D'$data->{=
'bulk'}'></td></tr>";
	print "<tr><td>Enrolment fee</td><td><input type=3Dtext name=3Denrolmentfee =
value=3D'$data->{'enrolmentfee'}'></td></tr>";
	print "<tr><td>Overdue notice required</td><td><input type=3Dtext name=3Dove=
rduenoticerequired value=3D'$data->{'overduenoticerequired'}'></td></tr>";
	print "<tr><td>Issue limit</td><td><input type=3Dtext name=3Dissuelimit valu=
e=3D'$data->{'issuelimit'}'></td></tr>";
	print "<tr><td>Reserve fee</td><td><input type=3Dtext name=3Dreservefee valu=
e=3D'$data->{'reservefee'}'></td></tr>";
	print "<tr><td>&nbsp;</td><td><INPUT type=3Dbutton value=3D'OK' onClick=3D'C=
heck(this.form)'></td></tr>";
print "</table>";
	print "</form>";
;
													# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
	my $dbh=3DC4Connect;
	my $query =3D "replace categories (categorycode,description,enrolmentperiod,=
upperagelimit,dateofbirthrequired,finetype,bulk,enrolmentfee,issuelimit,reser=
vefee,overduenoticerequired) values (";
	$query.=3D $dbh->quote($input->param('categorycode')).",";
	$query.=3D $dbh->quote($input->param('description')).",";
	$query.=3D $dbh->quote($input->param('enrolmentperiod')).",";
	$query.=3D $dbh->quote($input->param('upperagelimit')).",";
	$query.=3D $dbh->quote($input->param('dateofbirthrequired')).",";
	$query.=3D $dbh->quote($input->param('finetype')).",";
	$query.=3D $dbh->quote($input->param('bulk')).",";
	$query.=3D $dbh->quote($input->param('enrolmentfee')).",";
	$query.=3D $dbh->quote($input->param('issuelimit')).",";
	$query.=3D $dbh->quote($input->param('reservefee')).",";
	$query.=3D $dbh->quote($input->param('overduenoticerequired')).")";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data recorded";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################
# called by default form, used to confirm deletion of data in DB
} elsif ($op eq 'delete_confirm') {
	my $dbh =3D &C4Connect;
	my $sth=3D$dbh->prepare("select count(*) as total from categoryitem where ca=
tegorycode=3D'$categorycode'");
	$sth->execute;
	my $total =3D $sth->fetchrow_hashref;
	print "TOTAL : $categorycode : $total->{'total'}<br>";
	$sth->finish;
	my $sth=3D$dbh->prepare("select categorycode,description,enrolmentperiod,upp=
eragelimit,dateofbirthrequired,finetype,bulk,enrolmentfee,issuelimit,reservef=
ee,overduenoticerequired from categories where categorycode=3D'$categorycode'=
");
	$sth->execute;
	my $data=3D$sth->fetchrow_hashref;
	$sth->finish;
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Category code'),bold("$categorycode"),'/i=
mages/background-mem.gif');
	print "<form action=3D'$script_name' method=3Dpost><input type=3Dhidden name=
=3Dop value=3Ddelete_confirmed><input type=3Dhidden name=3Dcategorycode value=
=3D'$categorycode'>";
	print "<tr><td>Description</td><td>$data->{'description'}</td></tr>";
	print "<tr><td>Enrolment period</td><td>$data->{'enrolmentperiod'}</td></tr>=
";
	print "<tr><td>Upperage limit</td><td>$data->{'upperagelimit'}</td></tr>";
	print "<tr><td>Date of birth Required</td><td>$data->{'dateofbirthrequired'}=
</td></tr>";
	print "<tr><td>Fine type</td><td>$data->{'finetype'}</td></tr>";
	print "<tr><td>Bulk</td><td>$data->{'bulk'}</td></tr>";
	print "<tr><td>Enrolment fee</td><td>$data->{'enrolmentfee'}</td></tr>";
	print "<tr><td>Overdue notice required</td><td>$data->{'overduenoticerequire=
d'}</td></tr>";
	print "<tr><td>Issue limit</td><td>$data->{'issuelimit'}</td></tr>";
	print "<tr><td>Reserve fee</td><td>$data->{'reservefee'}</td></tr>";
	if ($total->{'total'} >0) {
		print "<tr><td colspan=3D2 align=3Dcenter><b>This record is used $total->{'=
total'} times. Deletion not possible</b></td></tr>";
		print "<tr><td colspan=3D2></form><form action=3D'$script_name' method=3Dpo=
st><input type=3Dsubmit value=3DOK></form></td></tr>";
	} else {
		print "<tr><td colspan=3D2 align=3Dcenter>CONFIRM DELETION</td></tr>";
		print "<tr><td><INPUT type=3Dsubmit value=3D'YES'></form></td><td><form act=
ion=3D'$script_name' method=3Dpost><input type=3Dsubmit value=3DNO></form></t=
d></tr>";
	}
													# END $OP eq DELETE_CONFIRM
################## DELETE_CONFIRMED ##################################
# called by delete_confirm, used to effectively confirm deletion of data in DB
} elsif ($op eq 'delete_confirmed') {
	my $dbh=3DC4Connect;
	my $categorycode=3Duc($input->param('categorycode'));
	my $query =3D "delete from categories where categorycode=3D'$categorycode'";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data deleted";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq DELETE_CONFIRMED
} else { # DEFAULT
	my @inputs=3D(["text","description",$searchfield],
		["reset","reset","clr"]);
	print mkheadr(2,'Category admin');
	print mkformnotable("$script_name",@inputs);
	print <<printend

printend
	;
	if  ($searchfield ne '') {
		print "You Searched for $searchfield<p>";
	}
	print mktablehdr;
	print mktablerow(13,'#99cc33',bold('Category'),bold('Description'),bold('Enr=
olment'),bold('age max')
	,bold('birth needed'),bold('Fine'),bold('Bulk'),bold('fee'),bold('overdue'),=
bold('Issue limit'),bold('Reserve'),'&nbsp;','&nbsp;','/images/background-mem=
.gif');
	my $env;
	my ($count,$results)=3DStringSearch($env,$searchfield,'web');
	my $toggle=3D"white";
	for (my $i=3D0; $i < $count; $i++){
		#find out stats
	#  	my ($od,$issue,$fines)=3Dcategdata2($env,$results->[$i]{'borrowernumber'=
});
	#  	$fines=3D$fines+0;
	  	if ($toggle eq 'white'){
	    		$toggle=3D"#ffffcc";
	  	} else {
	    		$toggle=3D"white";
	  	}
		print mktablerow(13,$toggle,$results->[$i]{'categorycode'},
		$results->[$i]{'description'},$results->[$i]{'enrolmentperiod'},
		$results->[$i]{'upperagelimit'},$results->[$i]{'dateofbirthrequired'},$resu=
lts->[$i]{'finetype'},
		$results->[$i]{'bulk'},$results->[$i]{'enrolmentfee'},$results->[$i]{'overd=
uenoticerequired'},$results->[$i]{'issuelimit'},$results->[$i]{'reservefee'},=
mklink("$script_name?op=3Dadd_form&categorycode=3D".$results->[$i]{'categoryc=
ode'},'Edit'),
		mklink("$script_name?op=3Ddelete_confirm&categorycode=3D".$results->[$i]{'c=
ategorycode'},'Delete'));
	}
	print mktableft;
print <<printend
	<form action=3D'$script_name' method=3Dpost>
	<input type=3Dhidden name=3Dop value=3Dadd_form>
	<input type=3Dimage src=3D"/images/button-add-member.gif"  WIDTH=3D188  HEIG=
HT=3D44  ALT=3D"Add Category" BORDER=3D0 ></a><br>
	</form>
printend
	;
} #---- END $OP eq DEFAULT
print endmenu('categorie');
print endpage();

--- NEW FILE ---
#!/usr/bin/perl

#script to administer the categories table
#written 20/02/2002 by paul.poulain@free.fr
# This software is placed under the gnu General Public License, v2 (http://ww=
w.gnu.org/licenses/gpl.html)

# ALGO :
# this script use an $op to know what to do.
# if $op is empty or none of the above values,
#	- the default screen is build (with all records, or filtered datas).
#	- the   user can clic on add, modify or delete record.
# if $op=3Dadd_form
#	- if primkey exists, this is a modification,so we read the $primkey record
#	- builds the add/modify form
# if $op=3Dadd_validate
#	- the user has just send datas, so we create/modify the record
# if $op=3Ddelete_form
#	- we show the record having primkey=3D$primkey and ask for deletion validat=
ion form
# if $op=3Ddelete_confirm
#	- we delete the record having primkey=3D$primkey

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Database;

sub StringSearch  {
	my ($env,$searchstring,$type)=3D@_;
	my $dbh =3D &C4Connect;
	$searchstring=3D~ s/\'/\\\'/g;
	my @data=3Dsplit(' ',$searchstring);
	my $count=3D@data;
	my $query=3D"Select * from categories where (description like \"$data[0]%\")=
";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	my @results;
	my $cnt=3D0;
	while (my $data=3D$sth->fetchrow_hashref){
	push(@results,$data);
	$cnt ++;
	}
	#  $sth->execute;
	$sth->finish;
	$dbh->disconnect;
	return ($cnt,\@results);
}

my $input =3D new CGI;
my $searchfield=3D$input->param('description');
my $script_name=3D"/cgi-bin/koha/admin/categorie.pl";
my $categorycode=3D$input->param('categorycode');
my $op =3D $input->param('op');
$searchfield=3D~ s/\,//g;
print $input->header;
#start the page and read in includes
print startpage();
print startmenu('admin');

################## ADD_FORM ##################################
# called by default. Used to create form to add or  modify a record
if ($op eq 'add_form') {
	#---- if primkey exists, it's a modify action, so read values to modify...
	my $data;
	if ($categorycode) {
		my $dbh =3D &C4Connect;
		my $sth=3D$dbh->prepare("select categorycode,description,enrolmentperiod,up=
peragelimit,dateofbirthrequired,finetype,bulk,enrolmentfee,issuelimit,reserve=
fee,overduenoticerequired from categories where categorycode=3D'$categorycode=
'");
		$sth->execute;
		$data=3D$sth->fetchrow_hashref;
		$sth->finish;
	}
	print <<printend
	<script>
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNotNull(f,noalert) {
		if (f.value.length =3D=3D0) {
   return false;
		}
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function toUC(f) {
		var x=3Df.value.toUpperCase();
		f.value=3Dx;
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNum(v,maybenull) {
	var n =3D new Number(v.value);
	if (isNaN(n)) {
		return false;
		}
	if (maybenull=3D=3D0 && v.value=3D=3D'') {
		return false;
	}
	return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isDate(f) {
		var t =3D Date.parse(f.value);
		if (isNaN(t)) {
			return false;
		}
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function Check(f) {
		var ok=3D1;
		var _alertString=3D"";
		var alertString2;
		if (f.categorycode.value.length=3D=3D0) {
			_alertString +=3D "- categorycode missing\\n";
		}
//		alert(window.document.Aform.description.value);
		if (!(isNotNull(window.document.Aform.description,1))) {
			_alertString +=3D "- description missing\\n";
		}
		if (!isNum(f.upperagelimit,0)) {
			_alertString +=3D "- upperagelimit is not a number\\n";
		}
		if (_alertString.length=3D=3D0) {
			document.Aform.submit();
		} else {
			alertString2 =3D "Form not submitted because of the following problem(s)\\=
n";
			alertString2 +=3D "-------------------------------------------------------=
-----------------------------\\n\\n";
			alertString2 +=3D _alertString;
			alert(alertString2);
		}
	}
	</SCRIPT>
printend
;#/
	if ($categorycode) {
		print "<h1>Modify category</h1>";
	} else {
		print "<h1>Add category</h1>";
	}
	print "<form action=3D'$script_name' name=3DAform method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3D'add_validate'>";
	print "<input type=3Dhidden name=3Dchecked value=3D0>";
	print "<table>";
	if ($categorycode) {
		print "<tr><td>Category code</td><td><input type=3Dhidden name=3Dcategoryco=
de value=3D$categorycode>$categorycode</td></tr>";
	} else {
		print "<tr><td>Category code</td><td><input type=3Dtext name=3Dcategorycode=
 size=3D3 maxlength=3D2 onBlur=3DtoUC(this)></td></tr>";
	}
	print "<tr><td>Description</td><td><input type=3Dtext name=3Ddescription siz=
e=3D40 maxlength=3D80 value=3D'$data->{'description'}'>&nbsp;</td></tr>";
	print "<tr><td>Enrolment period</td><td><input type=3Dtext name=3Denrolmentp=
eriod value=3D'$data->{'enrolmentperiod'}'></td></tr>";
	print "<tr><td>Upperage limit</td><td><input type=3Dtext name=3Dupperagelimi=
t value=3D'$data->{'upperagelimit'}'></td></tr>";
	print "<tr><td>Date of birth Required</td><td><input type=3Dtext name=3Ddate=
ofbirthrequired value=3D'$data->{'dateofbirthrequired'}'> (14/02/2002)</td></=
tr>";
	print "<tr><td>Fine type</td><td><input type=3Dtext name=3Dfinetype size=3D3=
0 maxlength=3D30 value=3D'$data->{'finetype'}'></td></tr>";
	print "<tr><td>Bulk</td><td><input type=3Dtext name=3Dbulk value=3D'$data->{=
'bulk'}'></td></tr>";
	print "<tr><td>Enrolment fee</td><td><input type=3Dtext name=3Denrolmentfee =
value=3D'$data->{'enrolmentfee'}'></td></tr>";
	print "<tr><td>Overdue notice required</td><td><input type=3Dtext name=3Dove=
rduenoticerequired value=3D'$data->{'overduenoticerequired'}'></td></tr>";
	print "<tr><td>Issue limit</td><td><input type=3Dtext name=3Dissuelimit valu=
e=3D'$data->{'issuelimit'}'></td></tr>";
	print "<tr><td>Reserve fee</td><td><input type=3Dtext name=3Dreservefee valu=
e=3D'$data->{'reservefee'}'></td></tr>";
	print "<tr><td>&nbsp;</td><td><INPUT type=3Dbutton value=3D'OK' onClick=3D'C=
heck(this.form)'></td></tr>";
print "</table>";
	print "</form>";
;
													# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
	my $dbh=3DC4Connect;
	my $query =3D "replace categories (categorycode,description,enrolmentperiod,=
upperagelimit,dateofbirthrequired,finetype,bulk,enrolmentfee,issuelimit,reser=
vefee,overduenoticerequired) values (";
	$query.=3D $dbh->quote($input->param('categorycode')).",";
	$query.=3D $dbh->quote($input->param('description')).",";
	$query.=3D $dbh->quote($input->param('enrolmentperiod')).",";
	$query.=3D $dbh->quote($input->param('upperagelimit')).",";
	$query.=3D $dbh->quote($input->param('dateofbirthrequired')).",";
	$query.=3D $dbh->quote($input->param('finetype')).",";
	$query.=3D $dbh->quote($input->param('bulk')).",";
	$query.=3D $dbh->quote($input->param('enrolmentfee')).",";
	$query.=3D $dbh->quote($input->param('issuelimit')).",";
	$query.=3D $dbh->quote($input->param('reservefee')).",";
	$query.=3D $dbh->quote($input->param('overduenoticerequired')).")";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data recorded";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################
# called by default form, used to confirm deletion of data in DB
} elsif ($op eq 'delete_confirm') {
	my $dbh =3D &C4Connect;
	my $sth=3D$dbh->prepare("select count(*) as total from categoryitem where ca=
tegorycode=3D'$categorycode'");
	$sth->execute;
	my $total =3D $sth->fetchrow_hashref;
	print "TOTAL : $categorycode : $total->{'total'}<br>";
	$sth->finish;
	my $sth=3D$dbh->prepare("select categorycode,description,enrolmentperiod,upp=
eragelimit,dateofbirthrequired,finetype,bulk,enrolmentfee,issuelimit,reservef=
ee,overduenoticerequired from categories where categorycode=3D'$categorycode'=
");
	$sth->execute;
	my $data=3D$sth->fetchrow_hashref;
	$sth->finish;
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Category code'),bold("$categorycode"),'/i=
mages/background-mem.gif');
	print "<form action=3D'$script_name' method=3Dpost><input type=3Dhidden name=
=3Dop value=3Ddelete_confirmed><input type=3Dhidden name=3Dcategorycode value=
=3D'$categorycode'>";
	print "<tr><td>Description</td><td>$data->{'description'}</td></tr>";
	print "<tr><td>Enrolment period</td><td>$data->{'enrolmentperiod'}</td></tr>=
";
	print "<tr><td>Upperage limit</td><td>$data->{'upperagelimit'}</td></tr>";
	print "<tr><td>Date of birth Required</td><td>$data->{'dateofbirthrequired'}=
</td></tr>";
	print "<tr><td>Fine type</td><td>$data->{'finetype'}</td></tr>";
	print "<tr><td>Bulk</td><td>$data->{'bulk'}</td></tr>";
	print "<tr><td>Enrolment fee</td><td>$data->{'enrolmentfee'}</td></tr>";
	print "<tr><td>Overdue notice required</td><td>$data->{'overduenoticerequire=
d'}</td></tr>";
	print "<tr><td>Issue limit</td><td>$data->{'issuelimit'}</td></tr>";
	print "<tr><td>Reserve fee</td><td>$data->{'reservefee'}</td></tr>";
	if ($total->{'total'} >0) {
		print "<tr><td colspan=3D2 align=3Dcenter><b>This record is used $total->{'=
total'} times. Deletion not possible</b></td></tr>";
		print "<tr><td colspan=3D2></form><form action=3D'$script_name' method=3Dpo=
st><input type=3Dsubmit value=3DOK></form></td></tr>";
	} else {
		print "<tr><td colspan=3D2 align=3Dcenter>CONFIRM DELETION</td></tr>";
		print "<tr><td><INPUT type=3Dsubmit value=3D'YES'></form></td><td><form act=
ion=3D'$script_name' method=3Dpost><input type=3Dsubmit value=3DNO></form></t=
d></tr>";
	}
													# END $OP eq DELETE_CONFIRM
################## DELETE_CONFIRMED ##################################
# called by delete_confirm, used to effectively confirm deletion of data in DB
} elsif ($op eq 'delete_confirmed') {
	my $dbh=3DC4Connect;
	my $categorycode=3Duc($input->param('categorycode'));
	my $query =3D "delete from categories where categorycode=3D'$categorycode'";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data deleted";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq DELETE_CONFIRMED
} else { # DEFAULT
	my @inputs=3D(["text","description",$searchfield],
		["reset","reset","clr"]);
	print mkheadr(2,'Category admin');
	print mkformnotable("$script_name",@inputs);
	print <<printend

printend
	;
	if  ($searchfield ne '') {
		print "You Searched for $searchfield<p>";
	}
	print mktablehdr;
	print mktablerow(13,'#99cc33',bold('Category'),bold('Description'),bold('Enr=
olment'),bold('age max')
	,bold('birth needed'),bold('Fine'),bold('Bulk'),bold('fee'),bold('overdue'),=
bold('Issue limit'),bold('Reserve'),'&nbsp;','&nbsp;','/images/background-mem=
.gif');
	my $env;
	my ($count,$results)=3DStringSearch($env,$searchfield,'web');
	my $toggle=3D"white";
	for (my $i=3D0; $i < $count; $i++){
		#find out stats
	#  	my ($od,$issue,$fines)=3Dcategdata2($env,$results->[$i]{'borrowernumber'=
});
	#  	$fines=3D$fines+0;
	  	if ($toggle eq 'white'){
	    		$toggle=3D"#ffffcc";
	  	} else {
	    		$toggle=3D"white";
	  	}
		print mktablerow(13,$toggle,$results->[$i]{'categorycode'},
		$results->[$i]{'description'},$results->[$i]{'enrolmentperiod'},
		$results->[$i]{'upperagelimit'},$results->[$i]{'dateofbirthrequired'},$resu=
lts->[$i]{'finetype'},
		$results->[$i]{'bulk'},$results->[$i]{'enrolmentfee'},$results->[$i]{'overd=
uenoticerequired'},$results->[$i]{'issuelimit'},$results->[$i]{'reservefee'},=
mklink("$script_name?op=3Dadd_form&categorycode=3D".$results->[$i]{'categoryc=
ode'},'Edit'),
		mklink("$script_name?op=3Ddelete_confirm&categorycode=3D".$results->[$i]{'c=
ategorycode'},'Delete'));
	}
	print mktableft;
print <<printend
	<form action=3D'$script_name' method=3Dpost>
	<input type=3Dhidden name=3Dop value=3Dadd_form>
	<input type=3Dimage src=3D"/images/button-add-member.gif"  WIDTH=3D188  HEIG=
HT=3D44  ALT=3D"Add Category" BORDER=3D0 ></a><br>
	</form>
printend
	;
} #---- END $OP eq DEFAULT
print endmenu('categorie');
print endpage();

--- NEW FILE ---
#!/usr/bin/perl

#script to administer the aqbudget table
#written 20/02/2002 by paul.poulain@free.fr
# This software is placed under the gnu General Public License, v2 (http://ww=
w.gnu.org/licenses/gpl.html)

# ALGO :
# this script use an $op to know what to do.
# if $op is empty or none of the above values,
#	- the default screen is build (with all records, or filtered datas).
#	- the   user can clic on add, modify or delete record.
# if $op=3Dadd_form
#	- if primkey exists, this is a modification,so we read the $primkey record
#	- builds the add/modify form
# if $op=3Dadd_validate
#	- the user has just send datas, so we create/modify the record
# if $op=3Ddelete_form
#	- we show the record having primkey=3D$primkey and ask for deletion validat=
ion form
# if $op=3Ddelete_confirm
#	- we delete the record having primkey=3D$primkey

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Database;

sub StringSearch  {
	my ($env,$searchstring,$type)=3D@_;
	my $dbh =3D &C4Connect;
	$searchstring=3D~ s/\'/\\\'/g;
	my @data=3Dsplit(' ',$searchstring);
	my $count=3D@data;
	my $query=3D"Select currency,rate from currency where (currency like \"$data=
[0]%\") order by currency";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	my @results;
	my $cnt=3D0;
	while (my $data=3D$sth->fetchrow_hashref){
	push(@results,$data);
	$cnt ++;
	}
	#  $sth->execute;
	$sth->finish;
	$dbh->disconnect;
	return ($cnt,\@results);
}

my $input =3D new CGI;
my $searchfield=3D$input->param('searchfield');
my $pkfield=3D"currency";
my $reqsel=3D"select currency,rate from currency where $pkfield=3D'$searchfie=
ld'";
my $reqdel=3D"delete from currency where $pkfield=3D'$searchfield'";
#my $branchcode=3D$input->param('branchcode');
my $offset=3D$input->param('offset');
my $script_name=3D"/cgi-bin/koha/admin/currency.pl";

my $pagesize=3D20;
my $op =3D $input->param('op');
$searchfield=3D~ s/\,//g;
print $input->header;

#start the page and read in includes
print startpage();
print startmenu('admin');

################## ADD_FORM ##################################
# called by default. Used to create form to add or  modify a record
if ($op eq 'add_form') {
	#---- if primkey exists, it's a modify action, so read values to modify...
	my $data;
	if ($searchfield) {
		my $dbh =3D &C4Connect;
		my $sth=3D$dbh->prepare("select currency,rate from currency where currency=
=3D'$searchfield'");
		$sth->execute;
		$data=3D$sth->fetchrow_hashref;
		$sth->finish;
	}
	print <<printend
	<script>
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNotNull(f,noalert) {
		if (f.value.length =3D=3D0) {
   return false;
		}
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function toUC(f) {
		var x=3Df.value.toUpperCase();
		f.value=3Dx;
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNum(v,maybenull) {
	var n =3D new Number(v.value);
	if (isNaN(n)) {
		return false;
		}
	if (maybenull=3D=3D0 && v.value=3D=3D'') {
		return false;
	}
	return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isDate(f) {
		var t =3D Date.parse(f.value);
		if (isNaN(t)) {
			return false;
		}
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function Check(f) {
		var ok=3D1;
		var _alertString=3D"";
		var alertString2;
		if (f.currency.value.length=3D=3D0) {
			_alertString +=3D "- currency missing\\n";
		}
		if (!isNum(f.rate)) {
			_alertString +=3D "- Rate not numeric\\n";
		}
		if (_alertString.length=3D=3D0) {
			document.Aform.submit();
		} else {
			alertString2 =3D "Form not submitted because of the following problem(s)\\=
n";
			alertString2 +=3D "-------------------------------------------------------=
-----------------------------\\n\\n";
			alertString2 +=3D _alertString;
			alert(alertString2);
		}
	}
	</SCRIPT>
printend
;#/
	if ($searchfield) {
		print "<h1>Modify currency</h1>";
	} else {
		print "<h1>Add currency</h1>";
	}
	print "<form action=3D'$script_name' name=3DAform method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3D'add_validate'>";
	print "<table>";
	if ($searchfield) {
		print "<tr><td>Currency</td><td><input type=3Dhidden name=3Dcurrency value=
=3D$searchfield>$searchfield</td></tr>";
	} else {
		print "<tr><td>Currency</td><td><input type=3Dtext name=3Dcurrency size=3D5=
 maxlength=3D5 onBlur=3DtoUC(this)></td></tr>";
	}
	print "<tr><td>Rate</td><td><input type=3Dtext name=3Drate size=3D10 maxleng=
th=3D10 value=3D'$data->{'rate'}'>&nbsp;</td></tr>";
	print "<tr><td>&nbsp;</td><td><INPUT type=3Dbutton value=3D'OK' onClick=3D'C=
heck(this.form)'></td></tr>";
	print "</table>";
	print "</form>";
;
													# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
	my $dbh=3DC4Connect;
	my $query =3D "replace currency (currency,rate) values (";
	$query.=3D $dbh->quote($input->param('currency')).",";
	$query.=3D $dbh->quote($input->param('rate')).")";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data recorded";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################
# called by default form, used to confirm deletion of data in DB
} elsif ($op eq 'delete_confirm') {
	my $dbh =3D &C4Connect;
	my $sth=3D$dbh->prepare("select count(*) as total from aqbooksellers where c=
urrency=3D'$searchfield'");
	$sth->execute;
	my $total =3D $sth->fetchrow_hashref;
	$sth->finish;
	my $sth=3D$dbh->prepare($reqsel);
	$sth->execute;
	my $data=3D$sth->fetchrow_hashref;
	$sth->finish;
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Currency'),bold("$searchfield"),'/images/=
background-mem.gif');
	print "<form action=3D'$script_name' method=3Dpost><input type=3Dhidden name=
=3Dop value=3Ddelete_confirmed><input type=3Dhidden name=3Dsearchfield value=
=3D'$searchfield'>";
	print "<tr><td>Rate</td><td>$data->{'rate'}</td></tr>";
	if ($total->{'total'} >0) {
		print "<tr><td colspan=3D2 align=3Dcenter><b>This record is used $total->{'=
total'} times. Deletion not possible</b></td></tr>";
		print "<tr><td colspan=3D2></form><form action=3D'$script_name' method=3Dpo=
st><input type=3Dsubmit value=3DOK></form></td></tr>";
	} else {
		print "<tr><td colspan=3D2 align=3Dcenter>CONFIRM DELETION</td></tr>";
		print "<tr><td><INPUT type=3Dsubmit value=3D'YES'></form></td><td><form act=
ion=3D'$script_name' method=3Dpost><input type=3Dsubmit value=3DNO></form></t=
d></tr>";
	}
													# END $OP eq DELETE_CONFIRM
################## DELETE_CONFIRMED ##################################
# called by delete_confirm, used to effectively confirm deletion of data in DB
} elsif ($op eq 'delete_confirmed') {
	my $dbh=3DC4Connect;
#	my $searchfield=3D$input->param('branchcode');
	my $sth=3D$dbh->prepare($reqdel);
	$sth->execute;
	$sth->finish;
	print "data deleted";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
	my @inputs=3D(["text","searchfield",$searchfield],
		["reset","reset","clr"]);
	print mkheadr(2,'Currencies admin');
	print mkformnotable("$script_name",@inputs);
	print <<printend

printend
	;
	if  ($searchfield ne '') {
		print "You Searched for <b>$searchfield<b><p>";
	}
	print mktablehdr;
	print mktablerow(4,'#99cc33',bold('Currency'),bold('Rate'),
	'&nbsp;','&nbsp;','/images/background-mem.gif');
	my $env;
	my ($count,$results)=3DStringSearch($env,$searchfield,'web');
	my $toggle=3D"white";
	for (my $i=3D$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$coun=
t); $i++){
		#find out stats
	#  	my ($od,$issue,$fines)=3Dcategdata2($env,$results->[$i]{'borrowernumber'=
});
	#  	$fines=3D$fines+0;
	  	if ($toggle eq 'white'){
	    		$toggle=3D"#ffffcc";
	  	} else {
	    		$toggle=3D"white";
	  	}
		print mktablerow(4,$toggle,$results->[$i]{'currency'},$results->[$i]{'rate'=
},
		mklink("$script_name?op=3Dadd_form&searchfield=3D".$results->[$i]{'currency=
'},'Edit'),
		mklink("$script_name?op=3Ddelete_confirm&searchfield=3D".$results->[$i]{'cu=
rrency'},'Delete',''));
	}
	print mktableft;
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3Dadd_form>";
	if ($offset>0) {
		my $prevpage =3D $offset-$pagesize;
		print mklink("$script_name?offset=3D".$prevpage,'&lt;&lt; Prev');
	}
	print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	if ($offset+$pagesize<$count) {
		my $nextpage =3D$offset+$pagesize;
		print mklink("$script_name?offset=3D".$nextpage,'Next &gt;&gt;');
	}
	print "<br><input type=3Dimage src=3D\"/images/button-add-member.gif\"  WIDT=
H=3D188  HEIGHT=3D44  ALT=3D\"Add budget\" BORDER=3D0 ></a><br>";
	print "</form>";
} #---- END $OP eq DEFAULT
print endmenu('admin');
print endpage();

--- NEW FILE ---
#!/usr/bin/perl

#script to administer the categories table
#written 20/02/2002 by paul.poulain@free.fr
# This software is placed under the gnu General Public License, v2 (http://ww=
w.gnu.org/licenses/gpl.html)

# ALGO :
# this script use an $op to know what to do.
# if $op is empty or none of the above values,
#	- the default screen is build (with all records, or filtered datas).
#	- the   user can clic on add, modify or delete record.
# if $op=3Dadd_form
#	- if primkey exists, this is a modification,so we read the $primkey record
#	- builds the add/modify form
# if $op=3Dadd_validate
#	- the user has just send datas, so we create/modify the record
# if $op=3Ddelete_form
#	- we show the record having primkey=3D$primkey and ask for deletion validat=
ion form
# if $op=3Ddelete_confirm
#	- we delete the record having primkey=3D$primkey

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Database;

sub StringSearch  {
	my ($env,$searchstring,$type)=3D@_;
	my $dbh =3D &C4Connect;
	$searchstring=3D~ s/\'/\\\'/g;
	my @data=3Dsplit(' ',$searchstring);
	my $count=3D@data;
	my $query=3D"Select * from itemtypes where (description like \"$data[0]%\") =
order by itemtype";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	my @results;
	my $cnt=3D0;
	while (my $data=3D$sth->fetchrow_hashref){
	push(@results,$data);
	$cnt ++;
	}
	#  $sth->execute;
	$sth->finish;
	$dbh->disconnect;
	return ($cnt,\@results);
}

my $input =3D new CGI;
my $searchfield=3D$input->param('description');
my $offset=3D$input->param('offset');
my $script_name=3D"/cgi-bin/koha/admin/itemtypes.pl";
my $itemtype=3D$input->param('itemtype');
my $pagesize=3D20;
my $op =3D $input->param('op');
$searchfield=3D~ s/\,//g;
print $input->header;

#start the page and read in includes
print startpage();
print startmenu('admin');

################## ADD_FORM ##################################
# called by default. Used to create form to add or  modify a record
if ($op eq 'add_form') {
	#---- if primkey exists, it's a modify action, so read values to modify...
	my $data;
	if ($itemtype) {
		my $dbh =3D &C4Connect;
		my $sth=3D$dbh->prepare("select itemtype,description,loanlength,renewalsall=
owed,rentalcharge from itemtypes where itemtype=3D'$itemtype'");
		$sth->execute;
		$data=3D$sth->fetchrow_hashref;
		$sth->finish;
	}
	print <<printend
	<script>
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNotNull(f,noalert) {
		if (f.value.length =3D=3D0) {
   return false;
		}
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function toUC(f) {
		var x=3Df.value.toUpperCase();
		f.value=3Dx;
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNum(v,maybenull) {
	var n =3D new Number(v.value);
	if (isNaN(n)) {
		return false;
		}
	if (maybenull=3D=3D0 && v.value=3D=3D'') {
		return false;
	}
	return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isDate(f) {
		var t =3D Date.parse(f.value);
		if (isNaN(t)) {
			return false;
		}
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function Check(f) {
		var ok=3D1;
		var _alertString=3D"";
		var alertString2;
		if (f.itemtype.value.length=3D=3D0) {
			_alertString +=3D "- itemtype missing\\n";
		}
		if (!(isNotNull(window.document.Aform.description,1))) {
			_alertString +=3D "- description missing\\n";
		}
		if (!isNum(f.loanlength,0)) {
			_alertString +=3D "- loan length is not a number\\n";
		}
		if (!isNum(f.rentalcharge,0)) {
			_alertString +=3D "- loan length is not a number\\n";
		}
		if (_alertString.length=3D=3D0) {
			document.Aform.submit();
		} else {
			alertString2 =3D "Form not submitted because of the following problem(s)\\=
n";
			alertString2 +=3D "-------------------------------------------------------=
-----------------------------\\n\\n";
			alertString2 +=3D _alertString;
			alert(alertString2);
		}
	}
	</SCRIPT>
printend
;#/
	if ($itemtype) {
		print "<h1>Modify item type</h1>";
	} else {
		print "<h1>Add item type</h1>";
	}
	print "<form action=3D'$script_name' name=3DAform method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3D'add_validate'>";
	print "<input type=3Dhidden name=3Dchecked value=3D0>";
	print "<table>";
	if ($itemtype) {
		print "<tr><td>Item type</td><td><input type=3Dhidden name=3Ditemtype value=
=3D$itemtype>$itemtype</td></tr>";
	} else {
		print "<tr><td>Item type</td><td><input type=3Dtext name=3Ditemtype size=3D=
5 maxlength=3D3 onBlur=3DtoUC(this)></td></tr>";
	}
	print "<tr><td>Description</td><td><input type=3Dtext name=3Ddescription siz=
e=3D40 maxlength=3D80 value=3D'$data->{'description'}'>&nbsp;</td></tr>";
	print "<tr><td>loan length</td><td><input type=3Dtext name=3Dloanlength valu=
e=3D'$data->{'loanlength'}'></td></tr>";
	if ($data->{'renewalsallowed'} eq 1) {
		print "<tr><td>Renewals allowed</td><td><input type=3Dcheckbox name=3Drenew=
alsallowed checked value=3D1></td></tr>";
	} else {
		print "<tr><td>Renewals allowed</td><td><input type=3Dcheckbox name=3Drenew=
alsallowed value=3D1></td></tr>";
	}
#	print "<tr><td>Renewals allowed</td><td><input type=3Dtext name=3Drenewalsa=
llowed value=3D'$data->{'renewalsallowed'}'></td></tr>";
	print "<tr><td>Rental charge</td><td><input type=3Dtext name=3Drentalcharge =
value=3D'$data->{'rentalcharge'}'></td></tr>";
	print "<tr><td>&nbsp;</td><td><INPUT type=3Dbutton value=3D'OK' onClick=3D'C=
heck(this.form)'></td></tr>";
print "</table>";
	print "</form>";
;
													# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
	my $dbh=3DC4Connect;
	my $query =3D "replace itemtypes (itemtype,description,loanlength,renewalsal=
lowed,rentalcharge) values (";
	$query.=3D $dbh->quote($input->param('itemtype')).",";
	$query.=3D $dbh->quote($input->param('description')).",";
	$query.=3D $dbh->quote($input->param('loanlength')).",";
	if ($input->param('renewalsallowed') ne 1) {
		$query.=3D "0,";
	} else {
		$query.=3D "1,";
	}
	$query.=3D $dbh->quote($input->param('rentalcharge')).")";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data recorded";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################
# called by default form, used to confirm deletion of data in DB
} elsif ($op eq 'delete_confirm') {
	my $dbh =3D &C4Connect;
	my $sth=3D$dbh->prepare("select count(*) as total from categoryitem where it=
emtype=3D'$itemtype'");
	$sth->execute;
	my $total =3D $sth->fetchrow_hashref;
	$sth->finish;
	my $sth=3D$dbh->prepare("select itemtype,description,loanlength,renewalsallo=
wed,rentalcharge from itemtypes where itemtype=3D'$itemtype'");
	$sth->execute;
	my $data=3D$sth->fetchrow_hashref;
	$sth->finish;
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Item type'),bold("$itemtype"),'/images/ba=
ckground-mem.gif');
	print "<form action=3D'$script_name' method=3Dpost><input type=3Dhidden name=
=3Dop value=3Ddelete_confirmed><input type=3Dhidden name=3Ditemtype value=3D'=
$itemtype'>";
	print "<tr><td>Description</td><td>$data->{'description'}</td></tr>";
	print "<tr><td>Loan length</td><td>$data->{'loanlength'}</td></tr>";
	print "<tr><td>Renewals allowed</td><td>$data->{'renewalsallowed'}</td></tr>=
";
	print "<tr><td>Rental charge</td><td>$data->{'rentalcharge'}</td></tr>";
	if ($total->{'total'} >0) {
		print "<tr><td colspan=3D2 align=3Dcenter><b>This record is used $total->{'=
total'} times. Deletion not possible</b></td></tr>";
		print "<tr><td colspan=3D2></form><form action=3D'$script_name' method=3Dpo=
st><input type=3Dsubmit value=3DOK></form></td></tr>";
	} else {
		print "<tr><td colspan=3D2 align=3Dcenter>CONFIRM DELETION</td></tr>";
		print "<tr><td><INPUT type=3Dsubmit value=3D'YES'></form></td><td><form act=
ion=3D'$script_name' method=3Dpost><input type=3Dsubmit value=3DNO></form></t=
d></tr>";
	}
													# END $OP eq DELETE_CONFIRM
################## DELETE_CONFIRMED ##################################
# called by delete_confirm, used to effectively confirm deletion of data in DB
} elsif ($op eq 'delete_confirmed') {
	my $dbh=3DC4Connect;
	my $itemtype=3Duc($input->param('itemtype'));
	my $query =3D "delete from itemtypes where itemtype=3D'$itemtype'";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data deleted";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
	my @inputs=3D(["text","description",$searchfield],
		["reset","reset","clr"]);
	print mkheadr(2,'Item types admin');
	print mkformnotable("$script_name",@inputs);
	print <<printend

printend
	;
	if  ($searchfield ne '') {
		print "You Searched for <b>$searchfield<b><p>";
	}
	print mktablehdr;
	print mktablerow(7,'#99cc33',bold('Code'),bold('Description'),bold('loan<br>=
length'),bold('Renewals<br>allowed')
	,bold('Rental<br>charge'),'&nbsp;','&nbsp;','/images/background-mem.gif');
	my $env;
	my ($count,$results)=3DStringSearch($env,$searchfield,'web');
	my $toggle=3D"white";
	for (my $i=3D$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$coun=
t); $i++){
		#find out stats
	#  	my ($od,$issue,$fines)=3Dcategdata2($env,$results->[$i]{'borrowernumber'=
});
	#  	$fines=3D$fines+0;
	  	if ($toggle eq 'white'){
	    		$toggle=3D"#ffffcc";
	  	} else {
	    		$toggle=3D"white";
	  	}
		print mktablerow(7,$toggle,$results->[$i]{'itemtype'},
		$results->[$i]{'description'},$results->[$i]{'loanlength'},
		$results->[$i]{'renewalsallowed'}=3D=3D1?'Yes':'No',$results->[$i]{'rentalc=
harge'},
		mklink("$script_name?op=3Dadd_form&itemtype=3D".$results->[$i]{'itemtype'},=
'Edit'),
		mklink("$script_name?op=3Ddelete_confirm&itemtype=3D".$results->[$i]{'itemt=
ype'},'Delete',''));
	}
	print mktableft;
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3Dadd_form>";
	if ($offset>0) {
		my $prevpage =3D $offset-$pagesize;
		print mklink("$script_name?offset=3D".$prevpage,'&lt;&lt; Prev');
	}
	print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	if ($offset+$pagesize<$count) {
		my $nextpage =3D$offset+$pagesize;
		print mklink("$script_name?offset=3D".$nextpage,'Next &gt;&gt;');
	}
	print "<br><input type=3Dimage src=3D\"/images/button-add-member.gif\"  WIDT=
H=3D188  HEIGHT=3D44  ALT=3D\"Add itemtype\" BORDER=3D0 ></a><br>";
	print "</form>";
} #---- END $OP eq DEFAULT
print endmenu('admin');
print endpage();

--- NEW FILE ---
#!/usr/bin/perl

#script to administer the aqbudget table
#written 20/02/2002 by paul.poulain@free.fr
# This software is placed under the gnu General Public License, v2 (http://ww=
w.gnu.org/licenses/gpl.html)

# ALGO :
# this script use an $op to know what to do.
# if $op is empty or none of the above values,
#	- the default screen is build (with all records, or filtered datas).
#	- the   user can clic on add, modify or delete record.
# if $op=3Dadd_form
#	- if primkey exists, this is a modification,so we read the $primkey record
#	- builds the add/modify form
# if $op=3Dadd_validate
#	- the user has just send datas, so we create/modify the record
# if $op=3Ddelete_form
#	- we show the record having primkey=3D$primkey and ask for deletion validat=
ion form
# if $op=3Ddelete_confirm
#	- we delete the record having primkey=3D$primkey

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Database;

sub StringSearch  {
	my ($env,$searchstring,$type)=3D@_;
	my $dbh =3D &C4Connect;
	$searchstring=3D~ s/\'/\\\'/g;
	my @data=3Dsplit(' ',$searchstring);
	my $count=3D@data;
	my $query=3D"Select printername,printqueue,printtype from printers where (pr=
intername like \"$data[0]%\") order by printername";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	my @results;
	my $cnt=3D0;
	while (my $data=3D$sth->fetchrow_hashref){
	push(@results,$data);
	$cnt ++;
	}
	#  $sth->execute;
	$sth->finish;
	$dbh->disconnect;
	return ($cnt,\@results);
}

my $input =3D new CGI;
my $searchfield=3D$input->param('searchfield');
my $pkfield=3D"printername";
my $reqsel=3D"select printername,printqueue,printtype from printers where $pk=
field=3D'$searchfield'";
my $reqdel=3D"delete from printers where $pkfield=3D'$searchfield'";
#my $branchcode=3D$input->param('branchcode');
my $offset=3D$input->param('offset');
my $script_name=3D"/cgi-bin/koha/admin/printers.pl";

my $pagesize=3D20;
my $op =3D $input->param('op');
$searchfield=3D~ s/\,//g;
print $input->header;

#start the page and read in includes
print startpage();
print startmenu('admin');

################## ADD_FORM ##################################
# called by default. Used to create form to add or  modify a record
if ($op eq 'add_form') {
	#---- if primkey exists, it's a modify action, so read values to modify...
	my $data;
	if ($searchfield) {
		my $dbh =3D &C4Connect;
		my $sth=3D$dbh->prepare("select printername,printqueue,printtype from print=
ers where printername=3D'$searchfield'");
		$sth->execute;
		$data=3D$sth->fetchrow_hashref;
		$sth->finish;
	}
	print <<printend
	<script>
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNotNull(f,noalert) {
		if (f.value.length =3D=3D0) {
   return false;
		}
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function toUC(f) {
		var x=3Df.value.toUpperCase();
		f.value=3Dx;
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNum(v,maybenull) {
	var n =3D new Number(v.value);
	if (isNaN(n)) {
		return false;
		}
	if (maybenull=3D=3D0 && v.value=3D=3D'') {
		return false;
	}
	return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isDate(f) {
		var t =3D Date.parse(f.value);
		if (isNaN(t)) {
			return false;
		}
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function Check(f) {
		var ok=3D1;
		var _alertString=3D"";
		var alertString2;
		if (f.printername.value.length=3D=3D0) {
			_alertString +=3D "- printer name missing\\n";
		}
		if (f.printqueue.value.length=3D=3D0) {
			_alertString +=3D "- Queue missing\\n";
		}
		if (_alertString.length=3D=3D0) {
			document.Aform.submit();
		} else {
			alertString2 =3D "Form not submitted because of the following problem(s)\\=
n";
			alertString2 +=3D "-------------------------------------------------------=
-----------------------------\\n\\n";
			alertString2 +=3D _alertString;
			alert(alertString2);
		}
	}
	</SCRIPT>
printend
;#/
	if ($searchfield) {
		print "<h1>Modify printer</h1>";
	} else {
		print "<h1>Add printer</h1>";
	}
	print "<form action=3D'$script_name' name=3DAform method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3D'add_validate'>";
	print "<table>";
	if ($searchfield) {
		print "<tr><td>Printer</td><td><input type=3Dhidden name=3Dprintername valu=
e=3D'$searchfield'>$searchfield</td></tr>";
	} else {
		print "<tr><td>Printer</td><td><input type=3Dtext name=3Dprintername size=
=3D50 maxlength=3D50></td></tr>";
	}
	print "<tr><td>Queue</td><td><input type=3Dtext name=3Dprintqueue size=3D50 =
maxlength=3D50 value=3D'$data->{'printqueue'}'>&nbsp;</td></tr>";
	print "<tr><td>Type</td><td><input type=3Dtext name=3Dprinttype size=3D50 ma=
xlength=3D50 value=3D'$data->{'printtype'}'>&nbsp;</td></tr>";
	print "<tr><td>&nbsp;</td><td><INPUT type=3Dbutton value=3D'OK' onClick=3D'C=
heck(this.form)'></td></tr>";
	print "</table>";
	print "</form>";
;
													# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
	my $dbh=3DC4Connect;
	my $query =3D "replace printers (printername,printqueue,printtype) values (";
	$query.=3D $dbh->quote($input->param('printername')).",";
	$query.=3D $dbh->quote($input->param('printqueue')).",";
	$query.=3D $dbh->quote($input->param('printtype')).")";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data recorded";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################
# called by default form, used to confirm deletion of data in DB
} elsif ($op eq 'delete_confirm') {
	my $dbh =3D &C4Connect;
	my $sth=3D$dbh->prepare($reqsel);
	$sth->execute;
	my $data=3D$sth->fetchrow_hashref;
	$sth->finish;
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Printer'),bold("$searchfield"),'/images/b=
ackground-mem.gif');
	print "<form action=3D'$script_name' method=3Dpost><input type=3Dhidden name=
=3Dop value=3Ddelete_confirmed><input type=3Dhidden name=3Dsearchfield value=
=3D'$searchfield'>";
	print "<tr><td>Queue</td><td>$data->{'printqueue'}</td></tr>";
	print "<tr><td>Type</td><td>$data->{'printtype'}</td></tr>";
	print "<tr><td colspan=3D2 align=3Dcenter>CONFIRM DELETION</td></tr>";
	print "<tr><td><INPUT type=3Dsubmit value=3D'YES'></form></td><td><form acti=
on=3D'$script_name' method=3Dpost><input type=3Dsubmit value=3DNO></form></td=
></tr>";
													# END $OP eq DELETE_CONFIRM
################## DELETE_CONFIRMED ##################################
# called by delete_confirm, used to effectively confirm deletion of data in DB
} elsif ($op eq 'delete_confirmed') {
	my $dbh=3DC4Connect;
#	my $searchfield=3D$input->param('branchcode');
	my $sth=3D$dbh->prepare($reqdel);
	$sth->execute;
	$sth->finish;
	print "data deleted";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
	my @inputs=3D(["text","searchfield",$searchfield],
		["reset","reset","clr"]);
	print mkheadr(2,'Currencies admin');
	print mkformnotable("$script_name",@inputs);
	print <<printend

printend
	;
	if  ($searchfield ne '') {
		print "You Searched for <b>$searchfield<b><p>";
	}
	print mktablehdr;
	print mktablerow(5,'#99cc33',bold('Name'),bold('Queue'),bold('Type'),
	'&nbsp;','&nbsp;','/images/background-mem.gif');
	my $env;
	my ($count,$results)=3DStringSearch($env,$searchfield,'web');
	my $toggle=3D"white";
	for (my $i=3D$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$coun=
t); $i++){
	  	if ($toggle eq 'white'){
	    		$toggle=3D"#ffffcc";
	  	} else {
	    		$toggle=3D"white";
	  	}
		print mktablerow(5,$toggle,$results->[$i]{'printername'},$results->[$i]{'pr=
intqueue'},$results->[$i]{'printtype'},
		mklink("$script_name?op=3Dadd_form&searchfield=3D".$results->[$i]{'printern=
ame'},'Edit'),
		mklink("$script_name?op=3Ddelete_confirm&searchfield=3D".$results->[$i]{'pr=
intername'},'Delete',''));
	}
	print mktableft;
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3Dadd_form>";
	if ($offset>0) {
		my $prevpage =3D $offset-$pagesize;
		print mklink("$script_name?offset=3D".$prevpage,'&lt;&lt; Prev');
	}
	print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	if ($offset+$pagesize<$count) {
		my $nextpage =3D$offset+$pagesize;
		print mklink("$script_name?offset=3D".$nextpage,'Next &gt;&gt;');
	}
	print "<br><input type=3Dimage src=3D\"/images/button-add-member.gif\"  WIDT=
H=3D188  HEIGHT=3D44  ALT=3D\"Add budget\" BORDER=3D0 ></a><br>";
	print "</form>";
} #---- END $OP eq DEFAULT
print endmenu('admin');
print endpage();

--- NEW FILE ---
#!/usr/bin/perl

#script to administer the stopwords table
#written 20/02/2002 by paul.poulain@free.fr
# This software is placed under the gnu General Public License, v2 (http://ww=
w.gnu.org/licenses/gpl.html)

# ALGO :
# this script use an $op to know what to do.
# if $op is empty or none of the above values,
#	- the default screen is build (with all records, or filtered datas).
#	- the   user can clic on add, modify or delete record.
# if $op=3Dadd_form
#	- if primkey exists, this is a modification,so we read the $primkey record
#	- builds the add/modify form
# if $op=3Dadd_validate
#	- the user has just send datas, so we create/modify the record
# if $op=3Ddelete_form
#	- we show the record having primkey=3D$primkey and ask for deletion validat=
ion form
# if $op=3Ddelete_confirm
#	- we delete the record having primkey=3D$primkey

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Database;

sub StringSearch  {
	my ($env,$searchstring,$type)=3D@_;
	my $dbh =3D &C4Connect;
	$searchstring=3D~ s/\'/\\\'/g;
	my @data=3Dsplit(' ',$searchstring);
	my $count=3D@data;
	my $query=3D"Select word from stopwords where (word like \"$data[0]%\") orde=
r by word";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	my @results;
	my $cnt=3D0;
	while (my $data=3D$sth->fetchrow_hashref){
	push(@results,$data);
	$cnt ++;
	}
	#  $sth->execute;
	$sth->finish;
	$dbh->disconnect;
	return ($cnt,\@results);
}

my $input =3D new CGI;
my $searchfield=3D$input->param('searchfield');
my $pkfield=3D"word";
my $reqsel=3D"select word from stopwords where $pkfield=3D'$searchfield'";
my $reqdel=3D"delete from stopwords where $pkfield=3D'$searchfield'";
my $offset=3D$input->param('offset');
my $script_name=3D"/cgi-bin/koha/admin/stopwords.pl";

my $pagesize=3D20;
my $op =3D $input->param('op');
$searchfield=3D~ s/\,//g;
print $input->header;

#start the page and read in includes
print startpage();
print startmenu('admin');

################## ADD_FORM ##################################
# called by default. Used to create form to add or  modify a record
if ($op eq 'add_form') {
	#---- if primkey exists, it's a modify action, so read values to modify...
	my $data;
	if ($searchfield) {
		my $dbh =3D &C4Connect;
		my $sth=3D$dbh->prepare("select word from stopwords where word=3D'$searchfi=
eld'");
		$sth->execute;
		$data=3D$sth->fetchrow_hashref;
		$sth->finish;
	}
	print <<printend
	<script>
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNotNull(f,noalert) {
		if (f.value.length =3D=3D0) {
   return false;
		}
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function toUC(f) {
		var x=3Df.value.toUpperCase();
		f.value=3Dx;
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNum(v,maybenull) {
	var n =3D new Number(v.value);
	if (isNaN(n)) {
		return false;
		}
	if (maybenull=3D=3D0 && v.value=3D=3D'') {
		return false;
	}
	return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isDate(f) {
		var t =3D Date.parse(f.value);
		if (isNaN(t)) {
			return false;
		}
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function Check(f) {
		var ok=3D1;
		var _alertString=3D"";
		var alertString2;
		if (f.word.value.length=3D=3D0) {
			_alertString +=3D "- word missing\\n";
		}
		if (_alertString.length=3D=3D0) {
			document.Aform.submit();
		} else {
			alertString2 =3D "Form not submitted because of the following problem(s)\\=
n";
			alertString2 +=3D "-------------------------------------------------------=
-----------------------------\\n\\n";
			alertString2 +=3D _alertString;
			alert(alertString2);
		}
	}
	</SCRIPT>
printend
;#/
	if ($searchfield) {
		print "<h1>Modify word</h1>";
	} else {
		print "<h1>Add word</h1>";
	}
	print "<form action=3D'$script_name' name=3DAform method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3D'add_validate'>";
	print "<table>";
	if ($searchfield) {
		print "<tr><td>Word</td><td><input type=3Dhidden name=3Dword value=3D'$sear=
chfield'>$searchfield</td></tr>";
	} else {
		print "<tr><td>Word</td><td><input type=3Dtext name=3Dword size=3D255 maxle=
ngth=3D255></td></tr>";
	}
	print "<tr><td>&nbsp;</td><td><INPUT type=3Dbutton value=3D'OK' onClick=3D'C=
heck(this.form)'></td></tr>";
	print "</table>";
	print "</form>";
;
													# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
	my $dbh=3DC4Connect;
	my $query =3D "replace stopwords (word) values (";
	$query.=3D $dbh->quote($input->param('word')).")";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data recorded";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################
# called by default form, used to confirm deletion of data in DB
} elsif ($op eq 'delete_confirm') {
	my $dbh =3D &C4Connect;
	my $sth=3D$dbh->prepare($reqsel);
	$sth->execute;
	my $data=3D$sth->fetchrow_hashref;
	$sth->finish;
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Word'),bold("$searchfield"),'/images/back=
ground-mem.gif');
	print "<form action=3D'$script_name' method=3Dpost><input type=3Dhidden name=
=3Dop value=3Ddelete_confirmed><input type=3Dhidden name=3Dsearchfield value=
=3D'$searchfield'>";
	print "<tr><td colspan=3D2 align=3Dcenter>CONFIRM DELETION</td></tr>";
	print "<tr><td><INPUT type=3Dsubmit value=3D'YES'></form></td><td><form acti=
on=3D'$script_name' method=3Dpost><input type=3Dsubmit value=3DNO></form></td=
></tr>";
													# END $OP eq DELETE_CONFIRM
################## DELETE_CONFIRMED ##################################
# called by delete_confirm, used to effectively confirm deletion of data in DB
} elsif ($op eq 'delete_confirmed') {
	my $dbh=3DC4Connect;
#	my $searchfield=3D$input->param('branchcode');
	my $sth=3D$dbh->prepare($reqdel);
	$sth->execute;
	$sth->finish;
	print "data deleted";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
	my @inputs=3D(["text","searchfield",$searchfield],
		["reset","reset","clr"]);
	print mkheadr(2,'Currencies admin');
	print mkformnotable("$script_name",@inputs);
	print <<printend

printend
	;
	if  ($searchfield ne '') {
		print "You Searched for <b>$searchfield<b><p>";
	}
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Word'),
	'&nbsp;','&nbsp;','/images/background-mem.gif');
	my $env;
	my ($count,$results)=3DStringSearch($env,$searchfield,'web');
	my $toggle=3D"white";
	for (my $i=3D$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$coun=
t); $i++){
	  	if ($toggle eq 'white'){
	    		$toggle=3D"#ffffcc";
	  	} else {
	    		$toggle=3D"white";
	  	}
		print mktablerow(2,$toggle,$results->[$i]{'word'},
		mklink("$script_name?op=3Ddelete_confirm&searchfield=3D".$results->[$i]{'wo=
rd'},'Delete',''));
	}
	print mktableft;
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3Dadd_form>";
	if ($offset>0) {
		my $prevpage =3D $offset-$pagesize;
		print mklink("$script_name?offset=3D".$prevpage,'&lt;&lt; Prev');
	}
	print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	if ($offset+$pagesize<$count) {
		my $nextpage =3D$offset+$pagesize;
		print mklink("$script_name?offset=3D".$nextpage,'Next &gt;&gt;');
	}
	print "<br><input type=3Dimage src=3D\"/images/button-add-member.gif\"  WIDT=
H=3D188  HEIGHT=3D44  ALT=3D\"Add budget\" BORDER=3D0 ></a><br>";
	print "</form>";
} #---- END $OP eq DEFAULT
print endmenu('admin');
print endpage();

--- NEW FILE ---
#!/usr/bin/perl

#script to administer the systempref table
#written 20/02/2002 by paul.poulain@free.fr
# This software is placed under the gnu General Public License, v2 (http://ww=
w.gnu.org/licenses/gpl.html)

# ALGO :
# this script use an $op to know what to do.
# if $op is empty or none of the above values,
#	- the default screen is build (with all records, or filtered datas).
#	- the   user can clic on add, modify or delete record.
# if $op=3Dadd_form
#	- if primkey exists, this is a modification,so we read the $primkey record
#	- builds the add/modify form
# if $op=3Dadd_validate
#	- the user has just send datas, so we create/modify the record
# if $op=3Ddelete_form
#	- we show the record having primkey=3D$primkey and ask for deletion validat=
ion form
# if $op=3Ddelete_confirm
#	- we delete the record having primkey=3D$primkey

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Database;

sub StringSearch  {
	my ($env,$searchstring,$type)=3D@_;
	my $dbh =3D &C4Connect;
	$searchstring=3D~ s/\'/\\\'/g;
	my @data=3Dsplit(' ',$searchstring);
	my $count=3D@data;
	my $query=3D"Select variable,value from systempreferences where (variable li=
ke \"$data[0]%\") order by variable";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	my @results;
	my $cnt=3D0;
	while (my $data=3D$sth->fetchrow_hashref){
	push(@results,$data);
	$cnt ++;
	}
	#  $sth->execute;
	$sth->finish;
	$dbh->disconnect;
	return ($cnt,\@results);
}

my $input =3D new CGI;
my $searchfield=3D$input->param('searchfield');
my $pkfield=3D"variable";
my $reqsel=3D"select variable,value from systempreferences where $pkfield=3D'=
$searchfield'";
my $reqdel=3D"delete from systempreferences where $pkfield=3D'$searchfield'";
my $offset=3D$input->param('offset');
my $script_name=3D"/cgi-bin/koha/admin/systempreferences.pl";

my $pagesize=3D20;
my $op =3D $input->param('op');
$searchfield=3D~ s/\,//g;
print $input->header;

#start the page and read in includes
print startpage();
print startmenu('admin');

################## ADD_FORM ##################################
# called by default. Used to create form to add or  modify a record
if ($op eq 'add_form') {
	#---- if primkey exists, it's a modify action, so read values to modify...
	my $data;
	if ($searchfield) {
		my $dbh =3D &C4Connect;
		my $sth=3D$dbh->prepare("select variable,value from systempreferences where=
 variable=3D'$searchfield'");
		$sth->execute;
		$data=3D$sth->fetchrow_hashref;
		$sth->finish;
	}
	print <<printend
	<script>
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNotNull(f,noalert) {
		if (f.value.length =3D=3D0) {
   return false;
		}
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function toUC(f) {
		var x=3Df.value.toUpperCase();
		f.value=3Dx;
		return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isNum(v,maybenull) {
	var n =3D new Number(v.value);
	if (isNaN(n)) {
		return false;
		}
	if (maybenull=3D=3D0 && v.value=3D=3D'') {
		return false;
	}
	return true;
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function isDate(f) {
		var t =3D Date.parse(f.value);
		if (isNaN(t)) {
			return false;
		}
	}
	////////////////////////////////////////////////////////////////////////////=
/////////////////////////////////////
	function Check(f) {
		var ok=3D1;
		var _alertString=3D"";
		var alertString2;
		if (f.variable.value.length=3D=3D0) {
			_alertString +=3D "- variable missing\\n";
		}
		if (f.value.value.length=3D=3D0) {
			_alertString +=3D "- value missing\\n";
		}
		if (_alertString.length=3D=3D0) {
			document.Aform.submit();
		} else {
			alertString2 =3D "Form not submitted because of the following problem(s)\\=
n";
			alertString2 +=3D "-------------------------------------------------------=
-----------------------------\\n\\n";
			alertString2 +=3D _alertString;
			alert(alertString2);
		}
	}
	</SCRIPT>
printend
;#/
	if ($searchfield) {
		print "<h1>Modify pref</h1>";
	} else {
		print "<h1>Add pref</h1>";
	}
	print "<form action=3D'$script_name' name=3DAform method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3D'add_validate'>";
	print "<table>";
	if ($searchfield) {
		print "<tr><td>Variable</td><td><input type=3Dhidden name=3Dvariable value=
=3D'$searchfield'>$searchfield</td></tr>";
	} else {
		print "<tr><td>Variable</td><td><input type=3Dtext name=3Dvariable size=3D2=
55 maxlength=3D255></td></tr>";
	}
	print "<tr><td>Value</td><td><input type=3Dtext name=3Dvalue value=3D'$data-=
>{'value'}'></td></tr>";
	print "<tr><td>&nbsp;</td><td><INPUT type=3Dbutton value=3D'OK' onClick=3D'C=
heck(this.form)'></td></tr>";
	print "</table>";
	print "</form>";
;
													# END $OP eq ADD_FORM
################## ADD_VALIDATE ##################################
# called by add_form, used to insert/modify data in DB
} elsif ($op eq 'add_validate') {
	my $dbh=3DC4Connect;
	my $query =3D "replace systempreferences (variable,value) values (";
	$query.=3D $dbh->quote($input->param('variable')).",";
	$query.=3D $dbh->quote($input->param('value')).")";
	my $sth=3D$dbh->prepare($query);
	$sth->execute;
	$sth->finish;
	print "data recorded";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq ADD_VALIDATE
################## DELETE_CONFIRM ##################################
# called by default form, used to confirm deletion of data in DB
} elsif ($op eq 'delete_confirm') {
	my $dbh =3D &C4Connect;
	my $sth=3D$dbh->prepare($reqsel);
	$sth->execute;
	my $data=3D$sth->fetchrow_hashref;
	$sth->finish;
	print mktablehdr;
	print mktablerow(2,'#99cc33',bold('Variable'),bold("$searchfield"),'/images/=
background-mem.gif');
	print "<tr><td>Value</td><td>$data->{'value'}</td></tr>";
	print "<form action=3D'$script_name' method=3Dpost><input type=3Dhidden name=
=3Dop value=3Ddelete_confirmed><input type=3Dhidden name=3Dsearchfield value=
=3D'$searchfield'>";
	print "<tr><td colspan=3D2 align=3Dcenter>CONFIRM DELETION</td></tr>";
	print "<tr><td><INPUT type=3Dsubmit value=3D'YES'></form></td><td><form acti=
on=3D'$script_name' method=3Dpost><input type=3Dsubmit value=3DNO></form></td=
></tr>";
													# END $OP eq DELETE_CONFIRM
################## DELETE_CONFIRMED ##################################
# called by delete_confirm, used to effectively confirm deletion of data in DB
} elsif ($op eq 'delete_confirmed') {
	my $dbh=3DC4Connect;
#	my $searchfield=3D$input->param('branchcode');
	my $sth=3D$dbh->prepare($reqdel);
	$sth->execute;
	$sth->finish;
	print "data deleted";
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dsubmit value=3DOK>";
	print "</form>";
													# END $OP eq DELETE_CONFIRMED
################## DEFAULT ##################################
} else { # DEFAULT
	my @inputs=3D(["text","searchfield",$searchfield],
		["reset","reset","clr"]);
	print mkheadr(2,'System preferences admin');
	print mkformnotable("$script_name",@inputs);
	print <<printend
<b>Hints :</b>
2 variables are useful in this table :
<li><i>acquisitions</i>, which value may be "simple" or "normal"</li>
<li><i>autoMemberNum</i> which may be 1 or 0</li>
<br><br>
printend
	;
	if  ($searchfield ne '') {
		print "You Searched for <b>$searchfield<b><p>";
	}
	print mktablehdr;
	print mktablerow(4,'#99cc33',bold('Variable'),bold('Value'),
	'&nbsp;','&nbsp;','/images/background-mem.gif');
	my $env;
	my ($count,$results)=3DStringSearch($env,$searchfield,'web');
	my $toggle=3D"white";
	for (my $i=3D$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$coun=
t); $i++){
	  	if ($toggle eq 'white'){
	    		$toggle=3D"#ffffcc";
	  	} else {
	    		$toggle=3D"white";
	  	}
		print mktablerow(4,$toggle,$results->[$i]{'variable'},$results->[$i]{'value=
'},
		mklink("$script_name?op=3Dadd_form&searchfield=3D".$results->[$i]{'variable=
'},'Edit'),
		mklink("$script_name?op=3Ddelete_confirm&searchfield=3D".$results->[$i]{'va=
riable'},'Delete',''));
	}
	print mktableft;
	print "<form action=3D'$script_name' method=3Dpost>";
	print "<input type=3Dhidden name=3Dop value=3Dadd_form>";
	if ($offset>0) {
		my $prevpage =3D $offset-$pagesize;
		print mklink("$script_name?offset=3D".$prevpage,'&lt;&lt; Prev');
	}
	print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	if ($offset+$pagesize<$count) {
		my $nextpage =3D$offset+$pagesize;
		print mklink("$script_name?offset=3D".$nextpage,'Next &gt;&gt;');
	}
	print "<br><input type=3Dimage src=3D\"/images/button-add-member.gif\"  WIDT=
H=3D188  HEIGHT=3D44  ALT=3D\"Add budget\" BORDER=3D0 ></a><br>";
	print "</form>";
} #---- END $OP eq DEFAULT
print endmenu('admin');
print endpage();



--===============6202719671662161188==--


From nsr@etome.net Wed Mar  6 08:43:34 2002
From: Nicholas Rosasco <nsr@etome.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] Useful addition to MARC stuff?
Date: Wed, 06 Mar 2002 08:44:03 +0000
Message-ID: <NGBBLPDKODDLFDKEDCDKAEJDCAAA.nsr@etome.net>
In-Reply-To: <E16iLrc-0005Pd-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============8190267952605086380=="

--===============8190267952605086380==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: 7bit

http://freshmeat.net/projects/simpleserver/
"Net::Z3950::SimpleServer is a Perl module which implements the server side
of the Z39.50 (information retrieval) protocol. It hides the complexity of
network exchanges, packet serialization, and session handling. You are
required only to implement simple callbacks to support searching and record
retrieval. "

Possibly useful?

Nick



--===============8190267952605086380==--


From tonnesen@cmsd.bc.ca Wed Mar  6 08:54:42 2002
From: Tonnesen Steve <tonnesen@cmsd.bc.ca>
To: koha-devel@lists.koha-community.org
Subject: Re: [Koha-devel] Useful addition to MARC stuff?
Date: Wed, 06 Mar 2002 08:55:12 +0000
Message-ID: <Pine.LNX.3.96.1020306085358.18705A-100000@hss-labs.cmsd.bc.ca>
In-Reply-To: <NGBBLPDKODDLFDKEDCDKAEJDCAAA.nsr@etome.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============8108570166839189482=="

--===============8108570166839189482==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: 7bit

On Wed, 6 Mar 2002, Nicholas Rosasco wrote:

> http://freshmeat.net/projects/simpleserver/
> "Net::Z3950::SimpleServer is a Perl module which implements the server side
> of the Z39.50 (information retrieval) protocol. It hides the complexity of
> network exchanges, packet serialization, and session handling. You are
> required only to implement simple callbacks to support searching and record
> retrieval. "
> 
> Possibly useful?

Definitely.  We'll need MARC support first, though, of course.

I use the Net::Z3950 module in my Z3950 client already.  Works great.
Haven't played with the SimpleServer yet.

Steve.




--===============8108570166839189482==--