#!/usr/bin/perl
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
+
#use warnings; FIXME - Bug 2505
use C4::Auth;
use CGI qw ( -utf8 );
=cut
sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= $field_number;
-my $res="
+ my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
+ my $function_name = $field_number;
+ my $res = "
<script type=\"text/javascript\">
//<![CDATA[
</script>
";
-return ($function_name,$res);
+ return ( $function_name, $res );
}
+
sub plugin {
-my ($input) = @_;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "cataloguing/value_builder/marc21_field_007.tt",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => '*'},
- debug => 1,
- });
- $result = "ta" unless $result;
- my $f0 = substr($result,0,1);
- my $f1 = substr($result,1,1);
-#added new parameters to allow for all material types
- my $f2 = substr($result,2,1);
- my $f3 = substr($result,3,1);
- my $f4 = substr($result,4,1);
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f7 = substr($result,7,1);
- my $f8 = substr($result,8,1);
- my $f9 = substr($result,9,1);
- my $f10 = substr($result,10,1);
- my $f11 = substr($result,11,1);
- my $f12 = substr($result,12,1);
- my $f13 = substr($result,13,1);
- my $f14 = substr($result,14,1);
- my $f15 = substr($result,15,1);
- my $f16 = substr($result,16,1);
- my $f17 = substr($result,17,1);
- my $f18 = substr($result,18,1);
- my $f19 = substr($result,19,1);
- my $f20 = substr($result,20,1);
- my $f21 = substr($result,21,1);
- my $f22 = substr($result,22,1);
-#FIXME: There is probably a more-elegant way to do this!
-#FIXME: Two of the material types treat position 06, 07, and 08 as a single
-#three-char field. This script works fine for creating values and sending them
-#back to the MARC, but if there is already a value in the 007, it won't send
-#it properly to the value builder for those two instances. Not sure how to solve.
- $template->param( index => $index,
- f0 => $f0,
- "f0$f0" => $f0,
- f1 => $f1,
- "f1$f1" => $f1,
- f2 => $f2,
- "f2$f2" => $f2,
- f3 => $f3,
- "f3$f3" => $f3,
- f4 => $f4,
- "f4$f4" => $f4,
- f5 => $f5,
- "f5$f5" => $f5,
- f6 => $f6,
- "f6$f6" => $f6,
- f7 => $f7,
- "f7$f7" => $f7,
- f8 => $f8,
- "f8$f8" => $f8,
- f9 => $f9,
- "f9$f9" => $f9,
- f10 => $f10,
- "f10$f10" => $f10,
- f11 => $f11,
- "f11$f11" => $f11,
- f12 => $f12,
- "f12$f12" => $f12,
- f13 => $f13,
- "f13$f13" => $f13,
- f14 => $f14,
- "f14$f14" => $f14,
- f15 => $f15,
- "f15$f15" => $f15,
- f16 => $f16,
- "f16$f16" => $f16,
- f17 => $f17,
- "f17$f17" => $f17,
- f18 => $f18,
- "f18$f18" => $f18,
- f19 => $f19,
- "f19$f19" => $f19,
- f20 => $f20,
- "f20$f20" => $f20,
- f21 => $f21,
- "f21$f21" => $f21,
- f22 => $f22,
- "f22$f22" => $f22,
- );
- output_html_with_http_headers $input, $cookie, $template->output;
+ my ($input) = @_;
+ my $index = $input->param('index');
+ my $result = $input->param('result');
+
+ my $dbh = C4::Context->dbh;
+
+ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ { template_name => "cataloguing/value_builder/marc21_field_007.tt",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { editcatalogue => '*' },
+ debug => 1,
+ }
+ );
+ $result = "ta" unless $result;
+ my $f0 = substr( $result, 0, 1 );
+ my $f1 = substr( $result, 1, 1 );
+
+ #added new parameters to allow for all material types
+ my $f2 = substr( $result, 2, 1 );
+ my $f3 = substr( $result, 3, 1 );
+ my $f4 = substr( $result, 4, 1 );
+ my $f5 = substr( $result, 5, 1 );
+ my $f6 = substr( $result, 6, 1 );
+ my $f7 = substr( $result, 7, 1 );
+ my $f8 = substr( $result, 8, 1 );
+ my $f9 = substr( $result, 9, 1 );
+ my $f10 = substr( $result, 10, 1 );
+ my $f11 = substr( $result, 11, 1 );
+ my $f12 = substr( $result, 12, 1 );
+ my $f13 = substr( $result, 13, 1 );
+ my $f14 = substr( $result, 14, 1 );
+ my $f15 = substr( $result, 15, 1 );
+ my $f16 = substr( $result, 16, 1 );
+ my $f17 = substr( $result, 17, 1 );
+ my $f18 = substr( $result, 18, 1 );
+ my $f19 = substr( $result, 19, 1 );
+ my $f20 = substr( $result, 20, 1 );
+ my $f21 = substr( $result, 21, 1 );
+ my $f22 = substr( $result, 22, 1 );
+
+ #FIXME: There is probably a more-elegant way to do this!
+ #FIXME: Two of the material types treat position 06, 07, and 08 as a single
+ #three-char field. This script works fine for creating values and sending them
+ #back to the MARC, but if there is already a value in the 007, it won't send
+ #it properly to the value builder for those two instances. Not sure how to solve.
+ $template->param(
+ index => $index,
+ f0 => $f0,
+ "f0$f0" => $f0,
+ f1 => $f1,
+ "f1$f1" => $f1,
+ f2 => $f2,
+ "f2$f2" => $f2,
+ f3 => $f3,
+ "f3$f3" => $f3,
+ f4 => $f4,
+ "f4$f4" => $f4,
+ f5 => $f5,
+ "f5$f5" => $f5,
+ f6 => $f6,
+ "f6$f6" => $f6,
+ f7 => $f7,
+ "f7$f7" => $f7,
+ f8 => $f8,
+ "f8$f8" => $f8,
+ f9 => $f9,
+ "f9$f9" => $f9,
+ f10 => $f10,
+ "f10$f10" => $f10,
+ f11 => $f11,
+ "f11$f11" => $f11,
+ f12 => $f12,
+ "f12$f12" => $f12,
+ f13 => $f13,
+ "f13$f13" => $f13,
+ f14 => $f14,
+ "f14$f14" => $f14,
+ f15 => $f15,
+ "f15$f15" => $f15,
+ f16 => $f16,
+ "f16$f16" => $f16,
+ f17 => $f17,
+ "f17$f17" => $f17,
+ f18 => $f18,
+ "f18$f18" => $f18,
+ f19 => $f19,
+ "f19$f19" => $f19,
+ f20 => $f20,
+ "f20$f20" => $f20,
+ f21 => $f21,
+ "f21$f21" => $f21,
+ f22 => $f22,
+ "f22$f22" => $f22,
+ );
+ output_html_with_http_headers $input, $cookie, $template->output;
}
#!/usr/bin/perl
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
+
#use warnings; FIXME - Bug 2505
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Output;
sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= $field_number;
-my $res="
+ my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
+ my $function_name = $field_number;
+ my $res = "
<script type=\"text/javascript\">
//<![CDATA[
</script>
";
-return ($function_name,$res);
+ return ( $function_name, $res );
}
-sub plugin {
-my ($input) = @_;
- my $index= $input->param('index');
- my $result= $input->param('result');
+sub plugin {
+ my ($input) = @_;
+ my $index = $input->param('index');
+ my $result = $input->param('result');
- my $dbh = C4::Context->dbh;
+ my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "cataloguing/value_builder/marc21_leader.tt",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => '*'},
- debug => 1,
- });
- $result = " nam a22 7a 4500" unless $result;
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f7 = substr($result,7,1);
- my $f8 = substr($result,8,1);
- my $f17 = substr($result,17,1);
- my $f18 = substr($result,18,1);
- my $f19 = substr($result,19,1);
- my $f2023 = substr($result,20,4);
- $template->param(index => $index,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f17$f17" => 1,
- "f18$f18" => 1,
- "f19$f19" => 1,
- "f2023" => $f2023,
- );
- output_html_with_http_headers $input, $cookie, $template->output;
+ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ { template_name => "cataloguing/value_builder/marc21_leader.tt",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { editcatalogue => '*' },
+ debug => 1,
+ }
+ );
+ $result = " nam a22 7a 4500" unless $result;
+ my $f5 = substr( $result, 5, 1 );
+ my $f6 = substr( $result, 6, 1 );
+ my $f7 = substr( $result, 7, 1 );
+ my $f8 = substr( $result, 8, 1 );
+ my $f17 = substr( $result, 17, 1 );
+ my $f18 = substr( $result, 18, 1 );
+ my $f19 = substr( $result, 19, 1 );
+ my $f2023 = substr( $result, 20, 4 );
+ $template->param(
+ index => $index,
+ "f5$f5" => 1,
+ "f6$f6" => 1,
+ "f7$f7" => 1,
+ "f8$f8" => 1,
+ "f17$f17" => 1,
+ "f18$f18" => 1,
+ "f19$f19" => 1,
+ "f2023" => $f2023,
+ );
+ output_html_with_http_headers $input, $cookie, $template->output;
}
#!/usr/bin/perl
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
+
#use warnings; FIXME - Bug 2505
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Output;
sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= $field_number;
-my $res="
+ my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
+ my $function_name = $field_number;
+ my $res = "
<script type=\"text/javascript\">
//<![CDATA[
</script>
";
-return ($function_name,$res);
+ return ( $function_name, $res );
}
-sub plugin {
-my ($input) = @_;
- my $index= $input->param('index');
- my $result= $input->param('result');
+sub plugin {
+ my ($input) = @_;
+ my $index = $input->param('index');
+ my $result = $input->param('result');
- my $dbh = C4::Context->dbh;
+ my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "cataloguing/value_builder/marc21_leader_authorities.tt",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => '*'},
- debug => 1,
- });
- $result = " nz a22 n 4500" unless $result;
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f7 = substr($result,7,1);
- my $f8 = substr($result,8,1);
- my $f9 = substr($result,9,1);
- my $f17 = substr($result,17,1);
- my $f2023 = substr($result,20,4);
- $template->param(index => $index,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f17$f17" => 1,
- "f2023" => $f2023,
- );
- output_html_with_http_headers $input, $cookie, $template->output;
+ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ { template_name => "cataloguing/value_builder/marc21_leader_authorities.tt",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { editcatalogue => '*' },
+ debug => 1,
+ }
+ );
+ $result = " nz a22 n 4500" unless $result;
+ my $f5 = substr( $result, 5, 1 );
+ my $f6 = substr( $result, 6, 1 );
+ my $f7 = substr( $result, 7, 1 );
+ my $f8 = substr( $result, 8, 1 );
+ my $f9 = substr( $result, 9, 1 );
+ my $f17 = substr( $result, 17, 1 );
+ my $f2023 = substr( $result, 20, 4 );
+ $template->param(
+ index => $index,
+ "f5$f5" => 1,
+ "f6$f6" => 1,
+ "f7$f7" => 1,
+ "f8$f8" => 1,
+ "f9$f9" => 1,
+ "f17$f17" => 1,
+ "f2023" => $f2023,
+ );
+ output_html_with_http_headers $input, $cookie, $template->output;
}
#!/usr/bin/perl
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
+
#use warnings; FIXME - Bug 2505
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Output;
sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= $field_number;
-my $res="
+ my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
+ my $function_name = $field_number;
+ my $res = "
<script type=\"text/javascript\">
//<![CDATA[
</script>
";
-return ($function_name,$res);
+ return ( $function_name, $res );
}
-sub plugin {
-my ($input) = @_;
- my $index= $input->param('index');
- my $result= $input->param('result');
+sub plugin {
+ my ($input) = @_;
+ my $index = $input->param('index');
+ my $result = $input->param('result');
- my $dbh = C4::Context->dbh;
+ my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "cataloguing/value_builder/marc21_leader.tt",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => '*'},
- debug => 1,
- });
- $result = " nam 7a " unless $result;
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f7 = substr($result,7,1);
- my $f8 = substr($result,8,1);
- my $f9 = substr($result,9,1);
- my $f17 = substr($result,17,1);
- my $f18 = substr($result,18,1);
- my $f19 = substr($result,19,1);
+ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ { template_name => "cataloguing/value_builder/marc21_leader.tt",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { editcatalogue => '*' },
+ debug => 1,
+ }
+ );
+ $result = " nam 7a " unless $result;
+ my $f5 = substr( $result, 5, 1 );
+ my $f6 = substr( $result, 6, 1 );
+ my $f7 = substr( $result, 7, 1 );
+ my $f8 = substr( $result, 8, 1 );
+ my $f9 = substr( $result, 9, 1 );
+ my $f17 = substr( $result, 17, 1 );
+ my $f18 = substr( $result, 18, 1 );
+ my $f19 = substr( $result, 19, 1 );
- $template->param(index => $index,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f17$f17" => 1,
- "f18$f18" => 1,
- "f19$f19" => 1,
- );
- output_html_with_http_headers $input, $cookie, $template->output;
+ $template->param(
+ index => $index,
+ "f5$f5" => 1,
+ "f6$f6" => 1,
+ "f7$f7" => 1,
+ "f8$f8" => 1,
+ "f9$f9" => 1,
+ "f17$f17" => 1,
+ "f18$f18" => 1,
+ "f19$f19" => 1,
+ );
+ output_html_with_http_headers $input, $cookie, $template->output;
}
#!/usr/bin/perl
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
+
#use warnings; FIXME - Bug 2505
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Output;
sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= $field_number;
-my $res="
+ my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
+ my $function_name = $field_number;
+ my $res = "
<script type=\"text/javascript\">
//<![CDATA[
</script>
";
-return ($function_name,$res);
+ return ( $function_name, $res );
}
-sub plugin {
-my ($input) = @_;
- my $index= $input->param('index');
- my $result= $input->param('result');
+sub plugin {
+ my ($input) = @_;
+ my $index = $input->param('index');
+ my $result = $input->param('result');
- my $dbh = C4::Context->dbh;
+ my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "cataloguing/value_builder/marc21_leader_computerfile.tt",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => '*'},
- debug => 1,
- });
- $result = " nmm 7a " unless $result;
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f7 = substr($result,7,1);
- my $f8 = substr($result,8,1);
- my $f9 = substr($result,9,1);
- my $f17 = substr($result,17,1);
- my $f18 = substr($result,18,1);
- my $f19 = substr($result,19,1);
+ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ { template_name => "cataloguing/value_builder/marc21_leader_computerfile.tt",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { editcatalogue => '*' },
+ debug => 1,
+ }
+ );
+ $result = " nmm 7a " unless $result;
+ my $f5 = substr( $result, 5, 1 );
+ my $f6 = substr( $result, 6, 1 );
+ my $f7 = substr( $result, 7, 1 );
+ my $f8 = substr( $result, 8, 1 );
+ my $f9 = substr( $result, 9, 1 );
+ my $f17 = substr( $result, 17, 1 );
+ my $f18 = substr( $result, 18, 1 );
+ my $f19 = substr( $result, 19, 1 );
- $template->param(index => $index,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f17$f17" => 1,
- "f18$f18" => 1,
- "f19$f19" => 1,
- );
- output_html_with_http_headers $input, $cookie, $template->output;
+ $template->param(
+ index => $index,
+ "f5$f5" => 1,
+ "f6$f6" => 1,
+ "f7$f7" => 1,
+ "f8$f8" => 1,
+ "f9$f9" => 1,
+ "f17$f17" => 1,
+ "f18$f18" => 1,
+ "f19$f19" => 1,
+ );
+ output_html_with_http_headers $input, $cookie, $template->output;
}
#!/usr/bin/perl
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
+
#use warnings; FIXME - Bug 2505
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Output;
sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
-my $function_name= $field_number;
-my $res="
+ my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
+ my $function_name = $field_number;
+ my $res = "
<script type=\"text/javascript\">
//<![CDATA[
</script>
";
-return ($function_name,$res);
+ return ( $function_name, $res );
}
-sub plugin {
-my ($input) = @_;
- my $index= $input->param('index');
- my $result= $input->param('result');
+sub plugin {
+ my ($input) = @_;
+ my $index = $input->param('index');
+ my $result = $input->param('result');
- my $dbh = C4::Context->dbh;
+ my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "cataloguing/value_builder/marc21_leader.tt",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => '*'},
- debug => 1,
- });
- $result = " ngm 7a " unless $result;
- my $f5 = substr($result,5,1);
- my $f6 = substr($result,6,1);
- my $f7 = substr($result,7,1);
- my $f8 = substr($result,8,1);
- my $f9 = substr($result,9,1);
- my $f17 = substr($result,17,1);
- my $f18 = substr($result,18,1);
- my $f19 = substr($result,19,1);
+ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ { template_name => "cataloguing/value_builder/marc21_leader.tt",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { editcatalogue => '*' },
+ debug => 1,
+ }
+ );
+ $result = " ngm 7a " unless $result;
+ my $f5 = substr( $result, 5, 1 );
+ my $f6 = substr( $result, 6, 1 );
+ my $f7 = substr( $result, 7, 1 );
+ my $f8 = substr( $result, 8, 1 );
+ my $f9 = substr( $result, 9, 1 );
+ my $f17 = substr( $result, 17, 1 );
+ my $f18 = substr( $result, 18, 1 );
+ my $f19 = substr( $result, 19, 1 );
- $template->param(index => $index,
- "f5$f5" => 1,
- "f6$f6" => 1,
- "f7$f7" => 1,
- "f8$f8" => 1,
- "f9$f9" => 1,
- "f17$f17" => 1,
- "f18$f18" => 1,
- "f19$f19" => 1,
- );
- output_html_with_http_headers $input, $cookie, $template->output;
+ $template->param(
+ index => $index,
+ "f5$f5" => 1,
+ "f6$f6" => 1,
+ "f7$f7" => 1,
+ "f8$f8" => 1,
+ "f9$f9" => 1,
+ "f17$f17" => 1,
+ "f18$f18" => 1,
+ "f19$f19" => 1,
+ );
+ output_html_with_http_headers $input, $cookie, $template->output;
}
use C4::ItemType;
sub plugin_javascript {
- my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
- my $function_name = $field_number;
- my $res = "
+ my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
+ my $function_name = $field_number;
+ my $res = "
<script type='text/javascript'>
function Clic$function_name(i) {
defaultvalue=document.getElementById(\"$field_number\").value;
sub plugin {
my ($input) = @_;
my $dbh = C4::Context->dbh;
- my $query = new CGI;
- my $op = $query->param('op');
- my $type = $query->param('type');
- my $startfrom = $query->param('startfrom');
+ my $query = new CGI;
+ my $op = $query->param('op');
+ my $type = $query->param('type');
+ my $startfrom = $query->param('startfrom');
$startfrom = 0 if ( !defined $startfrom );
- my ( $template, $loggedinuser, $cookie );
- my $resultsperpage;
+ my ( $template, $loggedinuser, $cookie );
+ my $resultsperpage;
my $searchdesc;
- if ( $op eq "fillinput" ) {
- my $biblionumber = $query->param('biblionumber');
- my $index = $query->param('index');
- my $marcrecord;
-
- # open template
- ( $template, $loggedinuser, $cookie ) = get_template_and_user(
- {
- template_name =>
- "cataloguing/value_builder/marc21_linking_section.tt",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => { editcatalogue => '*' },
- debug => 1,
- }
- );
-
- #get marc record
- $marcrecord = GetMarcBiblio($biblionumber);
-
- my $subfield_value_9 = $biblionumber;
- my $subfield_value_0 = $biblionumber;
-
- #my $subfield_value_0;
- #$subfield_value_0 = $marcrecord->field('001')->data
- # if $marcrecord->field('001');
- my $subfield_value_w;
- if ( $marcrecord->field('001') ) {
- $subfield_value_w = $marcrecord->field('001')->data;
- }
- else {
- $subfield_value_w = $biblionumber;
- }
-
- my $subfield_value_a;
- my $subfield_value_c;
- my $subfield_value_d;
- my $subfield_value_e;
-
- my $subfield_value_h;
-
- my $subfield_value_i;
-
- my $subfield_value_p;
-
- my $subfield_value_t;
- if ( $marcrecord->field('245') ) {
- $subfield_value_t = $marcrecord->title();
- }
-
- my $subfield_value_u;
- my $subfield_value_v;
- my $subfield_value_x;
- my $subfield_value_y;
- my $subfield_value_z;
-
- $subfield_value_x = $marcrecord->field('022')->subfield("a")
- if ( $marcrecord->field('022') );
- $subfield_value_z = $marcrecord->field('020')->subfield("a")
- if ( $marcrecord->field('020') );
-
- # escape the 's
- $subfield_value_9 =~ s/'/\\'/g;
- $subfield_value_0 =~ s/'/\\'/g;
- $subfield_value_a =~ s/'/\\'/g;
- $subfield_value_c =~ s/'/\\'/g;
- $subfield_value_d =~ s/'/\\'/g;
- $subfield_value_e =~ s/'/\\'/g;
- $subfield_value_h =~ s/'/\\'/g;
- $subfield_value_i =~ s/'/\\'/g;
- $subfield_value_p =~ s/'/\\'/g;
- $subfield_value_t =~ s/'/\\'/g;
- $subfield_value_u =~ s/'/\\'/g;
- $subfield_value_v =~ s/'/\\'/g;
- $subfield_value_w =~ s/'/\\'/g;
- $subfield_value_x =~ s/'/\\'/g;
- $subfield_value_y =~ s/'/\\'/g;
- $subfield_value_z =~ s/'/\\'/g;
- $template->param(
- fillinput => 1,
- index => $query->param('index') . "",
- biblionumber => $biblionumber ? $biblionumber : "",
- subfield_value_9 => "$subfield_value_9",
- subfield_value_0 => "$subfield_value_0",
- subfield_value_a => "$subfield_value_a",
- subfield_value_c => "$subfield_value_c",
- subfield_value_d => "$subfield_value_d",
- subfield_value_e => "$subfield_value_e",
- subfield_value_h => "$subfield_value_h",
- subfield_value_i => "$subfield_value_i",
- subfield_value_p => "$subfield_value_p",
- subfield_value_t => "$subfield_value_t",
- subfield_value_u => "$subfield_value_u",
- subfield_value_v => "$subfield_value_v",
- subfield_value_w => "$subfield_value_w",
- subfield_value_x => "$subfield_value_x",
- subfield_value_y => "$subfield_value_y",
- subfield_value_z => "$subfield_value_z",
- );
+ if ( $op eq "fillinput" ) {
+ my $biblionumber = $query->param('biblionumber');
+ my $index = $query->param('index');
+ my $marcrecord;
+
+ # open template
+ ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ { template_name => "cataloguing/value_builder/marc21_linking_section.tt",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { editcatalogue => '*' },
+ debug => 1,
+ }
+ );
+
+ #get marc record
+ $marcrecord = GetMarcBiblio($biblionumber);
+
+ my $subfield_value_9 = $biblionumber;
+ my $subfield_value_0 = $biblionumber;
+
+ #my $subfield_value_0;
+ #$subfield_value_0 = $marcrecord->field('001')->data
+ # if $marcrecord->field('001');
+ my $subfield_value_w;
+ if ( $marcrecord->field('001') ) {
+ $subfield_value_w = $marcrecord->field('001')->data;
+ } else {
+ $subfield_value_w = $biblionumber;
+ }
+
+ my $subfield_value_a;
+ my $subfield_value_c;
+ my $subfield_value_d;
+ my $subfield_value_e;
+
+ my $subfield_value_h;
+
+ my $subfield_value_i;
+
+ my $subfield_value_p;
+
+ my $subfield_value_t;
+ if ( $marcrecord->field('245') ) {
+ $subfield_value_t = $marcrecord->title();
+ }
+
+ my $subfield_value_u;
+ my $subfield_value_v;
+ my $subfield_value_x;
+ my $subfield_value_y;
+ my $subfield_value_z;
+
+ $subfield_value_x = $marcrecord->field('022')->subfield("a")
+ if ( $marcrecord->field('022') );
+ $subfield_value_z = $marcrecord->field('020')->subfield("a")
+ if ( $marcrecord->field('020') );
+
+ # escape the 's
+ $subfield_value_9 =~ s/'/\\'/g;
+ $subfield_value_0 =~ s/'/\\'/g;
+ $subfield_value_a =~ s/'/\\'/g;
+ $subfield_value_c =~ s/'/\\'/g;
+ $subfield_value_d =~ s/'/\\'/g;
+ $subfield_value_e =~ s/'/\\'/g;
+ $subfield_value_h =~ s/'/\\'/g;
+ $subfield_value_i =~ s/'/\\'/g;
+ $subfield_value_p =~ s/'/\\'/g;
+ $subfield_value_t =~ s/'/\\'/g;
+ $subfield_value_u =~ s/'/\\'/g;
+ $subfield_value_v =~ s/'/\\'/g;
+ $subfield_value_w =~ s/'/\\'/g;
+ $subfield_value_x =~ s/'/\\'/g;
+ $subfield_value_y =~ s/'/\\'/g;
+ $subfield_value_z =~ s/'/\\'/g;
+ $template->param(
+ fillinput => 1,
+ index => $query->param('index') . "",
+ biblionumber => $biblionumber ? $biblionumber : "",
+ subfield_value_9 => "$subfield_value_9",
+ subfield_value_0 => "$subfield_value_0",
+ subfield_value_a => "$subfield_value_a",
+ subfield_value_c => "$subfield_value_c",
+ subfield_value_d => "$subfield_value_d",
+ subfield_value_e => "$subfield_value_e",
+ subfield_value_h => "$subfield_value_h",
+ subfield_value_i => "$subfield_value_i",
+ subfield_value_p => "$subfield_value_p",
+ subfield_value_t => "$subfield_value_t",
+ subfield_value_u => "$subfield_value_u",
+ subfield_value_v => "$subfield_value_v",
+ subfield_value_w => "$subfield_value_w",
+ subfield_value_x => "$subfield_value_x",
+ subfield_value_y => "$subfield_value_y",
+ subfield_value_z => "$subfield_value_z",
+ );
###############################################################
- }
- elsif ( $op eq "do_search" ) {
- my $search = $query->param('search');
- my $itype = $query->param('itype');
- my $startfrom = $query->param('startfrom');
- my $resultsperpage = $query->param('resultsperpage') || 20;
- my $orderby;
- my $QParser;
- $QParser = C4::Context->queryparser if (C4::Context->preference('UseQueryParser'));
- my $op;
- if ($QParser) {
- $op = '&&';
- } else {
- $op = 'and';
+ } elsif ( $op eq "do_search" ) {
+ my $search = $query->param('search');
+ my $itype = $query->param('itype');
+ my $startfrom = $query->param('startfrom');
+ my $resultsperpage = $query->param('resultsperpage') || 20;
+ my $orderby;
+ my $QParser;
+ $QParser = C4::Context->queryparser if ( C4::Context->preference('UseQueryParser') );
+ my $op;
+
+ if ($QParser) {
+ $op = '&&';
+ } else {
+ $op = 'and';
+ }
+ $search = 'kw:' . $search . " $op mc-itemtype:" . $itype if $itype;
+ my ( $errors, $results, $total_hits ) = SimpleSearch( $search, $startfrom * $resultsperpage, $resultsperpage );
+ if ( defined $errors ) {
+ $results = [];
+ }
+ my $total = @{$results};
+
+ # warn " biblio count : ".$total;
+
+ ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ { template_name => "cataloguing/value_builder/marc21_linking_section.tt",
+ query => $query,
+ type => 'intranet',
+ authnotrequired => 0,
+ debug => 1,
}
- $search = 'kw:' . $search . " $op mc-itemtype:" . $itype if $itype;
- my ( $errors, $results, $total_hits ) =
- SimpleSearch( $search, $startfrom * $resultsperpage,
- $resultsperpage );
- if ( defined $errors ) {
- $results = [];
- }
- my $total = @{$results};
-
- # warn " biblio count : ".$total;
-
- ( $template, $loggedinuser, $cookie ) = get_template_and_user(
- {
- template_name =>
- "cataloguing/value_builder/marc21_linking_section.tt",
- query => $query,
- type => 'intranet',
- authnotrequired => 0,
- debug => 1,
- }
- );
-
- # multi page display gestion
- my $displaynext = 0;
- my $displayprev = $startfrom;
-
- if ( ( $total_hits - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 )
- {
- $displaynext = 1;
- }
- my @arrayresults;
- my @field_data = ($search);
- for ( my $i = 0 ; $i < $resultsperpage ; $i++ ) {
- my $record = C4::Search::new_record_from_zebra( 'biblioserver', $results->[$i] );
- my $rechash = TransformMarcToKoha( $dbh, $record );
- my $pos;
- my $countitems = $rechash->{itembumber} ? 1 : 0;
- while ( index( $rechash->{itemnumber}, '|', $pos ) > 0 ) {
- $countitems += 1;
- $pos = index( $rechash->{itemnumber}, '|', $pos ) + 1;
- }
- $rechash->{totitem} = $countitems;
- my @holdingbranches = split /\|/, $rechash->{holdingbranch};
- my @itemcallnumbers = split /\|/, $rechash->{itemcallnumber};
- my $CN;
- for ( my $i = 0 ; $i < @holdingbranches ; $i++ ) {
- $CN .=
- $holdingbranches[$i] . " ( " . $itemcallnumbers[$i] . " ) |";
- }
- $CN =~ s/ \|$//;
- $rechash->{CN} = $CN;
- push @arrayresults, $rechash;
- }
-
- # for(my $i = 0 ; $i <= $#marclist ; $i++)
- # {
- # push @field_data, { term => "marclist", val=>$marclist[$i] };
- # push @field_data, { term => "and_or", val=>$and_or[$i] };
- # push @field_data, { term => "excluding", val=>$excluding[$i] };
- # push @field_data, { term => "operator", val=>$operator[$i] };
- # push @field_data, { term => "value", val=>$value[$i] };
- # }
-
- my @numbers = ();
-
- if ( $total > $resultsperpage ) {
- for ( my $i = 1 ; $i < $total / $resultsperpage + 1 ; $i++ ) {
- if ( $i < 16 ) {
- my $highlight = 0;
- ( $startfrom == ( $i - 1 ) ) && ( $highlight = 1 );
- push @numbers,
- {
- number => $i,
- highlight => $highlight,
- searchdata => \@field_data,
- startfrom => ( $i - 1 )
- };
- }
- }
- }
-
- my $from = $startfrom * $resultsperpage + 1;
- my $to;
-
- if ( $total_hits < $from + $resultsperpage ) {
- $to = $total_hits;
- }
- else {
- $to = $from + $resultsperpage;
- }
- my $defaultview =
- 'BiblioDefaultView' . C4::Context->preference('BiblioDefaultView');
-
-# my $link="/cgi-bin/koha/cataloguing/value_builder/unimarc4XX.pl?op=do_search&q=$search_desc&resultsperpage=$resultsperpage&startfrom=$startfrom&search=$search";
-# foreach my $sort (@sort_by){
-# $link.="&sort_by=".$sort."&";
-# }
-# $template->param(
-# pagination_bar => pagination_bar(
-# $link,
-# getnbpages($hits, $results_per_page),
-# $page,
-# 'page'
-# ),
-# );
- $template->param(
- result => \@arrayresults,
- index => $query->param('index') . "",
- startfrom => $startfrom,
- displaynext => $displaynext,
- displayprev => $displayprev,
- resultsperpage => $resultsperpage,
- orderby => $orderby,
- startfromnext => $startfrom + 1,
- startfromprev => $startfrom - 1,
- searchdata => \@field_data,
- total => $total_hits,
- from => $from,
- to => $to,
- numbers => \@numbers,
- search => $search,
- $defaultview => 1,
- Search => 0
- );
+ );
+
+ # multi page display gestion
+ my $displaynext = 0;
+ my $displayprev = $startfrom;
+
+ if ( ( $total_hits - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 ) {
+ $displaynext = 1;
+ }
+ my @arrayresults;
+ my @field_data = ($search);
+ for ( my $i = 0 ; $i < $resultsperpage ; $i++ ) {
+ my $record = C4::Search::new_record_from_zebra( 'biblioserver', $results->[$i] );
+ my $rechash = TransformMarcToKoha( $dbh, $record );
+ my $pos;
+ my $countitems = $rechash->{itembumber} ? 1 : 0;
+ while ( index( $rechash->{itemnumber}, '|', $pos ) > 0 ) {
+ $countitems += 1;
+ $pos = index( $rechash->{itemnumber}, '|', $pos ) + 1;
+ }
+ $rechash->{totitem} = $countitems;
+ my @holdingbranches = split /\|/, $rechash->{holdingbranch};
+ my @itemcallnumbers = split /\|/, $rechash->{itemcallnumber};
+ my $CN;
+ for ( my $i = 0 ; $i < @holdingbranches ; $i++ ) {
+ $CN .= $holdingbranches[$i] . " ( " . $itemcallnumbers[$i] . " ) |";
+ }
+ $CN =~ s/ \|$//;
+ $rechash->{CN} = $CN;
+ push @arrayresults, $rechash;
+ }
+
+ # for(my $i = 0 ; $i <= $#marclist ; $i++)
+ # {
+ # push @field_data, { term => "marclist", val=>$marclist[$i] };
+ # push @field_data, { term => "and_or", val=>$and_or[$i] };
+ # push @field_data, { term => "excluding", val=>$excluding[$i] };
+ # push @field_data, { term => "operator", val=>$operator[$i] };
+ # push @field_data, { term => "value", val=>$value[$i] };
+ # }
+
+ my @numbers = ();
+
+ if ( $total > $resultsperpage ) {
+ for ( my $i = 1 ; $i < $total / $resultsperpage + 1 ; $i++ ) {
+ if ( $i < 16 ) {
+ my $highlight = 0;
+ ( $startfrom == ( $i - 1 ) ) && ( $highlight = 1 );
+ push @numbers,
+ { number => $i,
+ highlight => $highlight,
+ searchdata => \@field_data,
+ startfrom => ( $i - 1 )
+ };
+ }
+ }
+ }
+
+ my $from = $startfrom * $resultsperpage + 1;
+ my $to;
+
+ if ( $total_hits < $from + $resultsperpage ) {
+ $to = $total_hits;
+ } else {
+ $to = $from + $resultsperpage;
+ }
+ my $defaultview = 'BiblioDefaultView' . C4::Context->preference('BiblioDefaultView');
+
+ # my $link="/cgi-bin/koha/cataloguing/value_builder/unimarc4XX.pl?op=do_search&q=$search_desc&resultsperpage=$resultsperpage&startfrom=$startfrom&search=$search";
+ # foreach my $sort (@sort_by){
+ # $link.="&sort_by=".$sort."&";
+ # }
+ # $template->param(
+ # pagination_bar => pagination_bar(
+ # $link,
+ # getnbpages($hits, $results_per_page),
+ # $page,
+ # 'page'
+ # ),
+ # );
+ $template->param(
+ result => \@arrayresults,
+ index => $query->param('index') . "",
+ startfrom => $startfrom,
+ displaynext => $displaynext,
+ displayprev => $displayprev,
+ resultsperpage => $resultsperpage,
+ orderby => $orderby,
+ startfromnext => $startfrom + 1,
+ startfromprev => $startfrom - 1,
+ searchdata => \@field_data,
+ total => $total_hits,
+ from => $from,
+ to => $to,
+ numbers => \@numbers,
+ search => $search,
+ $defaultview => 1,
+ Search => 0
+ );
+
+ } else {
+ ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ { template_name => "cataloguing/value_builder/marc21_linking_section.tt",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 0,
+ }
+ );
+
+ my @itemtypes = C4::ItemType->all;
+ $template->param(
+ itypeloop => \@itemtypes,
+ index => $query->param('index'),
+ Search => 1,
+ );
}
- else {
- ( $template, $loggedinuser, $cookie ) = get_template_and_user(
- {
- template_name =>
- "cataloguing/value_builder/marc21_linking_section.tt",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- }
- );
-
- my @itemtypes = C4::ItemType->all;
-
- $template->param(
- itypeloop => \@itemtypes,
- index => $query->param('index'),
- Search => 1,
- );
- }
- output_html_with_http_headers $query, $cookie, $template->output;
+ output_html_with_http_headers $query, $cookie, $template->output;
}