Tk::MARC::Indicators - megawidget for editing MARC::Field indicators.
use Tk; use Tk::MARC::Indicators; my $mw = MainWindow->new; $mw->MARC_Indicators(-field => '245', -ind1 => '0', -ind2 => '7', )->pack(-anchor => 'w'); MainLoop;
This is a megawidget that allows editing of MARC::Field indicators. The widget itself does not change the MARC::Field indicators - that is up to the widget's parent.
The widget provides a menu of valid indicator values (and their descriptions) for the given MARC field and indicator (1 or 2).
You will likely never use a Tk::MARC::Indicators directly - it is simply a component of Tk::MARC::field.
David Christensen, <DChristensenSPAMLESS@westman.wave.ca>
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.