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!

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)