[Koha-cvs] CVS: koha/misc rebuildthesaurus.pl,1.1.2.1,1.1.2.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17524/misc

Modified Files:
      Tag: rel_2_0
	rebuildthesaurus.pl 
Log Message:
modifying rebuildthesaurus command line parameters : script more versatile.

Index: rebuildthesaurus.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/Attic/rebuildthesaurus.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** rebuildthesaurus.pl	20 Jan 2004 12:59:28 -0000	1.1.2.1
--- rebuildthesaurus.pl	26 Jan 2004 10:40:31 -0000	1.1.2.2
***************
*** 20,24 ****
      'd' => \$delete,
      't' => \$test_parameter,
-     'f:s' => \$field,
      's:s' => \$subfields,
      'v' => \$verbose,
--- 20,23 ----
***************
*** 34,43 ****
  \tv : verbose mode.
  \tt : test mode : parses the file, saying what he would do, but doing nothing.
- \tf : the field
  \ts : the subfields
  \d : delete every entry of the selected category before doing work.
  
! SAMPLE : ./bulkmarcimport.pl -c NP -f 700 -s "\$a, \$b (\$c ; \$d)" => will build authority file NP with value constructed with 700 field \$a, \$b, \$c & \$d subfields
! In UNIMARC this rebuild author authority file.
  EOF
  ;#
--- 33,42 ----
  \tv : verbose mode.
  \tt : test mode : parses the file, saying what he would do, but doing nothing.
  \ts : the subfields
  \d : delete every entry of the selected category before doing work.
  
! SAMPLES :
!  ./rebuildthesaurus.pl -c NP -s "##700#a, ##700#b (##700#c ; ##700#d)" => will build authority file NP with value constructed with 700 field \$a, \$b, \$c & \$d subfields In UNIMARC this rebuild author authority file.
!  ./rebuildthesaurus.pl -c EDITORS -s "##210#c -- ##225#a" => will build authority for editor and collection. The EDITORS authority category is used with plugins for 210 & 225 in UNIMARC.
  EOF
  ;#
***************
*** 63,70 ****
  	my $record = MARCgetbiblio($dbh,$bibid);
  #	warn $record->as_formatted;
! 	foreach my $fieldwanted ($record->field($field)) {
! 		my $resultstring = $subfields;
  		foreach my $pair ( $fieldwanted->subfields() ) {
! 			$resultstring =~ s/\$$pair->[0]/$pair->[1]/g;
  		}
  		# deals empty subfields
--- 62,72 ----
  	my $record = MARCgetbiblio($dbh,$bibid);
  #	warn $record->as_formatted;
! 	my $resultstring = $subfields;
! 	foreach my $fieldwanted ($record->fields) {
! 		next if $fieldwanted->tag()<=10;
  		foreach my $pair ( $fieldwanted->subfields() ) {
! 			my $fieldvalue = $fieldwanted->tag();
! #			warn "$fieldvalue ==> #$fieldvalue#$pair->[0]/$pair->[1]";
! 			$resultstring =~ s/##$fieldvalue##$pair->[0]/$pair->[1]/g;
  		}
  		# deals empty subfields
***************
*** 72,80 ****
  			$resultstring =~ s/\$$empty//g;
  		}
! 		warn "result : $resultstring" if $verbose;
  		&newauthority($dbh,$category,$resultstring);
  		$i++;
  	}
- 
  }
  my $timeneeded = gettimeofday - $starttime;
--- 74,82 ----
  			$resultstring =~ s/\$$empty//g;
  		}
! 		warn "RRR $resultstring";
! 		if ($resultstring ne $subfields && $resultstring &&
  		&newauthority($dbh,$category,$resultstring);
  		$i++;
  	}
  }
  my $timeneeded = gettimeofday - $starttime;