[Koha] Z3950 Server, MARC::Record, how to build a record for Koha

[Mike Hansen]

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 at 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 at lists.katipo.co.nz
> http://lists.katipo.co.nz/mailman/listinfo/koha