[Koha-cvs] koha/misc/migration_tools/unimarc rebuild_100.pl [rel_3_0]

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	paul poulain <tipaul>	06/10/11 15:23:22

Modified files:
	misc/migration_tools/unimarc: rebuild_100.pl 

Log message:
	- parsing biblionumber by biblionumber, not bibid
	- some fixes to handle when the field 100 exist but has to be updated

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/migration_tools/unimarc/rebuild_100.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.1&r2=1.1.2.2

Patches:
Index: rebuild_100.pl
===================================================================
RCS file: /sources/koha/koha/misc/migration_tools/unimarc/Attic/rebuild_100.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- rebuild_100.pl	10 Oct 2006 15:23:09 -0000	1.1.2.1
+++ rebuild_100.pl	11 Oct 2006 15:23:22 -0000	1.1.2.2
@@ -14,10 +14,10 @@
 
 my $dbh = C4::Context->dbh;
 
-my $sth=$dbh->prepare("select m.bibid,b.biblioitemnumber,b.timestamp from marc_biblio m left join biblioitems b on b.biblionumber=m.biblionumber ");
+my $sth=$dbh->prepare("select biblionumber,timestamp from biblioitems");
 	$sth->execute();
 
-while (my ($biblionumber,$biblioitemnumber,$time)=$sth->fetchrow ){
+while (my ($biblionumber,$time)=$sth->fetchrow ){
 #   my $record;
   my $record = MARCgetbiblio($dbh,$biblionumber);
 #print $record->as_marc;
@@ -25,30 +25,31 @@
 # 		
 }
 
-sub MARCmodrecord{
-my ($biblionumber,$record,$time)=@_;
-my $update=0;
-#warn "".$record->leader();
-#if (length($record->leader())>24){
-#	$record->leader(substr($record->leader,0,24));	
-#	$update =1;
-#} elsif (length($record->leader())<24){
+sub MARCmodrecord {
+    my ($biblionumber,$record,$time)=@_;
+#     warn "AVANT : ".$record->as_formatted;
+    my $update=0;
 	$record->leader('     nac  22     1u 4500');
  	$update=1;
-#}
-    my $string = POSIX::strftime("%Y%m%d", localtime);
+        my $string;
+        if ($record->subfield(100,"a")) {
+            $string = $record->subfield(100,"a");
+            my $f100 = $record->field(100);
+            $record->delete_field($f100);
+        } else {
+            $string = POSIX::strftime("%Y%m%d", localtime);
     $string=~s/\-//g;
      $string = sprintf("%-*s",35, $string);
+        }
      substr($string,22,6,"frey50");
      unless ($record->subfield(100,"a")){
        $record->insert_fields_ordered(MARC::Field->new(100,"","","a"=>$string));
      }
-  warn $record->as_formatted;
-# 
-# warn "leader : ".$record->leader if ($biblionumber==2262);
+#     warn "APRES : ".$record->as_formatted;
+    # delete all items related fields
  foreach ($record->field('995')) {
  	$record->delete_field($_);
-}
+    }
  if ($update){	
  	&MARCmodbiblio($dbh,$biblionumber,$record,'',0);
  	print "$biblionumber \n";