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

(-)a/cataloguing/addbiblio.pl (-1 / +9 lines)
Lines 853-859 if ( $op eq "addbiblio" ) { Link Here
853
        } 
853
        } 
854
        if ( $is_a_modif ) {
854
        if ( $is_a_modif ) {
855
            ModBiblioframework( $biblionumber, $frameworkcode ); 
855
            ModBiblioframework( $biblionumber, $frameworkcode ); 
856
            ModBiblio( $record, $biblionumber, $frameworkcode );
856
            my ($member) = C4::Members::GetMember('borrowernumber' => $loggedinuser);
857
            ModBiblio( $record, $biblionumber, $frameworkcode,
858
                {
859
                    source => $z3950 ? 'z39.50' : 'intranet',
860
                    category => $member->{'category_type'},
861
                    borrower => $loggedinuser
862
                }
863
            );
857
        }
864
        }
858
        else {
865
        else {
859
            ( $biblionumber, $oldbibitemnum ) = AddBiblio( $record, $frameworkcode );
866
            ( $biblionumber, $oldbibitemnum ) = AddBiblio( $record, $frameworkcode );
Lines 946-951 elsif ( $op eq "delete" ) { Link Here
946
    $template->param(
953
    $template->param(
947
        biblionumberdata => $biblionumber,
954
        biblionumberdata => $biblionumber,
948
        op               => $op,
955
        op               => $op,
956
        z3950            => $z3950
949
    );
957
    );
950
    if ( $op eq "duplicate" ) {
958
    if ( $op eq "duplicate" ) {
951
        $biblionumber = "";
959
        $biblionumber = "";
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbiblio.tt (+1 lines)
Lines 505-510 function Changefwk(FwkList) { Link Here
505
        <input type="hidden" name="mode" value="popup" />
505
        <input type="hidden" name="mode" value="popup" />
506
[% END %]
506
[% END %]
507
        <input type="hidden" name="op" value="addbiblio" />
507
        <input type="hidden" name="op" value="addbiblio" />
508
        <input type="hidden" name="z3950" value="[% z3950 %]" />
508
        <input type="hidden" name="frameworkcode" value="[% frameworkcode %]" />
509
        <input type="hidden" name="frameworkcode" value="[% frameworkcode %]" />
509
        <input type="hidden" name="biblionumber" value="[% biblionumber %]" />
510
        <input type="hidden" name="biblionumber" value="[% biblionumber %]" />
510
        <input type="hidden" name="breedingid" value="[% breedingid %]" />
511
        <input type="hidden" name="breedingid" value="[% breedingid %]" />
(-)a/misc/migration_tools/bulkmarcimport.pl (-1 / +2 lines)
Lines 403-409 RECORD: while ( ) { Link Here
403
            if ($biblionumber) {
403
            if ($biblionumber) {
404
                eval{$biblioitemnumber=GetBiblioData($biblionumber)->{biblioitemnumber};};
404
                eval{$biblioitemnumber=GetBiblioData($biblionumber)->{biblioitemnumber};};
405
                if ($update) {
405
                if ($update) {
406
                    eval { ( $biblionumber, $biblioitemnumber ) = ModBiblio( $record, $biblionumber, GetFrameworkCode($biblionumber) ) };
406
                    eval { ( $biblionumber, $biblioitemnumber ) = ModBiblio( $record, $biblionumber, GetFrameworkCode($biblionumber),
407
                            { source => 'bulkmarcimport' }) };
407
                    if ($@) {
408
                    if ($@) {
408
                        warn "ERROR: Edit biblio $biblionumber failed: $@\n";
409
                        warn "ERROR: Edit biblio $biblionumber failed: $@\n";
409
                        printlog( { id => $id || $originalid || $biblionumber, op => "update", status => "ERROR" } ) if ($logfile);
410
                        printlog( { id => $id || $originalid || $biblionumber, op => "update", status => "ERROR" } ) if ($logfile);
(-)a/misc/migration_tools/import_lexile.pl (-1 / +1 lines)
Lines 200-206 while ( my $row = $csv->getline_hr($fh) ) { Link Here
200
            $record->append_fields($field);
200
            $record->append_fields($field);
201
        }
201
        }
202
202
203
        ModBiblio( $record, $biblionumber ) unless ( $test );
203
        ModBiblio( $record, $biblionumber, {source => 'import_lexile'} ) unless ( $test );
204
    }
204
    }
205
205
206
}
206
}
(-)a/tools/batch_record_modification.pl (-4 / +10 lines)
Lines 156-162 if ( $op eq 'form' ) { Link Here
156
    my ( $job );
156
    my ( $job );
157
    if ( $runinbackground ) {
157
    if ( $runinbackground ) {
158
        my $job_size = scalar( @record_ids );
158
        my $job_size = scalar( @record_ids );
159
        $job = C4::BackgroundJob->new( $sessionID, "FIXME", '/cgi-bin/koha/tools/batch_record_modification.pl', $job_size );
159
        $job = C4::BackgroundJob->new( $sessionID, "FIXME", $ENV{SCRIPT_NAME}, $job_size );
160
        my $job_id = $job->id;
160
        my $job_id = $job->id;
161
        if (my $pid = fork) {
161
        if (my $pid = fork) {
162
            $dbh->{InactiveDestroy}  = 1;
162
            $dbh->{InactiveDestroy}  = 1;
Lines 169-175 if ( $op eq 'form' ) { Link Here
169
            close STDOUT;
169
            close STDOUT;
170
            close STDERR;
170
            close STDERR;
171
        } else {
171
        } else {
172
            warn "fork failed while attempting to run tools/batch_record_modification.pl as a background job";
172
            warn "fork failed while attempting to run $ENV{'SCRIPT_NAME'} as a background job";
173
            exit 0;
173
            exit 0;
174
        }
174
        }
175
    }
175
    }
Lines 192-198 if ( $op eq 'form' ) { Link Here
192
            my $error = eval {
192
            my $error = eval {
193
                my $record = GetMarcBiblio( $biblionumber );
193
                my $record = GetMarcBiblio( $biblionumber );
194
                ModifyRecordWithTemplate( $mmtid, $record );
194
                ModifyRecordWithTemplate( $mmtid, $record );
195
                ModBiblio( $record, $biblionumber );
195
                my ($member) = C4::Members::GetMember('borrowernumber' => $loggedinuser);
196
                ModBiblio( $record, $biblionumber, '',
197
                    {
198
                        source => 'batchmod',
199
                        category => $member->{'category_type'},
200
                        borrower => $loggedinuser
201
                    }
202
                );
196
            };
203
            };
197
            if ( $error and $error != 1 or $@ ) { # ModBiblio returns 1 if everything as gone well
204
            if ( $error and $error != 1 or $@ ) { # ModBiblio returns 1 if everything as gone well
198
                push @messages, {
205
                push @messages, {
199
- 

Return to bug 14957