[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.52,1.52.2.1

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2218/acqui.simple

Modified Files:
      Tag: rel_2_2
        addbiblio.pl 
Log Message:
Managing absolute url instead of relative ones, for plugins (for mod_perl 
compliance).
Note that the absolute url differs between developper & production servers.

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.52
retrieving revision 1.52.2.1
diff -C2 -r1.52 -r1.52.2.1
*** addbiblio.pl        23 Dec 2004 08:43:43 -0000      1.52
--- addbiblio.pl        3 Feb 2005 16:26:21 -0000       1.52.2.1
***************
*** 180,184 ****
        # it's a plugin field
        } elsif ($tagslib->{$tag}->{$subfield}->{'value_builder'}) {
!               my 
$plugin="../value_builder/".$tagslib->{$tag}->{$subfield}->{'value_builder'};
                require $plugin;
                my $extended_param = 
plugin_parameters($dbh,$rec,$tagslib,$i,$tabloop);
--- 180,190 ----
        # it's a plugin field
        } elsif ($tagslib->{$tag}->{$subfield}->{'value_builder'}) {
!               # opening plugin. Just check wether we are on a developper 
computer on a production one
!               # (the cgidir differs)
!               my $cgidir = C4::Context->intranetdir ."/cgi-bin";
!               unless (opendir(DIR, "$cgidir/value_builder")) {
!                       $cgidir = C4::Context->intranetdir."/value_builder";
!               } 
!               my 
$plugin=$cgidir."/".$tagslib->{$tag}->{$subfield}->{'value_builder'}; 
                require $plugin;
                my $extended_param = 
plugin_parameters($dbh,$rec,$tagslib,$i,$tabloop);