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

(-)a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl (-1 / +11 lines)
Lines 12-17 BEGIN { Link Here
12
    eval { require "$FindBin::Bin/../kohalib.pl" };
12
    eval { require "$FindBin::Bin/../kohalib.pl" };
13
}
13
}
14
14
15
use C4::Context;
15
use C4::Biblio;
16
use C4::Biblio;
16
use Getopt::Long;
17
use Getopt::Long;
17
18
Lines 207-212 sub process { Link Here
207
    $dbh = C4::Context->dbh;
208
    $dbh = C4::Context->dbh;
208
    my $mod_count = 0;
209
    my $mod_count = 0;
209
210
211
    # Disable the syspref cache so we can change logging settings
212
    C4::Context->disable_syspref_cache();
213
    # Save current CataloguingLog syspref value
214
    my $CataloguingLog = C4::Context->preference('CataloguingLog');
215
    # Disable logging
216
    C4::Context->set_preference( 'CataloguingLog', 0 );
217
210
    my $query = q{
218
    my $query = q{
211
        SELECT biblionumber
219
        SELECT biblionumber
212
        FROM biblio
220
        FROM biblio
Lines 229-234 sub process { Link Here
229
    }
237
    }
230
238
231
    $verbose and print "Number of modified biblios: " . $mod_count . "\n";
239
    $verbose and print "Number of modified biblios: " . $mod_count . "\n";
240
241
    # Restore CataloguingLog
242
    C4::Context->set_preference( 'CataloguingLog', $CataloguingLog );
232
}
243
}
233
244
234
if ( lc( C4::Context->preference('marcflavour') ) eq "unimarc" ) {
245
if ( lc( C4::Context->preference('marcflavour') ) eq "unimarc" ) {
235
- 

Return to bug 21487