[Koha-devel] CVS: koha/admin branches.pl,1.1,1.2

1 May 2002

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

Modified Files:
	branches.pl 
Log Message:

moredetail.pl presents circulation information taken from the
branchtransfers table

Circ2.pm has been changed a little

admin/branches.pl alows branches to be added, edited and deleted.

updatedatabase needs more fixing

Index: branches.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/branches.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** branches.pl	5 Mar 2002 20:48:42 -0000	1.1
--- branches.pl	2 May 2002 00:08:53 -0000	1.2
***************
*** 1,280 ****
  #!/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://www.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=add_form
! #	- if primkey exists, this is a modification,so we read the $primkey record
! #	- builds the add/modify form
! # if $op=add_validate
! #	- the user has just send datas, so we create/modify the record
! # if $op=delete_form
! #	- we show the record having primkey=$primkey and ask for deletion validation form
! # if $op=delete_confirm
! #	- we delete the record having primkey=$primkey

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

! sub StringSearch  {
! 	my ($env,$searchstring,$type)=@_;
! 	my $dbh = &C4Connect;
! 	$searchstring=~ s/\'/\\\'/g;
! 	my @data=split(' ',$searchstring);
! 	my $count=@data;
! 	my $query="Select branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail,issuing from branches where (branchcode like \"$data[0]%\") order by branchcode";
! 	my $sth=$dbh->prepare($query);
! 	$sth->execute;
! 	my @results;
! 	my $cnt=0;
! 	while (my $data=$sth->fetchrow_hashref){
! 	push(@results,$data);
! 	$cnt ++;
! 	}
! 	#  $sth->execute;
! 	$sth->finish;
! 	$dbh->disconnect;
! 	return ($cnt,\@results);
! }
! 
! my $input = new CGI;
! my $searchfield=$input->param('searchfield');
! my $pkfield="branchcode";
! my $reqsel="select branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail,issuing from branches where branchcode='$searchfield'";
! my $reqdel="delete from branches where branchcode='$searchfield'";
! #my $branchcode=$input->param('branchcode');
! my $offset=$input->param('offset');
  my $script_name="/cgi-bin/koha/admin/branches.pl";
- 
  my $pagesize=20;
  my $op = $input->param('op');
