NAME

ALEX::Import - megawidget for importing MARC records to ALEX::DB.

SYNOPSIS

 use Tk;
 use ALEX::Import;
 use MARC::Record;

 my $mw = MainWindow->new;
 $mw->title("Import Test");

 #
 # The Import window
 #
 my $wImport = $mw->ALEX_Import(-connectstring => "calli_test")->pack;

 #
 # Add a button-bar at the bottom
 #
 my $FRAME_ACTIONS = $mw->Frame()->pack(-side => 'bottom',
                                        -expand => 1,
                                        -fill => 'x');
 #
 # Add a button to get the selected record
 #
 $FRAME_ACTIONS->Button(-text => "Get", 
                        -command => sub { my $marc = $wImport->get();
                                          # Do something with the record:
                                          print $marc->title() if $marc;
                                         })->pack(-side => 'right');

 MainLoop;

DESCRIPTION

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

AUTHOR

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

COPYRIGHT AND LICENSE

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