Tk::MARC - Perl/Tk widget set for editing MARC::Records
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;
Tk::MARC::Record Tk::MARC::Field Tk::MARC::Subfield Tk::MARC::Indicators Tk::MARC::Leader
A collection of Perl/Tk widgets for editing MARC::Record objects. A little short on POD right now... See the examples in the pl/ directory (especially the sample app 'marvin.pl', rough though it is).
MARC::Record MARC::Descriptions
David A. Christensen, DChristensenSPAMLESS@westman.wave.ca
Copyright 2004 by David A. Christensen
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Tk::MARC, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Tk::MARC
CPAN shell
perl -MCPAN -e shell install Tk::MARC
For more information on module installation, please visit the detailed CPAN module installation guide.