[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 ##################################