Attachment #125669 for bug #24698

View | Details | Raw Unified | Return to bug 24698
Collapse All | Expand All




#!/usr/bin/perl

# This file is part of Koha.
#
# Copyright (C) 2013 Vitor Fernandes , adapted for UNIMARC by George Veranis
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;


sub plugin_javascript {
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
    my $res           = "
        <script type='text/javascript'>
            function Clic$field_number(i) {
                var defaultvalue;
                try {
                    defaultvalue = document.getElementById(i).value;
                } catch(e) {
                    alert('error when getting '+i);
                    return;
                }
                window.open(\"/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=unimarc_leader_authorities.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc_field_000\",'width=1000,height=600,toolbar=false,scrollbars=yes');
            }
        </script>
";

    return ( $field_number, $res );
}


sub plugin {
    my ($input) = @_;
    my $index  = $input->param('index');
    my $result = $input->param('result');

    my $dbh = C4::Context->dbh;

    #my $defaultlanguage = C4::Context->preference("UNIMARCField100Language");
    # $defaultlanguage = "fre" if (!$defaultlanguage || length($defaultlanguage) != 3);

    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
        {
            template_name => "cataloguing/value_builder/unimarc_leader_authorities.tt",
            query         => $input,
            type          => "intranet",
            authnotrequired => 0,
            flagsrequired   => { editcatalogue => '*' },
            debug           => 1,
        }
    );
    $result = "     nz  a22     3  4500" unless $result;


    my $f5  = substr( $result, 5, 1 ); $f5  = wrapper( $f5 ) if $f5;
    my $f6  = substr( $result, 6, 1 ); $f6  = wrapper( $f6 ) if $f6;
    my $f9  = substr( $result, 9, 1 ); $f9  = wrapper( $f9 ) if $f9;
    my $f17  = substr( $result, 17, 1 ); $f17  = wrapper( $f17 ) if $f17;

    $template->param(
        index     => $index,
        "f5$f5"   => 1,
        "f6$f6"   => 1,
        "f9$f9"   => 1,
        "f17$f17"   => 1,
);
    output_html_with_http_headers $input, $cookie, $template->output;
}




[% INCLUDE 'doc-head-open.inc' %]
<title>UNIMARC leader builder</title>
[% INCLUDE 'doc-head-close.inc' %]
</head>
<body id="cat_unimarc_leader_authorities" class="cat" style="padding:1em;">
<h3>000 - Leader</h3>
<form name="f_pop" onsubmit="report()" action="">
<input name="plugin_name" value="unimarc_leader_authorities.pl" type="hidden">

