4 # Copyright 2000-2002 Katipo Communications
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License along with
18 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
19 # Suite 330, Boston, MA 02111-1307 USA
23 use C4
::Interface
::CGI
::Output
;
31 my ($env,$searchstring,$type)=@_;
32 my $dbh = C4
::Context
->dbh;
33 $searchstring=~ s/\'/\\\'/g;
34 my @data=split(' ',$searchstring);
36 my $query="Select tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder from marc_subfield_structure where (tagfield like \"$searchstring%\") order by tagfield";
37 my $sth=$dbh->prepare($query);
41 while (my $data=$sth->fetchrow_hashref){
48 return ($cnt,\
@results);
52 my $tagfield=$input->param('tagfield');
53 my $tagsubfield=$input->param('tagsubfield');
54 my $pkfield="tagfield";
55 my $reqsel="select tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder from marc_subfield_structure where tagfield='$tagfield' and tagsubfield='$tagsubfield'";
56 my $reqdel="delete from marc_subfield_structure where tagfield='$tagfield' and tagsubfield='$tagsubfield'";
57 my $offset=$input->param('offset');
58 my $script_name="/cgi-bin/koha/admin/marc_subfields_structure.pl";
60 my ($template, $borrowernumber, $cookie)
61 = get_template_and_user
({template_name
=> "parameters/marc_subfields_structure.tmpl",
65 flagsrequired
=> {parameters
=> 1},
69 my $op = $input->param('op');
73 $template->param(script_name
=> $script_name,
75 $op => 1); # we show only the TMPL_VAR names $op
77 $template->param(script_name
=> $script_name,
79 else => 1); # we show only the TMPL_VAR names $op
82 ################## ADD_FORM ##################################
83 # called by default. Used to create form to add or modify a record
84 if ($op eq 'add_form') {
86 my $dbh = C4
::Context
->dbh;
87 my $more_subfields = $input->param("more_subfields")+1;
88 # builds kohafield tables
91 my $sth2=$dbh->prepare("SHOW COLUMNS from biblio");
93 while ((my $field) = $sth2->fetchrow_array) {
94 push @kohafields, "biblio.".$field;
96 my $sth2=$dbh->prepare("SHOW COLUMNS from biblioitems");
98 while ((my $field) = $sth2->fetchrow_array) {
99 push @kohafields, "biblioitems.".$field;
101 my $sth2=$dbh->prepare("SHOW COLUMNS from items");
103 while ((my $field) = $sth2->fetchrow_array) {
104 push @kohafields, "items.".$field;
108 push @kohafields, "additionalauthors.author";
109 # build authorised value list
111 $sth2 = $dbh->prepare("select distinct category from authorised_values");
113 my @authorised_values;
114 push @authorised_values,"";
115 while ((my $category) = $sth2->fetchrow_array) {
116 push @authorised_values, $category;
118 push (@authorised_values,"branches");
119 push (@authorised_values,"itemtypes");
120 # build thesaurus categories list
122 $sth2 = $dbh->prepare("select distinct category from bibliothesaurus");
124 my @thesaurus_category;
125 push @thesaurus_category,"";
126 while ((my $category) = $sth2->fetchrow_array) {
127 push @thesaurus_category, $category;
129 # build value_builder list
130 my @value_builder=('');
131 opendir(DIR
, "../value_builder") || die "can't opendir ../value_builder: $!";
132 while (my $line = readdir(DIR
)) {
133 if ($line =~ /\.pl$/) {
134 push (@value_builder,$line);
140 my $sth=$dbh->prepare("select tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder from marc_subfield_structure where tagfield='$tagfield'"); # and tagsubfield='$tagsubfield'");
145 while ($data =$sth->fetchrow_hashref) {
146 my %row_data; # get a fresh hash for the row data
147 if ($toggle eq 'white'){
152 $row_data{tab
} = CGI
::scrolling_list
(-name
=>'tab',
153 -values=>['-1','0','1','2','3','4','5','6','7','8','9','10'],
154 -labels
=> {'-1' =>'ignore','0'=>'0','1'=>'1',
155 '2' =>'2','3'=>'3','4'=>'4',
156 '5' =>'5','6'=>'6','7'=>'7',
157 '8' =>'8','9'=>'9','10'=>'items (10)',
159 -default=>$data->{'tab'},
163 $row_data{tagsubfield
} =$data->{'tagsubfield'}."<input type='hidden' name='tagsubfield' value='".$data->{'tagsubfield'}."'>";
164 $row_data{liblibrarian
} = CGI
::escapeHTML
($data->{'liblibrarian'});
165 $row_data{libopac
} = CGI
::escapeHTML
($data->{'libopac'});
166 $row_data{kohafield
}= CGI
::scrolling_list
( -name
=>"kohafield",
167 -values=> \
@kohafields,
168 -default=> "$data->{'kohafield'}",
172 $row_data{authorised_value
} = CGI
::scrolling_list
(-name
=>'authorised_value',
173 -values=> \
@authorised_values,
174 -default=>$data->{'authorised_value'},
178 $row_data{value_builder
} = CGI
::scrolling_list
(-name
=>'value_builder',
179 -values=> \
@value_builder,
180 -default=>$data->{'value_builder'},
184 $row_data{thesaurus_category
} = CGI
::scrolling_list
(-name
=>'thesaurus_category',
185 -values=> \
@thesaurus_category,
186 -default=>$data->{'thesaurus_category'},
190 # $row_data{kohafield} = $data->{'kohafield'};
191 $row_data{repeatable
} = CGI
::checkbox
("repeatable$i",$data->{'repeatable'}?
'checked':'',1,'');
192 $row_data{mandatory
} = CGI
::checkbox
("mandatory$i",$data->{'mandatory'}?
'checked':'',1,'');
193 $row_data{bgcolor
} = $toggle;
194 push(@loop_data, \
%row_data);
197 # add more_subfields empty lines for add if needed
198 for (my $i=1;$i<=$more_subfields;$i++) {
199 my %row_data; # get a fresh hash for the row data
200 $row_data{tab
} = CGI
::scrolling_list
(-name
=>'tab',
201 -values=>['-1','0','1','2','3','4','5','6','7','8','9','10'],
202 -labels
=> {'-1' =>'ignore','0'=>'0','1'=>'1',
203 '2' =>'2','3'=>'3','4'=>'4',
204 '5' =>'5','6'=>'6','7'=>'7',
205 '8' =>'8','9'=>'9','10'=>'items (10)',
211 $row_data{tagsubfield
} = "<input type='text' name='tagsubfield' value='".$data->{'tagsubfield'}."' size=3 maxlength=1>";
212 $row_data{liblibrarian
} = "";
213 $row_data{libopac
} = "";
214 $row_data{repeatable
} = CGI
::checkbox
('repeatable','',1,'');
215 $row_data{mandatory
} = CGI
::checkbox
('mandatory','',1,'');
216 $row_data{kohafield
}= CGI
::scrolling_list
( -name
=>'kohafield',
217 -values=> \
@kohafields,
222 $row_data{authorised_value
} = CGI
::scrolling_list
(-name
=>'authorised_value',
223 -values=> \
@authorised_values,
227 $row_data{thesaurus_category
} = CGI
::scrolling_list
(-name
=>'thesaurus_category',
228 -values=> \
@thesaurus_category,
232 $row_data{bgcolor
} = $toggle;
233 push(@loop_data, \
%row_data);
235 $template->param(action
=> "Edit subfields",
236 tagfield
=> "<input type=hidden name=tagfield value='$tagfield'>$tagfield",
238 more_subfields
=> $more_subfields,
239 more_tag
=> $tagfield);
241 # END $OP eq ADD_FORM
242 ################## ADD_VALIDATE ##################################
243 # called by add_form, used to insert/modify data in DB
244 } elsif ($op eq 'add_validate') {
245 my $dbh = C4
::Context
->dbh;
246 $template->param(tagfield
=> "$input->param('tagfield')");
247 my $sth=$dbh->prepare("replace marc_subfield_structure (tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder)
248 values (?,?,?,?,?,?,?,?,?,?,?)");
249 my @tagsubfield = $input->param('tagsubfield');
250 my @liblibrarian = $input->param('liblibrarian');
251 my @libopac = $input->param('libopac');
252 my @kohafield = $input->param('kohafield');
253 my @tab = $input->param('tab');
254 my @authorised_values = $input->param('authorised_value');
255 my @thesaurus_category = $input->param('thesaurus_category');
256 my @value_builder =$input->param('value_builder');
257 for (my $i=0; $i<= $#tagsubfield ; $i++) {
258 my $tagfield =$input->param('tagfield');
259 my $tagsubfield =$tagsubfield[$i];
260 $tagsubfield="@" unless $tagsubfield;
261 my $liblibrarian =$liblibrarian[$i];
262 my $libopac =$libopac[$i];
263 my $repeatable =$input->param("repeatable$i")?
1:0;
264 my $mandatory =$input->param("mandatory$i")?
1:0;
265 my $kohafield =$kohafield[$i];
267 my $authorised_value =$authorised_values[$i];
268 my $thesaurus_category =$thesaurus_category[$i];
269 my $value_builder=$value_builder[$i];
271 $sth->execute ($tagfield,
285 print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=marc_subfields_structure.pl?tagfield=$tagfield\"></html>";
288 # END $OP eq ADD_VALIDATE
289 ################## DELETE_CONFIRM ##################################
290 # called by default form, used to confirm deletion of data in DB
291 } elsif ($op eq 'delete_confirm') {
292 my $dbh = C4
::Context
->dbh;
293 my $sth=$dbh->prepare($reqsel);
295 my $data=$sth->fetchrow_hashref;
297 $template->param(liblibrarian
=> $data->{'liblibrarian'},
298 tagsubfield
=> $data->{'tagsubfield'},
299 delete_link
=> $script_name,
300 tagfield
=>$tagfield,
301 tagsubfield
=> $tagsubfield,
303 # END $OP eq DELETE_CONFIRM
304 ################## DELETE_CONFIRMED ##################################
305 # called by delete_confirm, used to effectively confirm deletion of data in DB
306 } elsif ($op eq 'delete_confirmed') {
307 my $dbh = C4
::Context
->dbh;
308 my $sth=$dbh->prepare($reqdel);
311 print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=marc_subfields_structure.pl?tagfield=$tagfield\"></html>";
313 $template->param(tagfield
=> $tagfield);
314 # END $OP eq DELETE_CONFIRMED
315 ################## DEFAULT ##################################
318 my ($count,$results)=StringSearch
($env,$tagfield,'web');
321 for (my $i=$offset; $i < ($offset+$pagesize<$count?
$offset+$pagesize:$count); $i++){
322 if ($toggle eq 'white'){
327 my %row_data; # get a fresh hash for the row data
328 $row_data{tagfield
} = $results->[$i]{'tagfield'};
329 $row_data{tagsubfield
} = $results->[$i]{'tagsubfield'};
330 $row_data{liblibrarian
} = $results->[$i]{'liblibrarian'};
331 $row_data{kohafield
} = $results->[$i]{'kohafield'};
332 $row_data{repeatable
} = $results->[$i]{'repeatable'};
333 $row_data{mandatory
} = $results->[$i]{'mandatory'};
334 $row_data{tab
} = $results->[$i]{'tab'};
335 $row_data{authorised_value
} = $results->[$i]{'authorised_value'};
336 $row_data{thesaurus_category
} = $results->[$i]{'thesaurus_category'};
337 $row_data{value_builder
} = $results->[$i]{'value_builder'};
338 $row_data{delete} = "$script_name?op=delete_confirm&tagfield=$tagfield&tagsubfield=".$results->[$i]{'tagsubfield'};
339 $row_data{bgcolor
} = $toggle;
340 push(@loop_data, \
%row_data);
342 $template->param(loop => \
@loop_data);
343 $template->param(edit
=> "<a href='$script_name?op=add_form&tagfield=$tagfield'>");
345 my $prevpage = $offset-$pagesize;
346 $template->param(prev
=>"<a href=$script_name?offset=$prevpage>");
348 if ($offset+$pagesize<$count) {
349 my $nextpage =$offset+$pagesize;
350 $template->param(next => "<a href=$script_name?offset=$nextpage>");
352 } #---- END $OP eq DEFAULT
354 output_html_with_http_headers
$input, $cookie, $template->output;