! $searchfield=~ 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 = &C4Connect;
! 		my $sth=$dbh->prepare("select branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail,issuing  from branches where branchcode='$searchfield'");
! 		$sth->execute;
! 		$data=$sth->fetchrow_hashref;
! 		$sth->finish;
! 	}
! 	print <<printend
! 	<script>
! 	/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
! 	function isNotNull(f,noalert) {
! 		if (f.value.length ==0) {
!    return false;
! 		}
! 		return true;
! 	}
! 	/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
! 	function toUC(f) {
! 		var x=f.value.toUpperCase();
! 		f.value=x;
! 		return true;
! 	}
! 	/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
! 	function isNum(v,maybenull) {
! 	var n = new Number(v.value);
! 	if (isNaN(n)) {
! 		return false;
! 		}
! 	if (maybenull==0 && v.value=='') {
! 		return false;
! 	}
! 	return true;
! 	}
! 	/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
! 	function isDate(f) {
! 		var t = Date.parse(f.value);
! 		if (isNaN(t)) {
! 			return false;
! 		}
! 	}
! 	/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
! 	function Check(f) {
! 		var ok=1;
! 		var _alertString="";
! 		var alertString2;
! 		if (f.searchfield.value.length==0) {
! 			_alertString += "- branch code missing\\n";
! 		}
! 		if (f.branchname.value.length==0) {
! 			_alertString += "- branch name missing\\n";
! 		}
! 		if (_alertString.length==0) {
! 			document.Aform.submit();
! 		} else {
! 			alertString2 = "Form not submitted because of the following problem(s)\\n";
! 			alertString2 += "------------------------------------------------------------------------------------\\n\\n";
! 			alertString2 += _alertString;
! 			alert(alertString2);
! 		}
! 	}
! 	</SCRIPT>
! printend
! ;#/
! 	if ($searchfield) {
! 		print "<h1>Modify branch</h1>";
! 	} else {
! 		print "<h1>Add branch</h1>";
! 	}
! 	print "<form action='$script_name' name=Aform method=post>";
! 	print "<input type=hidden name=op value='add_validate'>";
! 	print "<table>";
! 	if ($searchfield) {
! 		print "<tr><td>Branch code</td><td><input type=hidden name=searchfield value=$searchfield>$searchfield</td></tr>";
! 	} else {
! 		print "<tr><td>Branch code</td><td><input type=text name=searchfield size=5 maxlength=5 onBlur=toUC(this)></td></tr>";
! 	}
! 	print "<tr><td>Name</td><td><input type=text name=branchname size=40 maxlength=80 value='$data->{'branchname'}'> </td></tr>";
! 	print "<tr><td>Adress</td><td><input type=text name=branchaddress1 value='$data->{'branchaddress1'}'></td></tr>";
! 	print "<tr><td> </td><td><input type=text name=branchaddress2 value='$data->{'branchaddress2'}'></td></tr>";
! 	print "<tr><td> </td><td><input type=text name=branchaddress3 value='$data->{'branchaddress3'}'></td></tr>";
! 	print "<tr><td>Phone</td><td><input type=text name=branchphone value='$data->{'branchphone'}'></td></tr>";
! 	print "<tr><td>Fax</td><td><input type=text name=branchfax value='$data->{'branchfax'}'></td></tr>";
! 	print "<tr><td>E-mail</td><td><input type=text name=branchemail value='$data->{'branchemail'}'></td></tr>";
! 	print "<tr><td>Issuing</td><td><input type=text name=issuing value='$data->{'issuing'}'></td></tr>";
! 	print "<tr><td> </td><td><INPUT type=button value='OK' onClick='Check(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=C4Connect;
! 	my $query = "replace branches (branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail,issuing) values (";
! 	$query.= $dbh->quote($input->param('branchcode')).",";
! 	$query.= $dbh->quote($input->param('branchname')).",";
! 	$query.= $dbh->quote($input->param('branchaddress1')).",";
! 	$query.= $dbh->quote($input->param('branchaddress2')).",";
! 	$query.= $dbh->quote($input->param('branchaddress3')).",";
! 	$query.= $dbh->quote($input->param('branchphone')).",";
! 	$query.= $dbh->quote($input->param('branchfax')).",";
! 	$query.= $dbh->quote($input->param('branchemail')).",";
! 	$query.= $dbh->quote($input->param('issuing')).")";
! 	my $sth=$dbh->prepare($query);
! 	$sth->execute;
! 	$sth->finish;
! 	print "data recorded";
! 	print "<form action='$script_name' method=post>";
! 	print "<input type=submit value=OK>";
! 	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 = &C4Connect;
! 	my $sth=$dbh->prepare("select count(*) as total from borrowers where branchcode='$searchfield'");
! 	$sth->execute;
! 	my $total = $sth->fetchrow_hashref;
! 	$sth->finish;
! 	print "$reqsel";
! 	my $sth=$dbh->prepare($reqsel);
  	$sth->execute;
- 	my $data=$sth->fetchrow_hashref;
  	$sth->finish;
