[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin thesaurus.pl,1.7,1.8
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/admin thesaurus.pl,1.7,1.8 |
Date: |
Wed, 02 Jul 2003 05:49:45 -0700 |
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 ##################################
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin thesaurus.pl,1.7,1.8,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/C4 Authorities.pm,1.2,1.3
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/fr/members memberentry.tmpl,1.6,1.7 moremember.tmpl,1.8,1.9
- Previous by thread:
[Koha-cvs] CVS: koha/C4 Authorities.pm,1.2,1.3
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/fr/members memberentry.tmpl,1.6,1.7 moremember.tmpl,1.8,1.9
- Index(es):