[Koha-cvs] koha/catalogue search.pl

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/04/30 14:30:23

Modified files:
        catalogue      : search.pl 

Log message:
        Commiting bulkedition in search page.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/catalogue/search.pl?cvsroot=koha&r1=1.5&r2=1.6

Patches:
Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/catalogue/search.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- search.pl   25 Apr 2007 16:26:42 -0000      1.5
+++ search.pl   30 Apr 2007 14:30:23 -0000      1.6
@@ -2,7 +2,7 @@
 # Script to perform searching
 # For documentation try 'perldoc /path/to/search'
 #
-# $Header: /cvsroot/koha/koha/catalogue/search.pl,v 1.5 2007/04/25 16:26:42 
tipaul Exp $
+# $Header: /cvsroot/koha/koha/catalogue/search.pl,v 1.6 2007/04/30 14:30:23 
hdl Exp $
 #
 # Copyright 2006 LibLime
 #
@@ -415,7 +415,29 @@
     output_html_with_http_headers $cgi, $cookie, $template->output;
     exit;
 }
+my $op=$cgi->param("operation");
+if ($op eq "bulkedit"){
+        my ($countchanged,$listunchanged)=
+          EditBiblios($results_hashref->{'biblioserver'}->{"RECORDS"},
+                      $params->{"tagsubfield"},
+                      $params->{"inputvalue"},
+                      $params->{"targetvalue"},
+                      $params->{"test"}
+                      );
+        $template->param(bulkeditresults=>1,
+                      tagsubfield=>$params->{"tagsubfield"},
+                      inputvalue=>$params->{"inputvalue"},
+                      targetvalue=>$params->{"targetvalue"},
+                      countchanged=>$countchanged,
+                      countunchanged=>scalar(@$listunchanged),
+                      listunchanged=>$listunchanged);
+}
 
+if (C4::Context->userenv->{'flags'}==1 ||(C4::Context->userenv->{'flags'} & ( 
2**9 ) )){
+#Edit Catalogue Permissions
+  $template->param(bulkedit => 1);
+  $template->param(tagsubfields=>GetManagedTagSubfields());
+}
 # At this point, each server has given us a result set
 # now we build that set for template display
 my @sup_results_array;