[Koha-cvs] koha/members memberentry.pl [dev_week]

[Kyle Hall]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Kyle Hall <kylemhall>   07/04/17 15:18:37

Modified files:
        members        : memberentry.pl 

Log message:
        Library pulldown was not defaulting to the branch logged in.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.5.2.13&r2=1.5.2.13.2.1

Patches:
Index: memberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/memberentry.pl,v
retrieving revision 1.5.2.13
retrieving revision 1.5.2.13.2.1
diff -u -b -r1.5.2.13 -r1.5.2.13.2.1
--- memberentry.pl      5 Feb 2006 21:59:21 -0000       1.5.2.13
+++ memberentry.pl      17 Apr 2007 15:18:37 -0000      1.5.2.13.2.1
@@ -2,7 +2,7 @@
 # NOTE: This file uses standard 8-space tabs
 #       DO NOT SET TAB SIZE TO 4
 
-# $Id: memberentry.pl,v 1.5.2.13 2006/02/05 21:59:21 kados Exp $
+# $Id: memberentry.pl,v 1.5.2.13.2.1 2007/04/17 15:18:37 kylemhall Exp $
 
 #script to set up screen for modification of borrower details
 #written 20/12/99 by address@hidden
@@ -59,6 +59,7 @@
 my $op=$input->param('op');
 my $categorycode=$input->param('categorycode');
 my $destination=$input->param('destination');
+my $loggedInBranchcode = $input->cookie('branch');
 
 my $nok;
 # if a add or modify is requested => check validity of data.
@@ -259,7 +260,7 @@
        my $CGIbranch=CGI::scrolling_list( -name     => 'branchcode',
                                -id => 'branchcode',
                                -values   => address@hidden,
-                               -default  => $data->{'branchcode'},
+                               -default  => $loggedInBranchcode,
                                -labels   => \%select_branches,
                                -size     => 1,
                                -multiple => 0 );