[Koha-cvs] CVS: koha/acqui.simple additem.pl,1.20,1.20.2.1

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv15552/acqui.simple

Modified Files:
      Tag: rel_2_0
	additem.pl 
Log Message:
ordering lists by text (that appears), not by code (that is hidden to the user)

Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.20
retrieving revision 1.20.2.1
diff -C2 -r1.20 -r1.20.2.1
*** additem.pl	24 Nov 2003 17:12:41 -0000	1.20
--- additem.pl	12 Jan 2004 16:37:12 -0000	1.20.2.1
***************
*** 181,185 ****
  my @loop_data =();
  my $i=0;
! my $authorised_values_sth = $dbh->prepare("select authorised_value,lib from authorised_values where category=? order by authorised_value");
  
  foreach my $tag (sort keys %{$tagslib}) {
--- 181,185 ----
  my @loop_data =();
  my $i=0;
! my $authorised_values_sth = $dbh->prepare("select authorised_value,lib from authorised_values where category=? order by lib");
  
  foreach my $tag (sort keys %{$tagslib}) {
***************
*** 204,208 ****
  			#---- branch
  			if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) {
! 				my $sth=$dbh->prepare("select branchcode,branchname from branches");
  				$sth->execute;
  				push @authorised_values, "" unless ($tagslib->{$tag}->{$subfield}->{mandatory});
--- 204,208 ----
  			#---- branch
  			if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) {
! 				my $sth=$dbh->prepare("select branchcode,branchname from branches order by branchname");
  				$sth->execute;
  				push @authorised_values, "" unless ($tagslib->{$tag}->{$subfield}->{mandatory});
***************
*** 213,217 ****
  			#----- itemtypes
  			} elsif ($tagslib->{$tag}->{$subfield}->{authorised_value} eq "itemtypes") {
! 				my $sth=$dbh->prepare("select itemtype,description from itemtypes");
  				$sth->execute;
  				push @authorised_values, "" unless ($tagslib->{$tag}->{$subfield}->{mandatory});
--- 213,217 ----
  			#----- itemtypes
  			} elsif ($tagslib->{$tag}->{$subfield}->{authorised_value} eq "itemtypes") {
! 				my $sth=$dbh->prepare("select itemtype,description from itemtypes order by description");
  				$sth->execute;
  				push @authorised_values, "" unless ($tagslib->{$tag}->{$subfield}->{mandatory});
***************
*** 275,277 ****
  	$template->param($error => 1);
  }
! output_html_with_http_headers $input, $cookie, $template->output;
--- 275,277 ----
  	$template->param($error => 1);
  }
! output_html_with_http_headers $input, $cookie, $template->output;
\ No newline at end of file