[Koha-cvs] CVS: koha/acqui newbiblio.pl,1.21,1.21.2.1

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/acqui
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28209/acqui

Modified Files:
      Tag: rel_2_2
        newbiblio.pl 
Log Message:
Adding choice lists for sort1/Sort2 For biblios and patrons management.
Commiting along Help Modifications

Index: newbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/newbiblio.pl,v
retrieving revision 1.21
retrieving revision 1.21.2.1
diff -C2 -r1.21 -r1.21.2.1
*** newbiblio.pl        14 Sep 2004 12:09:52 -0000      1.21
--- newbiblio.pl        28 Jun 2005 11:51:59 -0000      1.21.2.1
***************
*** 31,34 ****
--- 31,35 ----
  use C4::Search;
  use C4::Output;
+ use C4::Input;
  use C4::Interface::CGI::Output;
  use HTML::Template;
***************
*** 140,143 ****
--- 141,159 ----
                        -multiple => 0 );
  
+ #Build sort lists
+ my $CGIsort1 = buildCGIsort("Asort1","sort1",$data->{'sort1'});
+ if ($CGIsort1) {
+       $template->param(CGIsort1 => $CGIsort1);
+ } else {
+       $template->param( sort1 => $data->{'sort1'});
+ }
+ 
+ my $CGIsort2 = buildCGIsort("Asort2","sort2",$data->{'sort2'});
+ if ($CGIsort2) {
+       $template->param(CGIsort2 =>$CGIsort2);
+ } else {
+       $template->param( sort2 => $data->{'sort2'});
+ }
+ 
  # fill template
  $template->param( existing => $biblio,
***************
*** 173,178 ****
                                                ecost => $data->{'ecost'},
                                                notes => $data->{'notes'},
-                                               sort1 => $data->{'sort1'},
-                                               sort2 => $data->{'sort2'},
                                                publishercode => 
$data->{'publishercode'});
  
--- 189,192 ----