One more time (in an attempt to better clarify my own posting --
sorry)...
> I think all Jackie needs to do is add the combining grave character.
The combining grave, in G1, would be hex 'E1', so (theoretically) this
should work:
$acute = chr(0xE1);
$field = MARC::Field->new( '710', '2', '',
a => 'Biblioth'.$acute.'eque nationale de france.' );
-- Michael
# Michael Doran, Systems Librarian
# University of Texas at Arlington
# 817-272-5326 office
# 817-688-1926 cell
# [EMAIL PROTECTED]
# http://rocky.uta.edu/doran/
> -----Original Message-----
> From: Doran, Michael D [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, January 05, 2005 1:04 PM
> To: perl4lib@perl.org
> Subject: RE: inserting diacrtics
>
> Oops, that's the second time today I've inadvertantly sent an email
> message (some keystroke combination from vi I think).
>
> The reference was:
>
> [1] The exception to this is if you had previously escaped to an
> alternate character set (such as Arablic or Greek) and
> desired to return
> to Extended Latin as either GO or G1.
>
> -- Michael
>
> # Michael Doran, Systems Librarian
> # University of Texas at Arlington
> # 817-272-5326 office
> # 817-688-1926 cell
> # [EMAIL PROTECTED]
> # http://rocky.uta.edu/doran/
>
> > -----Original Message-----
> > From: Doran, Michael D
> > Sent: Wednesday, January 05, 2005 1:03 PM
> > To: perl4lib@perl.org
> > Subject: RE: inserting diacrtics
> >
> > > You need to escape to ExtendedLatin, add the combining
> > acute, escape back to
> > > BasicLatin, and then put the 'e'. Or in code:
> >
> > Extended Latin (as G1) is part of the MARC-8 default
> > character set and shouldn't require any escape sequences [1].
> > I think all Jackie needs to do is add the combining grave
> character.
> >
> > -- Michael
> >
> > # Michael Doran, Systems Librarian
> > # University of Texas at Arlington
> > # 817-272-5326 office
> > # 817-688-1926 cell
> > # [EMAIL PROTECTED]
> > # http://rocky.uta.edu/doran/
> >
> > > -----Original Message-----
> > > From: Ed Summers [mailto:[EMAIL PROTECTED]
> > > Sent: Wednesday, January 05, 2005 11:30 AM
> > > To: perl4lib@perl.org
> > > Subject: Re: inserting diacrtics
> > >
> > > On Tue, Jan 04, 2005 at 02:20:55PM -0500, Jackie Shieh wrote:
> > > > MARC::Field->new('710','2','', a=>'Bibliotheque nationale
> > > de france.')
> > > > ^
> > >
> > > I'm assuming that you want a combining acute on the e, and
> > that you want to
> > > encode with MARC-8 since UTF-8 in MARC data hasn't hit the
> > mainstream yet...
> > > eventhough I've heard OCLC is converting all their MARC
> > data to UTF-8.
> > >
> > > This is kind of a pain, but here's how you could do it.
> You need to
> > > escape to ExtendedLatin, add the combining acute, escape back to
> > > BasicLatin, and then put the 'e'. Or in code:
> > >
> > > # building blocks for escaping G0 to ExtendedLatin and
> > > # back to BasicLatin, details at:
> > > # http://www.loc.gov/marc/specifications/speccharmarc8.html
> > > $escapeToExtendedLatin =
> > chr(0x1B).chr(0x28).chr(0x21).chr(0x45);
> > > $escapeToBasicLatin = chr(0x1B).chr(0x28).chr(0x52);
> > >
> > > # acute in the G0 register is chr(0x62) from the table at:
> > > # http://lcweb2.loc.gov/cocoon/codetables/45.html
> > > $acute = $escapeToExtendedLatin.chr(0x62).$escapeToBasicLatin;
> > >
> > > # now make the field
> > > $field = MARC::Field->new( '710', '2', '',
> > > a => 'Biblioth'.$acute.'eque nationale de france.' );
> > >
> > > This is long because I wanted to explain what was going
> > on...I imagine
> > > it could be compressed nicely...maybe
> > >
> > > Please give this a try on one record and make sure your
> > > catalog displays
> > > it properly before doing anything drastic to your data.
> > Like I needed
> > > to mention that :-)
> > >
> > > //Ed
> > >
> >
>
