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

(-)a/cataloguing/value_builder/marc21_leader_video.pl (-91 lines)
Lines 1-91 Link Here
1
#!/usr/bin/perl
2
3
# Converted to new plugin style (Bug 13437)
4
5
# Copyright 2000-2002 Katipo Communications
6
#
7
# This file is part of Koha.
8
#
9
# Koha is free software; you can redistribute it and/or modify it
10
# under the terms of the GNU General Public License as published by
11
# the Free Software Foundation; either version 3 of the License, or
12
# (at your option) any later version.
13
#
14
# Koha is distributed in the hope that it will be useful, but
15
# WITHOUT ANY WARRANTY; without even the implied warranty of
16
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17
# GNU General Public License for more details.
18
#
19
# You should have received a copy of the GNU General Public License
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
22
use Modern::Perl;
23
24
use C4::Auth;
25
use CGI qw ( -utf8 );
26
use C4::Context;
27
28
use C4::Search;
29
use C4::Output;
30
31
my $builder = sub {
32
    my ( $params ) = @_;
33
    my $function_name = $params->{id};
34
    my $res           = "
35
<script type=\"text/javascript\">
36
//<![CDATA[
37
38
function Click$function_name(event) {
39
    defaultvalue=document.getElementById(event.data.id).value;
40
    newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=marc21_leader.pl&index=\"+ event.data.id +\"&result=\"+defaultvalue,\"tag_editor\",'width=1000,height=600,toolbar=false,scrollbars=yes');
41
42
}
43
//]]>
44
</script>
45
";
46
47
    return $res;
48
};
49
50
my $launcher = sub {
51
    my ( $params ) = @_;
52
    my $input = $params->{cgi};
53
    my $index   = $input->param('index');
54
    my $result  = $input->param('result');
55
56
    my $dbh = C4::Context->dbh;
57
58
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
59
        {   template_name   => "cataloguing/value_builder/marc21_leader.tt",
60
            query           => $input,
61
            type            => "intranet",
62
            authnotrequired => 0,
63
            flagsrequired   => { editcatalogue => '*' },
64
            debug           => 1,
65
        }
66
    );
67
    $result = "     ngm         7a      " unless $result;
68
    my $f5  = substr( $result, 5,  1 );
69
    my $f6  = substr( $result, 6,  1 );
70
    my $f7  = substr( $result, 7,  1 );
71
    my $f8  = substr( $result, 8,  1 );
72
    my $f9  = substr( $result, 9,  1 );
73
    my $f17 = substr( $result, 17, 1 );
74
    my $f18 = substr( $result, 18, 1 );
75
    my $f19 = substr( $result, 19, 1 );
76
77
    $template->param(
78
        index     => $index,
79
        "f5$f5"   => 1,
80
        "f6$f6"   => 1,
81
        "f7$f7"   => 1,
82
        "f8$f8"   => 1,
83
        "f9$f9"   => 1,
84
        "f17$f17" => 1,
85
        "f18$f18" => 1,
86
        "f19$f19" => 1,
87
    );
88
    output_html_with_http_headers $input, $cookie, $template->output;
89
};
90
91
return { builder => $builder, launcher => $launcher };
(-)a/installer/data/mysql/atomicupdate/14201c_video.sql (-1 / +2 lines)
Line 0 Link Here
0
- 
1
-- move marc21_leader_video to marc21_leader
2
update marc_subfield_structure set value_builder='marc21_leader.pl' where value_builder='marc21_leader_video.pl';

Return to bug 14201