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

[Henri-Damien LAURENT]

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

Modified Files:
        newbiblio.pl 
Log Message:
Adding scrolling list for sort1 and sort2

Index: newbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/newbiblio.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** newbiblio.pl        14 Sep 2004 12:09:52 -0000      1.21
--- newbiblio.pl        22 Jun 2005 09:36:24 -0000      1.22
***************
*** 25,28 ****
--- 25,29 ----
  use CGI;
  use C4::Context;
+ use C4::Input;
  use C4::Database;
  use C4::Auth;
***************
*** 140,143 ****
--- 141,159 ----
                        -multiple => 0 );
  
+ my $CGIsort1 = buildCGIsort("Bsort1","sort1",$data->{'sort1'});
+ if ($CGIsort1) {
+       $template->param(CGIsort1 => $CGIsort1);
+ } else {
+       $template->param( sort1 => $data->{'sort1'});
+ }
+ 
+ my $CGIsort2 = buildCGIsort("Bsort2","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 ----