View | Details | Raw Unified | Return to bug 23199
Collapse All | Expand All

(-)a/Koha/Patron.pm (-4 / +4 lines)
Lines 193-203 sub store { Link Here
193
193
194
            $self->trim_whitespaces;
194
            $self->trim_whitespaces;
195
195
196
            unless ( $self->in_storage ) {    #AddMember
196
            # Set surname to uppercase if uppercasesurname is true
197
	    $self->surname( uc($self->surname) )
198
		if C4::Context->preference("uppercasesurname");
197
199
198
		# Set surname to uppercase if uppercasesurname is true
200
            unless ( $self->in_storage ) {    #AddMember
199
		$self->surname = uc($self->surname)
200
		  if C4::Context->preference("uppercasesurname");
201
201
202
                # Generate a valid userid/login if needed
202
                # Generate a valid userid/login if needed
203
                $self->generate_userid
203
                $self->generate_userid
(-)a/members/memberentry.pl (-5 lines)
Lines 343-352 if ($op eq 'save' || $op eq 'insert'){ Link Here
343
        }
343
        }
344
    }
344
    }
345
  
345
  
346
    if($newdata{surname} && C4::Context->preference('uppercasesurnames')) {
347
        $newdata{'surname'} = uc($newdata{'surname'});
348
    }
349
350
  if (C4::Context->preference("IndependentBranches")) {
346
  if (C4::Context->preference("IndependentBranches")) {
351
    unless ( C4::Context->IsSuperLibrarian() ){
347
    unless ( C4::Context->IsSuperLibrarian() ){
352
      $debug and print STDERR "  $newdata{'branchcode'} : ".$userenv->{flags}.":".$userenv->{branch};
348
      $debug and print STDERR "  $newdata{'branchcode'} : ".$userenv->{flags}.":".$userenv->{branch};
353
- 

Return to bug 23199