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

(-)a/C4/Biblio.pm (-1 / +1 lines)
Lines 304-310 sub AddBiblio { Link Here
304
304
305
=head2 ModBiblio
305
=head2 ModBiblio
306
306
307
  ModBiblio( $record,$biblionumber,$frameworkcode);
307
  ModBiblio( $record,$biblionumber,$frameworkcode,$filter );
308
308
309
Replace an existing bib record identified by C<$biblionumber>
309
Replace an existing bib record identified by C<$biblionumber>
310
with one supplied by the MARC::Record object C<$record>.  The embedded
310
with one supplied by the MARC::Record object C<$record>.  The embedded
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/marc-permissions.tt (-1 / +1 lines)
Lines 2-8 Link Here
2
[% INCLUDE 'doc-head-open.inc' %]
2
[% INCLUDE 'doc-head-open.inc' %]
3
<title>Koha &rsaquo; Administration &rsaquo; MARC field permissions</title>
3
<title>Koha &rsaquo; Administration &rsaquo; MARC field permissions</title>
4
[% INCLUDE 'doc-head-close.inc' %]
4
[% INCLUDE 'doc-head-close.inc' %]
5
<link rel="stylesheet" type="text/css" href="[% themelang %]/css/datatables.css" />
5
<link rel="stylesheet" type="text/css" href="[% interface %]/[% theme %]/css/datatables.css" />
6
[% INCLUDE 'datatables.inc' %]
6
[% INCLUDE 'datatables.inc' %]
7
7
8
<style type="text/css">
8
<style type="text/css">
(-)a/misc/migration_tools/import_lexile.pl (-1 / +2 lines)
Lines 151-156 while ( my $row = $csv->getline_hr($fh) ) { Link Here
151
    foreach my $biblionumber (@biblionumbers) {
151
    foreach my $biblionumber (@biblionumbers) {
152
        $counter++;
152
        $counter++;
153
        my $record = GetMarcBiblio($biblionumber);
153
        my $record = GetMarcBiblio($biblionumber);
154
        my $frameworkcode = GetFrameworkCode($biblionumber);
154
155
155
        if ($verbose) {
156
        if ($verbose) {
156
            say "Found matching record! Biblionumber: $biblionumber";
157
            say "Found matching record! Biblionumber: $biblionumber";
Lines 200-206 while ( my $row = $csv->getline_hr($fh) ) { Link Here
200
            $record->append_fields($field);
201
            $record->append_fields($field);
201
        }
202
        }
202
203
203
        ModBiblio( $record, $biblionumber, {source => 'import_lexile'} ) unless ( $test );
204
        ModBiblio( $record, $biblionumber, $frameworkcode, {source => 'import_lexile'} ) unless ( $test );
204
    }
205
    }
205
206
206
}
207
}
(-)a/t/db_dependent/Biblio/MARCPermissions.t (-8 / +3 lines)
Lines 32-44 my $dbh = C4::Context->dbh; Link Here
32
$dbh->{AutoCommit} = 0;
32
$dbh->{AutoCommit} = 0;
33
$dbh->{RaiseError} = 1;
33
$dbh->{RaiseError} = 1;
34
34
35
# Undef C4::Biblio::inverted_field_map to avoid problems introduced
35
C4::Context->set_preference( 'MARCPermissions', '1');
36
# by caching in TransformMarcToKoha
36
C4::Context->set_preference( 'MARCPermissionsLog', '1');
37
undef $C4::Biblio::inverted_field_map;
37
C4::Context->set_preference( 'MARCPermissionsCorrectionSimilarity', '90');
38
39
C4::Context->set_preference( "MARCPermissions", 1);
40
C4::Context->set_preference( "MARCPermissionsLog", 1);
41
C4::Context->set_preference( "MARCPermissionsCorrectionSimilarity", 90);
42
38
43
# Create a record
39
# Create a record
44
my $record = MARC::Record->new();
40
my $record = MARC::Record->new();
45
- 

Return to bug 14957