Header

ALEX::Transfer - megawidget for transfering ALEX::DB records between workfiles.


NAME

ALEX::Transfer - megawidget for transfering ALEX::DB records between workfiles.


SYNOPSIS

 use Tk;
 use ALEX::Transfer;
 use MARC::Record;
 my $mw = MainWindow->new;
 $mw->title("Transfer Test");
 #
 # The Transfer window
 #
 my $wTransfer = $mw->ALEX_Transfer(-connectstring => "calli_test",
                                    -owner => 1,
                                   )->pack;
 MainLoop;


DESCRIPTION

This is a megawidget that allows searching for and transfering of selected ALEX::DB records between workfiles.

It is derived from ALEX::Search, and adds a few extras (the transfer flag for each record, and buttons to toggle that status, and finally a button to do the actual transfer).


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.

Copyright (c) 2004, David A. Christensen