#!/usr/bin/perl

# This file is part of Koha.

#

# 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 Date::Calc;

use Koha::Util::FrameworkPlugin qw(wrapper);

use C4::Auth qw( get_template_and_user );

use CGI qw ( -utf8 );

use C4::Context;

use C4::Output qw( output_html_with_http_headers );

my $builder= sub {

    my $params = shift;

    my $id = $params->{id};

    return qq|

<script>

function Click$id(event) {

    var fieldvalue=\$('#'+event.data.id).val();

    window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_182-2.pl&index=\"+event.data.id+\"&result=\"+fieldvalue,\"tag_editor\",'width=700,height=700,toolbar=false,scrollbars=yes');

    return false; /* prevents scrolling */

}

</script>|;

};

my $launcher= sub {

    my $params = shift;

    my $cgi = $params->{cgi};

    my ( $template, $loggedinuser, $cookie ) = get_template_and_user({

        template_name => "cataloguing/value_builder/unimarc_field_182-2.tt",

        query => $cgi,

        type => "intranet",

        flagsrequired => {editcatalogue => '*'},

    });

    $template->param(

        index => scalar $cgi->param('index'),

        result => scalar $cgi->param('result'),

    );

    output_html_with_http_headers $cgi, $cookie, $template->output;

};

return { builder => $builder, launcher => $launcher };

#!/usr/bin/perl

# Copyright 2014 Rijksmuseum

#

# This file is part of Koha.

#

# 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 Date::Calc;

use Koha::Util::FrameworkPlugin qw(wrapper);

use C4::Auth qw( get_template_and_user );

use CGI qw ( -utf8 );

use C4::Context;

use C4::Output qw( output_html_with_http_headers );

my $builder= sub {

    my $params = shift;

    my $id = $params->{id};

    return qq|

<script>

function Click$id(event) {

    var fieldvalue=\$('#'+event.data.id).val();

    window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_182a.pl&index=\"+event.data.id+\"&result=\"+fieldvalue,\"tag_editor\",'width=700,height=700,toolbar=false,scrollbars=yes');

    return false; /* prevents scrolling */

}

</script>|;

};

