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