<table>
	<tr>
		<td>1-4 Record length</td>
		<td>(auto-calculated)</td>
	</tr>
	<tr>
		<td><label for="f5">5- Record status</label></td>
		<td>
			<select name="f5" id="f5" size="1">
			[% IF ( f5c ) %]
				<option value="c" selected="selected">c - Corrected or revised</option>
			[% ELSE %]
				<option value="c">c - Corrected or revised</option>
			[% END %]
			[% IF ( f5d ) %]
				<option value="d" selected="selected">d - Deleted</option>
			[% ELSE %]
				<option value="d">d - Deleted</option>
			[% END %]
			[% IF ( f5n ) %]
				<option value="n" selected="selected">n - New</option>
			[% ELSE %]
				<option value="n">n - New</option>
			[% END %]
			</select>
		</td>
	</tr>
	<tr>
		<td><label for="f6">6- Type of record</label></td>
		<td>
			<select name="f6" id="f6" size="1">
			[% IF ( f6x ) %]
				<option value="x" selected="selected">x - Authority entry record</option>
			[% ELSE %]
				<option value="x">x - Authority entry record</option>
			[% END %]

			[% IF ( f6y ) %]
				<option value="y" selected="selected">y - Reference entry record</option>
			[% ELSE %]
				<option value="y">y - Reference entry record</option>
			[% END %]

			[% IF ( f6z ) %]
				<option value="z" selected="selected">z - General explanatory entry record</option>
			[% ELSE %]
				<option value="z">z - General explanatory entry record</option>
			[% END %]

			</select>
		</td>
	</tr>
	<tr>
		<td><label for="f7">7-8 Undefined</label></td>
		<td></td>
	</tr>

	<tr>
		<td><label for="f9">9- Type of entity</label></td>
		<td>
			<select name="f9" id="f9" size="1">
			[% IF ( f9 ) %]
				<option value=" " selected="selected"> - Series</option>
			[% ELSE %]
				<option value=" "> - Series</option>
			[% END %]

			[% IF ( f9a ) %]
				<option value="a" selected="selected">a - Personal name entry</option>
			[% ELSE %]
				<option value="a">a - Personal name entry</option>
			[% END %]

			[% IF ( f9b ) %]
				<option value="b" selected="selected">b - Corporate name entry</option>
			[% ELSE %]
				<option value="b">b - Corporate name entry</option>
			[% END %]

			[% IF ( f9c ) %]
				<option value="c" selected="selected">c - Territorial o geographical name</option>
			[% ELSE %]
				<option value="c">c - Territorial o geographical name</option>
			[% END %]

			[% IF ( f9d ) %]
				<option value="d" selected="selected">d - Trademark</option>
			[% ELSE %]
				<option value="d">d - Trademark</option>
			[% END %]

			[% IF ( f9e ) %]
				<option value="e" selected="selected">e - Family name</option>
			[% ELSE %]
				<option value="e">e - Family name</option>
			[% END %]

			[% IF ( f9f ) %]
				<option value="f" selected="selected">f - Uniform name</option>
			[% ELSE %]
				<option value="f">f - Uniform name</option>
			[% END %]

			[% IF ( f9g ) %]
				<option value="g" selected="selected">g - Collective uniform name</option>
			[% ELSE %]
				<option value="g">g - Collective uniform name</option>
			[% END %]

			[% IF ( f9h ) %]
				<option value="h" selected="selected">h - Name/title</option>
			[% ELSE %]
				<option value="h">h - Name/title</option>
			[% END %]

			[% IF ( f9i ) %]
				<option value="i" selected="selected">i - Name/collective uniform title</option>
			[% ELSE %]
				<option value="i">i - Name/collective uniform title</option>
			[% END %]

			[% IF ( f9j ) %]
				<option value="j" selected="selected">j - Topical subject</option>
			[% ELSE %]
				<option value="j">j - Topical subject</option>
			[% END %]

			[% IF ( f9k ) %]
				<option value="k" selected="selected">k - Place access</option>
			[% ELSE %]
				<option value="k">k - Place access</option>
			[% END %]

			[% IF ( f9l ) %]
				<option value="l" selected="selected">l - Form, genre or physical characteristics</option>
			[% ELSE %]
				<option value="l">l - Form, genre or physical characteristics</option>
			[% END %]

			</select>
		</td>
	</tr>
	<tr>
		 <td><label for="f10">10-16 indicator/subfields/size</label></td>
		<td>(auto-calculated)</td>
	</tr>

	<tr>
		<td><label for="f17">17- Encoding level</label></td>
		<td>
			<select name="f17" id="f17" size="1">
				[% IF ( f17space ) %]
					<option value=" " selected="selected"> - Full</option>
				[% ELSE %]
					<option value=" ">  - Full</option>
				[% END %]
				[% IF ( f183 ) %]
					<option value="3" selected="selected">3- Partial</option>
				[% ELSE %]
					<option value="3">3- Partial</option>
				[% END %]
			</select>
		</td>
	</tr>

	<tr>
	 <td>18-19 Undefined</td>
	 <td></td>
	</tr>

	<tr>
		<td>20-24 Entry map &amp; lengths</td>
		<td>(auto-filled)</td>
	</tr>
</table>
<fieldset class="action"><input type="submit" value="OK" onclick="report();" /> <a href="#" class="cancel close">Cancel</a></fieldset>
</form>
<script type="text/javascript">
//<![CDATA[
function report() {
	    var doc   = opener.document;
            var field = doc.getElementById("[% index %]");

            field.value ='     '+document.f_pop.f5.value+document.f_pop.f6.value+'  '+document.f_pop.f9.value+'22     '+document.f_pop.f17.value+'  '+'45  ';

			self.close();
			return false;
	}
//]]>
</script>

[% INCLUDE 'popup-bottom.inc' %]

Return to bug 24698

Line 0 Link Here

