[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 chris at katipo.co.nz
@@ -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   => \@select_branch,
-				-default  => $data->{'branchcode'},
+				-default  => $loggedInBranchcode,
 				-labels   => \%select_branches,
 				-size     => 1,
 				-multiple => 0 );