[Koha-cvs] CVS: koha/opac opac-reserve.pl,1.17,1.18 opac-user.pl,1.10,1.11

[Paul POULAIN]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1:/tmp/cvs-serv16522/opac

Modified Files:
	opac-reserve.pl opac-user.pl 
Log Message:
all those fixes are related to translation improvement.
A few minor bugfixes too in perl code.

NOTE TO ENGLISH "TEMPLATORS" : you should look at this commits, as some ideas are really nice.  Thanks to Carole, Wesford School, new Koha user in France :-)

Index: opac-reserve.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-reserve.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** opac-reserve.pl	15 May 2003 13:23:50 -0000	1.17
--- opac-reserve.pl	18 Sep 2003 10:19:28 -0000	1.18
***************
*** 50,55 ****
  }
  
- 
- 
  $rank++;
  $template->param(rank => $rank);
--- 50,53 ----
***************
*** 70,75 ****
  
  foreach my $branch (keys %$branches) {
! 	push @select_branch, $branch;
! 	$select_branches{$branch} = $branches->{$branch}->{'branchname'};
  }
  my $CGIbranch=CGI::scrolling_list( -name     => 'branch',
--- 68,75 ----
  
  foreach my $branch (keys %$branches) {
! 	if ($branch) {
! 		push @select_branch, $branch;
! 		$select_branches{$branch} = $branches->{$branch}->{'branchname'};
! 	}
  }
  my $CGIbranch=CGI::scrolling_list( -name     => 'branch',
***************
*** 162,166 ****
  	push @row, $items[$rownum] if defined $items[$rownum];
      }
!     my $last = @row; 
      $row[$last-1]->{'last'} =1 if $last == $width;
      my $fill = ($width - $last)*2;
--- 162,166 ----
  	push @row, $items[$rownum] if defined $items[$rownum];
      }
!     my $last = @row;
      $row[$last-1]->{'last'} =1 if $last == $width;
      my $fill = ($width - $last)*2;

Index: opac-user.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-user.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** opac-user.pl	19 May 2003 14:34:10 -0000	1.10
--- opac-user.pl	18 Sep 2003 10:19:28 -0000	1.11
***************
*** 43,47 ****
  }
  
! $borr->{'amountoutstanding'} = sprintf "\$%.02f", $borr->{'amountoutstanding'};
  
  my @bordat;
--- 43,47 ----
  }
  
! $borr->{'amountoutstanding'} = sprintf "%.02f", $borr->{'amountoutstanding'};
  
  my @bordat;