(-)a/cataloguing/value_builder/unimarc_leader_authorities.pl (+86 lines)
		1	#!/usr/bin/perl
		2
		3	# This file is part of Koha.
		4	#
		5	# Copyright (C) 2013 Vitor Fernandes , adapted for UNIMARC by George Veranis
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it
		8	# under the terms of the GNU General Public License as published by
		9	# the Free Software Foundation; either version 3 of the License, or
		10	# (at your option) any later version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but
		13	# WITHOUT ANY WARRANTY; without even the implied warranty of
		14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		15	# GNU General Public License for more details.
		16	#
		17	# You should have received a copy of the GNU General Public License
		18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		19
		20	use Modern::Perl;
		21
		22	use Koha::Util::FrameworkPlugin qw(wrapper);
		23	use C4::Auth;
		24	use CGI qw ( -utf8 );
		25	use C4::Context;
		26	use C4::Output;
		27
		28
		29	sub plugin_javascript {
		30	my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
		31	my $res = "
		32	<script type='text/javascript'>
		33	function Clic$field_number(i) {
		34	var defaultvalue;
		35	try {
		36	defaultvalue = document.getElementById(i).value;
		37	} catch(e) {
		38	alert('error when getting '+i);
		39	return;
		40	}
		41	window.open(\"/cgi-bin/koha/cataloguing/plugin_launcher.pl?plugin_name=unimarc_leader_authorities.pl&index=\"+i+\"&result=\"+defaultvalue,\"unimarc_field_000\",'width=1000,height=600,toolbar=false,scrollbars=yes');
		42	}
		43	</script>
		44	";
		45
		46	return ( $field_number, $res );
		47	}
		48
		49
		50	sub plugin {
		51	my ($input) = @_;
		52	my $index = $input->param('index');
		53	my $result = $input->param('result');
		54
		55	my $dbh = C4::Context->dbh;
		56
		57	#my $defaultlanguage = C4::Context->preference("UNIMARCField100Language");
		58	# $defaultlanguage = "fre" if (!$defaultlanguage \|\| length($defaultlanguage) != 3);
		59
		60	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
		61	{
		62	template_name => "cataloguing/value_builder/unimarc_leader_authorities.tt",
		63	query => $input,
		64	type => "intranet",
65	authnotrequired => 0,
66	flagsrequired => { editcatalogue => '*' },
67	debug => 1,
68	}
69	);
70	$result = " nz a22 3 4500" unless $result;
71
72
73	my $f5 = substr( $result, 5, 1 ); $f5 = wrapper( $f5 ) if $f5;
74	my $f6 = substr( $result, 6, 1 ); $f6 = wrapper( $f6 ) if $f6;
75	my $f9 = substr( $result, 9, 1 ); $f9 = wrapper( $f9 ) if $f9;
76	my $f17 = substr( $result, 17, 1 ); $f17 = wrapper( $f17 ) if $f17;
77
78	$template->param(
79	index => $index,
80	"f5$f5" => 1,
81	"f6$f6" => 1,
82	"f9$f9" => 1,
83	"f17$f17" => 1,
84	);
85	output_html_with_http_headers $input, $cookie, $template->output;
86	}

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/unimarc_leader_authorities.tt (-1 / +201 lines)
0	-	1	[% INCLUDE 'doc-head-open.inc' %]
		2	<title>UNIMARC leader builder</title>
		3	[% INCLUDE 'doc-head-close.inc' %]
		4	</head>
		5	<body id="cat_unimarc_leader_authorities" class="cat" style="padding:1em;">
		6	<h3>000 - Leader</h3>
		7	<form name="f_pop" onsubmit="report()" action="">
		8	<input name="plugin_name" value="unimarc_leader_authorities.pl" type="hidden">
		9
		10	<table>
		11	<tr>
		12	<td>1-4 Record length</td>
		13	<td>(auto-calculated)</td>
		14	</tr>
		15	<tr>
		16	<td><label for="f5">5- Record status</label></td>
		17	<td>
		18	<select name="f5" id="f5" size="1">
		19	[% IF ( f5c ) %]
		20	<option value="c" selected="selected">c - Corrected or revised</option>
		21	[% ELSE %]
		22	<option value="c">c - Corrected or revised</option>
		23	[% END %]
		24	[% IF ( f5d ) %]
		25	<option value="d" selected="selected">d - Deleted</option>
		26	[% ELSE %]
		27	<option value="d">d - Deleted</option>
		28	[% END %]
		29	[% IF ( f5n ) %]
		30	<option value="n" selected="selected">n - New</option>
		31	[% ELSE %]
		32	<option value="n">n - New</option>
		33	[% END %]
		34	</select>
		35	</td>
		36	</tr>
		37	<tr>
		38	<td><label for="f6">6- Type of record</label></td>
		39	<td>
		40	<select name="f6" id="f6" size="1">
		41	[% IF ( f6x ) %]
		42	<option value="x" selected="selected">x - Authority entry record</option>
		43	[% ELSE %]
		44	<option value="x">x - Authority entry record</option>
		45	[% END %]
		46
		47	[% IF ( f6y ) %]
		48	<option value="y" selected="selected">y - Reference entry record</option>
		49	[% ELSE %]
		50	<option value="y">y - Reference entry record</option>
		51	[% END %]
		52
		53	[% IF ( f6z ) %]
		54	<option value="z" selected="selected">z - General explanatory entry record</option>
		55	[% ELSE %]
		56	<option value="z">z - General explanatory entry record</option>
		57	[% END %]
		58
		59	</select>
		60	</td>
		61	</tr>
		62	<tr>
		63	<td><label for="f7">7-8 Undefined</label></td>
		64	<td></td>
		65	</tr>
