[Koha-cvs] koha/serials distributedto.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/12 16:47:15

Modified files:
        serials        : distributedto.pl 

Log message:
        Pod added, SQL code move on Serials.pm

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/distributedto.pl?cvsroot=koha&r1=1.1&r2=1.2

Patches:
Index: distributedto.pl
===================================================================
RCS file: /sources/koha/koha/serials/distributedto.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- distributedto.pl    19 Jan 2006 12:46:58 -0000      1.1
+++ distributedto.pl    12 Jul 2006 16:47:15 -0000      1.2
@@ -17,6 +17,36 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
+# $Id: distributedto.pl,v 1.2 2006/07/12 16:47:15 toins Exp $
+
+=head1 NAME
+
+distributedto
+
+=head1 DESCRIPTION
+
+this script is launched as a popup. It allows to choose for who the 
subscription can be distributed.
+
+=head1 PARAMETERS
+
+=over 4
+
+=item searchfield
+to filter on the members.
+
+=item distributedto
+to know if there are already some members to in the distributed list
+
+=item subscriptionid
+to know what subscription this scrpit have to distribute.
+
+=item SaveList
+
+=back
+
+=cut
+
+
 use strict;
 use CGI;
 use C4::Date;
@@ -26,24 +56,8 @@
 use C4::Interface::CGI::Output;
 use C4::Search;
 use HTML::Template;
-
-sub StringSearch  {
-       my ($searchstring)address@hidden;
-       my $dbh = C4::Context->dbh;
-       $searchstring=~ s/\'/\\\'/g;
-       my @data=split(' ',$searchstring);
-       my address@hidden;
-       my $sth=$dbh->prepare("Select surname,firstname from borrowers where 
(surname like ?) order by surname");
-       $sth->execute("$data[0]%");
-       my @results;
-       my $cnt=0;
-       while (my $data=$sth->fetchrow_hashref){
-               push(@results,$data);
-               $cnt ++;
-       }
-       $sth->finish;
-       return($cnt,address@hidden);
-}
+use C4::Serials;
+use C4::Members;
 
 my $input = new CGI;
 my $searchfield=$input->param('searchfield');
@@ -54,17 +68,10 @@
 my $SaveList=$input->param('SaveList');
 my $dbh = C4::Context->dbh;
 
-unless ($distributedto) {
-       # read the previous distributedto
-       my $sth = $dbh->prepare('select distributedto from subscription where 
subscriptionid=?');
-       $sth->execute($subscriptionid);
-       ($distributedto) = $sth->fetchrow;
-}
+$distributedto = GetDistributedTo($subscriptionid) unless $distributedto;
+
+SetDistributedto($distributedto,$subscriptionid) if ($SaveList) ;
 
-if ($SaveList) {
-       my $sth = $dbh->prepare("update subscription set distributedto=? where 
subscriptionid=?");
-       $sth->execute($distributedto,$subscriptionid);
-}
 my ($template, $borrowernumber, $cookie)
     = get_template_and_user({template_name => "serials/distributedto.tmpl",
                             query => $input,
@@ -74,10 +81,7 @@
                             debug => 1,
                             });
 
-my $env;
-my $count=0;
-my $results;
-($count,$results)=StringSearch($searchfield) if $searchfield;
+my ($count,$results)=GetBorrowersFromSurname($searchfield) if $searchfield;
 my $toggle="0";
 my @loop_data =();
 for (my $i=0; $i < $count; $i++){
@@ -99,4 +103,3 @@
                                subscriptionid => $subscriptionid,
                                );
 output_html_with_http_headers $input, $cookie, $template->output;
-