! 	print mktablehdr;
! 	print mktablerow(2,'#99cc33',bold('Branch code'),bold("$searchfield"),'/images/background-mem.gif');
! 	print "<form action='$script_name' method=post><input type=hidden name=op value=delete_confirmed><input type=hidden name=searchfield value='$searchfield'>";
! 	print "<tr><td>Branch code</td><td>$data->{'branchcode'}</td></tr>";
! 	print "<tr><td>  name</td><td>$data->{'branchname'}</td></tr>";
! 	print "<tr><td>  adress</td><td>$data->{'branchaddress1'}</td></tr>";
! 	print "<tr><td> </td><td>$data->{'branchaddress2'}</td></tr>";
! 	print "<tr><td> </td><td>$data->{'branchaddress3'}</td></tr>";
! 	print "<tr><td> phone</td><td>$data->{'branchphone'}</td></tr>";
! 	print "<tr><td>  fax</td><td>$data->{'branchfax'}</td></tr>";
! 	print "<tr><td>  e-mail</td><td>$data->{'branchemail'}</td></tr>";
! 	print "<tr><td>  issuing</td><td>$data->{'issuing'}</td></tr>";
! 	if ($total->{'total'} >0) {
! 		print "<tr><td colspan=2 align=center><b>This record is used $total->{'total'} times. Deletion not possible</b></td></tr>";
! 		print "<tr><td colspan=2></form><form action='$script_name' method=post><input type=submit value=OK></form></td></tr>";
! 	} else {
! 		print "<tr><td colspan=2 align=center>CONFIRM DELETION</td></tr>";
! 		print "<tr><td><INPUT type=submit value='YES'></form></td><td><form action='$script_name' method=post><input type=submit value=NO></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=C4Connect;
! #	my $searchfield=$input->param('branchcode');
! 	my $sth=$dbh->prepare($reqdel);
  	$sth->execute;
  	$sth->finish;
! 	print "data deleted";
! 	print "<form action='$script_name' method=post>";
! 	print "<input type=submit value=OK>";
! 	print "</form>";
! 													# END $OP eq DELETE_CONFIRMED
! ################## DEFAULT ##################################
! } else { # DEFAULT
! 	my @inputs=(["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'),
! 	' ',' ','/images/background-mem.gif');
! 	my $env;
! 	my ($count,$results)=StringSearch($env,$searchfield,'web');
! 	my $toggle="white";
! 	for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
! 		#find out stats
! 	#  	my ($od,$issue,$fines)=categdata2($env,$results->[$i]{'borrowernumber'});
! 	#  	$fines=$fines+0;
! 	  	if ($toggle eq 'white'){
! 	    		$toggle="#ffffcc";
! 	  	} else {
! 	    		$toggle="white";
! 	  	}
! 		print mktablerow(9,$toggle,$results->[$i]{'branchcode'},$results->[$i]{'branchname'},
! 		$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=add_form&searchfield=".$results->[$i]{'branchcode'},'Edit'),
! 		mklink("$script_name?op=delete_confirm&searchfield=".$results->[$i]{'branchcode'},'Delete',''));
! 	}
! 	print mktableft;
! 	print "<form action='$script_name' method=post>";
! 	print "<input type=hidden name=op value=add_form>";
! 	if ($offset>0) {
! 		my $prevpage = $offset-$pagesize;
! 		print mklink("$script_name?offset=".$prevpage,'<< Prev');
! 	}
! 	print "      ";
! 	if ($offset+$pagesize<$count) {
! 		my $nextpage =$offset+$pagesize;
! 		print mklink("$script_name?offset=".$nextpage,'Next >>');
! 	}
! 	print "<br><input type=image src=\"/images/button-add-member.gif\"  WIDTH=188  HEIGHT=44  ALT=\"Add budget\" BORDER=0 ></a><br>";
! 	print "</form>";
! } #---- END $OP eq DEFAULT
! print endmenu('admin');
! print endpage();
--- 1,387 ----
  #!/usr/bin/perl

! # Finlay working on this file from 26-03-2002
! # Reorganising this branches admin page.....

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

! # Fixed variables
! my $linecolor1='#ffffcc';
! my $linecolor2='white';
! my $backgroundimage="/images/background-mem.gif";
  my $script_name="/cgi-bin/koha/admin/branches.pl";
  my $pagesize=20;
+ 
+ 
+ #######################################################################################
+ # Main loop....
+ 
+ my $input = new CGI;
+ my $branchcode=$input->param('branchcode');
  my $op = $input->param('op');
! 
! # header
  print $input->header;

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

