[Koha-cvs] CVS: koha memberentry.pl,1.13,1.14

[Andrew Arensburger]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv4007

Modified Files:
	memberentry.pl 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/memberentry.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** memberentry.pl	13 Oct 2002 05:49:13 -0000	1.13
--- memberentry.pl	13 Oct 2002 07:33:10 -0000	1.14
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  #script to set up screen for modification of borrower details
  #written 20/12/99 by chris at katipo.co.nz
***************
*** 41,45 ****
  }
  my $type=$input->param('type') || '';
! my $modify=$input->param('modify.x'); 
  my $delete=$input->param('delete.x');
  if ($delete){
--- 43,47 ----
  }
  my $type=$input->param('type') || '';
! my $modify=$input->param('modify.x');
  my $delete=$input->param('delete.x');
  if ($delete){
***************
*** 52,58 ****
      $template->param( header => 'Add New Member');
    }
!   
    my $data=borrdata('',$member);
!   
    if ($type eq 'Add'){
      $template->param( updtype => 'I');
--- 54,60 ----
      $template->param( header => 'Add New Member');
    }
! 
    my $data=borrdata('',$member);
! 
    if ($type eq 'Add'){
      $template->param( updtype => 'I');
***************
*** 60,64 ****
      $template->param( updtype => 'M');
    }
!   
    my $cardnumber=$data->{'cardnumber'};
    my $autonumber_members = C4::Context->preference("autoMemberNum") || 0;
--- 62,66 ----
      $template->param( updtype => 'M');
    }
! 
    my $cardnumber=$data->{'cardnumber'};
    my $autonumber_members = C4::Context->preference("autoMemberNum") || 0;
***************
*** 89,93 ****
        $cardnumber = $cardnumber + 1;		# FIXME - $cardnumber++;
      }
!   
      while ($i <8) {			# step from char 1 to 7.
        my $temp1 = $weightings[$i];	# read weightings, left to right, 1 char at a time
--- 91,95 ----
        $cardnumber = $cardnumber + 1;		# FIXME - $cardnumber++;
      }
! 
      while ($i <8) {			# step from char 1 to 7.
        my $temp1 = $weightings[$i];	# read weightings, left to right, 1 char at a time
***************
*** 101,114 ****
      if ($rem == 10) {			# if remainder is 10, use X instead
        $rem = "X";
!     }  
      $cardnumber="V$cardnumber$rem";
    } else {
      $cardnumber=$data->{'cardnumber'};
    }
!   
    if ($data->{'sex'} eq 'F'){
      $template->param(female => 1);
!   } 
!   
    my @titles = ('Miss', 'Mrs', 'Ms', 'Mr', 'Dr', 'Sir');
  	# FIXME - Assumes English. This ought to be made part of i18n.
--- 103,116 ----
      if ($rem == 10) {			# if remainder is 10, use X instead
        $rem = "X";
!     }
      $cardnumber="V$cardnumber$rem";
    } else {
      $cardnumber=$data->{'cardnumber'};
    }
! 
    if ($data->{'sex'} eq 'F'){
      $template->param(female => 1);
!   }
! 
    my @titles = ('Miss', 'Mrs', 'Ms', 'Mr', 'Dr', 'Sir');
  	# FIXME - Assumes English. This ought to be made part of i18n.
***************
*** 125,129 ****
      push(@titledata, \%row);
    }
!   
    my ($categories,$labels)=ethnicitycategories();
    my $ethnicitycategoriescount=$#{$categories};
--- 127,131 ----
      push(@titledata, \%row);
    }
! 
    my ($categories,$labels)=ethnicitycategories();
    my $ethnicitycategoriescount=$#{$categories};
***************
*** 136,140 ****
    	$template->param(ethcatpopup => $ethcatpopup); # bad style, has to be fixed
    }
!   
    ($categories,$labels)=borrowercategories();
    my $catcodepopup = CGI::popup_menu(-name=>'categorycode',
--- 138,142 ----
    	$template->param(ethcatpopup => $ethcatpopup); # bad style, has to be fixed
    }
! 
    ($categories,$labels)=borrowercategories();
    my $catcodepopup = CGI::popup_menu(-name=>'categorycode',
***************
*** 142,146 ****
    			        -default=>$data->{'categorycode'},
    			        -labels=>$labels);
!   
    my @areas = ('L','F','S','H','K','O','X','Z','V');
    my %arealabels = ('L' => 'Levin',
--- 144,148 ----
    			        -default=>$data->{'categorycode'},
    			        -labels=>$labels);
! 
    my @areas = ('L','F','S','H','K','O','X','Z','V');
    my %arealabels = ('L' => 'Levin',
***************
*** 153,157 ****
    		  'Z' => 'Interloan Libraries',
    		  'V' => 'Village');
!   		  
    my @areadata;
    while (@areas) {
--- 155,159 ----
    		  'Z' => 'Interloan Libraries',
    		  'V' => 'Village');
! 
    my @areadata;
    while (@areas) {
***************
*** 167,172 ****
      push(@areadata, \%row);
    }
!   
!   
    my @relationships = ('workplace', 'relative','friend', 'neighbour');
    my @relshipdata;
--- 169,174 ----
      push(@areadata, \%row);
    }
! 
! 
    my @relationships = ('workplace', 'relative','friend', 'neighbour');
    my @relshipdata;
***************
*** 181,190 ****
      push(@relshipdata, \%row);
    }
!   
    # %flags: keys=$data-keys, datas=[formname, HTML-explanation]
    my %flags = ('gonenoaddress' => ['gna', 'Gone no address'],
                 'lost'          => ['lost', 'Lost'],
                 'debarred'      => ['debarred', 'Debarred']);
!   
    my @flagdata;
    foreach (keys(%flags)) {
--- 183,192 ----
      push(@relshipdata, \%row);
    }
! 
    # %flags: keys=$data-keys, datas=[formname, HTML-explanation]
    my %flags = ('gonenoaddress' => ['gna', 'Gone no address'],
                 'lost'          => ['lost', 'Lost'],
                 'debarred'      => ['debarred', 'Debarred']);
! 
    my @flagdata;
    foreach (keys(%flags)) {
***************
*** 206,210 ****
      $template->param( modify => 1 );
    }
!   
    $template->param( startmenumember => join ('', startmenu('member')),
    			endmenumember   => join ('', endmenu('member')),
--- 208,212 ----
      $template->param( modify => 1 );
    }
! 
    $template->param( startmenumember => join ('', startmenu('member')),
    			endmenumember   => join ('', endmenu('member')),
***************
*** 235,241 ****
    			cardnumber	=> $cardnumber,
    			dateofbirth	=> $data->{'dateofbirth'});
!   			
    print "Content-Type: text/html\n\n", $template->output;
!   
  
  }
--- 237,243 ----
    			cardnumber	=> $cardnumber,
    			dateofbirth	=> $data->{'dateofbirth'});
! 
    print "Content-Type: text/html\n\n", $template->output;
! 
  
  }