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

(-)a/admin/authtypes.pl (-4 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
# written 20/02/2002 by paul.poulain@free.fr
3
# written 20/02/2002 by paul.poulain@free.fr
4
# This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html)
5
4
6
# Copyright 2000-2002 Katipo Communications
5
# Copyright 2000-2002 Katipo Communications
7
#
6
#
Lines 20-27 Link Here
20
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
21
23
use strict;
22
use Modern::Perl;
24
use warnings;
25
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
26
use C4::Context;
24
use C4::Context;
27
use C4::Auth;
25
use C4::Auth;
Lines 59-65 my $dbh = C4::Context->dbh; Link Here
59
# called by default. Used to create form to add or  modify a record
57
# called by default. Used to create form to add or  modify a record
60
if ($op eq 'add_form') {
58
if ($op eq 'add_form') {
61
    #---- if primkey exists, it's a modify action, so read values to modify...
59
    #---- if primkey exists, it's a modify action, so read values to modify...
62
    if ($authtypecode) {
60
    if ( defined $authtypecode) {
63
        my $sth = $dbh->prepare("SELECT * FROM auth_types WHERE authtypecode=?");
61
        my $sth = $dbh->prepare("SELECT * FROM auth_types WHERE authtypecode=?");
64
        $sth->execute($authtypecode);
62
        $sth->execute($authtypecode);
65
        my $data = $sth->fetchrow_hashref();
63
        my $data = $sth->fetchrow_hashref();
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/authtypes.tt (-6 / +5 lines)
Lines 1-7 Link Here
1
[% INCLUDE 'doc-head-open.inc' %]
1
[% INCLUDE 'doc-head-open.inc' %]
2
<title>Koha &rsaquo; Administration &rsaquo; Authority types
2
<title>Koha &rsaquo; Administration &rsaquo; Authority types
3
[% IF ( add_form ) %]
3
[% IF ( add_form ) %]
4
&rsaquo; [% IF ( authtypecode ) %]Modify authority type[% ELSE %]New authority type[% END %]
4
&rsaquo; [% IF authtypecode.defined %]Modify authority type[% ELSE %]New authority type[% END %]
5
[% ELSIF ( delete_confirm ) %]
5
[% ELSIF ( delete_confirm ) %]
6
&rsaquo; Confirm deletion of authority type
6
&rsaquo; Confirm deletion of authority type
7
[% END %]
7
[% END %]
Lines 18-24 Link Here
18
&rsaquo; <a href="/cgi-bin/koha/admin/admin-home.pl">Administration</a>
18
&rsaquo; <a href="/cgi-bin/koha/admin/admin-home.pl">Administration</a>
19
&rsaquo; <a href="[% script_name %]">Authority types</a>
19
&rsaquo; <a href="[% script_name %]">Authority types</a>
20
[% IF ( add_form ) %]
20
[% IF ( add_form ) %]
21
&rsaquo; [% IF ( authtypecode ) %]Modify[% ELSE %]New[% END %] Authority type
21
&rsaquo; [% IF authtypecode.defined %]Modify[% ELSE %]New[% END %] Authority type
22
[% ELSIF ( delete_confirm ) %]
22
[% ELSIF ( delete_confirm ) %]
23
&rsaquo; Confirm deletion of authority type
23
&rsaquo; Confirm deletion of authority type
24
[% END %]
24
[% END %]
Lines 34-40 Link Here
34
    <form action="[% script_name %]" name="Aform" method="post" class="validated">
34
    <form action="[% script_name %]" name="Aform" method="post" class="validated">
35
    <fieldset class="rows">
35
    <fieldset class="rows">
36
    <legend>
36
    <legend>
37
    [% IF ( authtypecode ) %]
37
    [% IF authtypecode.defined %]
38
        Modify authority type
38
        Modify authority type
39
	[% ELSE %]
39
	[% ELSE %]
40
        New authority type
40
        New authority type
Lines 42-48 Link Here
42
    </legend>
42
    </legend>
43
    <ol>
43
    <ol>
44
        <li>
44
        <li>
45
    [% IF ( authtypecode ) %]
45
    [% IF authtypecode.defined %]
46
            <span class="label">Authority type</span>
46
            <span class="label">Authority type</span>
47
            <input type="hidden" name="op" value="add_validate" />
47
            <input type="hidden" name="op" value="add_validate" />
48
            <input type="hidden" name="checked" value="0" />
48
            <input type="hidden" name="checked" value="0" />
Lines 62-68 Link Here
62
		<p class="tip">Note: for 'Authority field to copy', enter the authority field that should be copied from the authority record to the bibliographic record. E.g., in MARC21, field 100 in the authority record should be copied to field 100 in the bibliographic record</p>
62
		<p class="tip">Note: for 'Authority field to copy', enter the authority field that should be copied from the authority record to the bibliographic record. E.g., in MARC21, field 100 in the authority record should be copied to field 100 in the bibliographic record</p>
63
		<label for="auth_tag_to_report">Authority field to copy: </label><input type="text" id="auth_tag_to_report" name="auth_tag_to_report" size="5" maxlength="3" value="[% auth_tag_to_report %]" />
63
		<label for="auth_tag_to_report">Authority field to copy: </label><input type="text" id="auth_tag_to_report" name="auth_tag_to_report" size="5" maxlength="3" value="[% auth_tag_to_report %]" />
64
		<input type="hidden" name="op" value="add_validate" />
64
		<input type="hidden" name="op" value="add_validate" />
65
        [% IF ( authtypecode ) %]
65
        [% IF authtypecode.defined %]
66
        <input type="hidden" name="modif" value="1" />
66
        <input type="hidden" name="modif" value="1" />
67
        [% END %]
67
        [% END %]
68
        </li>
68
        </li>
69
- 

Return to bug 10947