66
67	<tr>
68	<td><label for="f9">9- Type of entity</label></td>
69	<td>
70	<select name="f9" id="f9" size="1">
71	[% IF ( f9 ) %]
72	<option value=" " selected="selected"> - Series</option>
73	[% ELSE %]
74	<option value=" "> - Series</option>
75	[% END %]
76
77	[% IF ( f9a ) %]
78	<option value="a" selected="selected">a - Personal name entry</option>
79	[% ELSE %]
80	<option value="a">a - Personal name entry</option>
81	[% END %]
82
83	[% IF ( f9b ) %]
84	<option value="b" selected="selected">b - Corporate name entry</option>
85	[% ELSE %]
86	<option value="b">b - Corporate name entry</option>
87	[% END %]
88
89	[% IF ( f9c ) %]
90	<option value="c" selected="selected">c - Territorial o geographical name</option>
91	[% ELSE %]
92	<option value="c">c - Territorial o geographical name</option>
93	[% END %]
94
95	[% IF ( f9d ) %]
96	<option value="d" selected="selected">d - Trademark</option>
97	[% ELSE %]
98	<option value="d">d - Trademark</option>
99	[% END %]
100
101	[% IF ( f9e ) %]
102	<option value="e" selected="selected">e - Family name</option>
103	[% ELSE %]
104	<option value="e">e - Family name</option>
105	[% END %]
106
107	[% IF ( f9f ) %]
108	<option value="f" selected="selected">f - Uniform name</option>
109	[% ELSE %]
110	<option value="f">f - Uniform name</option>
111	[% END %]
112
113	[% IF ( f9g ) %]
114	<option value="g" selected="selected">g - Collective uniform name</option>
115	[% ELSE %]
116	<option value="g">g - Collective uniform name</option>
117	[% END %]
118
119	[% IF ( f9h ) %]
120	<option value="h" selected="selected">h - Name/title</option>
121	[% ELSE %]
122	<option value="h">h - Name/title</option>
123	[% END %]
124
125	[% IF ( f9i ) %]
126	<option value="i" selected="selected">i - Name/collective uniform title</option>
127	[% ELSE %]
128	<option value="i">i - Name/collective uniform title</option>
129	[% END %]
130
131	[% IF ( f9j ) %]
132	<option value="j" selected="selected">j - Topical subject</option>
133	[% ELSE %]
134	<option value="j">j - Topical subject</option>
135	[% END %]
136
137	[% IF ( f9k ) %]
138	<option value="k" selected="selected">k - Place access</option>
139	[% ELSE %]
140	<option value="k">k - Place access</option>
141	[% END %]
142
143	[% IF ( f9l ) %]
144	<option value="l" selected="selected">l - Form, genre or physical characteristics</option>
145	[% ELSE %]
146	<option value="l">l - Form, genre or physical characteristics</option>
147	[% END %]
148
149	</select>
150	</td>
151	</tr>
152	<tr>
153	<td><label for="f10">10-16 indicator/subfields/size</label></td>
154	<td>(auto-calculated)</td>
155	</tr>
156
157	<tr>
158	<td><label for="f17">17- Encoding level</label></td>
159	<td>
160	<select name="f17" id="f17" size="1">
161	[% IF ( f17space ) %]
162	<option value=" " selected="selected"> - Full</option>
163	[% ELSE %]
164	<option value=" "> - Full</option>
165	[% END %]
166	[% IF ( f183 ) %]
167	<option value="3" selected="selected">3- Partial</option>
168	[% ELSE %]
169	<option value="3">3- Partial</option>
170	[% END %]
171	</select>
172	</td>
173	</tr>
174
175	<tr>
176	<td>18-19 Undefined</td>
177	<td></td>
178	</tr>
179
180	<tr>
181	<td>20-24 Entry map & lengths</td>
182	<td>(auto-filled)</td>
183	</tr>
184	</table>
185	<fieldset class="action"><input type="submit" value="OK" onclick="report();" /> <a href="#" class="cancel close">Cancel</a></fieldset>
186	</form>
187	<script type="text/javascript">
188	//<![CDATA[
189	function report() {
190	var doc = opener.document;
191	var field = doc.getElementById("[% index %]");
192
193	field.value =' '+document.f_pop.f5.value+document.f_pop.f6.value+' '+document.f_pop.f9.value+'22 '+document.f_pop.f17.value+' '+'45 ';
194
195	self.close();
196	return false;
197	}
198	//]]>
199	</script>
200
201	[% INCLUDE 'popup-bottom.inc' %]