On 11 October 2010 12:02, Chris Hobbs <chobbs@nhusd.k12.ca.us> wrote:

On 10/10/10 2:54 PM, Chris Cormack wrote:

2010/10/9 Chris Hobbs <CHobbs@nhusd.k12.ca.us>:

Is there a way for me to fix the Default item types for our biblios en masse? Our biblioitems records have the correct item type from our conversion, but every time we add a new item type it defaults to our '0' type (Art Print).

There are 2 places where itemtype is set, either at biblioitems.itemype or items.itype There is a systempreference which controls which one is used.

I would recommend using the item level itemtypes.

That is our setting, but I think I did a poor job of explaining our problem. The real issue is that I didn't populate the 942c (or 942n) sub-fields when I imported our MARC records, so those are unset. If somebody edits an existing MARC record, 942c is defaulting to our itemtype 0, which is Art Print, unless the cataloger is paying attention and edits 942c in addition to whatever else she went in to edit. Later, when they go to add a new item of that biblio, the item-level itype becomes Art Print unless they notice and change it.

Since we have no biblios with multiple item types associated with them (we create a different biblio for each media type of a title), I'd like to set the 942c sub-field based on an example item attached to that biblio. *If* there were an itemtype in the biblio table, the pseudo-SQL might look something like this:

update biblio set itemtype=(select top 1 itype from items where items.biblionumber=biblio.biblionumber)

Ah right, I getcha... ok, we the problem there is, you wont get it into the MARC, just into the biblioitems table (itemtype is in biblioitems not biblio), So while UPDATE biblioitems, items SET biblioitems.itemtype = items.itype WHERE biblioitems.biblioitemnumber = items.biblioitemnumber would mostly fix your problem, it sill wouldnt get the value into the marc. Heres some perl im typing free hand,so the chances of it actually working are fairly slim but it might put you on the right path #!/usr/bin/perl use strict; use warnings; use C4::Context; use C4::Biblio; my $dbh = C4::Context->dbh(); my $items_sth = $dbh->prepare("SELECT itype FROM items WHERE biblioitemnumber = ? LIMIT 1"); my $biblioitems_sth = $dbh->prepare("SELECT biblionumber,biblioitemnumber FROM biblioitems"); $biblioitems_sth->execute(); while (my $biblioitem = $biblioitems_sth->fetchfow_hashref()){ $items_sth->execute($biblioitem->{biblioitemnumber}; if (my $item = $items_sth->fetchrow_hashref())){ my $marc = GetMarcBiblio($biblioitem->{biblionumber}); my $field = MARC::Field->new('942,'','','c' => $item->{itype}); my @old_fields = $marc->field('942'); $marc->delete_field($_) foreach (@old_fields); $marc->append_fields($field); ModBiblio($marc, $biblioitems->{biblionumber}, ''); } } Back up your db, and it probably has at least 2 syntax errors in there, but the theory should work :) Chris