[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 ----