View | Details | Raw Unified | Return to bug 4518
Collapse All | Expand All

(-)a/misc/migration_tools/22_to_30/missing090field.pl (-1 / +3 lines)
Lines 21-27 use MARC::File::USMARC; Link Here
21
$|=1;
21
$|=1;
22
my $dbh = C4::Context->dbh;
22
my $dbh = C4::Context->dbh;
23
23
24
my $sth=$dbh->prepare("select m.biblionumber,b.biblioitemnumber from biblio m left join biblioitems b on b.biblionumber=m.biblionumber");
24
my $sth=$dbh->prepare("SELECT biblionumber, biblioitemnumber FROM biblioitems");
25
$sth->execute();
25
$sth->execute();
26
26
27
my $i=1;
27
my $i=1;
Lines 35-40 while (my ($biblionumber,$biblioitemnumber)=$sth->fetchrow ){ Link Here
35
sub MARCmodbiblionumber{
35
sub MARCmodbiblionumber{
36
    my ($biblionumber,$biblioitemnumber,$record)=@_;
36
    my ($biblionumber,$biblioitemnumber,$record)=@_;
37
    
37
    
38
    return unless $record;
39
38
    my ($tagfield,$biblionumtagsubfield) = &GetMarcFromKohaField("biblio.biblionumber","");
40
    my ($tagfield,$biblionumtagsubfield) = &GetMarcFromKohaField("biblio.biblionumber","");
39
    my ($tagfield2,$biblioitemtagsubfield) = &GetMarcFromKohaField("biblio.biblioitemnumber","");
41
    my ($tagfield2,$biblioitemtagsubfield) = &GetMarcFromKohaField("biblio.biblioitemnumber","");
40
        
42
        
(-)a/misc/migration_tools/22_to_30/move_marc_to_authheader.pl (-1 / +1 lines)
Lines 43-49 while ( my ( $authid,$authtypecode ) = $sth->fetchrow ) { Link Here
43
    $string=~s/\-//g;
43
    $string=~s/\-//g;
44
    $string = sprintf("%-*s",26, $string);
44
    $string = sprintf("%-*s",26, $string);
45
    substr($string,9,6,"frey50");
45
    substr($string,9,6,"frey50");
46
    unless ($record->subfield(100,"a")){
46
    unless ($record->subfield(100,"a") and length($record->subfield(100,"a")) == 26 ){
47
      $record->insert_fields_ordered(MARC::Field->new(100,"","","a"=>$string));
47
      $record->insert_fields_ordered(MARC::Field->new(100,"","","a"=>$string));
48
    }
48
    }
49
    if ($record->field(152)){
49
    if ($record->field(152)){
(-)a/misc/migration_tools/upgradeitems.pl (-3 / +21 lines)
Lines 13-18 if (C4::Context->preference("marcflavour") ne "UNIMARC") { Link Here
13
    exit;
13
    exit;
14
}
14
}
15
my $rqbiblios=$dbh->prepare("SELECT biblionumber from biblioitems");
15
my $rqbiblios=$dbh->prepare("SELECT biblionumber from biblioitems");
16
my $rqitemnumber=$dbh->prepare("SELECT itemnumber, biblionumber from items where itemnumber = ? and biblionumber = ?");
17
16
$rqbiblios->execute;
18
$rqbiblios->execute;
17
$|=1;
19
$|=1;
18
while (my ($biblionumber)= $rqbiblios->fetchrow_array){
20
while (my ($biblionumber)= $rqbiblios->fetchrow_array){
Lines 21-30 while (my ($biblionumber)= $rqbiblios->fetchrow_array){ Link Here
21
        my $marcitem=MARC::Record->new();
23
        my $marcitem=MARC::Record->new();
22
        $marcitem->encoding('UTF-8');
24
        $marcitem->encoding('UTF-8');
23
        $marcitem->append_fields($itemfield);    
25
        $marcitem->append_fields($itemfield);    
24
        eval{ModItemFromMarc($marcitem,$biblionumber,$itemfield->subfield('9'));};
26
27
	
28
	my $itemnum;
29
	my @itemnumbers = $itemfield->subfield('9');
30
        foreach my $itemnumber ( @itemnumbers ){
31
		$rqitemnumber->execute($itemnumber, $biblionumber);
32
		if( my $row = $rqitemnumber->fetchrow_hashref ){
33
			$itemnum = $row->{itemnumber};
34
		}
35
        }
36
37
        eval{
38
		if($itemnum){
39
			ModItemFromMarc($marcitem,$biblionumber,$itemnum)
40
		}else{
41
			die("$biblionumber");
42
		}
43
        };
25
        print "\r$biblionumber";
44
        print "\r$biblionumber";
26
       if ($@){
45
       if ($@){
27
            warn "$biblionumber : $@";
46
            warn "Problem with : $biblionumber : $@";
28
            warn $record->as_formatted;
47
            warn $record->as_formatted;
29
       }    
48
       }    
30
    }  
49
    }  
31
- 

Return to bug 4518