"Fossies" - the Fresh Open Source Software Archive

Member "koha-19.11.15/cataloguing/value_builder/marc21_leader_authorities.pl" (23 Feb 2021, 2830 Bytes) of package /linux/misc/koha-19.11.15.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "marc21_leader_authorities.pl" see the Fossies "Dox" file reference documentation and the last Fossies "Diffs" side-by-side code changes report: 20.05.06_vs_20.11.00.

    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 Focus$function_name(event) {
   39     if(!document.getElementById(event.data.id).value){
   40         document.getElementById(event.data.id).value = '     nz  a22     n  4500';
   41     }
   42     return 1;
   43 }
   44 
   45 function Click$function_name(event) {
   46     defaultvalue=document.getElementById(event.data.id).value;
   47     newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=marc21_leader_authorities.pl&index=\"+ event.data.id +\"&result=\"+defaultvalue,\"tag_editor\",'width=1000,height=600,toolbar=false,scrollbars=yes');
   48 
   49 }
   50 //]]>
   51 </script>
   52 ";
   53 
   54     return $res;
   55 };
   56 
   57 my $launcher = sub {
   58     my ( $params ) = @_;
   59     my $input = $params->{cgi};
   60     my $index   = $input->param('index');
   61     my $result  = $input->param('result');
   62 
   63     my $dbh = C4::Context->dbh;
   64 
   65     my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
   66         {   template_name   => "cataloguing/value_builder/marc21_leader_authorities.tt",
   67             query           => $input,
   68             type            => "intranet",
   69             flagsrequired   => { editcatalogue => '*' },
   70             debug           => 1,
   71         }
   72     );
   73     $result = "     nz  a22     n  4500" unless $result;
   74     my $f5    = substr( $result, 5,  1 );
   75     my $f6    = substr( $result, 6,  1 );
   76     my $f7    = substr( $result, 7,  1 );
   77     my $f8    = substr( $result, 8,  1 );
   78     my $f9    = substr( $result, 9,  1 );
   79     my $f17   = substr( $result, 17, 1 );
   80     my $f2023 = substr( $result, 20, 4 );
   81     $template->param(
   82         index     => $index,
   83         "f5$f5"   => 1,
   84         "f6$f6"   => 1,
   85         "f7$f7"   => 1,
   86         "f8$f8"   => 1,
   87         "f9$f9"   => 1,
   88         "f17$f17" => 1,
   89         "f2023"   => $f2023,
   90     );
   91     output_html_with_http_headers $input, $cookie, $template->output;
   92 };
   93 
   94 return { builder => $builder, launcher => $launcher };