my $launcher= sub {

    my $params = shift;

    my $cgi = $params->{cgi};

    my ( $template, $loggedinuser, $cookie ) = get_template_and_user({

        template_name => "cataloguing/value_builder/unimarc_field_182a.tt",

        query => $cgi,

        type => "intranet",

        flagsrequired => {editcatalogue => '*'},

    });

    my $results = scalar $cgi->param('result');

    $template->param(

        index => scalar $cgi->param('index'),

        result => $results,

    );

    # Return the result of the position in the string, ex: abcde = 1=a, 2=b, 3=c...

    my @x = split(//, $results);

    my $i = 1;

    for my $fresult (@x) { 

        $template->param("f$i" => $fresult);

        ++$i;

    }

    output_html_with_http_headers $cgi, $cookie, $template->output;

};

return { builder => $builder, launcher => $launcher };

#!/usr/bin/perl

# Copyright 2014 Rijksmuseum

#

# This file is part of Koha.

#

# 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 Date::Calc;

use Koha::Util::FrameworkPlugin qw(wrapper);

use C4::Auth qw( get_template_and_user );

use CGI qw ( -utf8 );

use C4::Context;

use C4::Output qw( output_html_with_http_headers );

my $builder= sub {

    my $params = shift;

    my $id = $params->{id};

    return qq|

<script>

function Click$id(event) {

    var fieldvalue=\$('#'+event.data.id).val();

    window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_182c.pl&index=\"+event.data.id+\"&result=\"+fieldvalue,\"tag_editor\",'width=700,height=700,toolbar=false,scrollbars=yes');

    return false; /* prevents scrolling */

}

</script>|;

};

my $launcher= sub {

    my $params = shift;

    my $cgi = $params->{cgi};

    my ( $template, $loggedinuser, $cookie ) = get_template_and_user({

        template_name => "cataloguing/value_builder/unimarc_field_182c.tt",

        query => $cgi,

        type => "intranet",

        flagsrequired => {editcatalogue => '*'},

    });

    my $results = scalar $cgi->param('result');

    my $input_a = substr $results, 0, 3;

    $template->param(

        index => scalar $cgi->param('index'),

        result => $results,

        f1 => $input_a,

    );

    output_html_with_http_headers $cgi, $cookie, $template->output;

};

return { builder => $builder, launcher => $launcher };

[% INCLUDE 'doc-head-open.inc' %]

<title>Framework plugin example &rsaquo; Cataloguing &rsaquo; Koha</title>

[% INCLUDE 'doc-head-close.inc' %]

</head>

<body id="cat_unimarc_field_182-2" class="cat" style="padding:1em;">

<h3>UNIMARC field 182-2 builder</h3>

<form name="f_pop" action="">

<table>

    <tr>

        <td><label for="f0">System code :</label></td>

        <td>

            <select name="f0" id="f0">

                [% IF ( f0 == "carr" ) %]

                    <option value="RDAcarrier" selected="selected">RDA Carrier</option>

                [% ELSE %]

                    <option value="RDAcarrier">RDA Carrier</option>

                [% END %]

                [% IF ( f0 == "cont" ) %]

                    <option value="RDAcontent" selected="selected">RDA Content</option>

                [% ELSE %]

                    <option value="RDAcontent">RDA Content</option>

                [% END %]

                [% IF ( f0 == "media" ) %]

                    <option value="RDAmedia" selected="selected">RDA Media</option>

                [% ELSE %]

                    <option value="RDAmedia">RDA Media</option>

                [% END %]

                [% IF ( f0 == "frcarr" ) %]

                    <option value="RDAfrCarrier" selected="selected">RDA fr Carrier</option>

                [% ELSE %]

                    <option value="RDAfrCarrier">RDA fr Carrier</option>

                [% END %]

            </select>

        </td>

    </tr>

</table>

<p><input type="button" value="OK"  onclick="submitMyForm();" /> <a href="#" class="cancel close">Cancel</a> </p>

</form>

<script>

    function submitMyForm() {

        var doc   = opener.document;

        var field = doc.getElementById("[% index | html %]");

        field.value = document.f_pop.f0.value;

        window.close();

        return false;

    }

</script>

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

[% INCLUDE 'doc-head-open.inc' %]

<title>Framework plugin example &rsaquo; Cataloguing &rsaquo; Koha</title>

[% INCLUDE 'doc-head-close.inc' %]

</head>

<body id="cat_unimarc_field_182a" class="cat" style="padding:1em;">

<h3>UNIMARC field 182a builder</h3>

<form name="f_pop" action="">

<table>

    <tr>

        <td><label for="f1">Media Type Code </label></td>

        <td>

            <select name="f1" id="f1">

            [% IF ( f1 == "a" ) %]

                <option value="a" selected="selected">a - audio</option>

            [% ELSE %]

                <option value="a">a - audio</option>

            [% END %]

            [% IF ( f1 == "b" ) %]

                <option value="b" selected="selected">b - electronic</option>

            [% ELSE %]

                <option value="b">b - electronic</option>

            [% END %]

            [% IF ( f1 == "c" ) %]

                <option value="c" selected="selected">c - microform</option>

            [% ELSE %]

                <option value="c">c - microform</option>

            [% END %]

            [% IF ( f1 == "d" ) %]

                <option value="d" selected="selected">d - microscopic</option>

            [% ELSE %]

                <option value="d">d - microscopic</option>

            [% END %]

            [% IF ( f1 == "e" ) %]

                <option value="e" selected="selected">e - projected</option>

            [% ELSE %]

                <option value="e">e - projected</option>

            [% END %]

            [% IF ( f1 == "f" ) %]

                <option value="f" selected="selected">f - stereographic</option>

            [% ELSE %]

                <option value="f">f - stereographic</option>

            [% END %]

            [% IF ( f1 == "g" ) %]

                <option value="g" selected="selected">g - video</option>

            [% ELSE %]

                <option value="g">g - video</option>

            [% END %]

            [% IF ( f1 == "m" ) %]

                <option value="m" selected="selected">m - multiple media</option>

            [% ELSE %]

                <option value="m">m - multiple media</option>

            [% END %]

            [% IF ( f1 == "n" ) %]

                <option value="n" selected="selected">n - unmediated</option>

            [% ELSE %]

                <option value="n">n - unmediated</option>

            [% END %]

            [% IF ( f1 == "z" ) %]

                <option value="z" selected="selected">z - other media</option>

            [% ELSE %]

                <option value="z">z - other media</option>

            [% END %]

            </select>

        </td>

    </tr>

</table>

<p><input type="button" value="OK"  onclick="submitMyForm();" /> <a href="#" class="cancel close">Cancel</a> </p>

</form>

<script>

    function submitMyForm() {

        var doc   = opener.document;

        var field = doc.getElementById("[% index | html %]");

        field.value = document.f_pop.f1.value;

        window.close();

        return false;

    }

</script>

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