! if ($op eq 'add') {
! # If the user has pressed the "add new branch" button. 
!     print heading("Branches: Add Branch");
!     print editbranchform();
! 
! } elsif ($op eq 'edit') {
! # if the user has pressed the "edit branch settings" button.
!     print heading("Branches: Edit Branch");
!     print editbranchform($branchcode);
! 
  } elsif ($op eq 'add_validate') {
! # confirm settings change...
!     my $params = $input->Vars;
!     unless ($params->{'branchcode'} && $params->{'branchname'}) {
! 	default ("Cannot change branch record: You must specify a Branchname and a Branchcode");
!     } else {
! 	setbranchinfo($params);
! 	default ("Branch record changed for branch: $params->{'branchname'}");
!     }
! 
! } elsif ($op eq 'delete') {
! # if the user has pressed the "delete branch" button.
!     my $message = checkdatabasefor($branchcode);
!     if ($message) {
! 	default($message);
!     } else {
! 	print deleteconfirm($branchcode);
!     }
! 
! } elsif ($op eq 'delete_confirmed') {
! # actually delete branch and return to the main screen....
!     deletebranch($branchcode);
!     default("The branch with code $branchcode has been deleted.");
! 
! } else {
! # if no operation has been set...
!     default();
! }
! 
! 
! print endmenu('admin');
! print endpage();
! 
! ######################################################################################################
! #
! # html output functions....
! 
! sub default {
!     my ($message) = @_;
!     print heading("Branches");
!     print "<font color='red'>$message</font>";
!     print "<form action='$script_name' method=post><input type='hidden' name='op' value='add'><input type=submit value='Add New Branch'></form>";
!     print branchinfotable();
!     print branchcategoriestable();
! }
! 
! sub heading {
!     my ($head) = @_;
!     return "<FONT SIZE=6><em>$head</em></FONT><br>";
! }
! 
! sub editbranchform {
! # prepares the edit form...
!     my ($branchcode) = @_;
!     my $data;
!     if ($branchcode) {
! 	$data = getbranchinfo($branchcode);
! 	$data = $data->[0];
!     }
! # make the checkboxs.....
!     my $catinfo = getcategoryinfo();
!     my $catcheckbox;
!     foreach my $cat (@$catinfo) {
! 	my $checked = "";
! 	my $tmp = $cat->{'categorycode'};
! 	if (grep {/^$tmp$/} @{$data->{'categories'}}) {
! 	    $checked = "CHECKED";
! 	}
! 	$catcheckbox .= <<EOF;
! <tr><td>$cat->{'categoryname'}</td>
! <td><INPUT TYPE="checkbox" NAME="$cat->{'categorycode'}" VALUE="1" $checked>$cat->{'codedescription'}</td></tr>
! EOF
!     }
!     my $form = <<EOF;
! <form action='$script_name' name=Aform method=post>
! <input type=hidden name=op value='add_validate'>
! <table>
! <tr><td>Branch code</td><td><input type=text name=branchcode size=5 maxlength=5 value='$data->{'branchcode'}'></td></tr>
! <tr><td>Name</td><td><input type=text name=branchname size=40 maxlength=80 value='$data->{'branchname'}'> </td></tr>
! $catcheckbox
! <tr><td>Address</td><td><input type=text name=branchaddress1 value='$data->{'branchaddress1'}'></td></tr>
! <tr><td> </td><td><input type=text name=branchaddress2 value='$data->{'branchaddress2'}'></td></tr>
! <tr><td> </td><td><input type=text name=branchaddress3 value='$data->{'branchaddress3'}'></td></tr>
! <tr><td>Phone</td><td><input type=text name=branchphone value='$data->{'branchphone'}'></td></tr>
! <tr><td>Fax</td><td><input type=text name=branchfax value='$data->{'branchfax'}'></td></tr>
! <tr><td>E-mail</td><td><input type=text name=branchemail value='$data->{'branchemail'}'></td></tr>
! <tr><td> </td><td><input type=submit value='Submit'></td></tr> 
! </table>
! </form> 
! EOF
!     return $form;
! }
! 
! sub deleteconfirm {
! # message to print if the 
!     my ($branchcode) = @_;
!     my $output = <<EOF;
! Confirm delete: 
! <form action='$script_name' method=post><input type='hidden' name='op' value='delete_confirmed'>
! <input type='hidden' name='branchcode' value=$branchcode>
! <input type=submit value=YES></form>
! <form action='$script_name' method=post><input type='hidden' name='op' value=''>
! <input type=submit value=NO></form>
! EOF
!     return $output;
! }
! 
! 
! sub branchinfotable {
! # makes the html for a table of branch info from reference to an array of hashs.
! 
!     my ($branchcode) = @_;
!     my $branchinfo;
!     if ($branchcode) {
! 	$branchinfo = getbranchinfo($branchcode);
!     } else {
! 	$branchinfo = getbranchinfo();
!     }
!     my $table = <<EOF;
! <table border='1' cellpadding='5' cellspacing='0' width='550'>
! <tr> <th colspan='5' align='left' bgcolor='#99cc33' background=$backgroundimage>
! <font size='5'><b>Branches</b></font></th> </tr> 
! <tr bgcolor='#889999'> 
! <td width='175'><b>Name</b></td> 
! <td width='25'><b>Code</b></td> 
! <td width='175'><b>Address</b></td>
! <td width='175'><b>Categories</b></td>
! <td width='50'><b> </b></td>
! </tr>
! EOF
! 
!     my $color;
!     foreach my $branch (@$branchinfo) {
! 	($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
! 	my $address = '';
! 	$address .= $branch->{'branchaddress1'}          if ($branch->{'branchaddress1'});
! 	$address .= '<br>'.$branch->{'branchaddress2'}   if ($branch->{'branchaddress2'});
! 	$address .= '<br>'.$branch->{'branchaddress3'}   if ($branch->{'branchaddress3'});
! 	$address .= '<br>ph: '.$branch->{'branchphone'}   if ($branch->{'branchphone'});
! 	$address .= '<br>fax: '.$branch->{'branchfax'}    if ($branch->{'branchfax'});
! 	$address .= '<br>email: '.$branch->{'branchemail'} if ($branch->{'branchemail'});
! 	$address = '(nothing entered)' unless ($address);
! 	my $categories = '';
! 	foreach my $cat (@{$branch->{'categories'}}) {
! 	    my ($catinfo) = @{getcategoryinfo($cat)};
! 	    $categories .= $catinfo->{'categoryname'}."<br>";
! 	}
! 	$categories = '(no categories set)' unless ($categories);
! 	$table .= <<EOF;
! <tr bgcolor='$color'>
!     <td align='left' valign='top'>$branch->{'branchname'}</td>
!     <td align='left' valign='top'>$branch->{'branchcode'}</td>
!     <td align='left' valign='top'>$address</td>
!     <td align='left' valign='top'>$categories</td>
!     <td align='left' valign='top'> 
! <form action='$script_name' method=post>
! <input type='hidden' name='op' value='edit'>
! <input type='hidden' name='branchcode' value='$branch->{'branchcode'}'>
! <input type=submit value=Edit>
! </form>
! <form action='$script_name' method=post>
! <input type='hidden' name='branchcode' value='$branch->{'branchcode'}'>
! <input type='hidden' name='op' value='delete'><input type=submit value=Delete>
! </form></td>
! </tr>
! EOF
!     }
!     $table .= "</table><br>";
!     return $table;
! }
! 
! sub branchcategoriestable {
! #Needs to be implemented...
! 
!     my $categoryinfo = getcategoryinfo();
!     my $table = <<EOF;
! <table border='1' cellpadding='5' cellspacing='0'>
! <tr> <th colspan='5' align='left' bgcolor='#99cc33' background=$backgroundimage>
! <font size='5'><b>Branches Categories</b></font></th> </tr> 
! <tr bgcolor='#889999'> 
! <td width='175'><b>Name</b></td> 
! <td width='25'><b>Code</b></td> 
! <td width='200'><b>Description</b></td>
! </tr>
! EOF
! my $color;
!     foreach my $cat (@$categoryinfo) {
! 	($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
! 	$table .= <<EOF;
! <tr bgcolor='$color'>
!     <td align='left' valign='top'>$cat->{'categoryname'}</td>
!     <td align='left' valign='top'>$cat->{'categorycode'}</td>
!     <td align='left' valign='top'>$cat->{'codedescription'}</td>
! </tr>
! EOF
!     }
!     $table .= "</table>";
!     return $table;
! }
! 
! ######################################################################################################
! #
! # Database functions....
! 
! sub getbranchinfo {
! # returns a reference to an array of hashes containing branches,
! 
!     my ($branchcode) = @_;
!     my $dbh = &C4Connect;
!     my $query;
!     if ($branchcode) {
! 	my $bc = $dbh->quote($branchcode);
! 	$query = "Select * from branches where branchcode = $bc";
!     }
!     else {$query = "Select * from branches";}
!     my $sth = $dbh->prepare($query);
!     $sth->execute;
!     my @results;
!     while (my $data = $sth->fetchrow_hashref) { 
! 	my $tmp = $data->{'branchcode'}; my $brc = $dbh->quote($tmp);
! 	$query = "select categorycode from branchrelations where branchcode = $brc";
! 	my $nsth = $dbh->prepare($query);
! 	$nsth->execute;
! 	my @cats = ();
! 	while (my ($cat) = $nsth->fetchrow_array) {
! 	    push(@cats, $cat);
! 	}
! 	$nsth->finish;
! 	$data->{'categories'} = \@cats;
! 	push(@results, $data);
!     }
!     $sth->finish;
!     $dbh->disconnect;
!     return \@results;
! }
! 
! sub getcategoryinfo {
! # returns a reference to an array of hashes containing branches,
!     my ($catcode) = @_;
!     my $dbh = &C4Connect;
!     my $query;
!     if ($catcode) {
! 	my $cc = $dbh->quote($catcode);
! 	$query = "select * from branchcategories where categorycode = $cc";
!     } else {
! 	$query = "Select * from branchcategories";
!     }
!     my $sth = $dbh->prepare($query);
!     $sth->execute;
!     my @results;
!     while (my $data = $sth->fetchrow_hashref) { 
! 	push(@results, $data);
!     }
!     $sth->finish;
!     $dbh->disconnect;
!     return \@results;
! }
! 
! sub setbranchinfo {
! # sets the data from the editbranch form, and writes to the database...
!     my ($data) = @_;
!     my $dbh=&C4Connect;
!     my $query = "replace branches (branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail) values (";
!     my $tmp;
!     $tmp = $data->{'branchcode'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchname'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchaddress1'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchaddress2'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchaddress3'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchphone'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchfax'}; $query.= $dbh->quote($tmp).",";
!     $tmp = $data->{'branchemail'}; $query.= $dbh->quote($tmp).")";
!     my $sth=$dbh->prepare($query);
!     $sth->execute;
!     $sth->finish;
!     $dbh->disconnect;
! # sort out the categories....
!     my @checkedcats;
!     my $cats = getcategoryinfo();
!     foreach my $cat (@$cats) {
! 	my $code = $cat->{'categorycode'};
! 	if ($data->{$code}) {
! 	    push(@checkedcats, $code);
! 	}
!     }
!     my $branchcode = $data->{'branchcode'};
!     my $branch = getbranchinfo($branchcode);
!     $branch = $branch->[0];
!     my $branchcats = $branch->{'categories'};
!     my @addcats;
!     my @removecats;
!     foreach my $bcat (@$branchcats) {
! 	unless (grep {/^$bcat$/} @checkedcats) {
! 	    push(@removecats, $bcat);
! 	}
!     }
!     foreach my $ccat (@checkedcats){
! 	unless (grep {/^$ccat$/} @$branchcats) {
! 	    push(@addcats, $ccat);
! 	}
!     }	
!     my $dbh=&C4Connect;
!     foreach my $cat (@addcats) {
! 	my $query = "insert into branchrelations (branchcode, categorycode) values('$branchcode', '$cat')";
! 	my $sth = $dbh->prepare($query);
  	$sth->execute;
  	$sth->finish;
!     }
!     foreach my $cat (@removecats) {
! 	my $query = "delete from branchrelations where branchcode='$branchcode' and categorycode='$cat'";
! 	my $sth = $dbh->prepare($query);
  	$sth->execute;
  	$sth->finish;
!     }
!     $dbh->disconnect;
! }
! 
! sub deletebranch {
! # delete branch...
!     my ($branchcode) = @_;
!     my $query = "delete from branches where branchcode = '$branchcode'";
!     my $dbh=&C4Connect;
!     my $sth=$dbh->prepare($query);
!     $sth->execute;
!     $sth->finish;
!     $dbh->disconnect;
! }
! 
! sub checkdatabasefor {
! # check to see if the branchcode is being used in the database somewhere....
!     my ($branchcode) = @_;
!     my $dbh = &C4Connect;
!     my $sth=$dbh->prepare("select count(*) from items where holdingbranch='$branchcode' or homebranch='$branchcode'");
!     $sth->execute;
!     my ($total) = $sth->fetchrow_array;
!     $sth->finish;
!     $dbh->disconnect;
!     my $message;
!     if ($total) {
! 	$message = "Branch cannot be deleted because there are $total items using that branch.";
!     } 
!     return $message;
! }
! 
!

[Koha-devel] CVS: koha/admin branches.pl,1.1,1.2

Finlay Thompson