[Koha-cvs] koha/cataloguing/value_builder macles.pl

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/07/10 08:48:54

Added files:
        cataloguing/value_builder: macles.pl 

Log message:
        Adding macle_plugin for FRANTIQ

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/value_builder/macles.pl?cvsroot=koha&rev=1.1

Patches:
Index: macles.pl
===================================================================
RCS file: macles.pl
diff -N macles.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ macles.pl   10 Jul 2007 08:48:54 -0000      1.1
@@ -0,0 +1,186 @@
+#!/usr/bin/perl 
+
+# $Id: macles.pl,v 1.1 2007/07/10 08:48:54 hdl Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# 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 2 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, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
+
+use strict;
+use CGI;
+use C4::Context;
+use C4::Output;
+use C4::Auth;
+
+# use Data::Dumper;
+use vars qw( $tagslib);
+use vars qw( $authorised_values_sth);
+use vars qw( $is_a_modif );
+use utf8;
+
+=head1
+
+plugin_parameters : other parameters added when the plugin is called by the 
dopop function
+
+=cut
+sub plugin_parameters {
+my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
+return "";
+}
+
+sub plugin_javascript {
+my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
+my $function_name= "macles".(int(rand(100000))+1);
+my $res="
+<script>
+function Focus$function_name(subfield_managed) {
+return 1;
+}
+
+function Blur$function_name(subfield_managed) {
+       return 1;
+}
+
+function Clic$function_name(i) {
+       
newin=window.open(\"plugin_launcher.pl?plugin_name=macles.pl&index=\"+i,\"MACLES\",',toolbar=false,scrollbars=yes');
+
+}
+</script>
+";
+
+return ($function_name,$res);
+}
+
+sub plugin {
+my ($input) = @_;
+       my %env;
+
+#      my $input = new CGI;
+       my $index= $input->param('index');
+
+
+       my $dbh = C4::Context->dbh;
+    my $rq=$dbh->prepare("SELECT authorised_value, lib from authorised_values 
where category=\"MACLES\" order by authorised_value DESC");
+    #tabs
+    $rq->execute;
+    my @BIGLOOP;
+    my @innerloop;
+    my (%numbers,%cells,@colhdr,@rowhdr,@multiplelines,@lists,$table);
+    while (my $tab = $rq->fetchrow_hashref){
+#       if (! utf8::is_utf8($tab->{lib})) {
+#         utf8::decode($tab->{lib});
+#       }
+#       warn $tab->{lib};
+      my $number=substr($tab->{authorised_value},0,1);
+      if ($tab->{authorised_value}=~/[0-9]XX/){
+        $numbers{$number}->{'hdr_tab'}=$tab->{lib};
+        $numbers{$number}->{'Table'}=($number=~/[1-7]/);
+      } elsif ($tab->{authorised_value}=~/.X./){
+        $tab->{authorised_value}=~s/X/\./;
+        $table=1;
+        unshift 
@{$numbers{$number}->{"col_hdr"}},{"colvalue"=>$tab->{authorised_value},"collib"=>$tab->{lib}};
+      } elsif ($tab->{authorised_value}=~/..X/){
+        $tab->{authorised_value}=~s/X/\./;
+        unshift 
@{$numbers{$number}->{"row_hdr"}},{"rowvalue"=>$tab->{authorised_value},"rowlib"=>$tab->{lib}}
+      } elsif ($tab->{'authorised_value'}=~/,/){
+        my @listval=split /,/,$tab->{'authorised_value'};
+#          $tab->{authorised_value}=~s/,/","/g;
+#         $tab->{authorised_value}="(".$tab->{authorised_value}.")";
+        my %mulrows;
+        foreach my $val (@listval){
+          unshift @{$numbers{$number}->{$val}},$tab->{'lib'};
+          my $mulrow=substr($val,0,2);
+          $mulrows{$mulrow}=1;
+        }
+        foreach my $mulrow (sort keys %mulrows){
+          unshift @{$numbers{$number}->{$mulrow}},{'listlib' => 
$tab->{'lib'},'listvalue' => $tab->{'authorised_value'}};
+        }
+      } else {
+        unshift 
@{$numbers{$number}->{$tab->{'authorised_value'}}},$tab->{'lib'};
+      }
+#        use Data::Dumper;warn "BIGLOOP IN".Dumper(@BIGLOOP);
+    }
+    foreach my $num (sort keys %numbers){
+      my @tmpcolhdr = @{$numbers{$num}->{'col_hdr'}} if 
($numbers{$num}->{'col_hdr'});
+      my @tmprowhdr = @{$numbers{$num}->{"row_hdr"}} if 
($numbers{$num}->{'row_hdr'});
+      my @lines;
+      my @lists;
+      my %BIGLOOPcell;
+      foreach my $row (@tmprowhdr){
+        my $tmprowvalue=$row->{rowvalue};
+        my $rowcode=$1 if $tmprowvalue=~/[0-9]([0-9])\./;
+        my @cells;
+        if (scalar(@tmpcolhdr)>0){
+        #cas du tableau bidim
+          foreach my $col (@tmpcolhdr){
+            my $tmpcolvalue=$col->{colvalue};
+            my $colcode=$1 if $tmpcolvalue=~/[0-9]\.([0-9])/;
+            my %cell;
+            $cell{celvalue}=$num.$rowcode.$colcode;
+            $cell{rowvalue}=$tmprowvalue;
+            $cell{colvalue}=$tmpcolvalue;
+            if ($numbers{$num}->{$num.$rowcode.$colcode}){
+              foreach (@{$numbers{$num}->{$num.$rowcode.$colcode}}){
+                push @{$cell{libs}},{'lib'=>$_};
+              }
+            }else {
+              push @{$cell{libs}},{'lib'=>$num.$rowcode.$colcode};
+            }
+            push @cells,\%cell;
+          }
+          if ($numbers{$num}->{$num.$rowcode}){
+            my @address@hidden>{$num.$rowcode}};
+            push @lists,{'lib'=>$row->{rowlib},'liblist'=>address@hidden;
+          }
+        } else {
+        #Cas de la liste simple
+          foreach my $key (sort keys %{$numbers{$num}}){
+            my %cell;
+            if ($key=~/$num$rowcode[0-9]/){
+              $cell{celvalue}=$key;
+              foreach my $lib (@{$numbers{$num}->{$key}}){
+                push @{$cell{'libs'}},{'lib'=>$lib};
+              }
+              push @cells,\%cell;
+            }
+          }
+        }
+        push 
@lines,{'cells'=>address@hidden,'rowvalue'=>$row->{rowvalue},'rowlib'=>$row->{rowlib}};
+      }
+      $BIGLOOPcell{'Lists'address@hidden if (scalar(@lists)>0);
+      $BIGLOOPcell{'lines'address@hidden if (scalar(@lines)>0);
+      $BIGLOOPcell{'col_hdr'address@hidden if (scalar(@tmpcolhdr)>0);
+      $BIGLOOPcell{'Table'}=$numbers{$num}->{'Table'};
+      $BIGLOOPcell{'hdr_tab'}=$numbers{$num}->{'hdr_tab'};
+      $BIGLOOPcell{'number'}=$num;
+      push @BIGLOOP,\%BIGLOOPcell;
+    }
+#     warn "BIGLOOP OUT".Dumper(@BIGLOOP);
+    my ($template, $loggedinuser, $cookie)
+        = get_template_and_user({template_name => 
"cataloguing/value_builder/macles.tmpl",
+                    query => $input,
+                    type => "intranet",
+                    authnotrequired => 0,
+                    flagsrequired => {editcatalogue => 1},
+                    debug => 1,
+                    });
+    $template->param(BIGLOOP=>address@hidden);
+       $template->param("index"=>$index);
+       output_html_with_http_headers $input, $cookie, $template->output;
+}
+1;
+
+