[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);