[Koha-cvs] CVS: koha/admin thesaurus.pl,1.7,1.8

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv16669/admin

Modified Files:
	thesaurus.pl 
Log Message:
fixing bug in thesaurus entry modification

Index: thesaurus.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/thesaurus.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** thesaurus.pl	2 Feb 2003 07:18:38 -0000	1.7
--- thesaurus.pl	2 Jul 2003 12:49:43 -0000	1.8
***************
*** 34,38 ****
  my $branch = $input->param('branch');
  my $searchstring = $input->param('searchstring');
! $searchstring=~ s/\,//g;
  my $id = $input->param('id');
  my $offset=$input->param('offset');
--- 34,38 ----
  my $branch = $input->param('branch');
  my $searchstring = $input->param('searchstring');
! # $searchstring=~ s/\,//g;
  my $id = $input->param('id');
  my $offset=$input->param('offset');
***************
*** 104,108 ****
  	}
  ################## ADD_VALIDATE ##################################
! # called by add_form, used to insert/modify data in DB
  } elsif ($op eq 'add_validate') {
  	my $dbh = C4::Context->dbh;
--- 104,108 ----
  	}
  ################## ADD_VALIDATE ##################################
! # called by add_form, used to insert data in DB
  } elsif ($op eq 'add_validate') {
  	my $dbh = C4::Context->dbh;
***************
*** 111,114 ****
--- 111,122 ----
  	newauthority($dbh,$input->param('category'),$input->param('father')." ".$input->param('stdlib'), $freelib,'',1,'');
  	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=thesaurus.pl?branch=$branch&search_category=$search_category&searchstring=$searchstring&offset=$offset\"></html>";
+ 	exit;
+ ################## MOD_VALIDATE ##################################
+ # called by add_form, used to modify data in DB
+ } elsif ($op eq 'mod_validate') {
+ 	my $dbh = C4::Context->dbh;
+ 	my $freelib = $input->param('freelib');
+ 	modauthority($dbh,$id,$freelib);
+ 	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=thesaurus.pl?branch=$branch&search_category=$search_category&offset=$offset&searchstring=".CGI::escapeHTML($searchstring)."\"></html>";
  	exit;
  ################## DELETE_CONFIRM ##################################