ALEX::Transfer - megawidget for transfering ALEX::DB records between
workfiles.
ALEX::Transfer - megawidget for transfering ALEX::DB records between
workfiles.
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;
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).
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.
|