initial import - marc custom export (for Outlook Online)
authorJames Fournie <jfournie@sitka.bclibraries.ca>
Mon, 15 Aug 2011 19:11:56 +0000 (12:11 -0700)
committerJames Fournie <jfournie@sitka.bclibraries.ca>
Mon, 15 Aug 2011 19:31:14 +0000 (12:31 -0700)
marc_export_custom/README.txt [new file with mode: 0644]
marc_export_custom/marc_export_custom [new file with mode: 0755]
marc_export_custom/sitka.ini [new file with mode: 0644]

diff --git a/marc_export_custom/README.txt b/marc_export_custom/README.txt
new file mode 100644 (file)
index 0000000..3c36f45
--- /dev/null
@@ -0,0 +1,36 @@
+Customized MARC exporter
+
+By James Fournie
+jfournie@sitka.bclibraries.ca
+
+This requires Config::Simple, the package for that in Deb/Ubuntu is libconfig-simple-perl.
+
+New options:
+
+--collapse_to_depth
+
+Collapses all your holdings below a certain depth to that depth's org unit shortname, for example if you had:
+
+CONS
+- SYS1
+   - BR1
+   - BR2
+
+If you set the depth at 1, all the $b in your holdings would show SYS1 as the shortname.
+
+-- exclusion_ini
+
+Define a file to define custom exclusion rules.  See sitka.ini for Sitka's configuration for Outlook Online
+
+
+Usage examples:
+
+Pipe in something like:
+psql -A -t -c 'select id from biblio.record_entry where not deleted'|
+echo '101007645'
+
+into:
+
+./marc_export_custom --config /srv/openils/conf/opensrf_core.xml --items --location SITKA --collapse_to_depth 2 --exclusion_ini sitka.ini
+
+Note: I have found adding --format XML makes it easier to debug what's going on
diff --git a/marc_export_custom/marc_export_custom b/marc_export_custom/marc_export_custom
new file mode 100755 (executable)
index 0000000..c5d564e
--- /dev/null
@@ -0,0 +1,521 @@
+#!/usr/bin/perl
+# vim:et:sw=4:ts=4:
+use strict;
+use warnings;
+use bytes;
+
+use OpenSRF::System;
+use OpenSRF::EX qw/:try/;
+use OpenSRF::AppSession;
+use OpenSRF::Utils::JSON;
+use OpenSRF::Utils::SettingsClient;
+use OpenILS::Application::AppUtils;
+use OpenILS::Utils::Fieldmapper;
+use OpenILS::Utils::CStoreEditor;
+
+use MARC::Record;
+use MARC::File::XML;
+use UNIVERSAL::require;
+
+use Time::HiRes qw/time/;
+use Getopt::Long;
+
+use Config::Simple;
+use Data::Dumper;
+
+my @formats = qw/USMARC UNIMARC XML BRE ARE/;
+
+my ($config,$format,$encoding,$location,$dollarsign,$idl,$help,$holdings,$timeout,$export_mfhd,$type,$all_records) = ('/openils/conf/opensrf_core.xml','USMARC','MARC8','','$',0,undef,undef,0,undef,'biblio',undef);
+my ($exclusion_ini,$collapse_to_depth);
+my $cfg;
+
+GetOptions(
+        'help'       => \$help,
+        'items'      => \$holdings,
+        'mfhd'       => \$export_mfhd,
+        'all'        => \$all_records,
+        'location=s' => \$location,
+        'money=s'    => \$dollarsign,
+        'config=s'   => \$config,
+        'format=s'   => \$format,
+        'type=s'     => \$type,
+        'xml-idl=s'  => \$idl,
+        'encoding=s' => \$encoding,
+        'timeout=i'  => \$timeout,
+        'exclusion_ini=s' => \$exclusion_ini,
+        'collapse_to_depth=i' => \$collapse_to_depth,
+
+);
+
+$cfg = new Config::Simple($exclusion_ini) if ($exclusion_ini);
+
+if ($help) {
+print <<"HELP";
+This script exports MARC authority, bibliographic, and serial holdings
+records from an Evergreen database. 
+
+Input to this script can consist of a list of record IDs, with one record ID
+per line, corresponding to the record ID in the Evergreen database table of
+your requested record type.
+
+Alternately, passing the --all option will attempt to export all records of
+the specified type from the Evergreen database. The --all option starts at
+record ID 1 and increments the ID by 1 until the largest ID in the database
+is retrieved. This may not be very efficient for databases with large gaps
+in their ID sequences.
+
+Usage: $0 [options]
+ --help or -h       This screen.
+ --config or -c     Configuration file [/openils/conf/opensrf_core.xml]
+ --format or -f     Output format (USMARC, UNIMARC, XML, BRE, ARE) [USMARC]
+ --encoding or -e   Output encoding (UTF-8, ISO-8859-?, MARC8) [MARC8]
+ --xml-idl or -x    Location of the IDL XML
+ --timeout          Timeout for exporting a single record; increase if you
+                    are using --holdings and are exporting records that
+                    have a lot of items attached to them.
+ --type or -t       Record type (BIBLIO, AUTHORITY) [BIBLIO]
+ --all or -a        Export all records; ignores input list
+
+ Additional options for type = 'BIBLIO':
+ --items or -i      Include items (holdings) in the output
+ --money            Currency symbol to use in item price field [\$]
+ --mfhd             Export serial MFHD records for associated bib records
+                    Not compatible with --format=BRE
+ --location or -l   MARC Location Code for holdings from
+                    http://www.loc.gov/marc/organizations/orgshome.html
+
+Examples:
+
+To export a set of USMARC records in a file named "output_file" based on the
+IDs contained in a file named "list_of_ids":
+  cat list_of_ids | $0 > output_file
+
+To export a set of MARC21XML authority records in a file named "output.xml"
+for all authority records in the database:
+  $0 --format XML --type AUTHORITY --all > output.xml
+
+HELP
+    exit;
+}
+
+$type = lc($type);
+$format = uc($format);
+$encoding = uc($encoding);
+
+binmode(STDOUT, ':raw') if ($encoding ne 'UTF-8');
+binmode(STDOUT, ':utf8') if ($encoding eq 'UTF-8');
+
+if (!grep { $format eq $_ } @formats) {
+    die "Please select a supported format.  ".
+        "Right now that means one of [".
+        join('|',@formats). "]\n";
+}
+
+if ($format ne 'XML') {
+    my $type = 'MARC::File::' . $format;
+    $type->require;
+}
+
+if ($timeout <= 0) {
+    # set default timeout and/or correct silly user who 
+    # supplied a negative timeout; default timeout of
+    # 300 seconds if exporting items determined empirically.
+    $timeout = $holdings ? 300 : 1;
+}
+
+OpenSRF::System->bootstrap_client( config_file => $config );
+
+if (!$idl) {
+    $idl = OpenSRF::Utils::SettingsClient->new->config_value("IDL");
+}
+
+Fieldmapper->import(IDL => $idl);
+
+my $ses = OpenSRF::AppSession->create('open-ils.cstore');
+OpenILS::Utils::CStoreEditor::init();
+my $editor = OpenILS::Utils::CStoreEditor->new();
+
+print <<HEADER if ($format eq 'XML');
+<?xml version="1.0" encoding="$encoding"?>
+<collection xmlns='http://www.loc.gov/MARC21/slim'>
+HEADER
+
+my %orgs;
+my %shelves;
+my %statuses;
+my %outypes;
+
+my $flesh = {};
+
+if ($holdings) {
+    get_bib_locations();
+}
+
+my $start = time;
+my $last_time = time;
+my %count = ('bib' => 0, 'did' => 0);
+my $speed = 0;
+
+if ($all_records) {
+    my $top_record = 0;
+    if ($type eq 'biblio') {
+        $top_record = $editor->search_biblio_record_entry([
+            {deleted => 'f'},
+            {order_by => { 'bre' => 'id DESC' }, limit => 1}
+        ])->[0]->id;
+    } elsif ($type eq 'authority') {
+        $top_record = $editor->search_authority_record_entry([
+            {deleted => 'f'},
+            {order_by => { 'are' => 'id DESC' }, limit => 1}
+        ])->[0]->id;
+    }
+    for (my $i = 0; $i++ < $top_record;) {
+        export_record($i);
+    }
+} else {
+    while ( my $i = <> ) {
+        export_record($i);
+    }
+}
+
+print "</collection>\n" if ($format eq 'XML');
+
+$speed = $count{did} / (time - $start);
+my $time = time - $start;
+print STDERR <<DONE;
+
+Exports Attempted : $count{bib}
+Exports Completed : $count{did}
+Overall Speed     : $speed
+Total Time Elapsed: $time seconds
+
+DONE
+
+sub export_record {
+    my $id = shift;
+
+    my $bib; 
+
+    my $r = $ses->request( "open-ils.cstore.direct.$type.record_entry.retrieve", $id, $flesh );
+    my $s = $r->recv(timeout => $timeout);
+    if (!$s) {
+        warn "\n!!!!! Failed trying to read record $id\n";
+        return;
+    }
+    if ($r->failed) {
+        warn "\n!!!!!! Failed trying to read record $id: " . $r->failed->stringify . "\n";
+        return;
+    }
+    if ($r->timed_out) {
+        warn "\n!!!!!! Timed out trying to read record $id\n";
+        return;
+    }
+    $bib = $s->content;
+    $r->finish;
+
+    $count{bib}++;
+    return unless $bib;
+
+    if ($format eq 'ARE' or $format eq 'BRE') {
+        print OpenSRF::Utils::JSON->perl2JSON($bib);
+        stats();
+        $count{did}++;
+        return;
+    }
+
+    try {
+
+        my $r = MARC::Record->new_from_xml( $bib->marc, $encoding, $format );
+        if ($type eq 'biblio') {
+            add_bib_holdings($bib, $r);
+        }
+
+        if ($format eq 'XML') {
+            my $xml = $r->as_xml_record;
+            $xml =~ s/^<\?.+?\?>$//mo;
+            print $xml;
+        } elsif ($format eq 'UNIMARC') {
+            print $r->as_usmarc;
+        } elsif ($format eq 'USMARC') {
+            print $r->as_usmarc;
+        }
+
+        $count{did}++;
+
+    } otherwise {
+        my $e = shift;
+        warn "\n$e\n";
+        import MARC::File::XML; # reset SAX parser so that one bad record doesn't kill the entire export
+    };
+
+    if ($export_mfhd and $type eq 'biblio') {
+        my $mfhds = $editor->search_serial_record_entry({record => $id, deleted => 'f'});
+        foreach my $mfhd (@$mfhds) {
+            try {
+                my $r = MARC::Record->new_from_xml( $mfhd->marc, $encoding, $format );
+
+                if ($format eq 'XML') {
+                    my $xml = $r->as_xml_record;
+                    $xml =~ s/^<\?.+?\?>$//mo;
+                    print $xml;
+                } elsif ($format eq 'UNIMARC') {
+                    print $r->as_usmarc;
+                } elsif ($format eq 'USMARC') {
+                    print $r->as_usmarc;
+                }
+            } otherwise {
+                my $e = shift;
+                warn "\n$e\n";
+                import MARC::File::XML; # reset SAX parser so that one bad record doesn't kill the entire export
+            };
+        }
+    }
+
+    stats() if (! ($count{bib} % 50 ));
+}
+
+sub stats {
+    try {
+        no warnings;
+
+        $speed = $count{did} / (time - $start);
+
+        my $speed_now = ($count{did} - $count{did_last}) / (time - $count{time_last});
+        my $cn_speed = $count{cn} / (time - $start);
+        my $cp_speed = $count{cp} / (time - $start);
+
+        printf STDERR "\r  $count{did} of $count{bib} @  \%0.4f/s ttl / \%0.4f/s rt ".
+                "($count{cn} CNs @ \%0.4f/s :: $count{cp} CPs @ \%0.4f/s)\r",
+                $speed,
+                $speed_now,
+                $cn_speed,
+                $cp_speed;
+    } otherwise {};
+    $count{did_last} = $count{did};
+    $count{time_last} = time;
+}
+
+sub get_bib_locations {
+    print STDERR "Retrieving Org Units ... ";
+    my $r = $ses->request( 'open-ils.cstore.direct.actor.org_unit.search', { id => { '!=' => undef } } );
+
+    while (my $o = $r->recv) {
+        die $r->failed->stringify if ($r->failed);
+        $o = $o->content;
+        last unless ($o);
+        $orgs{$o->id} = $o;
+    }
+    $r->finish;
+    print STDERR "OK\n";
+
+    print STDERR "Retrieving Copy statuses ... ";
+    $r = $ses->request( 'open-ils.cstore.direct.config.copy_status.search', { id => { '!=' => undef } } );
+
+    while (my $sta = $r->recv) {
+        die $r->failed->stringify if ($r->failed);
+        $sta = $sta->content;
+        last unless ($sta);
+        $statuses{$sta->id} = $sta;
+    }
+    $r->finish;
+    print STDERR "OK\n";
+
+    print STDERR "Retrieving OU types ... ";
+    $r = $ses->request( 'open-ils.cstore.direct.actor.org_unit_type.search', { id => { '!=' => undef } } );
+
+    while (my $outy = $r->recv) {
+        die $r->failed->stringify if ($r->failed);
+        $outy = $outy->content;
+        last unless ($outy);
+        $outypes{$outy->id} = $outy;
+    }
+    $r->finish;
+    print STDERR "OK\n";
+
+    print STDERR "Retrieving Shelving locations ... ";
+    $r = $ses->request( 'open-ils.cstore.direct.asset.copy_location.search', { id => { '!=' => undef } } );
+
+    while (my $s = $r->recv) {
+        die $r->failed->stringify if ($r->failed);
+        $s = $s->content;
+        last unless ($s);
+        $shelves{$s->id} = $s;
+    }
+    $r->finish;
+    print STDERR "OK\n";
+
+    $flesh = { flesh => 2, flesh_fields => { bre => [ 'call_numbers' ], acn => [ 'copies' ] } };
+}
+
+sub add_bib_holdings {
+    my $bib = shift;
+    my $r = shift;
+
+    my $cn_list = $bib->call_numbers;
+    if ($cn_list && @$cn_list) {
+
+        $count{cn} += @$cn_list;
+    
+        my $cp_list = [ map { @{ $_->copies } } @$cn_list ];
+        if ($cp_list && @$cp_list) {
+
+            my %cn_map;
+            push @{$cn_map{$_->call_number}}, $_ for (@$cp_list);
+                            
+            for my $cn ( @$cn_list ) {
+                my $cn_map_list = $cn_map{$cn->id};
+
+                COPYMAP: for my $cp ( @$cn_map_list ) {
+                    $count{cp}++;
+
+
+                    my $owninglib = $cn->owning_lib;
+                    my $circlib = $cp->circ_lib;
+                    my $printlib = $cp->circ_lib;
+
+                    if($cfg){
+                        my $thisorg = $orgs{$circlib};
+
+                        if($collapse_to_depth){
+                            while ( $outypes{ $thisorg->ou_type }->depth > $collapse_to_depth ){
+                                my $localcfg = $cfg->param(-block=> $thisorg->shortname);
+                                if( $localcfg->{'DontCollapse'} ){
+                                    last;
+                                }
+                                if($thisorg->parent_ou){
+                                    $thisorg = $orgs{$thisorg->parent_ou};
+                                    $printlib = $thisorg->id;
+                                }
+                            }
+                        }
+
+                        $thisorg = $orgs{$circlib};
+
+                        while( $thisorg ){
+                            print STDERR "here.";
+                            # load the local config from the .ini file for exclusions
+                            my $localcfg = $cfg->param(-block=> $thisorg->shortname);
+
+                            # if we see this setting, just skip that org
+
+                            next COPYMAP if( $localcfg->{'ExcludeEntireOrg'} );
+
+                            # what follows are exclusion rules
+
+                            # Excluded Flags
+                            if($localcfg->{'Flags'}){
+                                # this little line is just forcing scalars into an array so we can 'use strict' with Config::Simple
+                                my @flags = ( (ref($localcfg->{'Flags'}) eq "ARRAY") ? @{$localcfg->{'Flags'}} : ($localcfg->{'Flags'}));
+                                next COPYMAP if( grep { $_ eq 'reference' } @flags && $cp->ref eq 't');
+                                next COPYMAP if( grep { $_ eq 'unholdable' } @flags && $cp->holdable eq 'f');
+                                next COPYMAP if( grep { $_ eq 'circulate' } @flags && $cp->circulate eq 'f');
+                                next COPYMAP if( grep { $_ eq 'hidden' } @flags && $cp->opac_visible eq 'f');
+                            }
+                            # Excluded Circ Modifiers
+                            if($localcfg->{'CircMods'}){
+                                my @circmods = ( (ref($localcfg->{'CircMods'}) eq "ARRAY") ? @{$localcfg->{'CircMods'}} : ($localcfg->{'CircMods'}) );
+                                next COPYMAP if( grep { $_ eq $cp->circ_modifier } @circmods && @circmods);
+                            }
+                            # Excluded Copy Statuses
+                            if($localcfg->{'Statuses'}){
+                                my @statuses = ( (ref($localcfg->{'Statuses'}) eq "ARRAY") ? @{$localcfg->{'Statuses'}} : ($localcfg->{'Statuses'}) );
+                                next COPYMAP if( grep { $_ eq $statuses{$cp->status}->name } @statuses && @statuses);
+                            }
+                            # Excluded Locations
+                            if($localcfg->{'Locations'}){
+                                my @locations = ( (ref($localcfg->{'Locations'}) eq "ARRAY") ? @{$localcfg->{'Locations'}} : ($localcfg->{'Locations'}) );
+                                next COPYMAP if( grep { $_ eq $shelves{$cp->location}->name } @locations && @locations);
+                            }
+                            # Inverse rule - Only use the specified locations
+                            if($localcfg->{'OnlyIncludeLocations'}){
+                                my @locations = ( (ref($localcfg->{'OnlyIncludeLocations'}) eq "ARRAY") ? @{$localcfg->{'OnlyIncludeLocations'}} : ($localcfg->{'Locations'}) );
+                                next COPYMAP unless( grep { $_ eq $shelves{$cp->location}->name } @locations && @locations);
+                            }
+                            # exclude based on a regex match to location names
+                            if($localcfg->{'LocationRegex'}){
+                                my @locregex = ( (ref($localcfg->{'LocationRegex'}) eq "ARRAY") ? @{$localcfg->{'LocationRegex'}} : ($localcfg->{'LocationRegex'}) );
+                                my $reg = $localcfg->{'LocationRegex'};
+                                next COPYMAP if( grep { $shelves{$cp->location}->name =~ m/($reg)/ } @locregex && @locregex);
+                            }
+                            # include based on a regex match to location names
+                            if($localcfg->{'OnlyIncludeLocationRegex'}){
+                                my @locregex = ( (ref($localcfg->{'OnlyIncludeLocationRegex'}) eq "ARRAY") ? @{$localcfg->{'OnlyIncludeLocationRegex'}} : ($localcfg->{'OnlyIncludeLocationRegex'}) );
+                                my $reg = $localcfg->{'OnlyIncludeLocationRegex'};
+                                next COPYMAP unless( grep { $shelves{$cp->location}->name =~ m/($reg)/ } @locregex && @locregex);
+                            }
+                            # Exclude based on a callno regex
+                            if($localcfg->{'CallNoRegex'}){
+                                my @callnoregex = ( (ref($localcfg->{'CallNoRegex'}) eq "ARRAY") ? @{$localcfg->{'CallNoRegex'}} : ($localcfg->{'CallNoRegex'}) );
+                                my $reg = $localcfg->{'CallNoRegex'};
+                                next COPYMAP if( grep { $cn->label =~ m/($reg)/ } @callnoregex && @callnoregex);
+                            }
+                            # Include based on a callno regex
+                            if($localcfg->{'OnlyIncludeCallNoRegex'}){
+                                my @callnoregex = ( (ref($localcfg->{'OnlyIncludeCallNoRegex'}) eq "ARRAY") ? @{$localcfg->{'OnlyIncludeCallNoRegex'}} : ($localcfg->{'OnlyIncludeCallNoRegex'}) );
+                                my $reg = $localcfg->{'OnlyIncludeCallNoRegex'};
+                                next COPYMAP unless( grep { $cn->label =~ m/($reg)/ } @callnoregex && @callnoregex);
+                            }
+                            # Trim call number to a float and exclude based on Dewey Range
+                            if($localcfg->{'DeweyGT'} || $localcfg->{'DeweyLT'}){
+                                my $gt = $localcfg->{'DeweyGT'};
+                                my $lt = $localcfg->{'DeweyLT'};
+
+                                # FIXME if either config has an array just ditch for now
+                                next COPYMAP if (ref($gt) eq "ARRAY" or ref($lt) eq "ARRAY");
+                                $gt =~ s/[^0-9\.]//g if $gt; #trim off anything not deweyish
+                                $lt =~ s/[^0-9\.]//g if $lt; #trim off anything not deweyish
+
+                                my $callno = $cn->label;
+                                $callno =~ s/[^0-9\.]//g; #trim off anything not deweyish
+                                print STDERR $callno;
+                                #note that we are making big assumptions about the call numbers in the db 
+
+                                # we have a range, exclude what's inbetween
+                                if($lt && $gt){
+                                    next COPYMAP if $callno > $gt and $callno < $lt;
+                                # we only have a top threshold, exclude everything below it
+                                } elsif ($lt){
+                                    next COPYMAP if $callno < $lt;
+                                # we only have a bottom threshold, exclude everything above it
+                                } elsif ($gt){
+                                    next COPYMAP if $callno > $gt;
+                                }
+                            }
+
+
+                            if($thisorg->parent_ou){
+                                 $thisorg = $orgs{$thisorg->parent_ou}
+                            } else {
+                                $thisorg = ();
+                            }
+                            
+                        }
+                    }
+
+                    $r->append_fields(
+                        MARC::Field->new(
+                            852, '4', '', 
+                            a => $location,
+                            b => $orgs{$printlib}->shortname,
+                            #b => $orgs{$owninglib}->shortname,
+                            #b => $orgs{$circlib}->shortname,
+                            c => $shelves{$cp->location}->name,
+                            j => $cn->label,
+                            ($cp->circ_modifier ? ( g => $cp->circ_modifier ) : ()),
+                            p => $cp->barcode,
+                            ($cp->price ? ( y => $dollarsign.$cp->price ) : ()),
+                            ($cp->copy_number ? ( t => $cp->copy_number ) : ()),
+                            ($cp->ref eq 't' ? ( x => 'reference' ) : ()),
+                            ($cp->holdable eq 'f' ? ( x => 'unholdable' ) : ()),
+                            ($cp->circulate eq 'f' ? ( x => 'noncirculating' ) : ()),
+                            ($cp->opac_visible eq 'f' ? ( x => 'hidden' ) : ()),
+                            z => $statuses{$cp->status}->name,
+                        )
+                    );
+
+                    stats() if (! ($count{cp} % 100 ));
+                } # for cnmap
+            } # for cnlist
+        } # if block
+    } # if block
+} # sub
diff --git a/marc_export_custom/sitka.ini b/marc_export_custom/sitka.ini
new file mode 100644 (file)
index 0000000..cba1cff
--- /dev/null
@@ -0,0 +1,110 @@
+; This file contains excepts, that is MARC records that should NOT be exported
+; They should be defined in blocks with the top level org unit you wish to apply it at
+; for example a rule at the CONS level would exclude all org units below it.
+;
+; The following are acceptable values for keys:
+;
+; DontCollapse=true
+; don't collapse this org unit into its parents if the collapse depth setting is used
+;
+; ExcludeEntireOrg=true
+; excludes all holdings from this org and all of its children
+;
+; Flags=hidden,reference,unholdable,circulate
+; excludes all copies with the above flags on them (holdable, circulateable, reference, opac visible/hidden);
+;
+; Locations=Juvenile,Adult,etc
+; defines exact shelving location names
+;
+; Statuses=Lost,Available,etc
+; defines exact copy statuses
+;
+; CircMods = book,video,etc
+; defines exact circ modifiers
+;
+; OnlyIncludeLocations=Juvenile
+; only include these exact shevling locations
+;
+; LocationRegex=Juv
+; Exclude shelving locations that match this regex. Multiple may be combined in an array as above
+;
+; CallNoRegex=ABC
+; Exclude any holdings that match this regex.  Multiple may be combined in an array as above.
+;
+; OnlyIncludeLocationRegex=ABC
+; OnlyIncludeCallNoRegex=ABC
+; Both the Regex rules can be prefixed by OnlyInclude (ie: OnlyIncludeCallNoRegex) to get the inverse
+; Note that they might not work with all your fancy regex so best keep it very simple
+;
+; DeweyGT=740.1
+; Excludes any call number above this value when trimmed of Cutter/prefix/suffix/etc and any non deweyish chars (eg: 656.2)
+; DeweyLT=760.3
+; Excludes any call number below this value when trimmed of Cutter/prefix/suffix/etc and any non deweyish chars (eg: 756.3)
+; These can (and should) be combined to produce a range, but each should work on its own as well.
+
+
+[SITKA]
+Flags=hidden
+
+
+[BNCLF]
+CallNoRegex=^NCLF
+
+[BGI]
+CircMods=ill-no-renew,inter-library-loan,magazine,juvenile-serial
+Statuses=Lost,Claims returned,Damaged
+DontCollapse=true
+
+[BSE]
+CircMods=talking-books,inter-library-loan,ill-no-renew
+Statuses=On order,Missing
+DontCollapse=true
+
+[BPR]
+Statuses=Lost,Missing,Claims returned
+
+[BW]
+Flags=reference,noncirculating
+Locations=Reference,Juvenile Reference,Whistler Reference,Young Adult Reference
+
+[BH]
+Locations=Magazines
+
+[BLP-LL]
+Statuses=Lost
+CallNoRegex=^RESTR
+
+[BABM]
+Flags=reference
+Statuses=Storage
+Locations=Reference
+
+[BS]
+Locations=Reference shelf,Community resource
+
+[BNA]
+LocationRegex=Audio,DVD,Video
+
+[BCREK]
+OnlyIncludeLocations=CRANBROOK,CRANBROOKJ
+
+[BRHSP]
+Locations=Juvenile Non-Fiction
+DeweyGT=332.02
+DeweyLT=346.7
+
+[BGSI]
+Locations=Books on CD,Books on audio-cassette,Music Cds,Reference,Videotape,DVD
+Statuses=Missing,In process,On order
+Flags=reference,noncirculating
+
+[BKCT]
+Statuses=On order
+CircMods=ill-no-renew,inter-library-loan
+
+[BCD]
+Statues=Lost,On order
+LocationRegex=/Magazine|CD|DVD/
+
+[BSP]
+LocationRegex=SSS