[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.25,1.26

[Paul POULAIN]

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

Modified Files:
        addbiblio.pl 
Log Message:


Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -r1.25 -r1.26
*** addbiblio.pl        29 Apr 2003 16:48:35 -0000      1.25
--- addbiblio.pl        21 May 2003 14:35:36 -0000      1.26
***************
*** 34,38 ****
  use vars qw( $is_a_modif );
  
- 
  =item find_value
  
--- 34,37 ----
***************
*** 48,52 ****
  sub find_value {
        my ($tagfield,$insubfield,$record,$encoding) = @_;
-       warn "FIND_VALUE : $encoding /";
        my @result;
        my $indicator;
--- 47,50 ----
***************
*** 62,66 ****
                        foreach my $subfield (@subfields) {
                                if (@$subfield[0] eq $insubfield) {
-                                       warn "@$subfield[1]==> 
".char_decode(@$subfield[1],$encoding);
                                        push 
@result,char_decode(@$subfield[1],$encoding);
                                        $indicator = 
$field->indicator(1).$field->indicator(2);
--- 60,63 ----