|
|
@ -4,7 +4,7 @@ package C4::Interface; #asummes C4/Interface |
|
|
|
|
|
|
|
use strict; |
|
|
|
use Newt qw(NEWT_ANCHOR_LEFT NEWT_FLAG_SCROLL NEWT_KEY_F11 NEWT_KEY_F10 |
|
|
|
NEWT_KEY_F1 NEWT_KEY_F2 NEWT_KEY_F4 NEWT_KEY_F5 NEWT_KEY_F12 |
|
|
|
NEWT_KEY_F1 NEWT_KEY_F2 NEWT_KEY_F4 NEWT_KEY_F5 NEWT_KEY_F9 NEWT_KEY_F12 |
|
|
|
NEWT_FLAG_RETURNEXIT NEWT_EXIT_HOTKEY NEWT_FLAG_WRAP NEWT_FLAG_MULTIPLE); |
|
|
|
#use C4::Circulation; |
|
|
|
|
|
|
@ -17,7 +17,7 @@ $VERSION = 0.01; |
|
|
|
|
|
|
|
@ISA = qw(Exporter); |
|
|
|
@EXPORT = qw(&dialog &startint &endint &output &clearscreen &pause &helptext |
|
|
|
&textbox &menu &issuewindow &msg_yn); |
|
|
|
&textbox &menu &issuewindow &msg_yn &borrower_dialog); |
|
|
|
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], |
|
|
|
|
|
|
|
# your exported package globals go here, |
|
|
@ -124,14 +124,14 @@ sub list { |
|
|
|
} |
|
|
|
|
|
|
|
sub issuewindow { |
|
|
|
my ($env,$title,$items1,$items2,$borrower,$name)=@_; |
|
|
|
my ($env,$title,$items1,$items2,$/borrower,$name)=@_; |
|
|
|
my $entry=Newt::Entry(20,NEWT_FLAG_SCROLL | NEWT_FLAG_RETURNEXIT); |
|
|
|
my $label=Newt::Label("book"); |
|
|
|
my $panel = Newt::Panel(5, 5, $title); |
|
|
|
my $l1=Newt::Label("Previous"); |
|
|
|
my $l2=Newt::Label("Current"); |
|
|
|
my $l3=Newt::Label("Borrower Info"); |
|
|
|
my $li = Newt::Listbox(5,NEWT_FLAG_RETURNEXIT | NEWT_FLAG_MULTIPLE); |
|
|
|
my $panel = Newt::Panel(50,25, $title,5,5); |
|
|
|
my $l1 = Newt::Label("Previous"); |
|
|
|
my $l2 = Newt::Label("Current"); |
|
|
|
my $l3 = Newt::Label("Borrower Info"); |
|
|
|
my $li = Newt::Listbox(5,NEWT_FLAG_RETURNEXIT | NEWT_FLAG_MULTIPLE); |
|
|
|
my $li2 = Newt::Listbox(5,NEWT_FLAG_RETURNEXIT | NEWT_FLAG_MULTIPLE); |
|
|
|
my $li3 = Newt::Listbox(5,NEWT_FLAG_RETURNEXIT | NEWT_FLAG_MULTIPLE); |
|
|
|
$li->Add($items1->[0],$items1->[1]); |
|
|
@ -185,7 +185,38 @@ sub dialog { |
|
|
|
$reason="Finished issues"; |
|
|
|
} |
|
|
|
if ($data eq NEWT_KEY_F12){ |
|
|
|
$reason="Quit" |
|
|
|
$reason="Quit"; |
|
|
|
} |
|
|
|
} |
|
|
|
# Newt::Finished(); |
|
|
|
my $stuff=$entry->Get(); |
|
|
|
return($stuff,$reason); |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
sub borrower_dialog { |
|
|
|
my ($env)=@_; |
|
|
|
my $name = "Borrower"; |
|
|
|
my $entry=Newt::Entry(20,NEWT_FLAG_SCROLL | NEWT_FLAG_RETURNEXIT); |
|
|
|
my $label=Newt::Label($name); |
|
|
|
my $panel1=Newt::Panel(2,4,$name); |
|
|
|
$panel1->AddHotKey(NEWT_KEY_F11); |
|
|
|
$panel1->AddHotKey(NEWT_KEY_F10); |
|
|
|
$panel1->AddHotKey(NEWT_KEY_F9); |
|
|
|
$panel1->Add(0,0,$label,NEWT_ANCHOR_LEFT); |
|
|
|
$panel1->Add(1,0,$entry,NEWT_ANCHOR_LEFT); |
|
|
|
my ($reason,$data)=$panel1->Run(); |
|
|
|
if ($reason eq NEWT_EXIT_HOTKEY) { |
|
|
|
if ($data eq NEWT_KEY_F11) { |
|
|
|
$reason="Finished user"; |
|
|
|
} |
|
|
|
if ($data eq NEWT_KEY_F10) { |
|
|
|
$reason="Finished issues"; |
|
|
|
} |
|
|
|
if ($data eq NEWT_KEY_F12){ |
|
|
|
$reason="Quit"; |
|
|
|
} |
|
|
|
if ($data eq NEWT_KEY_F9) { |
|
|
|
} |
|
|
|
} |
|
|
|
# Newt::Finished(); |
|
|
|