4 # Copyright 2000-2002 Katipo Communications
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License along
18 # with Koha; if not, write to the Free Software Foundation, Inc.,
19 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22 #use warnings; FIXME - Bug 2505
29 use vars qw( $tagslib);
30 use vars qw( $authorised_values_sth);
31 use vars qw( $is_a_modif );
36 plugin_parameters : other parameters added when the plugin is called by the dopop function
40 sub plugin_parameters {
41 my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
45 sub plugin_javascript {
46 my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
47 my $function_name= "macles".(int(rand(100000))+1);
49 <script type=\"text/javascript\">
52 function Focus$function_name(subfield_managed) {
56 function Blur$function_name(subfield_managed) {
60 function Clic$function_name(i) {
61 newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=macles.pl&index=\"+i,\"MACLES\",',toolbar=false,scrollbars=yes');
68 return ($function_name,$res);
75 # my $input = new CGI;
76 my $index= $input->param('index');
79 my $dbh = C4::Context->dbh;
80 my $rq=$dbh->prepare("SELECT authorised_value, lib from authorised_values where category=\"MACLES\" order by authorised_value DESC");
85 my (%numbers,%cells,@colhdr,@rowhdr,@multiplelines,@lists,$table);
86 while (my $tab = $rq->fetchrow_hashref){
87 # if (! utf8::is_utf8($tab->{lib})) {
88 # utf8::decode($tab->{lib});
91 my $number=substr($tab->{authorised_value},0,1);
92 if ($tab->{authorised_value}=~/[0-9]XX/){
93 $numbers{$number}->{'hdr_tab'}=$tab->{lib};
94 $numbers{$number}->{'Table'}=($number=~/[1-7]/);
95 } elsif ($tab->{authorised_value}=~/.X./){
96 $tab->{authorised_value}=~s/X/\./;
98 unshift @{$numbers{$number}->{"col_hdr"}},{"colvalue"=>$tab->{authorised_value},"collib"=>$tab->{lib}};
99 } elsif ($tab->{authorised_value}=~/..X/){
100 $tab->{authorised_value}=~s/X/\./;
101 unshift @{$numbers{$number}->{"row_hdr"}},{"rowvalue"=>$tab->{authorised_value},"rowlib"=>$tab->{lib}}
102 } elsif ($tab->{'authorised_value'}=~/,/){
103 my @listval=split /,/,$tab->{'authorised_value'};
104 # $tab->{authorised_value}=~s/,/","/g;
105 # $tab->{authorised_value}="(".$tab->{authorised_value}.")";
107 foreach my $val (@listval){
108 unshift @{$numbers{$number}->{$val}},$tab->{'lib'};
109 my $mulrow=substr($val,0,2);
112 foreach my $mulrow (sort keys %mulrows){
113 unshift @{$numbers{$number}->{$mulrow}},{'listlib' => $tab->{'lib'},'listvalue' => $tab->{'authorised_value'}};
116 unshift @{$numbers{$number}->{$tab->{'authorised_value'}}},$tab->{'lib'};
118 # use Data::Dumper;warn "BIGLOOP IN".Dumper(@BIGLOOP);
120 foreach my $num (sort keys %numbers){
121 my @tmpcolhdr = @{$numbers{$num}->{'col_hdr'}} if ($numbers{$num}->{'col_hdr'});
122 my @tmprowhdr = @{$numbers{$num}->{"row_hdr"}} if ($numbers{$num}->{'row_hdr'});
126 foreach my $row (@tmprowhdr){
127 my $tmprowvalue=$row->{rowvalue};
128 my $rowcode=$1 if $tmprowvalue=~/[0-9]([0-9])\./;
130 if (scalar(@tmpcolhdr)>0){
131 #cas du tableau bidim
132 foreach my $col (@tmpcolhdr){
133 my $tmpcolvalue=$col->{colvalue};
134 my $colcode=$1 if $tmpcolvalue=~/[0-9]\.([0-9])/;
136 $cell{celvalue}=$num.$rowcode.$colcode;
137 $cell{rowvalue}=$tmprowvalue;
138 $cell{colvalue}=$tmpcolvalue;
139 if ($numbers{$num}->{$num.$rowcode.$colcode}){
140 foreach (@{$numbers{$num}->{$num.$rowcode.$colcode}}){
141 push @{$cell{libs}},{'lib'=>$_};
144 push @{$cell{libs}},{'lib'=>$num.$rowcode.$colcode};
148 if ($numbers{$num}->{$num.$rowcode}){
149 my @tmpliblist=@{$numbers{$num}->{$num.$rowcode}};
150 push @lists,{'lib'=>$row->{rowlib},'liblist'=>\@tmpliblist};
153 #Cas de la liste simple
154 foreach my $key (sort keys %{$numbers{$num}}){
156 if ($key=~/$num$rowcode[0-9]/){
157 $cell{celvalue}=$key;
158 foreach my $lib (@{$numbers{$num}->{$key}}){
159 push @{$cell{'libs'}},{'lib'=>$lib};
165 push @lines,{'cells'=>\@cells,'rowvalue'=>$row->{rowvalue},'rowlib'=>$row->{rowlib}};
167 $BIGLOOPcell{'Lists'}=\@lists if (scalar(@lists)>0);
168 $BIGLOOPcell{'lines'}=\@lines if (scalar(@lines)>0);
169 $BIGLOOPcell{'col_hdr'}=\@tmpcolhdr if (scalar(@tmpcolhdr)>0);
170 $BIGLOOPcell{'Table'}=$numbers{$num}->{'Table'};
171 $BIGLOOPcell{'hdr_tab'}=$numbers{$num}->{'hdr_tab'};
172 $BIGLOOPcell{'number'}=$num;
173 push @BIGLOOP,\%BIGLOOPcell;
175 # warn "BIGLOOP OUT".Dumper(@BIGLOOP);
176 my ($template, $loggedinuser, $cookie)
177 = get_template_and_user({template_name => "cataloguing/value_builder/macles.tmpl",
180 authnotrequired => 0,
181 flagsrequired => {editcatalogue => '*'},
184 $template->param(BIGLOOP=>\@BIGLOOP);
185 $template->param("index"=>$index);
186 output_html_with_http_headers $input, $cookie, $template->output;