Koha/C4/InterfaceCDK.pm

617 lines
16 KiB
Perl
Executable file

package C4::InterfaceCDK; #assumes C4/InterfaceCDK
#uses Newt
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
# FIXME - This module doesn't compile! But I'm pretty sure it, like
# the rest of the CDK-based stuff, is obsolete.
use C4::Format;
use strict;
use Cdk;
use Date::Manip;
use C4::Accounts;
use C4::Circulation::Borrissues;
use C4::Circulation::Renewals;
#use C4::Circulation;
require Exporter;
use DBI;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
$VERSION = 0.01;
@ISA = qw(Exporter);
@EXPORT = qw(&dialog &startint &endint &output &clearscreen &pause &helptext
&textbox &menu &issuewindow &msg_yn &msg_ny &borrower_dialog &debug_msg &error_msg
&info_msg &selborrower &returnwindow &logondialog &borrowerwindow &titlepanel
&borrbind &borrfill &preeborr &borrowerbox &brmenu &prmenu);
sub suspend_cb {
# is this planned for something?
}
sub startint {
my ($env,$msg)=@_;
Cdk::init();
}
sub menu {
my ($env,$type,$title,@items)=@_;
$env->{'sysarea'}="Menu";
my $titlebar=titlepanel($env,"Koha","Main Menu");
my $reason;
my $data;
my @mitems;
my $x = 0;
while ($items[$x] ne "") {
$mitems[$x]="<C>".$items[$x];
$x++;
}
if ($type eq 'console'){
my $menucnt = @items;
my $menu = new Cdk::Scroll ('Title'=>" ",
'List'=>\@mitems,
'Height'=> $menucnt+4,
'Width'=> 26);
# Activate the object.
my ($menuItem) = $menu->activate();
# Check the results.
undef $menu;
if (!defined $menuItem) {
$data = "Quit";
}
else {
$data = $items[$menuItem];
}
}
return($reason,$data);
# end of menu
}
# FIXME - Is this a placeholder?
sub clearscreen {
}
# FIXME - Is this a placeholder?
sub pause {
}
sub output {
my($left,$top,$msg)=@_;
my @outm;
$outm[0]=$msg;
my $output = new Cdk::Label ('Message' =>\@outm,
'Ypos'=>$top, 'Xpos'=>$left, 'Box'=>0);
$output->draw();
return $output;
}
sub helptext {
my ($text)=@_;
my $helptext = output(1,24,$text);
return $helptext;
}
sub titlepanel{
my ($env,$title,$title2)=@_;
my @header;
@header[0] = fmtstr($env,$title,"L24");
@header[0] = @header[0].fmtstr($env,
$env->{'branchname'}."-".$env->{'queue'},"C28");
@header[0] = @header[0].fmtstr($env,$title2,"R24");
my $label = new Cdk::Label ('Message' =>\@header,'Ypos'=>0,'Xpos'=>0);
$label->draw();
return $label;
}
sub msg_yn {
my ($env,$text1,$text2)=@_;
# Create the dialog buttons.
my @buttons = ("Yes", "No");
my @mesg = ("<C>$text1", "<C>$text2");
# Create the dialog object.
my $dialog = new Cdk::Dialog ('Message' => \@mesg, 'Buttons' => \@buttons);
my $resp = $dialog->activate();
my $response = "Y";
if ($resp == 1) {
$response = "N";
}
undef $dialog;
return $response;
}
sub msg_ny {
my ($env,$text1,$text2)=@_;
# Cdk::init();
# Create the dialog buttons.
my @buttons = ("No", "Yes");
my @mesg = ("<C>$text1", "<C>$text2");
# Create the dialog object.
my $dialog = new Cdk::Dialog ('Message' => \@mesg, 'Buttons' => \@buttons);
my $resp = $dialog->activate();
my $response = "N";
if ($resp == 1) {
$response = "Y";
}
undef $dialog;
return $response;
}
sub debug_msg {
my ($env,$text)=@_;
if ($env->{'telnet'} eq "Y") {
popupLabel (["Debug </R>$text"]);
# } else {
# print "****DEBUG $text****";
}
return();
}
sub error_msg {
my ($env,$text)=@_;
popupLabel (["<C>Error </R>$text"]);
return();
}
sub info_msg {
my ($env,$text)=@_;
popupLabel ([$text]);
return();
}
sub endint {
Cdk::end();
}
sub brmenu {
my ($env,$brrecs)=@_;
$env->{'sysarea'}="Menu";
my $titlebar=titlepanel($env,"Koha","Select branch");
my @mitems;
my $x = 0;
while (@$brrecs[$x] ne "") {
my $brrec =@$brrecs[$x];
$mitems[$x]=fmtstr($env,$brrec->{'branchcode'},"L6");
$mitems[$x]=$mitems[$x].fmtstr($env,$brrec->{'branchname'},"L20");
$x++;
}
my $menu = new Cdk::Scroll ('Title'=>" ",
'List'=>\@mitems,
'Height'=> 16,
'Width'=> 30);
# Activate the object.
my ($menuItem) = $menu->activate();
# Check the results.
if (defined $menuItem) {
my $brrec = @$brrecs[$menuItem];
$env->{'branchcode'} = $brrec->{'branchcode'};
$env->{'branchname'} = $brrec->{'branchname'};
}
undef $menu;
undef $titlebar;
return();
}
sub prmenu {
my ($env,$prrecs)=@_;
$env->{'sysarea'}="Menu";
my $titlebar=titlepanel($env,"Koha","Select printer");
my @mitems;
my $x = 0;
while (@$prrecs[$x] ne "") {
my $prrec =@$prrecs[$x];
$mitems[$x]=fmtstr($env,$prrec->{'printername'},"L20");
$x++;
}
my $menu = new Cdk::Scroll ('Title'=>" ",
'List'=>\@mitems,
'Height'=> 16,
'Width'=> 30);
# Activate the object.
my ($menuItem) = $menu->activate();
undef $menu;
undef $titlebar;
# Check the results.
if (defined $menuItem) {
my $prrec = @$prrecs[$menuItem];
$env->{'queue'} = $prrec->{'printqueue'};
$env->{'printtype'} = $prrec->{'printtype'};
}
return();
}
sub borrower_dialog {
my ($env)=@_;
my $result;
my $borrower;
my $book;
my @coltitles = ("Borrower","Item");
my @rowtitles = (" ");
my @coltypes = ("UMIXED","UMIXED");
my @colwidths = (12,12);
my $matrix = new Cdk::Matrix (
'ColTitles'=> \@coltitles,
'RowTitles'=> \@rowtitles,
'ColWidths'=> \@colwidths,
'ColTypes'=> \@coltypes,
'Vrows'=> 1,
'Vcols'=> 2);
borrbind($env,$matrix);
#$matrix->draw();
my ($rows,$cols,$info) = $matrix->activate();
if ((!defined $rows) && ($info->[0][0] eq "")) {
$result = "Circ";
} else {
$borrower = $info->[0][0];
$book = $info->[0][1];
}
$matrix->erase();
$matrix->unregister();
undef $matrix;
Cdk::refreshCdkScreen();
return ($borrower,$result,$book);
}
sub selborrower {
my ($env,$dbh,$borrows,$bornums)=@_;
my $result;
my $label = "Select a borrower";
my $scroll = new Cdk::Scroll ('Title'=>$label,
'List'=>\@$borrows,'Height'=>15,'Width'=>60);
my $returnValue = $scroll->activate ();
if (!defined $returnValue) {
#$result = "Circ";
} else {
$result = substr(@$borrows[$returnValue],0,9);
}
$scroll->erase();
#$scroll->unregister();
undef $scroll;
Cdk::refreshCdkScreen();
return $result;
}
sub issuewindow {
my ($env,$title,$dbh,$items1,$items2,$borrower,$amountowing,$odues)=@_;
my @functs=("Due Date","Renewals","Payments","Print","Current","Previous");
my $titlepanel = titlepanel($env,"Issues","Issue an Item");
my $scroll2 = new Cdk::Scroll ('Title'=>"Previous Issues",
'List'=>\@$items1,'Height'=> 8,'Width'=>78,'Ypos'=>18);
my $scroll1 = new Cdk::Scroll ('Title'=>"Current Issues",
'List'=>\@$items2,'Height'=> 8,'Width'=>78,'Ypos'=>9);
my $funcmenu = new Cdk::Scroll ('Title'=>"",
'List'=>\@functs,'Height'=>5,'Width'=>12,'Ypos'=>3,'Xpos'=>28);
my $loanlength = new Cdk::Entry('Label'=>"Due Date: ",
'Max'=>"30",'Width'=>"11",
'Xpos'=>0,'Ypos'=>5,'Type'=>"UMIXED");
my $x = 0;
while ($x < length($env->{'loanlength'})) {
$loanlength->inject('Input'=>substr($env->{'loanlength'},$x,1));
$x++;
}
my $borrbox = borrowerbox($env,$borrower,$amountowing);
my $entryBox = new Cdk::Entry('Label'=>"Item Barcode: ",
'Max'=>"11",'Width'=>"11",
'Xpos'=>"0",'Ypos'=>3,'Type'=>"UMIXED");
$scroll2->draw();
$scroll1->draw();
$funcmenu->draw();
$loanlength->draw();
$borrbox->draw();
#$env->{'loanlength'} = "";
#debug_msg($env,"clear len");
my $x;
my $barcode;
$entryBox->preProcess ('Function' =>
sub{prebook(@_,$env,$dbh,$funcmenu,$entryBox,$loanlength,
$scroll1,$scroll2,$borrower,$amountowing,$odues);});
$barcode = $entryBox->activate();
my $reason;
if (!defined $barcode) {
$reason="Finished user"
}
$borrbox->erase();
$entryBox->erase();
$scroll2->erase();
$scroll1->erase();
$funcmenu->erase();
$loanlength->erase();
undef $titlepanel;
undef $borrbox;
undef $entryBox;
undef $scroll2;
undef $scroll1;
undef $funcmenu;
undef $loanlength;
Cdk::refreshCdkScreen();
#debug_msg($env,"exiting");
return $barcode,$reason;
}
sub actfmenu {
my ($env,$dbh,$funcmenu,$entryBox,$loanlength,$scroll1,
$scroll2,$borrower,$amountowing,$odues) = @_;
my $funct = $funcmenu->activate();
if (!defined $funct) {
} elsif ($funct == 0 ) {
actloanlength ($env,$entryBox,$loanlength,$scroll1,$scroll2);
} elsif ($funct == 1 ) {
$entryBox->erase();
$scroll1->erase();
$scroll2->erase();
$loanlength->erase();
$funcmenu->erase();
#debug_msg($env,"");
C4::Circulation::Renewals::bulkrenew($env,$dbh,
$borrower->{'borrowernumber'},$amountowing,$borrower,$odues);
} elsif ($funct == 2 ) {
$entryBox->erase();
$scroll1->erase();
$scroll2->erase();
$loanlength->erase();
$funcmenu->erase();
C4::Accounts::reconcileaccount($env,$dbh,$borrower->{'borrowernumber'},
$amountowing,$borrower,$odues);
} elsif ($funct == 3 ) {
C4::Circulation::Borrissues::printallissues ($env,$borrower);
} elsif ($funct == 4 ) {
actscroll1 ($env,$entryBox,$loanlength,$scroll1,$scroll2);
} elsif ($funct == 5 ) {
actscroll2 ($env,$entryBox,$loanlength,$scroll1,$scroll2);
}
Cdk::refreshCdkScreen();
$entryBox->unregister();
$entryBox->register();
return
}
sub actscroll1 {
my ($env,$entryBox,$loanlength,$scroll1,$scroll2) = @_;
$scroll1->activate();
return 1;
}
sub actscroll2 {
my ($env,$entryBox,$loanlength,$scroll1,$scroll2) = @_;
$scroll2->activate();
return 1;
}
sub actloanlength {
my ($env,$entryBox,$loanlength,$scroll1,$scroll2) = @_;
my $validdate = "N";
while ($validdate eq "N") {
my $loanlength = $loanlength->activate();
if (!defined $loanlength) {
$env->{'loanlength'} = "";
$validdate = "Y";
} elsif ($loanlength eq "") {
$env->{'loanlength'} = "";
$validdate = "Y";
} else {
my $date = ParseDate($loanlength);
if ( $date > ParseDate('today')){
$validdate="Y";
my $fdate = substr($date,0,4).'-'.substr($date,4,2).'-'.substr($date,6,2);
#debug_msg($env,"$date $fdate");
$env->{'loanlength'} = $fdate;
} else {
error_msg($env,"Invalid date");
}
}
}
return;
}
sub prebook {
my ($input,$env,$dbh,$funcmenu,$entryBox,$loanlength,
$scroll1,$scroll2,$borrower,$amountowing,$odues)= @_;
# FIXME - $key_tab is undefined
if ($input eq $key_tab) {
actfmenu ($env,$dbh,$funcmenu,$entryBox,$loanlength,$scroll1,
$scroll2,$borrower,$amountowing,$odues);
return 0;
}
return 1;
}
sub borrowerbox {
my ($env,$borrower,$amountowing,$odues) = @_;
my @borrinfo;
my $amountowing = fmtdec($env,$amountowing,"42");
my $line = "$borrower->{'cardnumber'} ";
$line = $line."$borrower->{'surname'}, ";
$line = $line."$borrower->{'title'} $borrower->{'firstname'}";
$borrinfo[0]=$line;
$line = "$borrower->{'streetaddress'}, $borrower->{'city'}";
$borrinfo[1]=$line;
$line = "$borrower->{'categorycode'}";
if ($borrower->{'gonenoaddress'} == 1) {
$line = $line." </R>GNA<!R>";
}
if ($borrower->{'lost'} == 1) {
$line = $line." </R>LOST<!R>";
}
if ($odues > 0) {
$line = $line." </R>ODUE<!R>";
}
if ($borrower->{'borrowernotes'} ne "" ) {
$line = $line." </R>NOTES<!R>";
}
if ($amountowing > 0) {
$line = $line." </B>\$$amountowing";
}
$borrinfo[2]=$line;
if ($borrower->{'borrowernotes'} ne "" ) {
$borrinfo[3]=substr($borrower->{'borrowernotes'},0,40);
}
my $borrbox = new Cdk::Label ('Message' =>\@borrinfo,
'Ypos'=>3, 'Xpos'=>"RIGHT");
return $borrbox;
}
sub returnwindow {
my ($env,$title,$item,$items,$borrower,$amountowing,$odues,$dbh,$resp)=@_;
#debug_msg($env,$borrower);
my $titlepanel = titlepanel($env,"Returns","Scan Item");
my @functs=("Payments","Renewal");
my $funcmenu = new Cdk::Scroll ('Title'=>"",
'List'=>\@functs,'Height'=>5,'Width'=>12,'Ypos'=>3,'Xpos'=>16);
my $returnlist = new Cdk::Scroll ('Title'=>"Items Returned",
'List'=>\@$items,'Height'=> 12,'Width'=>74,'Ypos'=>10,'Xpos'=>1);
$returnlist->draw();
$funcmenu->draw();
my $borrbox;
if ($borrower->{'cardnumber'} ne "") {
$borrbox = borrowerbox($env,$borrower,$amountowing);
$borrbox->draw();
} else {
if ($resp ne "") {
my @text;
@text[0] = $resp;
$borrbox = new Cdk::Label ('Message' =>\@text, 'Ypos'=>3, 'Xpos'=>"RIGHT");
$borrbox->draw();
}
}
my $bookentry = new Cdk::Entry('Label'=>" ",
'Max'=>"11",'Width'=>"11",
'Xpos'=>"2",'Ypos'=>"3",'Title'=>"Item Barcode",
'Type'=>"UMIXED");
$bookentry->preProcess ('Function' =>sub{preretbook(@_,$env,$dbh,
$funcmenu,$bookentry,$borrower,$amountowing,
$odues,$titlepanel,$borrbox,$returnlist);});
my $barcode = $bookentry->activate();
my $reason;
if (!defined $barcode) {
$barcode="";
$reason="Circ";
$bookentry->erase();
$funcmenu->erase();
if ($borrbox ne "") {$borrbox->erase();}
$returnlist->erase();
} else {
$reason="";
}
undef $bookentry;
undef $funcmenu;
undef $borrbox;
undef $returnlist;
undef $titlepanel;
return($reason,$barcode);
}
sub preretbook {
my ($input,$env,$dbh,$funcmenu,$bookentry,$borrower,
$amountowing,$odues,$titlepanel,$borrbox,$returnlist)=@_;
if ($input eq $key_tab) {
actrfmenu($env,$dbh,$funcmenu,$bookentry,$borrower,
$amountowing,$odues,$titlepanel,$borrbox,$returnlist);
return 0;
}
return 1;
}
sub actrfmenu {
my ($env,$dbh,$funcmenu,$bookentry,$borrower,
$amountowing,$odues,$titlepanel,$borrbox,$returnlist)= @_;
my $funct = $funcmenu->activate();
#debug_msg($env,"funtion $funct");
if (!defined $funct) {
} elsif ($funct == 1 ) {
if ($borrower->{'borrowernumber'} ne "") {
$funcmenu->erase();
$bookentry->erase();
$titlepanel->erase();
$borrbox->erase();
$returnlist->erase();
C4::Circulation::Renewals::bulkrenew($env,$dbh,
$borrower->{'borrowernumber'},$amountowing,$borrower,$odues);
Cdk::refreshCdkScreen();
$funcmenu->draw();
$bookentry->draw();
$titlepanel->draw();
$borrbox->draw();
$returnlist->draw();
}
} elsif ($funct == 0 ) {
if ($borrower->{'borrowernumber'} ne "") {
$funcmenu->erase();
$bookentry->erase();
$titlepanel->erase();
$borrbox->erase();
$returnlist->erase();
C4::Accounts::reconcileaccount($env,$dbh,$borrower->{'borrowernumber'},
$amountowing,$borrower,$odues);
$funcmenu->draw();
$bookentry->draw();
$titlepanel->draw();
$borrbox->draw();
$returnlist->draw();
#Cdk::refreshCdkScreen();
}
}
}
sub act {
my ($obj) = @_;
my $ans = $obj->activate();
return $ans;
}
sub borrbind {
my ($env,$entry) = @_;
my $lastborr = $env->{"bcard"};
$entry->preProcess ('Function' => sub {preborr (@_, $env,$entry);});
}
sub preborr {
my ($input,$env, $entry) = @_;
if ($env->{"bcard"} ne "") {
# error_msg($env,"hi there");
# FIXME - $lastval is undefined
if ($input eq $lastval) {
# error_msg($env,"its a ctrl-r");
borfill($env,$entry);
return 0;
}
}
return 1;
}
sub borfill {
my ($env,$entry) = @_;
error_msg($env,"in borfill: $env->{'bcard'}");
my $lastborr = $env->{"bcard"};
my $i = 1;
$entry->inject('Input'=>$lastborr);
while ($i < 9) {
# my $temp=substr($lastborr,$i,1);
# $entry->inject('Input'=>$temp);
$i++;
}
}
END { } # module clean-up code here (global destructor)