Hello, You might want to try $record->leader(' '); right after you create the record object. I am not familiar with the purpose of the leader so you may want to fill it with something more meaningful ;-] Mike On Tue, 26 Aug 2003 06:59:01 -0400 Joshua Ferraro <jferraro@alma.athenscounty.lib.oh.us> wrote:

Hi everyone,

I have been working on a Z3950 server for Koha and I am finally at the point where the server works, and I need some help refining the records that I am generating (eventually I will build in support for multiple formats; but for now I would be pretty excited if I could get it to generate "good" MARC) Basically, the Z3950 server uses SimpleServer, which has a fetch handler subroutine to fetch one record(the present handler will call fetch_handler as often as necessary for the client's request). So...here is a snipit of code from my script where I attempt to generate a MARC record. When I run the resulting string from this code through Paul's dumpmarc.pl it complains about the leader. MARC::Record experts: any ideas, suggestions as to how to set the leader? Any other suggestions? (BTW: this is my first ever Perl script, so please don't laugh too hard:))

Thanks, Joshua

sub fetch_handler { my ($args) = @_; my $offset = $args->{OFFSET}; $offset -= 1; ## because $args->{OFFSET} 1 = record #1 chomp (my $bibid = $bib_list[$offset]); ## Not sure about this my $dbh = C4::Context->dbh; my $sql_query = "SELECT tag, subfieldcode, subfieldvalue FROM marc_subfi eld_table where bibid=?"; my $sth_get = $dbh->prepare("$sql_query"); $sth_get->execute($bibid);

## Build the record: my $rec = MARC::Record->new();

while (my @data=$sth_get->fetchrow_array) {

my $tag = $data[0]; my $subfieldcode = $data[1]; my $subfieldvalue = $data[2];

my $field = MARC::Field->new( $tag,'','', $subfieldcode => $subfieldvalu e, );

$rec->append_fields($field);

## build the marc string and put into $record my $record = $rec->as_usmarc(); $args->{RECORD} = $record; } _______________________________________________ Koha mailing list Koha@lists.katipo.co.nz http://lists.katipo.co.nz/mailman/listinfo/koha