David A. Christensen > Tk-MARC > Tk::MARC::Record

Download:
Tk-MARC-1.5.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.11   Source  

NAME ^

Tk::MARC::Record - megawidget for editing MARC::Record objects.

SYNOPSIS ^

 use Tk;
 use Tk::MARC::Record;
 use MARC::Record
 use MARC::File::USMARC;

 # Get a record
 my $file = MARC::File::USMARC->in( "records.mrc" );
 my $record = $file->next();
 $file->close();
 undef $file

 my $mw = MainWindow->new;
 my $TkMARC = $mw->MARC_Record(-record => $record)->pack;

 my $new_rec;
 $mw->Button(-text = "Save", -command => sub { $new_rec = $TkMARC->get() } );

 MainLoop;

DESCRIPTION ^

This is a megawidget that allows editing of a MARC::Record object. The widget does not change the MARC::Record, it creates a new MARC::Record when the get() routine is invoked.

The widget is basically a collection of Tk::MARC::Field widgets, which handle the editing of individual fields within the record.

AUTHOR ^

David Christensen, <DChristensenSPAMLESS@westman.wave.ca>

COPYRIGHT AND LICENSE ^

Copyright 2004 by David Christensen

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: