Attachment #9259 for bug #7957

View | Details | Raw Unified | Return to bug 7957
Collapse All | Expand All

Lines 162-168 sub GetItem { Link Here

(-)a/C4/Items.pm (-1 / +1 lines)
162	($data->{'serialseq'} , $data->{'publisheddate'}) = $ssth->fetchrow_array();	162	($data->{'serialseq'} , $data->{'publisheddate'}) = $ssth->fetchrow_array();
163	}	163	}
164	#if we don't have an items.itype, use biblioitems.itemtype.	164	#if we don't have an items.itype, use biblioitems.itemtype.
165	if( ! $data->{'itype'} ) {	165	if( $data and ! $data->{'itype'} ) {
166	my $sth = $dbh->prepare("SELECT itemtype FROM biblioitems WHERE biblionumber = ?");	166	my $sth = $dbh->prepare("SELECT itemtype FROM biblioitems WHERE biblionumber = ?");
167	$sth->execute($data->{'biblionumber'});	167	$sth->execute($data->{'biblionumber'});
168	($data->{'itype'}) = $sth->fetchrow_array;	168	($data->{'itype'}) = $sth->fetchrow_array;




      &ReNewSubscription  &GetLateIssues      &GetLateOrMissingIssues
      &GetSerialInformation                   &AddItem2Serial
      &PrepareSerialsData &GetNextExpected    &ModNextExpected
      &GetSerial &GetSerialItemnumber

      &UpdateClaimdateIssues
      &GetSuppliersWithLateIssues             &getsupplierbyserialid
      &GetDistributedTo   &SetDistributedTo
      &updateClaim        &removeMissingIssue
      &reorder_members
      &check_routing &updateClaim &removeMissingIssue
      &CountIssues
      HasItems


    return $dbh->prepare($query);
}

=head2 GetSerial

    my $serial = &GetSerial($serialid);

This sub returns serial informations (ie. in serial table) for given $serialid
It returns a hashref where each key is a sql column.

=cut

sub GetSerial {
    my ($serialid) = @_;

    return unless $serialid;

    my $dbh = C4::Context->dbh;
    my $query = qq{
        SELECT *
        FROM serial
        WHERE serialid = ?
    };
    my $sth = $dbh->prepare($query);
    $sth->execute($serialid);
    return $sth->fetchrow_hashref;
}

=head2 GetSerialItemnumber

    my $itemnumber = GetSerialItemnumber($serialid);

Returns the itemnumber associated to $serialid or undef if there is no item.

=cut

sub GetSerialItemnumber {
    my ($serialid) = @_;

    return unless $serialid;
    my $itemnumber;

    my $dbh = C4::Context->dbh;
    my $query = qq{
        SELECT itemnumber
        FROM serialitems
        WHERE serialid = ?
    };
    my $sth = $dbh->prepare($query);
    my $rv = $sth->execute($serialid);
    if ($rv) {
        my $result = $sth->fetchrow_hashref;
        $itemnumber = $result->{itemnumber};
    }
    return $itemnumber;
}

=head2 GetSerialStatusFromSerialId

$sth = GetSerialStatusFromSerialId();

    return $result;
}

=head2 check_routing

$result = &check_routing($subscriptionid)

this function checks to see if a serial has a routing list and returns the count of routingid
used to show either an 'add' or 'edit' link

=cut

sub check_routing {
    my ($subscriptionid) = @_;
    my $dbh              = C4::Context->dbh;
    my $sth              = $dbh->prepare(
        "SELECT count(routingid) routingids FROM subscription LEFT JOIN subscriptionroutinglist 
                              ON subscription.subscriptionid = subscriptionroutinglist.subscriptionid
                              WHERE subscription.subscriptionid = ? ORDER BY ranking ASC
                              "
    );
    $sth->execute($subscriptionid);
    my $line   = $sth->fetchrow_hashref;
    my $result = $line->{'routingids'};
    return $result;
}

=head2 addroutingmember

addroutingmember($borrowernumber,$subscriptionid)

this function takes a borrowernumber and subscriptionid and adds the member to the
routing list for that serial subscription and gives them a rank on the list
of either 1 or highest current rank + 1

=cut

sub addroutingmember {
    my ( $borrowernumber, $subscriptionid ) = @_;
    my $rank;
    my $dbh = C4::Context->dbh;
    my $sth = $dbh->prepare( "SELECT max(ranking) rank FROM subscriptionroutinglist WHERE subscriptionid = ?" );
    $sth->execute($subscriptionid);
    while ( my $line = $sth->fetchrow_hashref ) {
        if ( $line->{'rank'} > 0 ) {
            $rank = $line->{'rank'} + 1;
        } else {
            $rank = 1;
        }
    }
    $sth = $dbh->prepare( "INSERT INTO subscriptionroutinglist (subscriptionid,borrowernumber,ranking) VALUES (?,?,?)" );
    $sth->execute( $subscriptionid, $borrowernumber, $rank );
}

=head2 reorder_members

reorder_members($subscriptionid,$routingid,$rank)

this function is used to reorder the routing list

it takes the routingid of the member one wants to re-rank and the rank it is to move to
- it gets all members on list puts their routingid's into an array
- removes the one in the array that is $routingid
- then reinjects $routingid at point indicated by $rank
- then update the database with the routingids in the new order

=cut

sub reorder_members {
    my ( $subscriptionid, $routingid, $rank ) = @_;
    my $dbh = C4::Context->dbh;
    my $sth = $dbh->prepare( "SELECT * FROM subscriptionroutinglist WHERE subscriptionid = ? ORDER BY ranking ASC" );
    $sth->execute($subscriptionid);
    my @result;
    while ( my $line = $sth->fetchrow_hashref ) {
        push( @result, $line->{'routingid'} );
    }

    # To find the matching index
    my $i;
    my $key = -1;    # to allow for 0 being a valid response
    for ( $i = 0 ; $i < @result ; $i++ ) {
        if ( $routingid == $result[$i] ) {
            $key = $i;    # save the index
            last;
        }
    }

    # if index exists in array then move it to new position
    if ( $key > -1 && $rank > 0 ) {
        my $new_rank = $rank - 1;                       # $new_rank is what you want the new index to be in the array
        my $moving_item = splice( @result, $key, 1 );
        splice( @result, $new_rank, 0, $moving_item );
    }
    for ( my $j = 0 ; $j < @result ; $j++ ) {
        my $sth = $dbh->prepare( "UPDATE subscriptionroutinglist SET ranking = '" . ( $j + 1 ) . "' WHERE routingid = '" . $result[$j] . "'" );
        $sth->execute;
    }
    return;
}

=head2 delroutingmember

delroutingmember($routingid,$subscriptionid)

this function either deletes one member from routing list if $routingid exists otherwise
deletes all members from the routing list

=cut

sub delroutingmember {

    # if $routingid exists then deletes that row otherwise deletes all with $subscriptionid
    my ( $routingid, $subscriptionid ) = @_;
    my $dbh = C4::Context->dbh;
    if ($routingid) {
        my $sth = $dbh->prepare("DELETE FROM subscriptionroutinglist WHERE routingid = ?");
        $sth->execute($routingid);
        reorder_members( $subscriptionid, $routingid );
    } else {
        my $sth = $dbh->prepare("DELETE FROM subscriptionroutinglist WHERE subscriptionid = ?");
        $sth->execute($subscriptionid);
    }
    return;
}

=head2 getroutinglist

@routinglist = getroutinglist($subscriptionid)

this gets the info from the subscriptionroutinglist for $subscriptionid

return :
the routinglist as an array. Each element of the array contains a hash_ref containing
routingid - a unique id, borrowernumber, ranking, and biblionumber of subscription

=cut

sub getroutinglist {
    my ($subscriptionid) = @_;
    my $dbh              = C4::Context->dbh;
    my $sth              = $dbh->prepare(
        'SELECT routingid, borrowernumber, ranking, biblionumber
            FROM subscription 
            JOIN subscriptionroutinglist ON subscription.subscriptionid = subscriptionroutinglist.subscriptionid
            WHERE subscription.subscriptionid = ? ORDER BY ranking ASC'
    );
    $sth->execute($subscriptionid);
    my $routinglist = $sth->fetchall_arrayref({});
    return @{$routinglist};
}

=head2 countissuesfrom

$result = countissuesfrom($subscriptionid,$startdate)




package C4::Serials::RoutingLists;

# Copyright 2012 Biblibre
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use C4::Context;

use vars qw($VERSION @ISA @EXPORT_OK);

BEGIN {
    $VERSION = 3.01;
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw(
        &AddRoutingList
        &ModRoutingList
        &DelRoutingList
        &GetRoutingList
        &GetRoutingLists
        &GetRoutingListsCount
        &GetRoutingListAsCSV
    );
}

=head2 AddRoutingList

$routinglistid = &AddRoutingList($subscriptionid, $title);

this function create a new routing list for a subscription.

=cut

sub AddRoutingList {
    my ($subscriptionid, $title) = @_;

    my $dbh = C4::Context->dbh();
    my $query = qq{
        INSERT INTO subscriptionroutinglist (subscriptionid, title)
        VALUES (?, ?)
    };
    my $sth = $dbh->prepare($query);
    $sth->execute($subscriptionid, $title);

    return $dbh->last_insert_id(undef, undef, 'subscriptionroutinglist', undef);
}

=head2 ModRoutingList

&ModRoutingList($routinglistid, $subscriptionid, $title, $notes, @borrowernumbers);

this function modifies a routing list.

=cut

sub ModRoutingList {
    my ($routinglistid, $subscriptionid, $title, $notes, @borrowernumbers) = @_;

    my $dbh = C4::Context->dbh;
    my $query = 'UPDATE subscriptionroutinglist';
    my @setstrings = ();
    my @setargs = ();
    if($subscriptionid) {
        push @setstrings, 'subscriptionid = ?';
        push @setargs, $subscriptionid;
    }
    if($title) {
        push @setstrings, 'title = ?';
        push @setargs, $title;
    }
    if($notes) {
        push @setstrings, 'notes = ?';
        push @setargs, $notes;
    }

    if(@setstrings) {
        $query .= ' SET ' . join(',', @setstrings);
        $query .= ' WHERE routinglistid = ?';
        my $sth = $dbh->prepare($query);
        $sth->execute(@setargs, $routinglistid);
    }

    $query = qq{
        DELETE FROM subscriptionrouting
        WHERE routinglistid = ?
    };
    my $sth = $dbh->prepare($query);
    $sth->execute($routinglistid);

    if(@borrowernumbers > 0){
        $query = qq{
            INSERT INTO subscriptionrouting (routinglistid, borrowernumber, ranking)
            VALUES (?, ?, ?)
        };
        $sth = $dbh->prepare($query);
        my $i = 1;
        foreach (@borrowernumbers) {
            $sth->execute($routinglistid, $_, $i);
            $i++;
        }
    }
}

=head2 DelRoutingList

&DelRoutingList($routinglistid);

this function delete a routing list.

=cut

sub DelRoutingList {
    my ($routinglistid) = @_;

    my $dbh = C4::Context->dbh;
    my $query = qq{
        DELETE FROM subscriptionroutinglist
        WHERE routinglistid = ?
    };
    my $sth = $dbh->prepare($query);
    $sth->execute($routinglistid);
}


=head2 GetRoutingList

$routinglist = &GetRoutingList($routinglistid);

this function get infos from subscriptionroutinglist table.
The 'borrowers' keys contains the list of borrowernumbers attached
to this routing list.

=cut

sub GetRoutingList {
    my ($routinglistid) = @_;

    my $dbh = C4::Context->dbh;
    my $query = qq{
        SELECT *
        FROM subscriptionroutinglist
        WHERE routinglistid = ?
    };
    my $sth = $dbh->prepare($query);
    $sth->execute($routinglistid);
    my $result = $sth->fetchrow_hashref;

    $query = qq{
        SELECT borrowernumber
        FROM subscriptionrouting
        WHERE routinglistid = ?
        ORDER BY ranking ASC
    };
    $sth = $dbh->prepare($query);
    $sth->execute($routinglistid);
    while (my $row = $sth->fetchrow_hashref) {
        push @{$result->{borrowers}}, $row->{borrowernumber};
    }

    return $result;
}

=head2 GetRoutingLists

$routinglists = &GetRoutingLists($subscriptionid);

this function get all routing lists for a subscription.

=cut

sub GetRoutingLists {
    my ($subscriptionid) = @_;

    my $dbh = C4::Context->dbh;
    my $query = qq{
        SELECT routinglistid
        FROM subscriptionroutinglist
        WHERE subscriptionid = ?
    };
    my $sth = $dbh->prepare($query);
    $sth->execute($subscriptionid);
    my @results;
    while (my $row = $sth->fetchrow_hashref) {
        my $routinglistid = $row->{routinglistid};
        push @results, GetRoutingList($routinglistid);
    }

    return @results;
}

=head2 GetRoutingListsCount

$count = &GetRoutingListsCount($subscriptionid);

this function return the number of routing lists for a subscription.

=cut

sub GetRoutingListsCount {
    my ($subscriptionid) = @_;

    return unless $subscriptionid;

    my $dbh = C4::Context->dbh;
    my $query = qq{
        SELECT COUNT(*) AS count
        FROM subscriptionroutinglist
        WHERE subscriptionid = ?
    };
    my $sth = $dbh->prepare($query);
    $sth->execute($subscriptionid);
    my $result = $sth->fetchrow_hashref;

    return $result->{count};
}

=head2 GetRoutingListAsCSV

$csv_output = &GetRoutingListAsCSV($routinglistid);

this function return the routing list as a CSV file.

=cut

sub GetRoutingListAsCSV {
    my ($routinglistid) = @_;

    require C4::Biblio;
    require C4::Serials;
    require C4::Members;
    require Text::CSV::Encoded;

    my $csv = Text::CSV::Encoded->new( {encoding => "utf8" } );
    my $output;

    my $routinglist = GetRoutingList($routinglistid);
    my $subscription = C4::Serials::GetSubscription($routinglist->{'subscriptionid'});
    my (undef, $biblio) = C4::Biblio::GetBiblio($subscription->{'biblionumber'});

    my @headers = ("Subscription title", "Routing list", qw(Surname Firstname Notes));
    $csv->combine(@headers);
    $output .= $csv->string() . "\n";

    foreach (@{$routinglist->{borrowers}}) {
        my $member = C4::Members::GetMemberDetails($_);
        $csv->combine(
            $biblio->{'title'},
            $routinglist->{'title'},
            $member->{'surname'},
            $member->{'firstname'},
            $routinglist->{'notes'},
        );
        $output .= $csv->string() . "\n";
    }

    return $output;
}

1;




) ENGINE=InnoDB DEFAULT CHARSET=utf8;

--
-- Table structure for table subscriptionroutinglist
--

DROP TABLE IF EXISTS subscriptionroutinglist;
CREATE TABLE subscriptionroutinglist (
    routinglistid int(11) NOT NULL AUTO_INCREMENT, -- unique identifier assigned by Koha
    subscriptionid int(11) NOT NULL, -- foreign key from the subscription table,
                                     -- defines which subscription this routing list is for
    title varchar(256) NOT NULL, -- title of this routing list
    notes text default NULL, -- notes for this routing list
    PRIMARY KEY (routinglistid),
    CONSTRAINT subscriptionroutinglist_ibfk_1 FOREIGN KEY (subscriptionid)
      REFERENCES subscription (subscriptionid) ON DELETE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

--
-- Table structure for subscriptionrouting
--

DROP TABLE IF EXISTS subscriptionrouting;
CREATE TABLE subscriptionrouting (
    routinglistid int(11) NOT NULL, -- foreign key from the subscriptionroutinglist
                                    -- table, defines which routing list is affected
    borrowernumber int(11) NOT NULL, -- foreign key from the borrowers table,
                                     -- defines which patron is on the routing list
    ranking int(11) DEFAULT NULL, -- where the patron stands in line to receive the serial
    PRIMARY KEY (routinglistid, borrowernumber),
    CONSTRAINT subscriptionrouting_ibfk_1 FOREIGN KEY (routinglistid)
      REFERENCES subscriptionroutinglists (routinglistid) ON DELETE CASCADE,
    CONSTRAINT subscriptionrouting_ibfk_2 FOREIGN KEY (borrowernumber)
      REFERENCES borrowers (borrowernumber) ON DELETE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

--




    SetVersion($DBversion);
}

$DBversion = "XXX";
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
    $dbh->do("RENAME TABLE subscriptionroutinglist TO tmp_subscriptionroutinglist");
    $dbh->do("
        CREATE TABLE subscriptionroutinglist (
            routinglistid int(11) NOT NULL AUTO_INCREMENT,
            subscriptionid int(11) NOT NULL,
            title varchar(256) NOT NULL,
            notes text default NULL,
            PRIMARY KEY (routinglistid),
            CONSTRAINT subscriptionroutinglist_ibfk_1 FOREIGN KEY (subscriptionid)
              REFERENCES subscription (subscriptionid) ON DELETE CASCADE
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8
    ");
    $dbh->do("
        CREATE TABLE subscriptionrouting (
            routinglistid int(11) NOT NULL,
            borrowernumber int(11) NOT NULL,
            ranking int(11) DEFAULT NULL,
            PRIMARY KEY (routinglistid, borrowernumber),
            CONSTRAINT subscriptionrouting_ibfk_1 FOREIGN KEY (routinglistid)
              REFERENCES subscriptionroutinglist (routinglistid) ON DELETE CASCADE,
            CONSTRAINT subscriptionrouting_ibfk_2 FOREIGN KEY (borrowernumber)
              REFERENCES borrowers (borrowernumber) ON DELETE CASCADE
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8
    ");

    # Migrate data from old subscriptionroutinglist table
    my $query = qq{
        SELECT DISTINCT subscriptionid
        FROM tmp_subscriptionroutinglist
    };
    my $sth = $dbh->prepare($query);
    $sth->execute();
    my $results = $sth->fetchall_arrayref( {} );
    $query = qq{
        INSERT INTO subscriptionroutinglist (subscriptionid, title)
        VALUES (?, ?)
    };
    $sth = $dbh->prepare($query);
    $query = qq{
        SELECT borrowernumber, ranking
        FROM tmp_subscriptionroutinglist
        WHERE subscriptionid = ?
    };
    my $select_sth = $dbh->prepare($query);
    $query = qq{
        INSERT INTO subscriptionrouting (routinglistid, borrowernumber, ranking)
        VALUES(?, ?, ?)
    };
    my $insert_sth = $dbh->prepare($query);
    foreach ( @$results ) {
        $sth->execute($_->{subscriptionid}, 'import');
        my $routinglistid = $dbh->last_insert_id(undef, undef, 'subscriptionroutinglist', undef);
        $select_sth->execute($_->{subscriptionid});
        my $routings = $select_sth->fetchall_arrayref( {} );
        foreach (@$routings) {
            $insert_sth->execute($routinglistid, $_->{borrowernumber}, $_->{ranking});
        }
    }

    $dbh->do("DROP TABLE tmp_subscriptionroutinglist");
    print "Upgrade to $DBversion done (New subscription routing list system).\n";
    SetVersion($DBversion);
}


=head1 FUNCTIONS


Lines 3-11 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/serials-menu.inc (-2 / +2 lines)
3	<li><a href="serials-collection.pl?subscriptionid=[% subscriptionid %]">Serial collection</a></li>	3	<li><a href="serials-collection.pl?subscriptionid=[% subscriptionid %]">Serial collection</a></li>
4	[% IF ( routing && CAN_user_serials_routing ) %]	4	[% IF ( routing && CAN_user_serials_routing ) %]
5	[% IF ( hasRouting ) %]	5	[% IF ( hasRouting ) %]
6	<li><a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscriptionid %]">Edit routing list</a></li>	6	<li><a href="/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscriptionid %]">Edit routing list</a></li>
7	[% ELSE %]	7	[% ELSE %]
8	<li><a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscriptionid %]&op=new">Create routing list</a></li>	8	<li><a href="/cgi-bin/koha/serials/routinglist.pl?subscriptionid=[% subscriptionid %]&op=new">Create routing list</a></li>
9	[% END %]	9	[% END %]
10	[% END %]	10	[% END %]
11	</ul>	11	</ul>

Lines 1-6 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/serials-toolbar.inc (+7 lines)
1	<div id="toolbar"><script type="text/javascript">	1	<div id="toolbar"><script type="text/javascript">
2	//<![CDATA[	2	//<![CDATA[
3		3
		4	function confirm_deletion() {
		5	var is_confirmed = confirm(_("Are you sure you want to delete this subscription?"));
		6	if (is_confirmed) {
		7	window.location="subscription-detail.pl?subscriptionid=[% subscriptionid %]&op=del";
		8	}
		9	}
		10
4	// prepare DOM for YUI Toolbar	11	// prepare DOM for YUI Toolbar
5		12
6	$(document).ready(function() {	13	$(document).ready(function() {




<title>Koha &rsaquo; Member Search &rsaquo; [% bookselname %]</title>
[% INCLUDE 'doc-head-close.inc' %]
<script type="text/javascript">
//<![CDATA[

function add_member(borrowernumber, surname, firstname) {
    if(window.opener.addBorrower(borrowernumber, surname, firstname) < 0){
        alert(_("This borrower is already in the list."));
    }
}

//]]>
</script>
<style type="text/css">
   #custom-doc { width:36.46em;*width:35.53em;min-width:430px; margin:auto; text-align:left; padding: 1em; }

	</thead>
	<tbody>
		[% FOREACH resultsloo IN resultsloop %]
            [% IF ( loop.odd ) %]
                <tr class="highlight">
            [% ELSE %]
                <tr>
            [% END %]
                <td>[% resultsloo.cardnumber %] </td>
                <td>[% resultsloo.surname %], [% resultsloo.firstname %] </td>
                <td>[% resultsloo.branchcode %] </td>
                <td><a style="cursor:pointer" onclick="add_member([% resultsloo.borrowernumber %], '[% resultsloo.surname %]', '[% resultsloo.firstname %]'); return false;">Add</a></td>
            </tr>
		[% END %]
	</tbody>
</table>




<div id="custom-doc" class="yui-t7">
   <div id="bd">

[% IF (missing_parameter_routinglistid or missing_parameter_serialid) %]
    <h1>Routing list preview for <em>[% title %]</em></h1>

    <form action="" method="get">
        [% IF (missing_parameter_routinglistid) %]
            <input type="hidden" name="serialid" value="[% serialid %]" />
            <label for="routinglist">Please select a routing list</label>
            <select id="routinglist" name="routinglistid">
                [% FOREACH routinglist IN routinglists %]
                    <option value="[% routinglist.routinglistid %]">
                        [% routinglist.title %]
                    </option>
                [% END %]
            </select>
        [% ELSE %]
            <input type="hidden" name="routinglistid" value="[% routinglistid %]" />
            <label for="serial">Please select a serial</label>
            <select id="serial" name="serialid">
                [% FOREACH serial IN serials %]
                    <option value="[% serial.serialid %]">
                        [% serial.serialseq %] ([% serial.planneddate %])
                    </option>
                [% END %]
            </select>
        [% END %]
        <input type="submit" value="Continue" />
    </form>
[% ELSE %]
    [% IF (error_no_item) %]
        <div class="error noprint">
            <p>Holds cannot be placed on this serial. There is no item attached to it.</p>
        </div>
    [% END %]
    <table>
        [% IF (libraryname) %]
            <tr>
                <td colspan="2"><h3>[% libraryname %]</h3></td>
            </tr>
        [% END %]
        <tr>
            <td colspan="2">
                <b>Title:</b> [% title |html %]<br />
                [% serial.serialseq %] ([% serial.planneddate %])
            </td>
        </tr>
        <tr>
            <td colspan="2">
                <b>Routing list:</b> [% routinglisttitle %]
            </td>
        </tr>
        <tr>
            <td><b>Name</b></td>
            <td><b>Date due</b></td>
        </tr>
        [% FOREACH member IN memberloop %]
        <tr>
            <td>[% member.surname %], [% member.firstname %]</td>
            <td>&nbsp;</td>
        </tr>
        [% END %]
    </table>

    <div id="routingnotes">
        <p id="generalroutingnote">[% generalroutingnote %]</p>
        <p id="routingnote">[% routingnotes %]</p>
    </div>

    [% IF (need_confirm) %]
        [%# RoutingListAddReserves is ON %]
        <script type="text/javascript">
        //<![CDATA[
            function ask_confirm() {
                var msg = _("Holds will be placed for all borrowers in this list.");
                msg += "\n";
                msg += _("Do you want to continue?");
                return confirm(msg);
            }
        //]]>
        </script>
        <form action="" method="get" onsubmit="return ask_confirm()">
            <input type="hidden" name="routinglistid" value="[% routinglistid %]" />
            <input type="hidden" name="serialid" value="[% serialid %]" />
            <input type="hidden" name="confirm" value="1" />
            <input type="submit" value="Confirm and print" />
            <input type="button" value="Cancel" onclick="window.close()" />
        </form>
    [% ELSE %]
        <div id="slip-block-links" class="noprint">
           <a class="button" href="javascript:window.print();self.close()">Print</a>
           &nbsp; <a class="button" href="javascript:self.close()">Close</a>
        </div>
    [% END %]
[% END %]

    </div>

[% INCLUDE 'intranet-bottom.inc' %]




[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Serials &rsaquo; Preview routing list</title>
[% INCLUDE 'doc-head-close.inc' %]
<script type="text/javascript">
<!--

function print_slip(subscriptionid,issue){
    var myurl = 'routing-preview.pl?ok=1&subscriptionid='+subscriptionid+'&issue='+issue;
    window.open(myurl,'PrintSlip','width=500,height=500,toolbar=no,scrollbars=yes');
    window.location.href='subscription-detail.pl?subscriptionid=' + subscriptionid;
}
//-->
</script>
</head>
<body id="ser_routing-preview" class="ser">
[% INCLUDE 'header.inc' %]
[% INCLUDE 'serials-search.inc' %]

<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo; <a href="/cgi-bin/koha/serials/serials-home.pl">Serials</a> &rsaquo; <a href="/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=[% subscriptionid %]"><i>[% title |html %]</i></a> &rsaquo; Preview routing list</div>

<div id="doc3" class="yui-t2">
   
   <div id="bd">
	<div id="yui-main">
	<div class="yui-b">

<h2>Preview routing list for <i>[% title |html %]</i></h2>

<form method="post" action="routing-preview.pl">
<input type="hidden" name="subscriptionid" value="[% subscriptionid %]" />
<fieldset class="rows">
	<ol>
		<li><span class="label">Issue:</span>[% issue %]</li>
		<li><span class="label">List member:</span><table style="clear:none;margin:0;">
        <tr><th>Name</th></tr>
[% FOREACH memberloo IN memberloop %]
        <tr><td>[% memberloo.surname %], [% memberloo.firstname %]</td></tr>
[% END %]
        </table></li>
		<li><span class="label">Notes:</span>[% routingnotes %]</li>
	</ol>
</fieldset>

<fieldset class="action">
<input type="submit" name="ok" class="button" value="Save and preview routing slip" onclick="print_slip([% subscriptionid %],'[% issue_escaped %]'); return false" />
<input type="submit" name="edit" class="button" value="Edit" />
<input type="submit" name="delete" class="button" value="Delete" /></fieldset>
</form>

</div>
</div>

<div class="yui-b">
[% INCLUDE 'serials-menu.inc' %]
</div>
</div>
[% INCLUDE 'intranet-bottom.inc' %]




[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Serials &rsaquo; [% title |html %] &rsaquo; [% IF ( op ) %]Create Routing List[% ELSE %]Edit routing list[% END %]</title>
[% INCLUDE 'doc-head-close.inc' %]
<script language="javascript" type="text/javascript">
<!--

function reorder_item(sid,rid,rank){
    var mylocation = 'reorder_members.pl?subscriptionid='+sid+'&routingid='+rid+'&rank='+rank;
    window.location.href=mylocation; 
}

function search_member(subscriptionid){
    var myurl = 'member-search.pl?subscriptionid='+subscriptionid; window.open(myurl,'FindAMember','width=550,height=480,toolbar=no,scrollbars=yes');
}

//-->
</script>
</head>
<body id="ser_routing" class="ser">
[% INCLUDE 'header.inc' %]
[% INCLUDE 'serials-search.inc' %]

<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo; <a href="/cgi-bin/koha/serials/serials-home.pl">Serials</a> &rsaquo; <a href="/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=[% subscriptionid %]"><i>[% title |html %]</i></a> &rsaquo; [% IF ( op ) %]Create Routing List[% ELSE %]Edit routing list[% END %]</div>

<div id="doc3" class="yui-t2">
   
   <div id="bd">
	<div id="yui-main">
	<div class="yui-b">


[% IF ( op ) %]
<h1>Create routing list for <i>[% title |html %]</i></h1>
[% ELSE %]
<h1>Edit routing list for <i>[% title |html %]</i></h1>
[% END %]

<form method="post" action="routing.pl">
<input type="hidden" name="op" value="save" />
<input type="hidden" name="subscriptionid" value="[% subscriptionid %]" />
<fieldset class="rows">
	<ol>
		<li><label for="date_selected">Issue: </label>
<select name="date_selected" id="date_selected">
[% FOREACH date IN dates %]
[% IF ( date.selected ) %]<option value="[% date.serialseq %] ([% date.planneddate %])" selected="selected">[% date.serialseq %] ([% date.planneddate %])</option>[% ELSE %]<option value="[% date.serialseq %] ([% date.planneddate %])">[% date.serialseq %] ([% date.planneddate %])</option>[% END %]
[% END %]
</select> [% issue %]</li>

[% IF memberloop %]
<li><span class="label">Recipients:</span><table style="clear:none;margin:0;">
        <tr><th>Name</th>
            <th>Rank</th>
            <th>Delete</th>
        </tr>
        [% USE m_loop = iterator(memberloop) %]
        [% FOREACH member IN m_loop %]
        <tr><td>[% member.name %]</td>
            <td>
                <select name="itemrank" onchange="reorder_item([%- subscriptionid -%], [%- member.routingid -%], this.option[this.selectedIndex].value)">
                [% rankings = [1 .. m_loop.size] %]
                [% FOREACH r IN rankings %]
                    [% IF r == member.ranking %]
                      <option selected="selected" value="[% r %]">[% r %]</option>
                    [% ELSE %]
                      <option value="[% r %]">[% r %]</option>
                    [% END %]
                [% END %]
                </select>
            </td>
            <td><a href="/cgi-bin/koha/serials/routing.pl?routingid=[% member.routingid %]&amp;subscriptionid=[% subscriptionid %]&amp;op=delete">Delete</a></td>
        </tr>
        [% END %]
        </table><p style="margin-left:10em;"><a onclick="search_member([% subscriptionid %]); return false"
href="/cgi-bin/koha/serials/member-search.pl?subscriptionid=[% subscriptionid %]" class="button">Add recipients</a> &nbsp; <a
href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscriptionid %]&amp;op=delete" class="button">Delete all</a></p></li>
[% ELSE %]
<li><span class="label">Recipients:</span>
    <a onclick="search_member([% subscriptionid %]); return false" href="/cgi-bin/koha/serials/member-search.pl?subscriptionid=[% subscriptionid %]" class="button">Add recipients</a></li>
[% END %]

	<li><label for="notes">Notes:</label><textarea name="notes" id="notes" rows="3" cols="50">[% routingnotes %]</textarea></li>
	</ol>

</fieldset>
<fieldset class="action"><input type="submit" name="submit" value="Save" /></fieldset>
</form>


</div>
</div>

<div class="yui-b">
[% INCLUDE 'serials-menu.inc' %]
</div>
</div>
[% INCLUDE 'intranet-bottom.inc' %]




[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Serials &rsaquo; Routing list</title>
[% INCLUDE 'doc-head-close.inc' %]
<script type="text/javascript">
//<![CDATA[
[% UNLESS ( new ) %]
var max_rank = [% max_rank %];

function IncMaxRank(){
    max_rank = max_rank + 1;
    var option = '<option value="' + max_rank + '">' + max_rank + '</option>';
    $('select[name="ranking"]').append(option);
}

function DecMaxRank(){
    max_rank = max_rank - 1;
    $('select[name="ranking"] option[value="'+(max_rank+1)+'"]').remove();
}

function updateTable(){
    var ids = $("#borrowersids").val().split(":");
    // split returns an array with one empty string if string is empty
    if(ids[0] == "")
        ids.splice(0,1);

    var new_trs = new Array();
    for(var i=0; i<ids.length; i++){
        var tr = $("#ranking"+ids[i]).parents("tr");
        new_trs.push("<tr>"+$(tr).html()+"</tr>");
    }
    $("#borrowers tbody").html(new_trs.join(" "));
    var i=0;
    $("select[name='ranking']").each(function(){
        $(this).val(i+1);
        i++;
        var borrowernumber = $(this).attr('id').replace("ranking","");
        $(this).change(function(){
            reorderBorrower(borrowernumber, $(this).val());
        });
    });
    if(i < max_rank)
        DecMaxRank();

    if(max_rank == 0){
        $("#borrowers").hide();
        $("#noborrowersp").show();
    }
}

// delete borrower if rank <= 0
function reorderBorrower(borrowernumber, rank){
    var ids = $("#borrowersids").val().split(":");
    for(var i=0; i<ids.length; i++){
        if(ids[i] == borrowernumber){
            ids.splice(i, 1);
            break;
        }
    }
    if(rank > 0){
      ids.splice(rank-1, 0, borrowernumber);
    }
    $("#borrowersids").val(ids.join(":"));
    updateTable();
}

function addBorrower(borrowernumber, surname, firstname){
    // Check if we have already this borrower
    var ids = $("#borrowersids").val();
    var re = new RegExp("(^"+borrowernumber+"$)|(^"+borrowernumber+":)|(:"+borrowernumber+"$)|(:"+borrowernumber+":)");
    if(ids.match(re))
        return -1;

    IncMaxRank();
    var tr = '<tr>';
    tr += '<td>' + surname + ', ' + firstname + '</td>';
    tr += '<td><select name="ranking" id="ranking' + borrowernumber + '">';
    for(var i=0; i<(max_rank-1); i++){
        tr += '<option value="' + (i+1) + '">' + (i+1) + '</option>';
    }
    tr += '<option selected="selected" value="' + (max_rank) + '">' + (max_rank) + '</option>';
    tr += '</select></td>';
    tr += '<td><a style="cursor:pointer" onclick="delBorrower('+borrowernumber+');">Delete</a></td>';
    tr += '</tr>';
    $("#borrowers tbody").append(tr);
    $("#ranking"+borrowernumber).change(function(){
        reorderBorrower(borrowernumber, $(this).val());
    });

    if(ids.length != 0)
        ids += ':';
    ids += borrowernumber;
    $("#borrowersids").val(ids);

    $("#borrowers").show();
    $("#noborrowersp").hide();

    return 0;
}

function delBorrower(borrowernumber){
    reorderBorrower(borrowernumber, 0);
}

function SearchMember(){
    window.open("/cgi-bin/koha/serials/member-search.pl", 'MemberSearch',
      'menubar=no,status=no,toolbar=no,scrollbars=yes');
}

$(document).ready(function() {
    updateTable();
});
[% END %]

//]]>
</script>
</head>

<body>
[% INCLUDE 'header.inc' %]
[% INCLUDE 'serials-search.inc' %]

<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo; <a href="/cgi-bin/koha/serials/serials-home.pl">Serials</a> &rsaquo; Routing list</div>

<div id="doc3" class="yui-t2">

<div id="bd">
  <div id="yui-main">
    <div class="yui-b">
      [% INCLUDE 'serials-toolbar.inc' %]
      [% IF ( new ) %]
        <h1>Create routing list</h1>

        <form action="/cgi-bin/koha/serials/routinglist.pl" method="get">
          <input type="hidden" name="op" value="savenew" />
          <input type="hidden" name="subscriptionid" value="[% subscriptionid %]" />
          <label for="title">Title: </label>
          <input type="text" id="title" name="title" />
          <input type="submit" value="Save" />
        </form>
      [% ELSE %]
        <h1>Routing list '[% title %]'</h1>
        <a style="cursor:pointer" onclick="SearchMember();">Add a borrower</a>
        [% IF ( borrowers_loop ) %]
          <table id="borrowers">
        [% ELSE %]
          <table id="borrowers" style="display:none">
        [% END %]
            <thead>
              <tr>
                <th>Name</th>
                <th>Rank</th>
                <th>&nbsp;</th>
              </tr>
            </thead>
            <tbody>
              [% FOREACH borrower IN borrowers_loop %]
                <tr>
                  <td>[% borrower.surname %], [% borrower.firstname %]</td>
                  <td>
                    <select name="ranking" id="ranking[% borrower.borrowernumber %]">
                      [% FOREACH ranking_loo IN borrower.ranking_loop %]
                        [% IF ( ranking_loo.selected ) %]
                          <option selected="selected" value="[% ranking_loo.rank %]">[% ranking_loo.rank %]</option>
                        [% ELSE %]
                          <option value="[% ranking_loo.rank %]">[% ranking_loo.rank %]</option>
                        [% END %]
                      [% END %]
                    </select>
                  </td>
                  <td><a style="cursor:pointer" onclick="delBorrower([% borrower.borrowernumber %]);">Delete</a></td>
                </tr>
              [% END %]
            </tbody>
          </table>
          [% UNLESS ( borrowers_loop ) %]
            <p id="noborrowersp">There is no borrowers in this routing list.</p>
          [% END %]
          <form action="/cgi-bin/koha/serials/routinglist.pl" method="post">
            <input type="hidden" id="borrowersids" name="borrowersids" value="[% borrowersids %]" />
            <input type="hidden" name="op" value="mod" />
            <input type="hidden" name="routinglistid" value="[% routinglistid %]" />
            <label for="notes">Notes: </label><br />
            <textarea id="notes" name="notes">[% notes %]</textarea><br />
            <input type="submit" value="Save" />
            <input type="button" value="Cancel" onclick="window.location.href='/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscriptionid %]';" />
          </form>
      [% END %]<!-- new -->
    </div>
  </div>
  <div class="yui-b">
    [% INCLUDE 'serials-menu.inc' %]
  </div>
</div>
[% INCLUDE 'intranet-bottom.inc' %]




[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Serials &rsaquo; Routing lists</title>
[% INCLUDE 'doc-head-close.inc' %]
<script type="text/javascript">
//<![CDATA[

function previewSlip(routinglistid){
    window.open("/cgi-bin/koha/serials/routing-preview-slip.pl?routinglistid="+routinglistid, 'PreviewSlip', 'menubar=no,status=no,toolbar=no');
}

function confirmDelete(){
    return confirm(_("Are you sure you want to delete this routing list?"));
}

//]]>
</script>
</head>

<body>
[% INCLUDE 'header.inc' %]
[% INCLUDE 'serials-search.inc' %]

<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo; <a href="/cgi-bin/koha/serials/serials-home.pl">Serials</a> &rsaquo; Routing lists</div>

<div id="doc3" class="yui-t2">

<div id="bd">
  <div id="yui-main">
    <div class="yui-b">
      [% INCLUDE 'serials-toolbar.inc' %]
      <h1>Routing lists for <em>[% title %]</em></h1>

      <a href="/cgi-bin/koha/serials/routinglist.pl?op=new&subscriptionid=[% subscriptionid %]">New routing list</a>

      [% IF ( routinglists_loop ) %]
      <table>
        <thead>
          <tr>
            <th>Title</th>
            <th>No. of borrowers</th>
            <th>Notes</th>
            <th>&nbsp;</th>
          </tr>
        </thead>
        <tbody>
          [% FOREACH routinglist IN routinglists_loop %]
            <tr>
              <td><a href="/cgi-bin/koha/serials/routinglist.pl?routinglistid=[% routinglist.routinglistid %]">[% routinglist.title %]</a></td>
              <td>[% routinglist.borrowers.size || 0 %]</td>
              <td>[% routinglist.notes %]</td>
              <td>
                <a style="cursor:pointer" onclick="previewSlip([% routinglist.routinglistid %]);">Preview</a> |
                <a style="text-decoration:none" href="/cgi-bin/koha/serials/routinglists.pl?op=export&routinglistid=[% routinglist.routinglistid %]">Export</a> |
                <a style="text-decoration:none" onclick="return confirmDelete();" href="/cgi-bin/koha/serials/routinglists.pl?op=del&routinglistid=[% routinglist.routinglistid %]">Delete</a></td>
            </tr>
          [% END %]
        </tbody>
      </table>
      [% ELSE %]
        <p>There is no routing lists for this subscription.</p>
      [% END %]

    </div>
  </div>
  <div class="yui-b">
    [% INCLUDE 'serials-menu.inc' %]
  </div>
</div>
[% INCLUDE 'intranet-bottom.inc' %]

Lines 4-13 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-collection.tt (-4 / +10 lines)
4		4
5	<script type="text/javascript">	5	<script type="text/javascript">
6	//<![CDATA[	6	//<![CDATA[
7	function print_slip(subscriptionid,issue){	7
8	var myurl = 'routing-preview.pl?ok=1&subscriptionid='+subscriptionid+'&issue='+issue;	8	function print_slip(serialid) {
		9	var myurl = '/cgi-bin/koha/serials/routing-preview-slip.pl?serialid='+serialid;
9	window.open(myurl,'PrintSlip','width=500,height=500,toolbar=no,scrollbars=yes');	10	window.open(myurl,'PrintSlip','width=500,height=500,toolbar=no,scrollbars=yes');
10	}	11	}
		12
11	function addsubscriptionid()	13	function addsubscriptionid()
12	{	14	{
13	var tab=new Array();	15	var tab=new Array();
Lines 151-157 $(document).ready(function() { Link Here
151	</td>	153	</td>
152	[% IF ( routing && CAN_user_serials_routing ) %]	154	[% IF ( routing && CAN_user_serials_routing ) %]
153	<td>	155	<td>
154	<a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscription.subscriptionid %]">Edit routing list</a>	156	[% IF (subscription.routinglistscount) %]
		157	<a href="/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscription.subscriptionid %]">Edit routing lists</a> ([% subscription.routinglistscount %])
		158	[% ELSE %]
		159	<a href="/cgi-bin/koha/serials/routinglist.pl?op=new&subscriptionid=[% subscription.subscriptionid %]">New routing list</a>
		160	[% END %]
155	</td>	161	</td>
156	[% END %]	162	[% END %]
157	[% IF ( subscription.abouttoexpire ) %]<td class="problem"> <a href="/cgi-bin/koha/serials/subscription-renew.pl?subscriptionid=[% subscription.subscriptionid %]" onclick="popup([% subscription.subscriptionid %]); return false;">Renew</a></td>	163	[% IF ( subscription.abouttoexpire ) %]<td class="problem"> <a href="/cgi-bin/koha/serials/subscription-renew.pl?subscriptionid=[% subscription.subscriptionid %]" onclick="popup([% subscription.subscriptionid %]); return false;">Renew</a></td>
Lines 238-244 $(document).ready(function() { Link Here
238	</td>	244	</td>
239	[% IF ( routing ) %]	245	[% IF ( routing ) %]
240	<td>	246	<td>
241	<a href="" onclick="print_slip([% serial.subscriptionid \|html %], '[% serial.serialseq \|html %] ([% serial.planneddate %])'); return false" >Print list</a>	247	<a style="cursor:pointer" onclick="print_slip([% serial.serialid %]);">Print list</a>
242	</td>	248	</td>
243	[% END %]	249	[% END %]
244	[% IF ( CAN_user_serials_receive_serials ) %]	250	[% IF ( CAN_user_serials_receive_serials ) %]




                Library (callnumber)
            </th>
            [% IF ( routing && CAN_user_serials_routing ) %]
              <th>Routing lists</th>
            [% END %]        
            <th>&nbsp;</th>
            <th>&nbsp;</th>

                    [% IF ( subscription.cannotedit ) %]
                        &nbsp;
                    [% ELSE %]
                        [% IF ( subscription.routinglistscount ) %]
                            <a href="/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscription.subscriptionid %]">Edit</a> ([% subscription.routinglistscount %])
                        [% ELSE %]
                            <a href="/cgi-bin/koha/serials/routinglist.pl?subscriptionid=[% subscription.subscriptionid %]&amp;op=new">New</a>
                        [% END %]
                    [% END %]
                </td>




    }
}

function confirm_deletion() {
    var is_confirmed = confirm(_("Are you sure you want to delete this subscription?"));
    if (is_confirmed) {
        window.location="subscription-detail.pl?subscriptionid=[% subscriptionid %]&op=del";
    }
}
function popup(subscriptionid) {
    newin=window.open("subscription-renew.pl?mode=popup&subscriptionid="+subscriptionid,'popup','width=590,height=440,toolbar=false,scrollbars=yes');
}

Lines 105-113 if (@searchpatron) { Link Here

(-)a/serials/member-search.pl (-3 / +2 lines)
105	"start_with"	105	"start_with"
106	);	106	);
107	}	107	}
108	if ($results) {	108
109	$count = scalar(@$results);	109	$count = $results ? scalar(@$results) : 0;
110	}
111	my @resultsdata;	110	my @resultsdata;
112	$to=($count>$to?$to:$count);	111	$to=($count>$to?$to:$count);
113	my $index=$from;	112	my $index=$from;




#!/usr/bin/perl
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

# Routing.pl script used to create a routing list for a serial subscription
# In this instance it is in fact a setting up of a list of reserves for the item
# where the hierarchical order can be changed on the fly and a routing list can be
# printed out
use strict;
use warnings;
use CGI;
use C4::Auth qw( checkauth );
use C4::Serials qw( reorder_members );

my $query          = CGI->new;
my $subscriptionid = $query->param('subscriptionid');
my $routingid      = $query->param('routingid');
my $rank           = $query->param('rank');

checkauth( $query, 0, { serials => 1 }, 'intranet' );

reorder_members( $subscriptionid, $routingid, $rank );

print $query->redirect(
    "/cgi-bin/koha/serials/routing.pl?subscriptionid=$subscriptionid");





#!/usr/bin/perl

# Copyright 2011 BibLibre SARL
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

=head1 NAME

routing-preview-slip.pl

=head1 DESCRIPTION

Preview a routing list for printing.

=cut

use Modern::Perl;

use CGI;
use C4::Auth;
use C4::Output;

use C4::Biblio;
use C4::Branch;
use C4::Members;
use C4::Serials;
use C4::Serials::RoutingLists qw/GetRoutingList GetRoutingLists/;

my $input = new CGI;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
    template_name   => 'serials/routing-preview-slip.tt',
    query           => $input,
    type            => 'intranet',
    authnotrequired => 0,
    flagsrequired   => { 'serials' => 'routing' },
    debug           => 1,
} );

my $routinglistid = $input->param('routinglistid');
my $serialid = $input->param('serialid');

if (!$routinglistid and !$serialid) {
    exit;
}

if (!$routinglistid) {
    my $serial = GetSerial($serialid);
    my $subscription = GetSubscription($serial->{subscriptionid});
    my (undef, $biblio) = GetBiblio($subscription->{subscriptionid});
    my @routinglists = GetRoutingLists($subscription->{subscriptionid});
    $template->param(
        missing_parameter_routinglistid => 1,
        serialid => $serialid,
        title => $biblio->{title},
        routinglists => \@routinglists
    );
    output_html_with_http_headers $input, $cookie, $template->output;
    exit;
} elsif (!$serialid) {
    my $routinglist = GetRoutingList($routinglistid);
    my $subscription = GetSubscription($routinglist->{subscriptionid});
    my (undef, $biblio) = GetBiblio($subscription->{subscriptionid});
    my @serials = GetSerials2($subscription->{subscriptionid}, '1,2,3,4,5,6,7');
    $template->param(
        missing_parameter_serialid => 1,
        routinglistid => $routinglistid,
        title => $biblio->{title},
        serials => \@serials
    );
    output_html_with_http_headers $input, $cookie, $template->output;
    exit;
}

my $routinglist = GetRoutingList($routinglistid);
my $subscription = GetSubscription($routinglist->{subscriptionid});
my $serial = GetSerial($serialid);
my (undef, $biblio) = GetBiblio($subscription->{biblionumber});
my $branch = GetBranchDetail($subscription->{branchcode});
my @memberloop;
foreach (@{$routinglist->{borrowers}}) {
    my $member = GetMemberDetails($_);
    push @memberloop, {
        surname => $member->{surname},
        firstname => $member->{firstname},
    };
}

my $no_holds = $input->param('no_holds');
if(C4::Context->preference('RoutingListAddReserves') and !$no_holds) {
    my $confirm = $input->param('confirm');
    if ($confirm) {
        require C4::Reserves;
        require C4::Items;
        my $itemnumber = GetSerialItemnumber($serialid);
        my $item = C4::Items::GetItem($itemnumber);
        if ($item) {
            my $rank = 1;
            foreach my $borrowernumber ( @{$routinglist->{borrowers}} ) {
                my $reserve = C4::Reserves::GetReserveInfo($borrowernumber,
                    $item->{biblionumber});
                if($reserve) {
                    C4::Reserves::ModReserve($rank, $item->{biblionumber},
                        $borrowernumber, $item->{holdingbranch}, $itemnumber);
                } else {
                    my @bibitems = GetBiblioItemByBiblioNumber($item->{biblionumber});
                    C4::Reserves::AddReserve($item->{holdingbranch}, $borrowernumber,
                        $item->{biblionumber}, 'a', \@bibitems, $rank, undef,
                        undef, undef, $biblio->{title}, $itemnumber);
                }
                $rank++;
            }
        } else {
            $template->param(error_no_item => 1);
        }
    } else {
        $template->param(need_confirm => 1);
    }
}

$template->param(
    routinglistid   => $routinglistid,
    serialid        => $serialid,
    libraryname     => $branch->{branchname},
    title           => $biblio->{title},
    serial          => $serial,
    memberloop      => \@memberloop,
    routingnotes    => $routinglist->{notes},
    generalroutingnote  => C4::Context->preference('RoutingListNote'),
    routinglisttitle    => $routinglist->{title},
);

output_html_with_http_headers $input, $cookie, $template->output;




#!/usr/bin/perl

# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

# Routing Preview.pl script used to view a routing list after creation
# lets one print out routing slip and create (in this instance) the heirarchy
# of reserves for the serial
use strict;
use warnings;
use CGI;
use C4::Koha;
use C4::Auth;
use C4::Dates;
use C4::Output;
use C4::Acquisition;
use C4::Reserves;
use C4::Circulation;
use C4::Context;
use C4::Members;
use C4::Biblio;
use C4::Items;
use C4::Serials;
use URI::Escape;
use C4::Branch;

my $query = new CGI;
my $subscriptionid = $query->param('subscriptionid');
my $issue = $query->param('issue');
my $routingid;
my $ok = $query->param('ok');
my $edit = $query->param('edit');
my $delete = $query->param('delete');
my $dbh = C4::Context->dbh;

if($delete){
    delroutingmember($routingid,$subscriptionid);
    my $sth = $dbh->prepare("UPDATE serial SET routingnotes = NULL WHERE subscriptionid = ?");
    $sth->execute($subscriptionid);
    print $query->redirect("routing.pl?subscriptionid=$subscriptionid&op=new");
}

if($edit){
    print $query->redirect("routing.pl?subscriptionid=$subscriptionid");
}

my @routinglist = getroutinglist($subscriptionid);
my $subs = GetSubscription($subscriptionid);
my ($tmp ,@serials) = GetSerials($subscriptionid);
my ($template, $loggedinuser, $cookie);

if($ok){
    # get biblio information....
    my $biblio = $subs->{'biblionumber'};
	my ($count2,@bibitems) = GetBiblioItemByBiblioNumber($biblio);
	my @itemresults = GetItemsInfo( $subs->{biblionumber} );
	my $branch = $itemresults[0]->{'holdingbranch'};
	my $branchname = GetBranchName($branch);

	if (C4::Context->preference('RoutingListAddReserves')){
		# get existing reserves .....
		my ($count,$reserves) = GetReservesFromBiblionumber($biblio);
		my $totalcount = $count;
		foreach my $res (@$reserves) {
			if ($res->{'found'} eq 'W') {
				$count--;
			}
		}
		my $const = 'o';
		my $notes;
		my $title = $subs->{'bibliotitle'};
        for my $routing ( @routinglist ) {
            my $sth = $dbh->prepare('SELECT * FROM reserves WHERE biblionumber = ? AND borrowernumber = ? LIMIT 1');
            $sth->execute($biblio,$routing->{borrowernumber});
            my $reserve = $sth->fetchrow_hashref;

            if($routing->{borrowernumber} == $reserve->{borrowernumber}){
                ModReserve($routing->{ranking},$biblio,$routing->{borrowernumber},$branch);
            } else {
                AddReserve($branch,$routing->{borrowernumber},$biblio,$const,\@bibitems,$routing->{ranking}, undef, undef, $notes,$title);
        }
    }
	}

    ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/routing-preview-slip.tmpl",
				query => $query,
				type => "intranet",
				authnotrequired => 0,
				flagsrequired => {serials => '*'},
				debug => 1,
				});
    $template->param("libraryname"=>$branchname);
} else {
    ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/routing-preview.tmpl",
				query => $query,
				type => "intranet",
				authnotrequired => 0,
				flagsrequired => {serials => '*'},
				debug => 1,
				});
}

my $memberloop = [];
for my $routing (@routinglist) {
    my $member = GetMember( borrowernumber => $routing->{borrowernumber} );
    $member->{name}           = "$member->{firstname} $member->{surname}";
    push @{$memberloop}, $member;
}

my $routingnotes = $serials[0]->{'routingnotes'};
$routingnotes =~ s/\n/\<br \/\>/g;

$template->param(
    title => $subs->{'bibliotitle'},
    issue => $issue,
    issue_escaped => URI::Escape::uri_escape($issue),
    subscriptionid => $subscriptionid,
    memberloop => $memberloop,
    routingnotes => $routingnotes,
    generalroutingnote => C4::Context->preference('RoutingListNote'),
    hasRouting => check_routing($subscriptionid),
    );

output_html_with_http_headers $query, $cookie, $template->output;




#!/usr/bin/perl

# This file is part of Koha
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.


=head1 Routing.pl

script used to create a routing list for a serial subscription
In this instance it is in fact a setting up of a list of reserves for the item
where the hierarchical order can be changed on the fly and a routing list can be
printed out

=cut

use strict;
use warnings;
use CGI;
use C4::Koha;
use C4::Auth;
use C4::Dates;
use C4::Output;
use C4::Acquisition;
use C4::Output;
use C4::Context;

use C4::Members;
use C4::Serials;

use URI::Escape;

my $query = new CGI;
my $subscriptionid = $query->param('subscriptionid');
my $serialseq = $query->param('serialseq');
my $routingid = $query->param('routingid');
my $borrowernumber = $query->param('borrowernumber');
my $notes = $query->param('notes');
my $op = $query->param('op') || q{};
my $date_selected = $query->param('date_selected');
$date_selected ||= q{};
my $dbh = C4::Context->dbh;

if($op eq 'delete'){
    delroutingmember($routingid,$subscriptionid);
}

if($op eq 'add'){
    addroutingmember($borrowernumber,$subscriptionid);
}
if($op eq 'save'){
    my $sth = $dbh->prepare('UPDATE serial SET routingnotes = ? WHERE subscriptionid = ?');
    $sth->execute($notes,$subscriptionid);
    my $urldate = URI::Escape::uri_escape($date_selected);
    print $query->redirect("routing-preview.pl?subscriptionid=$subscriptionid&issue=$urldate");
}

my @routinglist = getroutinglist($subscriptionid);
my $subs = GetSubscription($subscriptionid);
my ($count,@serials) = GetSerials($subscriptionid);
my $serialdates = GetLatestSerials($subscriptionid,$count);

my $dates = [];
foreach my $dateseq (@{$serialdates}) {
    my $d = {};
    $d->{planneddate} = $dateseq->{planneddate};
    $d->{serialseq} = $dateseq->{serialseq};
    $d->{serialid} = $dateseq->{serialid};
    if($date_selected eq $dateseq->{serialid}){
        $d->{selected} = ' selected';
    } else {
        $d->{selected} = q{};
    }
    push @{$dates}, $d;
}

my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => 'serials/routing.tmpl',
				query => $query,
				type => 'intranet',
				authnotrequired => 0,
				flagsrequired => {serials => 'routing'},
				debug => 1,
				});

my $member_loop = [];
for my $routing ( @routinglist ) {
    my $member=GetMember('borrowernumber' => $routing->{borrowernumber});
    $member->{location} = $member->{branchcode};
    if ($member->{firstname} ) {
        $member->{name} = $member->{firstname} . q| |;
    }
    else {
        $member->{name} = q{};
    }
    if ($member->{surname} ) {
        $member->{name} .= $member->{surname};
    }
    $member->{routingid}=$routing->{routingid} || q{};
    $member->{ranking} = $routing->{ranking} || q{};

    push(@{$member_loop}, $member);
}

$template->param(
    title => $subs->{bibliotitle},
    subscriptionid => $subscriptionid,
    memberloop => $member_loop,
    op => $op eq 'new',
    dates => $dates,
    routingnotes => $serials[0]->{'routingnotes'},
    hasRouting => check_routing($subscriptionid),
    );

output_html_with_http_headers $query, $cookie, $template->output;




#!/usr/bin/perl

# Copyright 2011 BibLibre SARL
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

=head1 NAME

routinglist.pl

=head1 DESCRIPTION

Create or modify a routing list

=cut

use Modern::Perl;

use CGI;
use C4::Auth;
use C4::Output;

use C4::Members;
use C4::Serials;
use C4::Serials::RoutingLists qw/AddRoutingList ModRoutingList GetRoutingList/;

my $input = new CGI;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
    template_name   => 'serials/routinglist.tt',
    query           => $input,
    type            => 'intranet',
    authnotrequired => 0,
    flagsrequired   => { serials => 'routing' },
    debug           => 1,
} );

my $op = $input->param('op');
my $routinglistid;

if($op && $op eq 'new') {
    my $subscriptionid = $input->param('subscriptionid');
    $template->param(
        new => 1,
        subscriptionid => $subscriptionid,
    );
    output_html_with_http_headers $input, $cookie, $template->output;
    exit;
}

if($op && $op eq 'savenew') {
    my $title = $input->param('title');
    my $subscriptionid = $input->param('subscriptionid');

    $routinglistid = AddRoutingList($subscriptionid, $title);
} else {
    $routinglistid = $input->param('routinglistid');
}

if($op && $op eq 'mod') {
    my $borrowersids = $input->param('borrowersids');
    my $notes = $input->param('notes');
    my @borrowernumbers = split /:/, $borrowersids;
    ModRoutingList($routinglistid, undef, undef, $notes, @borrowernumbers);
    my $routinglist = GetRoutingList($routinglistid);
    print $input->redirect("/cgi-bin/koha/serials/routinglists.pl?subscriptionid=".$routinglist->{'subscriptionid'});
    exit;
}

my $routinglist = GetRoutingList($routinglistid);
my @borrowers;
my $rank = 1;
foreach my $borrowernumber (@{$routinglist->{borrowers}}) {
    my @ranking_loop;
    for(my $i = 0 ; $i < scalar(@{$routinglist->{borrowers}}) ; $i++){
        my $selected = 0;
        $selected = 1 if ($rank == $i+1);
        push @ranking_loop, {
            rank => $i+1,
            selected => $selected,
        };
    }
    my $member = GetMemberDetails($borrowernumber);
    push @borrowers, {
        borrowernumber => $borrowernumber,
        surname => $member->{surname},
        firstname => $member->{firstname},
        ranking_loop => \@ranking_loop
    };
    $rank ++;
}

$template->param(
    borrowers_loop => \@borrowers,
    borrowersids => join(':', map ($_->{borrowernumber}, @borrowers)),
    max_rank => scalar(@borrowers),
    title => $routinglist->{title},
    notes => $routinglist->{notes},
    subscriptionid => $routinglist->{subscriptionid},
    routinglistid => $routinglistid,
);

output_html_with_http_headers $input, $cookie, $template->output;




#!/usr/bin/perl

# Copyright 2011 BibLibre SARL
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

=head1 NAME

routinglists.pl

=head1 DESCRIPTION

View all routing lists for a subscription

=cut

use Modern::Perl;

use CGI;
use C4::Auth;
use C4::Output;

use C4::Biblio;
use C4::Serials;
use C4::Serials::RoutingLists qw/GetRoutingLists GetRoutingList DelRoutingList GetRoutingListAsCSV/;

my $input = new CGI;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
    template_name   => 'serials/routinglists.tt',
    query           => $input,
    type            => 'intranet',
    authnotrequired => 0,
    flagsrequired   => { serials => 'routing' },
    debug           => 1,
} );

my $subscriptionid = $input->param('subscriptionid');
my $op = $input->param('op');

if($op && $op eq "export") {
    my $routinglistid = $input->param('routinglistid');
    print $input->header(
        -type       => 'text/csv',
        -attachment => 'routinglist' . $routinglistid . '.csv',
    );
    print GetRoutingListAsCSV($routinglistid);
    exit;
} elsif($op && $op eq "del") {
    my $routinglistid = $input->param('routinglistid');
    if(!defined $subscriptionid){
        my $routinglist = GetRoutingList($routinglistid);
        $subscriptionid = $routinglist->{subscriptionid};
    }
    DelRoutingList($routinglistid);
}

my $subscription = GetSubscription($subscriptionid);
my (undef,$biblio) = GetBiblio($subscription->{biblionumber});
my @routinglists = GetRoutingLists($subscriptionid);

$template->param(
    subscriptionid => $subscriptionid,
    routinglists_loop => \@routinglists,
    title => $biblio->{title},
);

output_html_with_http_headers $input, $cookie, $template->output;

Lines 26-31 use C4::Auth; Link Here

(-)a/serials/serials-collection.pl (-2 / +5 lines)
26	use C4::Koha;	26	use C4::Koha;
27	use C4::Dates qw/format_date/;	27	use C4::Dates qw/format_date/;
28	use C4::Serials;	28	use C4::Serials;
		29	use C4::Serials::RoutingLists qw/GetRoutingListsCount/;
29	use C4::Letters;	30	use C4::Letters;
30	use C4::Output;	31	use C4::Output;
31	use C4::Context;	32	use C4::Context;
Lines 136-143 my $yearmax=($subscriptions->[0]{year} eq "manage" && scalar(@$subscriptions)>1) Link Here
136	my $yearmin=$subscriptions->[scalar(@$subscriptions)-1]{year};	137	my $yearmin=$subscriptions->[scalar(@$subscriptions)-1]{year};
137	my $subscriptionidlist="";	138	my $subscriptionidlist="";
138	foreach my $subscription (@$subscriptiondescs){	139	foreach my $subscription (@$subscriptiondescs){
139	$subscriptionidlist.=$subscription->{'subscriptionid'}."," ;	140	$subscriptionidlist.=$subscription->{'subscriptionid'}."," ;
140	$biblionumber = $subscription->{'bibnum'} unless ($biblionumber);	141	$biblionumber = $subscription->{'bibnum'} unless ($biblionumber);
		142	$subscription->{routinglistscount}
		143	= GetRoutingListsCount($subscription->{subscriptionid});
141	}	144	}
142		145
143	# warn "title : $title yearmax : $yearmax nombre d'elements dans le tableau :".scalar(@$subscriptions);	146	# warn "title : $title yearmax : $yearmax nombre d'elements dans le tableau :".scalar(@$subscriptions);

Lines 45-50 use warnings; Link Here

(-)a/serials/serials-home.pl (-1 / +3 lines)
45	use CGI;	45	use CGI;
46	use C4::Auth;	46	use C4::Auth;
47	use C4::Serials;	47	use C4::Serials;
		48	use C4::Serials::RoutingLists qw/GetRoutingListsCount/;
48	use C4::Output;	49	use C4::Output;
49	use C4::Context;	50	use C4::Context;
50	use C4::Branch;	51	use C4::Branch;
Lines 99-105 if ($searched){ Link Here
99	# to toggle between create or edit routing list options	100	# to toggle between create or edit routing list options
100	if ($routing) {	101	if ($routing) {
101	for my $subscription ( @subscriptions) {	102	for my $subscription ( @subscriptions) {
102	$subscription->{routingedit} = check_routing( $subscription->{subscriptionid} );	103	$subscription->{routinglistscount}
		104	= GetRoutingListsCount($subscription->{subscriptionid});
103	$subscription->{branchname} = GetBranchName ( $subscription->{branchcode} );	105	$subscription->{branchname} = GetBranchName ( $subscription->{branchcode} );
104	}	106	}
105	}	107	}

Lines 22-27 use C4::Auth; Link Here

(-)a/serials/subscription-detail.pl (-1 / +2 lines)
22	use C4::Koha;	22	use C4::Koha;
23	use C4::Dates qw/format_date/;	23	use C4::Dates qw/format_date/;
24	use C4::Serials;	24	use C4::Serials;
		25	use C4::Serials::RoutingLists qw/GetRoutingListsCount/;
25	use C4::Output;	26	use C4::Output;
26	use C4::Context;	27	use C4::Context;
27	use C4::Search qw/enabled_staff_search_views/;	28	use C4::Search qw/enabled_staff_search_views/;
Lines 93-99 if ($op eq 'del') { Link Here
93	exit;	94	exit;
94	}	95	}
95	}	96	}
96	my $hasRouting = check_routing($subscriptionid);	97	my $hasRouting = GetRoutingListsCount($subscriptionid);
97		98
98	(undef, $cookie, undef, undef)	99	(undef, $cookie, undef, undef)
99	= checkauth($query, 0, {catalogue => 1}, "intranet");	100	= checkauth($query, 0, {catalogue => 1}, "intranet");




                      removeMissingIssue
                      updateClaim
                      getsupplierbyserialid
                      check_routing
                      addroutingmember
                      reorder_members
                      delroutingmember
                      getroutinglist
                      countissuesfrom
                      abouttoexpire
                      in_array
- 

Return to bug 7957

Lines 1906-1926 CREATE TABLE `subscriptionhistory` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (-15 / +31 lines)
1906	) ENGINE=InnoDB DEFAULT CHARSET=utf8;	1906	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1907		1907
1908	--	1908	--
1909	-- Table structure for table `subscriptionroutinglist`	1909	-- Table structure for table subscriptionroutinglist
1910	--	1910	--
1911		1911
1912	DROP TABLE IF EXISTS `subscriptionroutinglist`;	1912	DROP TABLE IF EXISTS subscriptionroutinglist;
1913	CREATE TABLE `subscriptionroutinglist` ( -- information related to the routing lists attached to subscriptions	1913	CREATE TABLE subscriptionroutinglist (
1914	`routingid` int(11) NOT NULL auto_increment, -- unique identifier assigned by Koha	1914	routinglistid int(11) NOT NULL AUTO_INCREMENT, -- unique identifier assigned by Koha
1915	`borrowernumber` int(11) NOT NULL, -- foreign key from the borrowers table, defines with patron is on the routing list	1915	subscriptionid int(11) NOT NULL, -- foreign key from the subscription table,
1916	`ranking` int(11) default NULL, -- where the patron stands in line to receive the serial	1916	-- defines which subscription this routing list is for
1917	`subscriptionid` int(11) NOT NULL, -- foreign key from the subscription table, defines which subscription this routing list is for	1917	title varchar(256) NOT NULL, -- title of this routing list
1918	PRIMARY KEY (`routingid`),	1918	notes text default NULL, -- notes for this routing list
1919	UNIQUE (`subscriptionid`, `borrowernumber`),	1919	PRIMARY KEY (routinglistid),
1920	CONSTRAINT `subscriptionroutinglist_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)	1920	CONSTRAINT subscriptionroutinglist_ibfk_1 FOREIGN KEY (subscriptionid)
1921	ON DELETE CASCADE ON UPDATE CASCADE,	1921	REFERENCES subscription (subscriptionid) ON DELETE CASCADE
1922	CONSTRAINT `subscriptionroutinglist_ibfk_2` FOREIGN KEY (`subscriptionid`) REFERENCES `subscription` (`subscriptionid`)	1922	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1923	ON DELETE CASCADE ON UPDATE CASCADE	1923
		1924	--
		1925	-- Table structure for subscriptionrouting
		1926	--
		1927
		1928	DROP TABLE IF EXISTS subscriptionrouting;
		1929	CREATE TABLE subscriptionrouting (
		1930	routinglistid int(11) NOT NULL, -- foreign key from the subscriptionroutinglist
		1931	-- table, defines which routing list is affected
		1932	borrowernumber int(11) NOT NULL, -- foreign key from the borrowers table,
		1933	-- defines which patron is on the routing list
		1934	ranking int(11) DEFAULT NULL, -- where the patron stands in line to receive the serial
		1935	PRIMARY KEY (routinglistid, borrowernumber),
		1936	CONSTRAINT subscriptionrouting_ibfk_1 FOREIGN KEY (routinglistid)
		1937	REFERENCES subscriptionroutinglists (routinglistid) ON DELETE CASCADE,
		1938	CONSTRAINT subscriptionrouting_ibfk_2 FOREIGN KEY (borrowernumber)
		1939	REFERENCES borrowers (borrowernumber) ON DELETE CASCADE
1924	) ENGINE=InnoDB DEFAULT CHARSET=utf8;	1940	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
1925		1941
1926	--	1942	--

Lines 5198-5203 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { Link Here

(-)a/installer/data/mysql/updatedatabase.pl (+66 lines)
5198	SetVersion($DBversion);	5198	SetVersion($DBversion);
5199	}	5199	}
5200		5200
		5201	$DBversion = "XXX";
		5202	if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
		5203	$dbh->do("RENAME TABLE subscriptionroutinglist TO tmp_subscriptionroutinglist");
		5204	$dbh->do("
		5205	CREATE TABLE subscriptionroutinglist (
		5206	routinglistid int(11) NOT NULL AUTO_INCREMENT,
		5207	subscriptionid int(11) NOT NULL,
		5208	title varchar(256) NOT NULL,
		5209	notes text default NULL,
		5210	PRIMARY KEY (routinglistid),
		5211	CONSTRAINT subscriptionroutinglist_ibfk_1 FOREIGN KEY (subscriptionid)
		5212	REFERENCES subscription (subscriptionid) ON DELETE CASCADE
		5213	) ENGINE=InnoDB DEFAULT CHARSET=utf8
		5214	");
		5215	$dbh->do("
		5216	CREATE TABLE subscriptionrouting (
		5217	routinglistid int(11) NOT NULL,
		5218	borrowernumber int(11) NOT NULL,
		5219	ranking int(11) DEFAULT NULL,
		5220	PRIMARY KEY (routinglistid, borrowernumber),
		5221	CONSTRAINT subscriptionrouting_ibfk_1 FOREIGN KEY (routinglistid)
		5222	REFERENCES subscriptionroutinglist (routinglistid) ON DELETE CASCADE,
		5223	CONSTRAINT subscriptionrouting_ibfk_2 FOREIGN KEY (borrowernumber)
		5224	REFERENCES borrowers (borrowernumber) ON DELETE CASCADE
		5225	) ENGINE=InnoDB DEFAULT CHARSET=utf8
		5226	");
		5227
		5228	# Migrate data from old subscriptionroutinglist table
		5229	my $query = qq{
		5230	SELECT DISTINCT subscriptionid
		5231	FROM tmp_subscriptionroutinglist
		5232	};
		5233	my $sth = $dbh->prepare($query);
		5234	$sth->execute();
		5235	my $results = $sth->fetchall_arrayref( {} );
		5236	$query = qq{
		5237	INSERT INTO subscriptionroutinglist (subscriptionid, title)
		5238	VALUES (?, ?)
		5239	};
		5240	$sth = $dbh->prepare($query);
		5241	$query = qq{
		5242	SELECT borrowernumber, ranking
		5243	FROM tmp_subscriptionroutinglist
		5244	WHERE subscriptionid = ?
		5245	};
		5246	my $select_sth = $dbh->prepare($query);
		5247	$query = qq{
		5248	INSERT INTO subscriptionrouting (routinglistid, borrowernumber, ranking)
		5249	VALUES(?, ?, ?)
		5250	};
		5251	my $insert_sth = $dbh->prepare($query);
		5252	foreach ( @$results ) {
		5253	$sth->execute($_->{subscriptionid}, 'import');
		5254	my $routinglistid = $dbh->last_insert_id(undef, undef, 'subscriptionroutinglist', undef);
		5255	$select_sth->execute($_->{subscriptionid});
		5256	my $routings = $select_sth->fetchall_arrayref( {} );
		5257	foreach (@$routings) {
		5258	$insert_sth->execute($routinglistid, $_->{borrowernumber}, $_->{ranking});
		5259	}
		5260	}
		5261
		5262	$dbh->do("DROP TABLE tmp_subscriptionroutinglist");
		5263	print "Upgrade to $DBversion done (New subscription routing list system).\n";
		5264	SetVersion($DBversion);
5265	}
5266
5201		5267
5202	=head1 FUNCTIONS	5268	=head1 FUNCTIONS
5203		5269

Lines 87-93 Serials updated : Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-home.tt (-4 / +4 lines)
87	Library (callnumber)	87	Library (callnumber)
88	</th>	88	</th>
89	[% IF ( routing && CAN_user_serials_routing ) %]	89	[% IF ( routing && CAN_user_serials_routing ) %]
90	<th>Routing list</th>	90	<th>Routing lists</th>
91	[% END %]	91	[% END %]
92	<th> </th>	92	<th> </th>
93	<th> </th>	93	<th> </th>
Lines 125-134 Serials updated : Link Here
125	[% IF ( subscription.cannotedit ) %]	125	[% IF ( subscription.cannotedit ) %]
126		126
127	[% ELSE %]	127	[% ELSE %]
128	[% IF ( subscription.routingedit ) %]	128	[% IF ( subscription.routinglistscount ) %]
129	<a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscription.subscriptionid %]">Edit</a>	129	<a href="/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscription.subscriptionid %]">Edit</a> ([% subscription.routinglistscount %])
130	[% ELSE %]	130	[% ELSE %]
131	<a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscription.subscriptionid %]&op=new">New</a>	131	<a href="/cgi-bin/koha/serials/routinglist.pl?subscriptionid=[% subscription.subscriptionid %]&op=new">New</a>
132	[% END %]	132	[% END %]
133	[% END %]	133	[% END %]
134	</td>	134	</td>

Lines 44-56 BEGIN { Link Here

(-)a/C4/Serials.pm (-152 / +56 lines)
44	&ReNewSubscription &GetLateIssues &GetLateOrMissingIssues	44	&ReNewSubscription &GetLateIssues &GetLateOrMissingIssues
45	&GetSerialInformation &AddItem2Serial	45	&GetSerialInformation &AddItem2Serial
46	&PrepareSerialsData &GetNextExpected &ModNextExpected	46	&PrepareSerialsData &GetNextExpected &ModNextExpected
		47	&GetSerial &GetSerialItemnumber
47		48
48	&UpdateClaimdateIssues	49	&UpdateClaimdateIssues
49	&GetSuppliersWithLateIssues &getsupplierbyserialid	50	&GetSuppliersWithLateIssues &getsupplierbyserialid
50	&GetDistributedTo &SetDistributedTo	51	&GetDistributedTo &SetDistributedTo
51	&getroutinglist &delroutingmember &addroutingmember	52	&updateClaim &removeMissingIssue
52	&reorder_members
53	&check_routing &updateClaim &removeMissingIssue
54	&CountIssues	53	&CountIssues
55	HasItems	54	HasItems
56		55
Lines 168-173 sub GetSubscriptionHistoryFromSubscriptionId() { Link Here
168	return $dbh->prepare($query);	167	return $dbh->prepare($query);
169	}	168	}
170		169
		170	=head2 GetSerial
		171
		172	my $serial = &GetSerial($serialid);
		173
		174	This sub returns serial informations (ie. in serial table) for given $serialid
		175	It returns a hashref where each key is a sql column.
		176
		177	=cut
		178
		179	sub GetSerial {
		180	my ($serialid) = @_;
		181
		182	return unless $serialid;
		183
		184	my $dbh = C4::Context->dbh;
		185	my $query = qq{
		186	SELECT *
		187	FROM serial
		188	WHERE serialid = ?
		189	};
		190	my $sth = $dbh->prepare($query);
		191	$sth->execute($serialid);
		192	return $sth->fetchrow_hashref;
		193	}
		194
		195	=head2 GetSerialItemnumber
		196
		197	my $itemnumber = GetSerialItemnumber($serialid);
		198
		199	Returns the itemnumber associated to $serialid or undef if there is no item.
		200
		201	=cut
		202
		203	sub GetSerialItemnumber {
		204	my ($serialid) = @_;
		205
		206	return unless $serialid;
		207	my $itemnumber;
		208
		209	my $dbh = C4::Context->dbh;
		210	my $query = qq{
		211	SELECT itemnumber
		212	FROM serialitems
		213	WHERE serialid = ?
		214	};
		215	my $sth = $dbh->prepare($query);
		216	my $rv = $sth->execute($serialid);
		217	if ($rv) {
		218	my $result = $sth->fetchrow_hashref;
		219	$itemnumber = $result->{itemnumber};
		220	}
		221	return $itemnumber;
		222	}
		223
171	=head2 GetSerialStatusFromSerialId	224	=head2 GetSerialStatusFromSerialId
172		225
173	$sth = GetSerialStatusFromSerialId();	226	$sth = GetSerialStatusFromSerialId();
Lines 1888-2042 sub getsupplierbyserialid { Link Here
1888	return $result;	1941	return $result;
1889	}	1942	}
1890		1943
1891	=head2 check_routing
1892
1893	$result = &check_routing($subscriptionid)
1894
1895	this function checks to see if a serial has a routing list and returns the count of routingid
1896	used to show either an 'add' or 'edit' link
1897
1898	=cut
1899
1900	sub check_routing {
1901	my ($subscriptionid) = @_;
1902	my $dbh = C4::Context->dbh;
1903	my $sth = $dbh->prepare(
1904	"SELECT count(routingid) routingids FROM subscription LEFT JOIN subscriptionroutinglist
1905	ON subscription.subscriptionid = subscriptionroutinglist.subscriptionid
1906	WHERE subscription.subscriptionid = ? ORDER BY ranking ASC
1907	"
1908	);
1909	$sth->execute($subscriptionid);
1910	my $line = $sth->fetchrow_hashref;
1911	my $result = $line->{'routingids'};
1912	return $result;
1913	}
1914
1915	=head2 addroutingmember
1916
1917	addroutingmember($borrowernumber,$subscriptionid)
1918
1919	this function takes a borrowernumber and subscriptionid and adds the member to the
1920	routing list for that serial subscription and gives them a rank on the list
1921	of either 1 or highest current rank + 1
1922
1923	=cut
1924
1925	sub addroutingmember {
1926	my ( $borrowernumber, $subscriptionid ) = @_;
1927	my $rank;
1928	my $dbh = C4::Context->dbh;
1929	my $sth = $dbh->prepare( "SELECT max(ranking) rank FROM subscriptionroutinglist WHERE subscriptionid = ?" );
1930	$sth->execute($subscriptionid);
1931	while ( my $line = $sth->fetchrow_hashref ) {
1932	if ( $line->{'rank'} > 0 ) {
1933	$rank = $line->{'rank'} + 1;
1934	} else {
1935	$rank = 1;
1936	}
1937	}
1938	$sth = $dbh->prepare( "INSERT INTO subscriptionroutinglist (subscriptionid,borrowernumber,ranking) VALUES (?,?,?)" );
1939	$sth->execute( $subscriptionid, $borrowernumber, $rank );
1940	}
1941
1942	=head2 reorder_members
1943
1944	reorder_members($subscriptionid,$routingid,$rank)
1945
1946	this function is used to reorder the routing list
1947
1948	it takes the routingid of the member one wants to re-rank and the rank it is to move to
1949	- it gets all members on list puts their routingid's into an array
1950	- removes the one in the array that is $routingid
1951	- then reinjects $routingid at point indicated by $rank
1952	- then update the database with the routingids in the new order
1953
1954	=cut
1955
1956	sub reorder_members {
1957	my ( $subscriptionid, $routingid, $rank ) = @_;
1958	my $dbh = C4::Context->dbh;
1959	my $sth = $dbh->prepare( "SELECT * FROM subscriptionroutinglist WHERE subscriptionid = ? ORDER BY ranking ASC" );
1960	$sth->execute($subscriptionid);
1961	my @result;
1962	while ( my $line = $sth->fetchrow_hashref ) {
1963	push( @result, $line->{'routingid'} );
1964	}
1965
1966	# To find the matching index
1967	my $i;
1968	my $key = -1; # to allow for 0 being a valid response
1969	for ( $i = 0 ; $i < @result ; $i++ ) {
1970	if ( $routingid == $result[$i] ) {
1971	$key = $i; # save the index
1972	last;
1973	}
1974	}
1975
1976	# if index exists in array then move it to new position
1977	if ( $key > -1 && $rank > 0 ) {
1978	my $new_rank = $rank - 1; # $new_rank is what you want the new index to be in the array
1979	my $moving_item = splice( @result, $key, 1 );
1980	splice( @result, $new_rank, 0, $moving_item );
1981	}
1982	for ( my $j = 0 ; $j < @result ; $j++ ) {
1983	my $sth = $dbh->prepare( "UPDATE subscriptionroutinglist SET ranking = '" . ( $j + 1 ) . "' WHERE routingid = '" . $result[$j] . "'" );
1984	$sth->execute;
1985	}
1986	return;
1987	}
1988
1989	=head2 delroutingmember
1990
1991	delroutingmember($routingid,$subscriptionid)
1992
1993	this function either deletes one member from routing list if $routingid exists otherwise
1994	deletes all members from the routing list
1995
1996	=cut
1997
1998	sub delroutingmember {
1999
2000	# if $routingid exists then deletes that row otherwise deletes all with $subscriptionid
2001	my ( $routingid, $subscriptionid ) = @_;
2002	my $dbh = C4::Context->dbh;
2003	if ($routingid) {
2004	my $sth = $dbh->prepare("DELETE FROM subscriptionroutinglist WHERE routingid = ?");
2005	$sth->execute($routingid);
2006	reorder_members( $subscriptionid, $routingid );
2007	} else {
2008	my $sth = $dbh->prepare("DELETE FROM subscriptionroutinglist WHERE subscriptionid = ?");
2009	$sth->execute($subscriptionid);
2010	}
2011	return;
2012	}
2013
2014	=head2 getroutinglist
2015
2016	@routinglist = getroutinglist($subscriptionid)
2017
2018	this gets the info from the subscriptionroutinglist for $subscriptionid
2019
2020	return :
2021	the routinglist as an array. Each element of the array contains a hash_ref containing
2022	routingid - a unique id, borrowernumber, ranking, and biblionumber of subscription
2023
2024	=cut
2025
2026	sub getroutinglist {
2027	my ($subscriptionid) = @_;
2028	my $dbh = C4::Context->dbh;
2029	my $sth = $dbh->prepare(
2030	'SELECT routingid, borrowernumber, ranking, biblionumber
2031	FROM subscription
2032	JOIN subscriptionroutinglist ON subscription.subscriptionid = subscriptionroutinglist.subscriptionid
2033	WHERE subscription.subscriptionid = ? ORDER BY ranking ASC'
2034	);
2035	$sth->execute($subscriptionid);
2036	my $routinglist = $sth->fetchall_arrayref({});
2037	return @{$routinglist};
2038	}
2039
2040	=head2 countissuesfrom	1944	=head2 countissuesfrom
2041		1945
2042	$result = countissuesfrom($subscriptionid,$startdate)	1946	$result = countissuesfrom($subscriptionid,$startdate)

Line 0 Link Here

(-)a/C4/Serials/RoutingLists.pm (+274 lines)
		1	package C4::Serials::RoutingLists;
		2
		3	# Copyright 2012 Biblibre
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 2 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along
		17	# with Koha; if not, write to the Free Software Foundation, Inc.,
		18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		19
		20	use Modern::Perl;
		21
		22	use C4::Context;
		23
		24	use vars qw($VERSION @ISA @EXPORT_OK);
		25
		26	BEGIN {
		27	$VERSION = 3.01;
		28	require Exporter;
		29	@ISA = qw(Exporter);
		30	@EXPORT_OK = qw(
		31	&AddRoutingList
		32	&ModRoutingList
		33	&DelRoutingList
		34	&GetRoutingList
		35	&GetRoutingLists
		36	&GetRoutingListsCount
		37	&GetRoutingListAsCSV
		38	);
		39	}
		40
		41	=head2 AddRoutingList
		42
		43	$routinglistid = &AddRoutingList($subscriptionid, $title);
		44
		45	this function create a new routing list for a subscription.
		46
		47	=cut
		48
		49	sub AddRoutingList {
		50	my ($subscriptionid, $title) = @_;
		51
		52	my $dbh = C4::Context->dbh();
		53	my $query = qq{
		54	INSERT INTO subscriptionroutinglist (subscriptionid, title)
		55	VALUES (?, ?)
		56	};
		57	my $sth = $dbh->prepare($query);
		58	$sth->execute($subscriptionid, $title);
		59
		60	return $dbh->last_insert_id(undef, undef, 'subscriptionroutinglist', undef);
		61	}
		62
		63	=head2 ModRoutingList
		64
65	&ModRoutingList($routinglistid, $subscriptionid, $title, $notes, @borrowernumbers);
66
67	this function modifies a routing list.
68
69	=cut
70
71	sub ModRoutingList {
72	my ($routinglistid, $subscriptionid, $title, $notes, @borrowernumbers) = @_;
73
74	my $dbh = C4::Context->dbh;
75	my $query = 'UPDATE subscriptionroutinglist';
76	my @setstrings = ();
77	my @setargs = ();
78	if($subscriptionid) {
79	push @setstrings, 'subscriptionid = ?';
80	push @setargs, $subscriptionid;
81	}
82	if($title) {
83	push @setstrings, 'title = ?';
84	push @setargs, $title;
85	}
86	if($notes) {
87	push @setstrings, 'notes = ?';
88	push @setargs, $notes;
89	}
90
91	if(@setstrings) {
92	$query .= ' SET ' . join(',', @setstrings);
93	$query .= ' WHERE routinglistid = ?';
94	my $sth = $dbh->prepare($query);
95	$sth->execute(@setargs, $routinglistid);
96	}
97
98	$query = qq{
99	DELETE FROM subscriptionrouting
100	WHERE routinglistid = ?
101	};
102	my $sth = $dbh->prepare($query);
103	$sth->execute($routinglistid);
104
105	if(@borrowernumbers > 0){
106	$query = qq{
107	INSERT INTO subscriptionrouting (routinglistid, borrowernumber, ranking)
108	VALUES (?, ?, ?)
109	};
110	$sth = $dbh->prepare($query);
111	my $i = 1;
112	foreach (@borrowernumbers) {
113	$sth->execute($routinglistid, $_, $i);
114	$i++;
115	}
116	}
117	}
118
119	=head2 DelRoutingList
120
121	&DelRoutingList($routinglistid);
122
123	this function delete a routing list.
124
125	=cut
126
127	sub DelRoutingList {
128	my ($routinglistid) = @_;
129
130	my $dbh = C4::Context->dbh;
131	my $query = qq{
132	DELETE FROM subscriptionroutinglist
133	WHERE routinglistid = ?
134	};
135	my $sth = $dbh->prepare($query);
136	$sth->execute($routinglistid);
137	}
138
139
140	=head2 GetRoutingList
141
142	$routinglist = &GetRoutingList($routinglistid);
143
144	this function get infos from subscriptionroutinglist table.
145	The 'borrowers' keys contains the list of borrowernumbers attached
146	to this routing list.
147
148	=cut
149
150	sub GetRoutingList {
151	my ($routinglistid) = @_;
152
153	my $dbh = C4::Context->dbh;
154	my $query = qq{
155	SELECT *
156	FROM subscriptionroutinglist
157	WHERE routinglistid = ?
158	};
159	my $sth = $dbh->prepare($query);
160	$sth->execute($routinglistid);
161	my $result = $sth->fetchrow_hashref;
162
163	$query = qq{
164	SELECT borrowernumber
165	FROM subscriptionrouting
166	WHERE routinglistid = ?
167	ORDER BY ranking ASC
168	};
169	$sth = $dbh->prepare($query);
170	$sth->execute($routinglistid);
171	while (my $row = $sth->fetchrow_hashref) {
172	push @{$result->{borrowers}}, $row->{borrowernumber};
173	}
174
175	return $result;
176	}
177
178	=head2 GetRoutingLists
179
180	$routinglists = &GetRoutingLists($subscriptionid);
181
182	this function get all routing lists for a subscription.
183
184	=cut
185
186	sub GetRoutingLists {
187	my ($subscriptionid) = @_;
188
189	my $dbh = C4::Context->dbh;
190	my $query = qq{
191	SELECT routinglistid
192	FROM subscriptionroutinglist
193	WHERE subscriptionid = ?
194	};
195	my $sth = $dbh->prepare($query);
196	$sth->execute($subscriptionid);
197	my @results;
198	while (my $row = $sth->fetchrow_hashref) {
199	my $routinglistid = $row->{routinglistid};
200	push @results, GetRoutingList($routinglistid);
201	}
202
203	return @results;
204	}
205
206	=head2 GetRoutingListsCount
207
208	$count = &GetRoutingListsCount($subscriptionid);
209
210	this function return the number of routing lists for a subscription.
211
212	=cut
213
214	sub GetRoutingListsCount {
215	my ($subscriptionid) = @_;
216
217	return unless $subscriptionid;
218
219	my $dbh = C4::Context->dbh;
220	my $query = qq{
221	SELECT COUNT(*) AS count
222	FROM subscriptionroutinglist
223	WHERE subscriptionid = ?
224	};
225	my $sth = $dbh->prepare($query);
226	$sth->execute($subscriptionid);
227	my $result = $sth->fetchrow_hashref;
228
229	return $result->{count};
230	}
231
232	=head2 GetRoutingListAsCSV
233
234	$csv_output = &GetRoutingListAsCSV($routinglistid);
235
236	this function return the routing list as a CSV file.
237
238	=cut
239
240	sub GetRoutingListAsCSV {
241	my ($routinglistid) = @_;
242
243	require C4::Biblio;
244	require C4::Serials;
245	require C4::Members;
246	require Text::CSV::Encoded;
247
248	my $csv = Text::CSV::Encoded->new( {encoding => "utf8" } );
249	my $output;
250
251	my $routinglist = GetRoutingList($routinglistid);
252	my $subscription = C4::Serials::GetSubscription($routinglist->{'subscriptionid'});
253	my (undef, $biblio) = C4::Biblio::GetBiblio($subscription->{'biblionumber'});
254
255	my @headers = ("Subscription title", "Routing list", qw(Surname Firstname Notes));
256	$csv->combine(@headers);
257	$output .= $csv->string() . "\n";
258
259	foreach (@{$routinglist->{borrowers}}) {
260	my $member = C4::Members::GetMemberDetails($_);
261	$csv->combine(
262	$biblio->{'title'},
263	$routinglist->{'title'},
264	$member->{'surname'},
265	$member->{'firstname'},
266	$routinglist->{'notes'},
267	);
268	$output .= $csv->string() . "\n";
269	}
270
271	return $output;
272	}
273
274	1;

Lines 2-15 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/member-search.tt (-10 / +16 lines)
2	<title>Koha &rsaquo; Member Search &rsaquo; [% bookselname %]</title>	2	<title>Koha &rsaquo; Member Search &rsaquo; [% bookselname %]</title>
3	[% INCLUDE 'doc-head-close.inc' %]	3	[% INCLUDE 'doc-head-close.inc' %]
4	<script type="text/javascript">	4	<script type="text/javascript">
5	<!--	5	//<![CDATA[
6		6
7	function add_member(subscriptionid,borrowernumber){	7	function add_member(borrowernumber, surname, firstname) {
8	var myurl = "routing.pl?subscriptionid="+subscriptionid+"&borrowernumber="+borrowernumber+"&op=add";	8	if(window.opener.addBorrower(borrowernumber, surname, firstname) < 0){
9	window.opener.location.href = myurl;	9	alert(_("This borrower is already in the list."));
		10	}
10	}	11	}
11		12
12	//-->	13	//]]>
13	</script>	14	</script>
14	<style type="text/css">	15	<style type="text/css">
15	#custom-doc { width:36.46em;*width:35.53em;min-width:430px; margin:auto; text-align:left; padding: 1em; }	16	#custom-doc { width:36.46em;*width:35.53em;min-width:430px; margin:auto; text-align:left; padding: 1em; }
Lines 60-70 function add_member(subscriptionid,borrowernumber){ Link Here
60	</thead>	61	</thead>
61	<tbody>	62	<tbody>
62	[% FOREACH resultsloo IN resultsloop %]	63	[% FOREACH resultsloo IN resultsloop %]
63	[% IF ( loop.odd ) %]<tr class="highlight">[% ELSE %]<tr>[% END %]	64	[% IF ( loop.odd ) %]
64	<td>[% resultsloo.cardnumber %] </td>	65	<tr class="highlight">
65	<td>[% resultsloo.surname %], [% resultsloo.firstname %] </td>	66	[% ELSE %]
66	<td>[% resultsloo.branchcode %] </td>	67	<tr>
67	<td><a onclick="add_member([% subscriptionid %],[% resultsloo.borrowernumber %]); return false" href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% resultsloo.subscriptionid %]&borrowernumber=[% resultsloo.borrowernumber %]&op=add">Add</a></td></tr>	68	[% END %]
		69	<td>[% resultsloo.cardnumber %] </td>
		70	<td>[% resultsloo.surname %], [% resultsloo.firstname %] </td>
		71	<td>[% resultsloo.branchcode %] </td>
		72	<td><a style="cursor:pointer" onclick="add_member([% resultsloo.borrowernumber %], '[% resultsloo.surname %]', '[% resultsloo.firstname %]'); return false;">Add</a></td>
		73	</tr>
68	[% END %]	74	[% END %]
69	</tbody>	75	</tbody>
70	</table>	76	</table>

Lines 14-47 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/routing-preview-slip.tt (-25 / +91 lines)
14	<div id="custom-doc" class="yui-t7">	14	<div id="custom-doc" class="yui-t7">
15	<div id="bd">	15	<div id="bd">
16		16
17	<table>	17	[% IF (missing_parameter_routinglistid or missing_parameter_serialid) %]
18	<tr>	18	<h1>Routing list preview for <em>[% title %]</em></h1>
19	<td colspan="2"><h3>[% libraryname %]</h3></td>	19
20	</tr>	20	<form action="" method="get">
21	<tr>	21	[% IF (missing_parameter_routinglistid) %]
22	<td colspan="2"><b>Title:</b> [% title \|html %]<br />[% issue %]</td>	22	<input type="hidden" name="serialid" value="[% serialid %]" />
23	</tr>	23	<label for="routinglist">Please select a routing list</label>
24	<tr>	24	<select id="routinglist" name="routinglistid">
25	<td><b>Name</b></td>	25	[% FOREACH routinglist IN routinglists %]
26	<td><b>Date due</b></td>	26	<option value="[% routinglist.routinglistid %]">
27	</tr>	27	[% routinglist.title %]
28	[% FOREACH memberloo IN memberloop %]	28	</option>
29	<tr>	29	[% END %]
30	<td>[% memberloo.name %]</td>	30	</select>
31	<td> </td>	31	[% ELSE %]
32	</tr>	32	<input type="hidden" name="routinglistid" value="[% routinglistid %]" />
		33	<label for="serial">Please select a serial</label>
		34	<select id="serial" name="serialid">
		35	[% FOREACH serial IN serials %]
		36	<option value="[% serial.serialid %]">
		37	[% serial.serialseq %] ([% serial.planneddate %])
		38	</option>
		39	[% END %]
		40	</select>
		41	[% END %]
		42	<input type="submit" value="Continue" />
		43	</form>
		44	[% ELSE %]
		45	[% IF (error_no_item) %]
		46	<div class="error noprint">
		47	<p>Holds cannot be placed on this serial. There is no item attached to it.</p>
		48	</div>
33	[% END %]	49	[% END %]
34	</table>	50	<table>
		51	[% IF (libraryname) %]
		52	<tr>
		53	<td colspan="2"><h3>[% libraryname %]</h3></td>
		54	</tr>
		55	[% END %]
		56	<tr>
		57	<td colspan="2">
		58	<b>Title:</b> [% title \|html %]<br />
		59	[% serial.serialseq %] ([% serial.planneddate %])
		60	</td>
		61	</tr>
		62	<tr>
		63	<td colspan="2">
		64	<b>Routing list:</b> [% routinglisttitle %]
		65	</td>
		66	</tr>
		67	<tr>
		68	<td><b>Name</b></td>
		69	<td><b>Date due</b></td>
		70	</tr>
		71	[% FOREACH member IN memberloop %]
		72	<tr>
		73	<td>[% member.surname %], [% member.firstname %]</td>
		74	<td> </td>
		75	</tr>
		76	[% END %]
		77	</table>
35		78
36	<div id="routingnotes">	79	<div id="routingnotes">
37	<p id="generalroutingnote">[% generalroutingnote %]</p>	80	<p id="generalroutingnote">[% generalroutingnote %]</p>
38	<p id="routingnote">[% routingnotes %]</p>	81	<p id="routingnote">[% routingnotes %]</p>
39	</div>	82	</div>
40		83
41	<div id="slip-block-links" class="noprint">	84	[% IF (need_confirm) %]
42	<a class="button" href="javascript:window.print();self.close()">Print</a>   <a class="button" href="javascript:self.close()">Close</a>	85	[%# RoutingListAddReserves is ON %]
43	</div>	86	<script type="text/javascript">
		87	//<![CDATA[
		88	function ask_confirm() {
		89	var msg = _("Holds will be placed for all borrowers in this list.");
		90	msg += "\n";
		91	msg += _("Do you want to continue?");
		92	return confirm(msg);
		93	}
		94	//]]>
		95	</script>
		96	<form action="" method="get" onsubmit="return ask_confirm()">
		97	<input type="hidden" name="routinglistid" value="[% routinglistid %]" />
		98	<input type="hidden" name="serialid" value="[% serialid %]" />
		99	<input type="hidden" name="confirm" value="1" />
		100	<input type="submit" value="Confirm and print" />
		101	<input type="button" value="Cancel" onclick="window.close()" />
		102	</form>
		103	[% ELSE %]
		104	<div id="slip-block-links" class="noprint">
		105	<a class="button" href="javascript:window.print();self.close()">Print</a>
		106	<a class="button" href="javascript:self.close()">Close</a>
		107	</div>
		108	[% END %]
		109	[% END %]
44		110
45	</div>	111	</div>
46		112
47	[% INCLUDE 'intranet-bottom.inc' %]	113	[% INCLUDE 'intranet-bottom.inc' %]

Lines 1-57 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/routing-preview.tt (-57 lines)
1	[% INCLUDE 'doc-head-open.inc' %]
2	<title>Koha &rsaquo; Serials &rsaquo; Preview routing list</title>
3	[% INCLUDE 'doc-head-close.inc' %]
4	<script type="text/javascript">
5	<!--
6
7	function print_slip(subscriptionid,issue){
8	var myurl = 'routing-preview.pl?ok=1&subscriptionid='+subscriptionid+'&issue='+issue;
9	window.open(myurl,'PrintSlip','width=500,height=500,toolbar=no,scrollbars=yes');
10	window.location.href='subscription-detail.pl?subscriptionid=' + subscriptionid;
11	}
12	//-->
13	</script>
14	</head>
15	<body id="ser_routing-preview" class="ser">
16	[% INCLUDE 'header.inc' %]
17	[% INCLUDE 'serials-search.inc' %]
18
19	<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo; <a href="/cgi-bin/koha/serials/serials-home.pl">Serials</a> &rsaquo; <a href="/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=[% subscriptionid %]"><i>[% title \|html %]</i></a> &rsaquo; Preview routing list</div>
20
21	<div id="doc3" class="yui-t2">
22
23	<div id="bd">
24	<div id="yui-main">
25	<div class="yui-b">
26
27	<h2>Preview routing list for <i>[% title \|html %]</i></h2>
28
29	<form method="post" action="routing-preview.pl">
30	<input type="hidden" name="subscriptionid" value="[% subscriptionid %]" />
31	<fieldset class="rows">
32	<ol>
33	<li><span class="label">Issue:</span>[% issue %]</li>
34	<li><span class="label">List member:</span><table style="clear:none;margin:0;">
35	<tr><th>Name</th></tr>
36	[% FOREACH memberloo IN memberloop %]
37	<tr><td>[% memberloo.surname %], [% memberloo.firstname %]</td></tr>
38	[% END %]
39	</table></li>
40	<li><span class="label">Notes:</span>[% routingnotes %]</li>
41	</ol>
42	</fieldset>
43
44	<fieldset class="action">
45	<input type="submit" name="ok" class="button" value="Save and preview routing slip" onclick="print_slip([% subscriptionid %],'[% issue_escaped %]'); return false" />
46	<input type="submit" name="edit" class="button" value="Edit" />
47	<input type="submit" name="delete" class="button" value="Delete" /></fieldset>
48	</form>
49
50	</div>
51	</div>
52
53	<div class="yui-b">
54	[% INCLUDE 'serials-menu.inc' %]
55	</div>
56	</div>
57	[% INCLUDE 'intranet-bottom.inc' %]

Lines 1-97 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/routing.tt (-97 lines)
1	[% INCLUDE 'doc-head-open.inc' %]
2	<title>Koha &rsaquo; Serials &rsaquo; [% title \|html %] &rsaquo; [% IF ( op ) %]Create Routing List[% ELSE %]Edit routing list[% END %]</title>
3	[% INCLUDE 'doc-head-close.inc' %]
4	<script language="javascript" type="text/javascript">
5	<!--
6
7	function reorder_item(sid,rid,rank){
8	var mylocation = 'reorder_members.pl?subscriptionid='+sid+'&routingid='+rid+'&rank='+rank;
9	window.location.href=mylocation;
10	}
11
12	function search_member(subscriptionid){
13	var myurl = 'member-search.pl?subscriptionid='+subscriptionid; window.open(myurl,'FindAMember','width=550,height=480,toolbar=no,scrollbars=yes');
14	}
15
16	//-->
17	</script>
18	</head>
19	<body id="ser_routing" class="ser">
20	[% INCLUDE 'header.inc' %]
21	[% INCLUDE 'serials-search.inc' %]
22
23	<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo; <a href="/cgi-bin/koha/serials/serials-home.pl">Serials</a> &rsaquo; <a href="/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=[% subscriptionid %]"><i>[% title \|html %]</i></a> &rsaquo; [% IF ( op ) %]Create Routing List[% ELSE %]Edit routing list[% END %]</div>
24
25	<div id="doc3" class="yui-t2">
26
27	<div id="bd">
28	<div id="yui-main">
29	<div class="yui-b">
30
31
32	[% IF ( op ) %]
33	<h1>Create routing list for <i>[% title \|html %]</i></h1>
34	[% ELSE %]
35	<h1>Edit routing list for <i>[% title \|html %]</i></h1>
36	[% END %]
37
38	<form method="post" action="routing.pl">
39	<input type="hidden" name="op" value="save" />
40	<input type="hidden" name="subscriptionid" value="[% subscriptionid %]" />
41	<fieldset class="rows">
42	<ol>
43	<li><label for="date_selected">Issue: </label>
44	<select name="date_selected" id="date_selected">
45	[% FOREACH date IN dates %]
46	[% IF ( date.selected ) %]<option value="[% date.serialseq %] ([% date.planneddate %])" selected="selected">[% date.serialseq %] ([% date.planneddate %])</option>[% ELSE %]<option value="[% date.serialseq %] ([% date.planneddate %])">[% date.serialseq %] ([% date.planneddate %])</option>[% END %]
47	[% END %]
48	</select> [% issue %]</li>
49
50	[% IF memberloop %]
51	<li><span class="label">Recipients:</span><table style="clear:none;margin:0;">
52	<tr><th>Name</th>
53	<th>Rank</th>
54	<th>Delete</th>
55	</tr>
56	[% USE m_loop = iterator(memberloop) %]
57	[% FOREACH member IN m_loop %]
58	<tr><td>[% member.name %]</td>
59	<td>
60	<select name="itemrank" onchange="reorder_item([%- subscriptionid -%], [%- member.routingid -%], this.option[this.selectedIndex].value)">
61	[% rankings = [1 .. m_loop.size] %]
62	[% FOREACH r IN rankings %]
63	[% IF r == member.ranking %]
64	<option selected="selected" value="[% r %]">[% r %]</option>
65	[% ELSE %]
66	<option value="[% r %]">[% r %]</option>
67	[% END %]
68	[% END %]
69	</select>
70	</td>
71	<td><a href="/cgi-bin/koha/serials/routing.pl?routingid=[% member.routingid %]&subscriptionid=[% subscriptionid %]&op=delete">Delete</a></td>
72	</tr>
73	[% END %]
74	</table><p style="margin-left:10em;"><a onclick="search_member([% subscriptionid %]); return false"
75	href="/cgi-bin/koha/serials/member-search.pl?subscriptionid=[% subscriptionid %]" class="button">Add recipients</a>   <a
76	href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscriptionid %]&op=delete" class="button">Delete all</a></p></li>
77	[% ELSE %]
78	<li><span class="label">Recipients:</span>
79	<a onclick="search_member([% subscriptionid %]); return false" href="/cgi-bin/koha/serials/member-search.pl?subscriptionid=[% subscriptionid %]" class="button">Add recipients</a></li>
80	[% END %]
81
82	<li><label for="notes">Notes:</label><textarea name="notes" id="notes" rows="3" cols="50">[% routingnotes %]</textarea></li>
83	</ol>
84
85	</fieldset>
86	<fieldset class="action"><input type="submit" name="submit" value="Save" /></fieldset>
87	</form>
88
89
90	</div>
91	</div>
92
93	<div class="yui-b">
94	[% INCLUDE 'serials-menu.inc' %]
95	</div>
96	</div>
97	[% INCLUDE 'intranet-bottom.inc' %]

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/routinglist.tt (+194 lines)
		1	[% INCLUDE 'doc-head-open.inc' %]
		2	<title>Koha &rsaquo; Serials &rsaquo; Routing list</title>
		3	[% INCLUDE 'doc-head-close.inc' %]
		4	<script type="text/javascript">
		5	//<![CDATA[
		6	[% UNLESS ( new ) %]
		7	var max_rank = [% max_rank %];
		8
		9	function IncMaxRank(){
		10	max_rank = max_rank + 1;
		11	var option = '<option value="' + max_rank + '">' + max_rank + '</option>';
		12	$('select[name="ranking"]').append(option);
		13	}
		14
		15	function DecMaxRank(){
		16	max_rank = max_rank - 1;
		17	$('select[name="ranking"] option[value="'+(max_rank+1)+'"]').remove();
		18	}
		19
		20	function updateTable(){
		21	var ids = $("#borrowersids").val().split(":");
		22	// split returns an array with one empty string if string is empty
		23	if(ids[0] == "")
		24	ids.splice(0,1);
		25
		26	var new_trs = new Array();
		27	for(var i=0; i<ids.length; i++){
		28	var tr = $("#ranking"+ids[i]).parents("tr");
		29	new_trs.push("<tr>"+$(tr).html()+"</tr>");
		30	}
		31	$("#borrowers tbody").html(new_trs.join(" "));
		32	var i=0;
		33	$("select[name='ranking']").each(function(){
		34	$(this).val(i+1);
		35	i++;
		36	var borrowernumber = $(this).attr('id').replace("ranking","");
		37	$(this).change(function(){
		38	reorderBorrower(borrowernumber, $(this).val());
		39	});
		40	});
		41	if(i < max_rank)
		42	DecMaxRank();
		43
		44	if(max_rank == 0){
		45	$("#borrowers").hide();
		46	$("#noborrowersp").show();
		47	}
		48	}
		49
		50	// delete borrower if rank <= 0
		51	function reorderBorrower(borrowernumber, rank){
		52	var ids = $("#borrowersids").val().split(":");
		53	for(var i=0; i<ids.length; i++){
		54	if(ids[i] == borrowernumber){
		55	ids.splice(i, 1);
		56	break;
		57	}
		58	}
		59	if(rank > 0){
		60	ids.splice(rank-1, 0, borrowernumber);
		61	}
		62	$("#borrowersids").val(ids.join(":"));
		63	updateTable();
		64	}
65
66	function addBorrower(borrowernumber, surname, firstname){
67	// Check if we have already this borrower
68	var ids = $("#borrowersids").val();
69	var re = new RegExp("(^"+borrowernumber+"$)\|(^"+borrowernumber+":)\|(:"+borrowernumber+"$)\|(:"+borrowernumber+":)");
70	if(ids.match(re))
71	return -1;
72
73	IncMaxRank();
74	var tr = '<tr>';
75	tr += '<td>' + surname + ', ' + firstname + '</td>';
76	tr += '<td><select name="ranking" id="ranking' + borrowernumber + '">';
77	for(var i=0; i<(max_rank-1); i++){
78	tr += '<option value="' + (i+1) + '">' + (i+1) + '</option>';
79	}
80	tr += '<option selected="selected" value="' + (max_rank) + '">' + (max_rank) + '</option>';
81	tr += '</select></td>';
82	tr += '<td><a style="cursor:pointer" onclick="delBorrower('+borrowernumber+');">Delete</a></td>';
83	tr += '</tr>';
84	$("#borrowers tbody").append(tr);
85	$("#ranking"+borrowernumber).change(function(){
86	reorderBorrower(borrowernumber, $(this).val());
87	});
88
89	if(ids.length != 0)
90	ids += ':';
91	ids += borrowernumber;
92	$("#borrowersids").val(ids);
93
94	$("#borrowers").show();
95	$("#noborrowersp").hide();
96
97	return 0;
98	}
99
100	function delBorrower(borrowernumber){
101	reorderBorrower(borrowernumber, 0);
102	}
103
104	function SearchMember(){
105	window.open("/cgi-bin/koha/serials/member-search.pl", 'MemberSearch',
106	'menubar=no,status=no,toolbar=no,scrollbars=yes');
107	}
108
109	$(document).ready(function() {
110	updateTable();
111	});
112	[% END %]
113
114	//]]>
115	</script>
116	</head>
117
118	<body>
119	[% INCLUDE 'header.inc' %]
120	[% INCLUDE 'serials-search.inc' %]
121
122	<div id="breadcrumbs"><a href="/cgi-bin/koha/mainpage.pl">Home</a> &rsaquo; <a href="/cgi-bin/koha/serials/serials-home.pl">Serials</a> &rsaquo; Routing list</div>
123
124	<div id="doc3" class="yui-t2">
125
126	<div id="bd">
127	<div id="yui-main">
128	<div class="yui-b">
129	[% INCLUDE 'serials-toolbar.inc' %]
130	[% IF ( new ) %]
131	<h1>Create routing list</h1>
132
133	<form action="/cgi-bin/koha/serials/routinglist.pl" method="get">
134	<input type="hidden" name="op" value="savenew" />
135	<input type="hidden" name="subscriptionid" value="[% subscriptionid %]" />
136	<label for="title">Title: </label>
137	<input type="text" id="title" name="title" />
138	<input type="submit" value="Save" />
139	</form>
140	[% ELSE %]
141	<h1>Routing list '[% title %]'</h1>
142	<a style="cursor:pointer" onclick="SearchMember();">Add a borrower</a>
143	[% IF ( borrowers_loop ) %]
144	<table id="borrowers">
145	[% ELSE %]
146	<table id="borrowers" style="display:none">
147	[% END %]
148	<thead>
149	<tr>
150	<th>Name</th>
151	<th>Rank</th>
152	<th> </th>
153	</tr>
154	</thead>
155	<tbody>
156	[% FOREACH borrower IN borrowers_loop %]
157	<tr>
158	<td>[% borrower.surname %], [% borrower.firstname %]</td>
159	<td>
160	<select name="ranking" id="ranking[% borrower.borrowernumber %]">
161	[% FOREACH ranking_loo IN borrower.ranking_loop %]
162	[% IF ( ranking_loo.selected ) %]
163	<option selected="selected" value="[% ranking_loo.rank %]">[% ranking_loo.rank %]</option>
164	[% ELSE %]
165	<option value="[% ranking_loo.rank %]">[% ranking_loo.rank %]</option>
166	[% END %]
167	[% END %]
168	</select>
169	</td>
170	<td><a style="cursor:pointer" onclick="delBorrower([% borrower.borrowernumber %]);">Delete</a></td>
171	</tr>
172	[% END %]
173	</tbody>
174	</table>
175	[% UNLESS ( borrowers_loop ) %]
176	<p id="noborrowersp">There is no borrowers in this routing list.</p>
177	[% END %]
178	<form action="/cgi-bin/koha/serials/routinglist.pl" method="post">
179	<input type="hidden" id="borrowersids" name="borrowersids" value="[% borrowersids %]" />
180	<input type="hidden" name="op" value="mod" />
181	<input type="hidden" name="routinglistid" value="[% routinglistid %]" />
182	<label for="notes">Notes: </label><br />
183	<textarea id="notes" name="notes">[% notes %]</textarea><br />
184	<input type="submit" value="Save" />
185	<input type="button" value="Cancel" onclick="window.location.href='/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscriptionid %]';" />
186	</form>
187	[% END %]<!-- new -->
188	</div>
189	</div>
190	<div class="yui-b">
191	[% INCLUDE 'serials-menu.inc' %]
192	</div>
193	</div>
194	[% INCLUDE 'intranet-bottom.inc' %]

Lines 1-38 Link Here

(-)a/serials/reorder_members.pl (-38 lines)
1	#!/usr/bin/perl
2	# This file is part of Koha.
3	#
4	# Koha is free software; you can redistribute it and/or modify it under the
5	# terms of the GNU General Public License as published by the Free Software
6	# Foundation; either version 2 of the License, or (at your option) any later
7	# version.
8	#
9	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
10	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
11	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
12	#
13	# You should have received a copy of the GNU General Public License along
14	# with Koha; if not, write to the Free Software Foundation, Inc.,
15	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
16
17	# Routing.pl script used to create a routing list for a serial subscription
18	# In this instance it is in fact a setting up of a list of reserves for the item
19	# where the hierarchical order can be changed on the fly and a routing list can be
20	# printed out
21	use strict;
22	use warnings;
23	use CGI;
24	use C4::Auth qw( checkauth );
25	use C4::Serials qw( reorder_members );
26
27	my $query = CGI->new;
28	my $subscriptionid = $query->param('subscriptionid');
29	my $routingid = $query->param('routingid');
30	my $rank = $query->param('rank');
31
32	checkauth( $query, 0, { serials => 1 }, 'intranet' );
33
34	reorder_members( $subscriptionid, $routingid, $rank );
35
36	print $query->redirect(
37	"/cgi-bin/koha/serials/routing.pl?subscriptionid=$subscriptionid");
38

Line 0 Link Here

(-)a/serials/routing-preview-slip.pl (+144 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2011 BibLibre SARL
		4	# This file is part of Koha.
		5	#
		6	# Koha is free software; you can redistribute it and/or modify it under the
		7	# terms of the GNU General Public License as published by the Free Software
		8	# Foundation; either version 2 of the License, or (at your option) any later
		9	# version.
		10	#
		11	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		12	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		13	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License along
		16	# with Koha; if not, write to the Free Software Foundation, Inc.,
		17	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		18
		19	=head1 NAME
		20
		21	routing-preview-slip.pl
		22
		23	=head1 DESCRIPTION
		24
		25	Preview a routing list for printing.
		26
		27	=cut
		28
		29	use Modern::Perl;
		30
		31	use CGI;
		32	use C4::Auth;
		33	use C4::Output;
		34
		35	use C4::Biblio;
		36	use C4::Branch;
		37	use C4::Members;
		38	use C4::Serials;
		39	use C4::Serials::RoutingLists qw/GetRoutingList GetRoutingLists/;
		40
		41	my $input = new CGI;
		42	my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
		43	template_name => 'serials/routing-preview-slip.tt',
		44	query => $input,
		45	type => 'intranet',
		46	authnotrequired => 0,
		47	flagsrequired => { 'serials' => 'routing' },
		48	debug => 1,
		49	} );
		50
		51	my $routinglistid = $input->param('routinglistid');
		52	my $serialid = $input->param('serialid');
		53
		54	if (!$routinglistid and !$serialid) {
		55	exit;
		56	}
		57
		58	if (!$routinglistid) {
		59	my $serial = GetSerial($serialid);
		60	my $subscription = GetSubscription($serial->{subscriptionid});
		61	my (undef, $biblio) = GetBiblio($subscription->{subscriptionid});
		62	my @routinglists = GetRoutingLists($subscription->{subscriptionid});
		63	$template->param(
		64	missing_parameter_routinglistid => 1,
65	serialid => $serialid,
66	title => $biblio->{title},
67	routinglists => \@routinglists
68	);
69	output_html_with_http_headers $input, $cookie, $template->output;
70	exit;
71	} elsif (!$serialid) {
72	my $routinglist = GetRoutingList($routinglistid);
73	my $subscription = GetSubscription($routinglist->{subscriptionid});
74	my (undef, $biblio) = GetBiblio($subscription->{subscriptionid});
75	my @serials = GetSerials2($subscription->{subscriptionid}, '1,2,3,4,5,6,7');
76	$template->param(
77	missing_parameter_serialid => 1,
78	routinglistid => $routinglistid,
79	title => $biblio->{title},
80	serials => \@serials
81	);
82	output_html_with_http_headers $input, $cookie, $template->output;
83	exit;
84	}
85
86	my $routinglist = GetRoutingList($routinglistid);
87	my $subscription = GetSubscription($routinglist->{subscriptionid});
88	my $serial = GetSerial($serialid);
89	my (undef, $biblio) = GetBiblio($subscription->{biblionumber});
90	my $branch = GetBranchDetail($subscription->{branchcode});
91	my @memberloop;
92	foreach (@{$routinglist->{borrowers}}) {
93	my $member = GetMemberDetails($_);
94	push @memberloop, {
95	surname => $member->{surname},
96	firstname => $member->{firstname},
97	};
98	}
99
100	my $no_holds = $input->param('no_holds');
101	if(C4::Context->preference('RoutingListAddReserves') and !$no_holds) {
102	my $confirm = $input->param('confirm');
103	if ($confirm) {
104	require C4::Reserves;
105	require C4::Items;
106	my $itemnumber = GetSerialItemnumber($serialid);
107	my $item = C4::Items::GetItem($itemnumber);
108	if ($item) {
109	my $rank = 1;
110	foreach my $borrowernumber ( @{$routinglist->{borrowers}} ) {
111	my $reserve = C4::Reserves::GetReserveInfo($borrowernumber,
112	$item->{biblionumber});
113	if($reserve) {
114	C4::Reserves::ModReserve($rank, $item->{biblionumber},
115	$borrowernumber, $item->{holdingbranch}, $itemnumber);
116	} else {
117	my @bibitems = GetBiblioItemByBiblioNumber($item->{biblionumber});
118	C4::Reserves::AddReserve($item->{holdingbranch}, $borrowernumber,
119	$item->{biblionumber}, 'a', \@bibitems, $rank, undef,
120	undef, undef, $biblio->{title}, $itemnumber);
121	}
122	$rank++;
123	}
124	} else {
125	$template->param(error_no_item => 1);
126	}
127	} else {
128	$template->param(need_confirm => 1);
129	}
130	}
131
132	$template->param(
133	routinglistid => $routinglistid,
134	serialid => $serialid,
135	libraryname => $branch->{branchname},
136	title => $biblio->{title},
137	serial => $serial,
138	memberloop => \@memberloop,
139	routingnotes => $routinglist->{notes},
140	generalroutingnote => C4::Context->preference('RoutingListNote'),
141	routinglisttitle => $routinglist->{title},
142	);
143
144	output_html_with_http_headers $input, $cookie, $template->output;

Lines 1-138 Link Here

(-)a/serials/routing-preview.pl (-138 lines)
1	#!/usr/bin/perl
2
3	# This file is part of Koha.
4	#
5	# Koha is free software; you can redistribute it and/or modify it under the
6	# terms of the GNU General Public License as published by the Free Software
7	# Foundation; either version 2 of the License, or (at your option) any later
8	# version.
9	#
10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
13	#
14	# You should have received a copy of the GNU General Public License along
15	# with Koha; if not, write to the Free Software Foundation, Inc.,
16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17
18	# Routing Preview.pl script used to view a routing list after creation
19	# lets one print out routing slip and create (in this instance) the heirarchy
20	# of reserves for the serial
21	use strict;
22	use warnings;
23	use CGI;
24	use C4::Koha;
25	use C4::Auth;
26	use C4::Dates;
27	use C4::Output;
28	use C4::Acquisition;
29	use C4::Reserves;
30	use C4::Circulation;
31	use C4::Context;
32	use C4::Members;
33	use C4::Biblio;
34	use C4::Items;
35	use C4::Serials;
36	use URI::Escape;
37	use C4::Branch;
38
39	my $query = new CGI;
40	my $subscriptionid = $query->param('subscriptionid');
41	my $issue = $query->param('issue');
42	my $routingid;
43	my $ok = $query->param('ok');
44	my $edit = $query->param('edit');
45	my $delete = $query->param('delete');
46	my $dbh = C4::Context->dbh;
47
48	if($delete){
49	delroutingmember($routingid,$subscriptionid);
50	my $sth = $dbh->prepare("UPDATE serial SET routingnotes = NULL WHERE subscriptionid = ?");
51	$sth->execute($subscriptionid);
52	print $query->redirect("routing.pl?subscriptionid=$subscriptionid&op=new");
53	}
54
55	if($edit){
56	print $query->redirect("routing.pl?subscriptionid=$subscriptionid");
57	}
58
59	my @routinglist = getroutinglist($subscriptionid);
60	my $subs = GetSubscription($subscriptionid);
61	my ($tmp ,@serials) = GetSerials($subscriptionid);
62	my ($template, $loggedinuser, $cookie);
63
64	if($ok){
65	# get biblio information....
66	my $biblio = $subs->{'biblionumber'};
67	my ($count2,@bibitems) = GetBiblioItemByBiblioNumber($biblio);
68	my @itemresults = GetItemsInfo( $subs->{biblionumber} );
69	my $branch = $itemresults[0]->{'holdingbranch'};
70	my $branchname = GetBranchName($branch);
71
72	if (C4::Context->preference('RoutingListAddReserves')){
73	# get existing reserves .....
74	my ($count,$reserves) = GetReservesFromBiblionumber($biblio);
75	my $totalcount = $count;
76	foreach my $res (@$reserves) {
77	if ($res->{'found'} eq 'W') {
78	$count--;
79	}
80	}
81	my $const = 'o';
82	my $notes;
83	my $title = $subs->{'bibliotitle'};
84	for my $routing ( @routinglist ) {
85	my $sth = $dbh->prepare('SELECT * FROM reserves WHERE biblionumber = ? AND borrowernumber = ? LIMIT 1');
86	$sth->execute($biblio,$routing->{borrowernumber});
87	my $reserve = $sth->fetchrow_hashref;
88
89	if($routing->{borrowernumber} == $reserve->{borrowernumber}){
90	ModReserve($routing->{ranking},$biblio,$routing->{borrowernumber},$branch);
91	} else {
92	AddReserve($branch,$routing->{borrowernumber},$biblio,$const,\@bibitems,$routing->{ranking}, undef, undef, $notes,$title);
93	}
94	}
95	}
96
97	($template, $loggedinuser, $cookie)
98	= get_template_and_user({template_name => "serials/routing-preview-slip.tmpl",
99	query => $query,
100	type => "intranet",
101	authnotrequired => 0,
102	flagsrequired => {serials => '*'},
103	debug => 1,
104	});
105	$template->param("libraryname"=>$branchname);
106	} else {
107	($template, $loggedinuser, $cookie)
108	= get_template_and_user({template_name => "serials/routing-preview.tmpl",
109	query => $query,
110	type => "intranet",
111	authnotrequired => 0,
112	flagsrequired => {serials => '*'},
113	debug => 1,
114	});
115	}
116
117	my $memberloop = [];
118	for my $routing (@routinglist) {
119	my $member = GetMember( borrowernumber => $routing->{borrowernumber} );
120	$member->{name} = "$member->{firstname} $member->{surname}";
121	push @{$memberloop}, $member;
122	}
123
124	my $routingnotes = $serials[0]->{'routingnotes'};
125	$routingnotes =~ s/\n/\<br \/\>/g;
126
127	$template->param(
128	title => $subs->{'bibliotitle'},
129	issue => $issue,
130	issue_escaped => URI::Escape::uri_escape($issue),
131	subscriptionid => $subscriptionid,
132	memberloop => $memberloop,
133	routingnotes => $routingnotes,
134	generalroutingnote => C4::Context->preference('RoutingListNote'),
135	hasRouting => check_routing($subscriptionid),
136	);
137
138	output_html_with_http_headers $query, $cookie, $template->output;

Lines 1-126 Link Here

(-)a/serials/routing.pl (-126 lines)
1	#!/usr/bin/perl
2
3	# This file is part of Koha
4	#
5	# Koha is free software; you can redistribute it and/or modify it under the
6	# terms of the GNU General Public License as published by the Free Software
7	# Foundation; either version 2 of the License, or (at your option) any later
8	# version.
9	#
10	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
13	#
14	# You should have received a copy of the GNU General Public License along
15	# with Koha; if not, write to the Free Software Foundation, Inc.,
16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17
18
19	=head1 Routing.pl
20
21	script used to create a routing list for a serial subscription
22	In this instance it is in fact a setting up of a list of reserves for the item
23	where the hierarchical order can be changed on the fly and a routing list can be
24	printed out
25
26	=cut
27
28	use strict;
29	use warnings;
30	use CGI;
31	use C4::Koha;
32	use C4::Auth;
33	use C4::Dates;
34	use C4::Output;
35	use C4::Acquisition;
36	use C4::Output;
37	use C4::Context;
38
39	use C4::Members;
40	use C4::Serials;
41
42	use URI::Escape;
43
44	my $query = new CGI;
45	my $subscriptionid = $query->param('subscriptionid');
46	my $serialseq = $query->param('serialseq');
47	my $routingid = $query->param('routingid');
48	my $borrowernumber = $query->param('borrowernumber');
49	my $notes = $query->param('notes');
50	my $op = $query->param('op') \|\| q{};
51	my $date_selected = $query->param('date_selected');
52	$date_selected \|\|= q{};
53	my $dbh = C4::Context->dbh;
54
55	if($op eq 'delete'){
56	delroutingmember($routingid,$subscriptionid);
57	}
58
59	if($op eq 'add'){
60	addroutingmember($borrowernumber,$subscriptionid);
61	}
62	if($op eq 'save'){
63	my $sth = $dbh->prepare('UPDATE serial SET routingnotes = ? WHERE subscriptionid = ?');
64	$sth->execute($notes,$subscriptionid);
65	my $urldate = URI::Escape::uri_escape($date_selected);
66	print $query->redirect("routing-preview.pl?subscriptionid=$subscriptionid&issue=$urldate");
67	}
68
69	my @routinglist = getroutinglist($subscriptionid);
70	my $subs = GetSubscription($subscriptionid);
71	my ($count,@serials) = GetSerials($subscriptionid);
72	my $serialdates = GetLatestSerials($subscriptionid,$count);
73
74	my $dates = [];
75	foreach my $dateseq (@{$serialdates}) {
76	my $d = {};
77	$d->{planneddate} = $dateseq->{planneddate};
78	$d->{serialseq} = $dateseq->{serialseq};
79	$d->{serialid} = $dateseq->{serialid};
80	if($date_selected eq $dateseq->{serialid}){
81	$d->{selected} = ' selected';
82	} else {
83	$d->{selected} = q{};
84	}
85	push @{$dates}, $d;
86	}
87
88	my ($template, $loggedinuser, $cookie)
89	= get_template_and_user({template_name => 'serials/routing.tmpl',
90	query => $query,
91	type => 'intranet',
92	authnotrequired => 0,
93	flagsrequired => {serials => 'routing'},
94	debug => 1,
95	});
96
97	my $member_loop = [];
98	for my $routing ( @routinglist ) {
99	my $member=GetMember('borrowernumber' => $routing->{borrowernumber});
100	$member->{location} = $member->{branchcode};
101	if ($member->{firstname} ) {
102	$member->{name} = $member->{firstname} . q\| \|;
103	}
104	else {
105	$member->{name} = q{};
106	}
107	if ($member->{surname} ) {
108	$member->{name} .= $member->{surname};
109	}
110	$member->{routingid}=$routing->{routingid} \|\| q{};
111	$member->{ranking} = $routing->{ranking} \|\| q{};
112
113	push(@{$member_loop}, $member);
114	}
115
116	$template->param(
117	title => $subs->{bibliotitle},
118	subscriptionid => $subscriptionid,
119	memberloop => $member_loop,
120	op => $op eq 'new',
121	dates => $dates,
122	routingnotes => $serials[0]->{'routingnotes'},
123	hasRouting => check_routing($subscriptionid),
124	);
125
126	output_html_with_http_headers $query, $cookie, $template->output;

Line 0 Link Here

(-)a/serials/routinglist.pl (+114 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2011 BibLibre SARL
		4	# This file is part of Koha.
		5	#
		6	# Koha is free software; you can redistribute it and/or modify it under the
		7	# terms of the GNU General Public License as published by the Free Software
		8	# Foundation; either version 2 of the License, or (at your option) any later
		9	# version.
		10	#
		11	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		12	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		13	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License along
		16	# with Koha; if not, write to the Free Software Foundation, Inc.,
		17	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		18
		19	=head1 NAME
		20
		21	routinglist.pl
		22
		23	=head1 DESCRIPTION
		24
		25	Create or modify a routing list
		26
		27	=cut
		28
		29	use Modern::Perl;
		30
		31	use CGI;
		32	use C4::Auth;
		33	use C4::Output;
		34
		35	use C4::Members;
		36	use C4::Serials;
		37	use C4::Serials::RoutingLists qw/AddRoutingList ModRoutingList GetRoutingList/;
		38
		39	my $input = new CGI;
		40	my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
		41	template_name => 'serials/routinglist.tt',
		42	query => $input,
		43	type => 'intranet',
		44	authnotrequired => 0,
		45	flagsrequired => { serials => 'routing' },
		46	debug => 1,
		47	} );
		48
		49	my $op = $input->param('op');
		50	my $routinglistid;
		51
		52	if($op && $op eq 'new') {
		53	my $subscriptionid = $input->param('subscriptionid');
		54	$template->param(
		55	new => 1,
		56	subscriptionid => $subscriptionid,
		57	);
		58	output_html_with_http_headers $input, $cookie, $template->output;
		59	exit;
		60	}
		61
		62	if($op && $op eq 'savenew') {
		63	my $title = $input->param('title');
		64	my $subscriptionid = $input->param('subscriptionid');
65
66	$routinglistid = AddRoutingList($subscriptionid, $title);
67	} else {
68	$routinglistid = $input->param('routinglistid');
69	}
70
71	if($op && $op eq 'mod') {
72	my $borrowersids = $input->param('borrowersids');
73	my $notes = $input->param('notes');
74	my @borrowernumbers = split /:/, $borrowersids;
75	ModRoutingList($routinglistid, undef, undef, $notes, @borrowernumbers);
76	my $routinglist = GetRoutingList($routinglistid);
77	print $input->redirect("/cgi-bin/koha/serials/routinglists.pl?subscriptionid=".$routinglist->{'subscriptionid'});
78	exit;
79	}
80
81	my $routinglist = GetRoutingList($routinglistid);
82	my @borrowers;
83	my $rank = 1;
84	foreach my $borrowernumber (@{$routinglist->{borrowers}}) {
85	my @ranking_loop;
86	for(my $i = 0 ; $i < scalar(@{$routinglist->{borrowers}}) ; $i++){
87	my $selected = 0;
88	$selected = 1 if ($rank == $i+1);
89	push @ranking_loop, {
90	rank => $i+1,
91	selected => $selected,
92	};
93	}
94	my $member = GetMemberDetails($borrowernumber);
95	push @borrowers, {
96	borrowernumber => $borrowernumber,
97	surname => $member->{surname},
98	firstname => $member->{firstname},
99	ranking_loop => \@ranking_loop
100	};
101	$rank ++;
102	}
103
104	$template->param(
105	borrowers_loop => \@borrowers,
106	borrowersids => join(':', map ($_->{borrowernumber}, @borrowers)),
107	max_rank => scalar(@borrowers),
108	title => $routinglist->{title},
109	notes => $routinglist->{notes},
110	subscriptionid => $routinglist->{subscriptionid},
111	routinglistid => $routinglistid,
112	);
113
114	output_html_with_http_headers $input, $cookie, $template->output;

Line 0 Link Here

(-)a/serials/routinglists.pl (+79 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2011 BibLibre SARL
		4	# This file is part of Koha.
		5	#
		6	# Koha is free software; you can redistribute it and/or modify it under the
		7	# terms of the GNU General Public License as published by the Free Software
		8	# Foundation; either version 2 of the License, or (at your option) any later
		9	# version.
		10	#
		11	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		12	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		13	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License along
		16	# with Koha; if not, write to the Free Software Foundation, Inc.,
		17	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		18
		19	=head1 NAME
		20
		21	routinglists.pl
		22
		23	=head1 DESCRIPTION
		24
		25	View all routing lists for a subscription
		26
		27	=cut
		28
		29	use Modern::Perl;
		30
		31	use CGI;
		32	use C4::Auth;
		33	use C4::Output;
		34
		35	use C4::Biblio;
		36	use C4::Serials;
		37	use C4::Serials::RoutingLists qw/GetRoutingLists GetRoutingList DelRoutingList GetRoutingListAsCSV/;
		38
		39	my $input = new CGI;
		40	my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
		41	template_name => 'serials/routinglists.tt',
		42	query => $input,
		43	type => 'intranet',
		44	authnotrequired => 0,
		45	flagsrequired => { serials => 'routing' },
		46	debug => 1,
		47	} );
		48
		49	my $subscriptionid = $input->param('subscriptionid');
		50	my $op = $input->param('op');
		51
		52	if($op && $op eq "export") {
		53	my $routinglistid = $input->param('routinglistid');
		54	print $input->header(
		55	-type => 'text/csv',
		56	-attachment => 'routinglist' . $routinglistid . '.csv',
		57	);
		58	print GetRoutingListAsCSV($routinglistid);
		59	exit;
		60	} elsif($op && $op eq "del") {
		61	my $routinglistid = $input->param('routinglistid');
		62	if(!defined $subscriptionid){
		63	my $routinglist = GetRoutingList($routinglistid);
		64	$subscriptionid = $routinglist->{subscriptionid};
65	}
66	DelRoutingList($routinglistid);
67	}
68
69	my $subscription = GetSubscription($subscriptionid);
70	my (undef,$biblio) = GetBiblio($subscription->{biblionumber});
71	my @routinglists = GetRoutingLists($subscriptionid);
72
73	$template->param(
74	subscriptionid => $subscriptionid,
75	routinglists_loop => \@routinglists,
76	title => $biblio->{title},
77	);
78
79	output_html_with_http_headers $input, $cookie, $template->output;

Lines 46-56 sub methods : Test( 1 ) { Link Here

(-)a/t/db_dependent/lib/KohaTest/Serials.pm (-6 lines)
46	removeMissingIssue	46	removeMissingIssue
47	updateClaim	47	updateClaim
48	getsupplierbyserialid	48	getsupplierbyserialid
49	check_routing
50	addroutingmember
51	reorder_members
52	delroutingmember
53	getroutinglist
54	countissuesfrom	49	countissuesfrom
55	abouttoexpire	50	abouttoexpire
56	in_array	51	in_array
57	-