[Koha-cvs] CVS: koha/admin branches.pl,1.1.2.6,1.1.2.7

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
	branches.pl 
Log Message:
Fix branches.pl admin script so that it sets the IS and CU branchrelations on
by default.


Index: branches.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/branches.pl,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -C2 -r1.1.2.6 -r1.1.2.7
*** branches.pl	27 Aug 2002 05:10:27 -0000	1.1.2.6
--- branches.pl	23 Oct 2002 17:03:31 -0000	1.1.2.7
***************
*** 175,178 ****
--- 175,192 ----
  	my $sth=$dbh->prepare($query);
  	$sth->execute;
+ 	$sth=$dbh->prepare("select categorycode from branchrelations where branchcode=?");
+ 	$sth->execute($input->param('searchfield'));
+ 	my $categorycodes;
+ 	while (my ($categorycode) = $sth->fetchrow) {
+ 	    $categorycodes->{$categorycode}=1;
+ 	}
+ 	unless ($categorycodes->{IS}) {
+ 	    $sth=$dbh->prepare("insert into branchrelations (branchcode,categorycode) values (?, 'IS')");
+ 	    $sth->execute($input->param('searchfield'));
+ 	}
+ 	unless ($categorycodes->{CU}) {
+ 	    $sth=$dbh->prepare("insert into branchrelations (branchcode,categorycode) values (?, 'CU')");
+ 	    $sth->execute($input->param('searchfield'));
+ 	}
  	$sth->finish;
  	print "data recorded";