[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