From 440b5402e67edfa1910b3511513dc8ab62ba8a3d Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Sun, 15 May 2005 05:56:05 +0000
Subject: [PATCH] Can now change branch and printer

---
 koha-curses/circ.pl | 68 +++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 62 insertions(+), 6 deletions(-)

diff --git a/koha-curses/circ.pl b/koha-curses/circ.pl
index b279f211e8..087c34cfaa 100755
--- a/koha-curses/circ.pl
+++ b/koha-curses/circ.pl
@@ -25,6 +25,7 @@ use Curses::UI;
 use C4::Circulation::Circ2;
 use C4::Search;
 use C4::Print;
+use C4::Context;
 
 my $cui = new Curses::UI( -color_support => 1 );
 
@@ -37,6 +38,13 @@ my @menu = (
             { -label => 'Exit     ^Q', -value => \&exit_dialog }
         ]
     },
+    {
+        -label   => 'Parameters',
+        -submenu => [
+            { -label => 'Branch',  -value => \&changebranch },
+            { -label => 'Printer', -value => \&changeprinter }
+        ]
+    },
 );
 
 my $menu = $cui->add(
@@ -85,6 +93,8 @@ $cui->set_binding( \&returns,     "\cR" );
 $texteditor->focus();
 $cui->mainloop();
 
+my %env;
+
 sub exit_dialog() {
     my $return = $cui->dialog(
         -message => "Do you really want to quit?",
@@ -102,7 +112,7 @@ sub returns {
         -question => 'Barcode'
     );
     my $branch = 'MAIN';
-    my %env;
+
     if ($barcode) {
         my ( $returned, $messages, $iteminformation, $borrower ) =
           returnbook( $barcode, $branch );
@@ -129,7 +139,6 @@ sub issues {
 
     # this routine does the actual issuing
 
-    my %env;
     my $borrowernumber;
     my $borrowerlist;
 
@@ -185,10 +194,6 @@ sub issues {
         );
 
         $popupbox->focus();
-        $borrowernumber = $popupbox->get();
-        if ($borrowernumber) {
-            doissues( $borrowernumber, \%env, $year, $month, $day );
-        }
     }
     else {
     }
@@ -282,3 +287,54 @@ sub doissues {
         printslip( $env, $borrowernumber );
     }
 }
+
+sub changebranch {
+    my $dbh = C4::Context->dbh();
+    my $sth = $dbh->prepare('SELECT * FROM branches');
+    $sth->execute();
+    my @branches;
+    while ( my $data = $sth->fetchrow_hashref() ) {
+        push @branches, $data->{'branchcode'};
+    }
+    $sth->finish;
+    $win1->delete('text');
+    $win1->delete('mypopupbox');
+    my $popupbox = $win1->add(
+        'mypopupbox', 'Popupmenu',
+        -values   => [@branches],
+        -onchange => \&setbranch,
+    );
+    $popupbox->focus();
+}
+
+sub changeprinter {
+    my $dbh = C4::Context->dbh();
+    my $sth = $dbh->prepare('SELECT * FROM printers');
+    $sth->execute();
+    my @printers;
+    while ( my $data = $sth->fetchrow_hashref() ) {
+        push @printers, $data->{'printqueue'};
+    }
+    $sth->finish;
+    $win1->delete('text');
+    $win1->delete('mypopupbox');
+    my $popupbox = $win1->add(
+        'mypopupbox', 'Popupmenu',
+        -values   => [@printers],
+        -onchange => \&setprinter,
+    );
+    $popupbox->focus();
+
+}
+
+sub setbranch {
+    my $list   = shift;
+    my $branch = $list->get();
+    $env{'branch'} = $branch;
+}
+
+sub setprinter {
+    my $list    = shift;
+    my $printer = $list->get();
+    $env{'printer'} = $printer;
+}
-- 
2.39.5