Attachment #47660 for bug #7957

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

Lines 176-182 sub GetItem { Link Here

(-)a/C4/Items.pm (-1 / +1 lines)
176	#if we don't have an items.itype, use biblioitems.itemtype.	176	#if we don't have an items.itype, use biblioitems.itemtype.
177	# FIXME this should respect the itypes systempreference	177	# FIXME this should respect the itypes systempreference
178	# if (C4::Context->preference('item-level_itypes')) {	178	# if (C4::Context->preference('item-level_itypes')) {
179	if( ! $data->{'itype'} ) {	179	if( $data and ! $data->{'itype'} ) {
180	my $sth = $dbh->prepare("SELECT itemtype FROM biblioitems WHERE biblionumber = ?");	180	my $sth = $dbh->prepare("SELECT itemtype FROM biblioitems WHERE biblionumber = ?");
181	$sth->execute($data->{'biblionumber'});	181	$sth->execute($data->{'biblionumber'});
182	($data->{'itype'}) = $sth->fetchrow_array;	182	($data->{'itype'}) = $sth->fetchrow_array;




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

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

    return $results;
}

=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();

    my @serials;
    my $statuses = join( ',', ( ARRIVED, MISSING_STATUSES, NOT_ISSUED ) );
    my $query = "SELECT serialid,serialseq, status, publisheddate,
        publisheddatetext, planneddate, notes
                        FROM   serial
                        WHERE  subscriptionid = ? AND status NOT IN ( $statuses )
                        ORDER BY IF(publisheddate<>'0000-00-00',publisheddate,planneddate) DESC";


    # OK, now add the last 5 issues arrives/missing
    $query = "SELECT   serialid,serialseq, status, planneddate, publisheddate,
        publisheddatetext, notes
       FROM     serial
       WHERE    subscriptionid = ?
       AND      status IN ( $statuses )

    my $dbh   = C4::Context->dbh;
    my $query = qq|
                 SELECT serialid,serialseq, status, planneddate, publisheddate,
                    publisheddatetext, notes
                 FROM     serial 
                 WHERE    subscriptionid=$subscription AND status IN ($statuses_string)
                 ORDER BY publisheddate,serialid DESC

    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) = @_;

    return unless ($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 ) = @_;

    return unless ($borrowernumber and $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)

    my ($borrowernumber) = @_;
    my $dbh              = C4::Context->dbh;
    my $sth              = $dbh->prepare(
        "SELECT subscriptionroutinglist.*, biblio.title AS bibliotitle
            FROM subscriptionroutinglist
            JOIN subscriptionrouting ON (subscriptionroutinglist.routinglistid = subscriptionrouting.routinglistid)
            JOIN subscription ON (subscriptionroutinglist.subscriptionid = subscription.subscriptionid)
            JOIN biblio ON biblio.biblionumber = subscription.biblionumber
            WHERE subscriptionrouting.borrowernumber = ? ORDER BY title ASC
            WHERE subscriptionroutinglist.borrowernumber = ? ORDER BY title ASC
                               "
    );
    $sth->execute($borrowernumber);
    my $routinglists = $sth->fetchall_arrayref({});
    return $routinglists ? @$routinglists : ();
    while ( my $line = $sth->fetchrow_hashref ) {
        $count++;
        push( @routinglist, $line );
    }
    return ( $count, @routinglist );
}






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 $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;

Lines 25-30 use C4::Branch; Link Here

(-)a/acqui/newordersubscription.pl (-1 / +2 lines)
25	use C4::Context;	25	use C4::Context;
26	use C4::Output;	26	use C4::Output;
27	use C4::Serials;	27	use C4::Serials;
		28	use C4::Serials::RoutingLists qw( GetRoutingListsCount );
28		29
29	use Koha::Acquisition::Bookseller;	30	use Koha::Acquisition::Bookseller;
30		31
Lines 72-78 foreach my $sub (@subscriptions) { Link Here
72		73
73	# to toggle between create or edit routing list options	74	# to toggle between create or edit routing list options
74	if ($routing) {	75	if ($routing) {
75	$sub->{routingedit} = check_routing( $sub->{subscriptionid} );	76	$sub->{routingedit} = GetRoutingListsCount( $sub->{subscriptionid} );
76	}	77	}
77	}	78	}
78		79




use Modern::Perl;
use C4::Context;

my $dbh = C4::Context->dbh;
$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 serial.subscriptionid, serial.routingnotes
    FROM tmp_subscriptionroutinglist
    LEFT JOIN serial ON (tmp_subscriptionroutinglist.subscriptionid = serial.subscriptionid)
    GROUP BY serial.subscriptionid
};
my $sth = $dbh->prepare($query);
$sth->execute();
my $results = $sth->fetchall_arrayref( {} );
$query = qq{
    INSERT INTO subscriptionroutinglist (subscriptionid, title, notes)
    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', $_->{routingnotes});
    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");
$dbh->do("ALTER TABLE serial DROP COLUMN routingnotes");




) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- 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 COLLATE=utf8_unicode_ci;

--
-- 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 COLLATE=utf8_unicode_ci;

--

Lines 4-12 Link Here

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

Lines 13-18 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/serials-toolbar.inc (+7 lines)
13	window.location="subscription-detail.pl?subscriptionid=[% subscriptionid %]&op=reopen";	13	window.location="subscription-detail.pl?subscriptionid=[% subscriptionid %]&op=reopen";
14	}	14	}
15	}	15	}
		16	function confirm_deletion() {
		17	var is_confirmed = confirm(_("Are you sure you want to delete this subscription?"));
		18	if (is_confirmed) {
		19	window.location="subscription-detail.pl?subscriptionid=[% subscriptionid %]&op=del";
		20	}
		21	}
		22
16		23
17	$(document).ready(function() {	24	$(document).ready(function() {
18	$("#deletesub").click(function(){	25	$("#deletesub").click(function(){




<!-- Search Bar End -->

<h1>
[% IF ( routinglists.size > 0 ) %]
  [% routinglists.size %] Subscription routing list(s)
[% ELSE %]
  0 Subscription routing lists
[% END %]
</h1>

<div id="subscriptions">
  [% IF ( routinglists.size > 0 ) %]
    <table id="subscriptiont">
      <thead>
        <tr>
          <th>Subscription title</th>
          <th>Routing list</th>
          <th>Actions</th>
        </tr>
      </thead>
      <tbody>
        [% FOREACH routinglist IN routinglists %]
          <tr>
            <td>
              <a href="/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=[% routinglist.subscriptionid %]">
                <strong>
                  [% routinglist.bibliotitle %]
                </strong>
              </a>
            </td>
            <td>[% routinglist.title %]</td>
            <td>
              <a href="/cgi-bin/koha/serials/routinglist.pl?routinglistid=[% routinglist.routinglistid %]"><strong>
              Edit routing list
                </strong>
              </a>
            </td>
          </tr>
        [% END %]
      </tbody>
    </table>
  [% ELSE %]
    <p>Patron does not belong to any subscription routing lists.</p>
  [% END %]
                    <input type="hidden" name="borrowernumber" value="[% borrowernumber %]" />
                    [% END %]

</div>






<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 %]<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 %]</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 %]</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 %] &rsaquo; [% IF ( op ) %]Create Routing List[% ELSE %]Edit routing list[% END %]</title>
[% INCLUDE 'doc-head-close.inc' %]
<script 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 userPopup() {
        window.open("/cgi-bin/koha/serials/add_user_search.pl",
            'PatronPopup',
            'width=740,height=450,location=yes,toolbar=no,'
            + 'scrollbars=yes,resize=yes'
        );
    }

    function add_user(borrowernumber) {
        var myurl = "routing.pl?subscriptionid="+[% subscriptionid %]+"&borrowernumber="+borrowernumber+"&op=add";
        window.location.href = myurl;
    }

//-->
</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 %]</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 %]</i></h1>
[% ELSE %]
<h1>Edit routing list for <i>[% title %]</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.publisheddate %])" selected="selected">[% date.serialseq %] ([% date.publisheddate %])</option>[% ELSE %]<option value="[% date.serialseq %] ([% date.publisheddate %])">[% date.serialseq %] ([% date.publisheddate %])</option>[% END %]
[% END %]
</select> [% issue %]</li>

<li>
    <span class="label">Recipients:</span>
    [% IF memberloop %]
        <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.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>
    [% END %]

    <p style="margin-left:10em;">
        <input type="button" onclick="userPopup()" value="Add recipients" />
        [% IF memberloop %]
            <a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscriptionid %]&amp;op=delete" class="button">Delete all</a>
        [% END %]
    </p>
</li>

	<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 add_user(borrowernumber, borrowername){
    // 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>' + borrowername + '</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/add_user_search.pl",
        'PatronPopup',
        'width=740,height=450,location=yes,toolbar=no,scrollbars=yes,resize=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' %]




        document.location = 'serials-collection.pl?op=gennext&subscriptionid='+subscriptionid+'&nbissues='+nbissues;
    }
}
function print_slip(serialid){
    var myurl = '/cgi-bin/koha/serials/routing-preview-slip.pl?serialid='+serialid;
    window.open(myurl,'PrintSlip','width=500,height=500,toolbar=no,scrollbars=yes');
}

function addsubscriptionid()
{
	var tab=new Array();

        [% IF ( routing && CAN_user_serials_routing ) %]
        <td>
            [% UNLESS subscription.closed %]
                [% IF (subscription.routinglistscount) %]
                    <a href="/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscription.subscriptionid %]">Edit routing lists</a> ([% subscription.routinglistscount %])
                [% ELSE %]
                    <a href="/cgi-bin/koha/serials/routinglist.pl?op=new&subscriptionid=[% subscription.subscriptionid %]">New routing list</a>
                [% END %]
            [% END %]
        </td>

                </td>
                [% IF ( routing ) %]
                <td>
                    <a style="cursor:pointer" onclick="print_slip([% serial.serialid %]);">Print list</a>
                </td>
                [% END %]
            </tr>




                                    [% IF ( routing && CAN_user_serials_routing ) %]
                                        [% IF ( subscription.cannotedit ) %]
                                        [% ELSE %]
                                            <li>
                                                [% IF ( subscription.routinglistscount ) %]
                                                    <a href="/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscription.subscriptionid %]"><i class="fa fa-pencil"></i> Edit routing list ([% subscription.routinglistscount %])</a>
                                                [% ELSE %]
                                                    <a href="/cgi-bin/koha/serials/routinglist.pl?subscriptionid=[% subscription.subscriptionid %]&amp;op=new"> <i class="fa fa-plus"></i> New routing list</a>
                                                [% END %]
                                            </li>
                                                </li>
                                            [% END %]
                                        [% END %]
                                    [% END # IF ( routing && CAN_user_serials_routing ) %]






if ($borrowernumber) {
# new op dev
  my @routinglists = GetSubscriptionsFromBorrower($borrowernumber );
  my @borrowerSubscriptions;
  ($count, @borrowerSubscriptions) = GetSubscriptionsFromBorrower($borrowernumber );
  my @subscripLoop;

    foreach my $num_res (@borrowerSubscriptions) {
        my %getSubscrip;
        $getSubscrip{subscriptionid}	= $num_res->{'subscriptionid'};
        $getSubscrip{title}			= $num_res->{'title'};
        $getSubscrip{borrowernumber}		= $num_res->{'borrowernumber'};
        push( @subscripLoop, \%getSubscrip );
    }

    $template->param(
        routinglists => \@routinglists,
        subscripLoop  => \@subscripLoop,
        routinglistview => 1
    );





#!/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 3 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, see <http://www.gnu.org/licenses>.

# 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 qw ( -utf8 );
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 => 'routing' }, '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 $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 $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 $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}, \@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 3 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, see <http://www.gnu.org/licenses>.

# 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 qw ( -utf8 );
use C4::Koha;
use C4::Auth;
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 $reserves = GetReservesFromBiblionumber({ biblionumber => $biblio });
        my $count = scalar( @$reserves );
        my $totalcount = $count;
		foreach my $res (@$reserves) {
			if ($res->{'found'} eq 'W') {
				$count--;
			}
		}
		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({
                    rank           => $routing->{ranking},
                    biblionumber   => $biblio,
                    borrowernumber => $routing->{borrowernumber},
                    branchcode     => $branch
                });
            } else {
                AddReserve($branch,$routing->{borrowernumber},$biblio,\@bibitems,$routing->{ranking}, undef, undef, $notes,$title);
        }
    }
	}

    ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/routing-preview-slip.tt",
				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.tt",
				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_utf8($issue),
    subscriptionid => $subscriptionid,
    memberloop => $memberloop,
    routingnotes => $routingnotes,
    generalroutingnote => C4::Context->preference('RoutingListNote'),
    hasRouting => check_routing($subscriptionid),
    (uc(C4::Context->preference("marcflavour"))) => 1
    );

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 3 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, see <http://www.gnu.org/licenses>.


=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 qw ( -utf8 );
use C4::Koha;
use C4::Auth;
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_utf8($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->{publisheddate} = $dateseq->{publisheddate};
    $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.tt',
				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),
    (uc(C4::Context->preference("marcflavour"))) => 1

    );

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 $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 25-30 use CGI qw ( -utf8 ); Link Here

(-)a/serials/serials-collection.pl (-3 / +6 lines)
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Koha;	26	use C4::Koha;
27	use C4::Serials;	27	use C4::Serials;
		28	use C4::Serials::RoutingLists qw/GetRoutingListsCount/;
28	use C4::Letters;	29	use C4::Letters;
29	use C4::Output;	30	use C4::Output;
30	use C4::Context;	31	use C4::Context;
Lines 125-131 if (@subscriptionid){ Link Here
125	my $numberpattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subs->{numberpattern});	126	my $numberpattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subs->{numberpattern});
126	$subs->{frequency} = $frequency;	127	$subs->{frequency} = $frequency;
127	$subs->{numberpattern} = $numberpattern;	128	$subs->{numberpattern} = $numberpattern;
128	$subs->{'hasRouting'} = check_routing($subscriptionid);	129	$subs->{'hasRouting'} = GetRoutingListsCount($subscriptionid);
129	push @$subscriptiondescs,$subs;	130	push @$subscriptiondescs,$subs;
130	my $tmpsubscription= GetFullSubscription($subscriptionid);	131	my $tmpsubscription= GetFullSubscription($subscriptionid);
131	@subscriptioninformation=(@$tmpsubscription,@subscriptioninformation);	132	@subscriptioninformation=(@$tmpsubscription,@subscriptioninformation);
Lines 144-151 my $yearmax=($subscriptions->[0]{year} eq "manage" && scalar(@$subscriptions)>1) Link Here
144	my $yearmin=$subscriptions->[scalar(@$subscriptions)-1]{year};	145	my $yearmin=$subscriptions->[scalar(@$subscriptions)-1]{year};
145	my $subscriptionidlist="";	146	my $subscriptionidlist="";
146	foreach my $subscription (@$subscriptiondescs){	147	foreach my $subscription (@$subscriptiondescs){
147	$subscriptionidlist.=$subscription->{'subscriptionid'}."," ;	148	$subscriptionidlist.=$subscription->{'subscriptionid'}."," ;
148	$biblionumber = $subscription->{'bibnum'} unless ($biblionumber);	149	$biblionumber = $subscription->{'bibnum'} unless ($biblionumber);
		150	$subscription->{routinglistscount}
		151	= GetRoutingListsCount($subscription->{subscriptionid});
149	}	152	}
150		153
151	# warn "title : $title yearmax : $yearmax nombre d'elements dans le tableau :".scalar(@$subscriptions);	154	# warn "title : $title yearmax : $yearmax nombre d'elements dans le tableau :".scalar(@$subscriptions);

Lines 37-42 use C4::Koha qw( GetAuthorisedValues ); Link Here

(-)a/serials/serials-search.pl (-1 / +4 lines)
37	use C4::Output;	37	use C4::Output;
38	use C4::Serials;	38	use C4::Serials;
39	use Koha::AdditionalField;	39	use Koha::AdditionalField;
		40	use C4::Serials::RoutingLists qw/GetRoutingListsCount/;
40		41
41	use Koha::DateUtils;	42	use Koha::DateUtils;
42		43
Lines 116-122 if ($searched){ Link Here
116	# to toggle between create or edit routing list options	117	# to toggle between create or edit routing list options
117	if ($routing) {	118	if ($routing) {
118	for my $subscription ( @subscriptions) {	119	for my $subscription ( @subscriptions) {
119	$subscription->{routingedit} = check_routing( $subscription->{subscriptionid} );	120	$subscription->{routinglistscount}
		121	= GetRoutingListsCount($subscription->{subscriptionid});
		122	$subscription->{branchname} = GetBranchName ( $subscription->{branchcode} );
120	}	123	}
121	}	124	}
122		125

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

(-)a/serials/subscription-detail.pl (-1 / +2 lines)
22	use C4::Budgets;	22	use C4::Budgets;
23	use C4::Koha;	23	use C4::Koha;
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 92-98 if ($op eq 'del') { Link Here
92	exit;	93	exit;
93	}	94	}
94	}	95	}
95	my $hasRouting = check_routing($subscriptionid);	96	my $hasRouting = GetRoutingListsCount($subscriptionid);
96		97
97	(undef, $cookie, undef, undef)	98	(undef, $cookie, undef, undef)
98	= checkauth($query, 0, {catalogue => 1}, "intranet");	99	= checkauth($query, 0, {catalogue => 1}, "intranet");




use C4::Biblio;
use C4::Budgets;
use Koha::DateUtils;
use Test::More tests => 43;

BEGIN {
    use_ok('C4::Serials');


is(C4::Serials::getsupplierbyserialid(),undef, 'test getting supplier idea');

is(C4::Serials::check_routing(), undef, 'test checking route');

is(C4::Serials::addroutingmember(),undef, 'test adding route member');


# Unit tests for statuses management (Bug 11689)
$subscriptionid = NewSubscription(
- 

Return to bug 7957

Lines 2160-2180 CREATE TABLE `subscriptionhistory` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (-15 / +31 lines)
2160	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;	2160	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
2161		2161
2162	--	2162	--
2163	-- Table structure for table `subscriptionroutinglist`	2163	-- Table structure for table subscriptionroutinglist
2164	--	2164	--
2165		2165
2166	DROP TABLE IF EXISTS `subscriptionroutinglist`;	2166	DROP TABLE IF EXISTS subscriptionroutinglist;
2167	CREATE TABLE `subscriptionroutinglist` ( -- information related to the routing lists attached to subscriptions	2167	CREATE TABLE subscriptionroutinglist (
2168	`routingid` int(11) NOT NULL auto_increment, -- unique identifier assigned by Koha	2168	routinglistid int(11) NOT NULL AUTO_INCREMENT, -- unique identifier assigned by Koha
2169	`borrowernumber` int(11) NOT NULL, -- foreign key from the borrowers table, defines with patron is on the routing list	2169	subscriptionid int(11) NOT NULL, -- foreign key from the subscription table,
2170	`ranking` int(11) default NULL, -- where the patron stands in line to receive the serial	2170	-- defines which subscription this routing list is for
2171	`subscriptionid` int(11) NOT NULL, -- foreign key from the subscription table, defines which subscription this routing list is for	2171	title varchar(256) NOT NULL, -- title of this routing list
2172	PRIMARY KEY (`routingid`),	2172	notes text default NULL, -- notes for this routing list
2173	UNIQUE (`subscriptionid`, `borrowernumber`),	2173	PRIMARY KEY (routinglistid),
2174	CONSTRAINT `subscriptionroutinglist_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)	2174	CONSTRAINT subscriptionroutinglist_ibfk_1 FOREIGN KEY (subscriptionid)
2175	ON DELETE CASCADE ON UPDATE CASCADE,	2175	REFERENCES subscription (subscriptionid) ON DELETE CASCADE
2176	CONSTRAINT `subscriptionroutinglist_ibfk_2` FOREIGN KEY (`subscriptionid`) REFERENCES `subscription` (`subscriptionid`)	2176	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
2177	ON DELETE CASCADE ON UPDATE CASCADE	2177
		2178	--
		2179	-- Table structure for subscriptionrouting
		2180	--
		2181
		2182	DROP TABLE IF EXISTS subscriptionrouting;
		2183	CREATE TABLE subscriptionrouting (
		2184	routinglistid int(11) NOT NULL, -- foreign key from the subscriptionroutinglist
		2185	-- table, defines which routing list is affected
		2186	borrowernumber int(11) NOT NULL, -- foreign key from the borrowers table,
		2187	-- defines which patron is on the routing list
		2188	ranking int(11) DEFAULT NULL, -- where the patron stands in line to receive the serial
		2189	PRIMARY KEY (routinglistid, borrowernumber),
		2190	CONSTRAINT subscriptionrouting_ibfk_1 FOREIGN KEY (routinglistid)
		2191	REFERENCES subscriptionroutinglists (routinglistid) ON DELETE CASCADE,
		2192	CONSTRAINT subscriptionrouting_ibfk_2 FOREIGN KEY (borrowernumber)
		2193	REFERENCES borrowers (borrowernumber) ON DELETE CASCADE
2178	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;	2194	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
2179		2195
2180	--	2196	--

Lines 229-243 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-search.tt (-9 / +7 lines)
229	[% IF ( routing && CAN_user_serials_routing ) %]	229	[% IF ( routing && CAN_user_serials_routing ) %]
230	[% IF ( subscription.cannotedit ) %]	230	[% IF ( subscription.cannotedit ) %]
231	[% ELSE %]	231	[% ELSE %]
232	[% IF ( subscription.routingedit ) %]	232	<li>
233	<li>	233	[% IF ( subscription.routinglistscount ) %]
234	<a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscription.subscriptionid %]"><i class="fa fa-pencil"></i> Edit routing list ([% subscription.routingedit %])</a>	234	<a href="/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscription.subscriptionid %]"><i class="fa fa-pencil"></i> Edit routing list ([% subscription.routinglistscount %])</a>
235	</li>	235	[% ELSE %]
236	[% ELSE %]	236	<a href="/cgi-bin/koha/serials/routinglist.pl?subscriptionid=[% subscription.subscriptionid %]&op=new"> <i class="fa fa-plus"></i> New routing list</a>
237	<li>	237	[% END %]
238	<a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscription.subscriptionid %]&op=new"> <i class="fa fa-plus"></i> New routing list</a>	238	</li>
239	</li>
240	[% END %]
241	[% END %]	239	[% END %]
242	[% END # IF ( routing && CAN_user_serials_routing ) %]	240	[% END # IF ( routing && CAN_user_serials_routing ) %]
243		241

Lines 77-89 BEGIN { Link Here

(-)a/C4/Serials.pm (-172 / +66 lines)
77	&ReNewSubscription &GetLateOrMissingIssues	77	&ReNewSubscription &GetLateOrMissingIssues
78	&GetSerialInformation &AddItem2Serial	78	&GetSerialInformation &AddItem2Serial
79	&PrepareSerialsData &GetNextExpected &ModNextExpected	79	&PrepareSerialsData &GetNextExpected &ModNextExpected
		80	&GetSerial &GetSerialItemnumber
80		81
81	&UpdateClaimdateIssues	82	&UpdateClaimdateIssues
82	&GetSuppliersWithLateIssues &getsupplierbyserialid	83	&GetSuppliersWithLateIssues &getsupplierbyserialid
83	&GetDistributedTo &SetDistributedTo	84	&GetDistributedTo &SetDistributedTo
84	&getroutinglist &delroutingmember &addroutingmember	85	&updateClaim
85	&reorder_members
86	&check_routing &updateClaim
87	&CountIssues	86	&CountIssues
88	HasItems	87	HasItems
89	&GetSubscriptionsFromBorrower	88	&GetSubscriptionsFromBorrower
Lines 164-169 sub GetSubscriptionHistoryFromSubscriptionId { Link Here
164	return $results;	163	return $results;
165	}	164	}
166		165
		166	=head2 GetSerial
		167
		168	my $serial = &GetSerial($serialid);
		169
		170	This sub returns serial informations (ie. in serial table) for given $serialid
		171	It returns a hashref where each key is a sql column.
		172
		173	=cut
		174
		175	sub GetSerial {
		176	my ($serialid) = @_;
		177
		178	return unless $serialid;
		179
		180	my $dbh = C4::Context->dbh;
		181	my $query = qq{
		182	SELECT *
		183	FROM serial
		184	WHERE serialid = ?
		185	};
		186	my $sth = $dbh->prepare($query);
		187	$sth->execute($serialid);
		188	return $sth->fetchrow_hashref;
		189	}
		190
		191	=head2 GetSerialItemnumber
		192
		193	my $itemnumber = GetSerialItemnumber($serialid);
		194
		195	Returns the itemnumber associated to $serialid or undef if there is no item.
		196
		197	=cut
		198
		199	sub GetSerialItemnumber {
		200	my ($serialid) = @_;
		201
		202	return unless $serialid;
		203	my $itemnumber;
		204
		205	my $dbh = C4::Context->dbh;
		206	my $query = qq{
		207	SELECT itemnumber
		208	FROM serialitems
		209	WHERE serialid = ?
		210	};
		211	my $sth = $dbh->prepare($query);
		212	my $rv = $sth->execute($serialid);
		213	if ($rv) {
		214	my $result = $sth->fetchrow_hashref;
		215	$itemnumber = $result->{itemnumber};
		216	}
		217	return $itemnumber;
		218	}
		219
167	=head2 GetSerialStatusFromSerialId	220	=head2 GetSerialStatusFromSerialId
168		221
169	$sth = GetSerialStatusFromSerialId();	222	$sth = GetSerialStatusFromSerialId();
Lines 702-708 sub GetSerials { Link Here
702	my @serials;	755	my @serials;
703	my $statuses = join( ',', ( ARRIVED, MISSING_STATUSES, NOT_ISSUED ) );	756	my $statuses = join( ',', ( ARRIVED, MISSING_STATUSES, NOT_ISSUED ) );
704	my $query = "SELECT serialid,serialseq, status, publisheddate,	757	my $query = "SELECT serialid,serialseq, status, publisheddate,
705	publisheddatetext, planneddate,notes, routingnotes	758	publisheddatetext, planneddate, notes
706	FROM serial	759	FROM serial
707	WHERE subscriptionid = ? AND status NOT IN ( $statuses )	760	WHERE subscriptionid = ? AND status NOT IN ( $statuses )
708	ORDER BY IF(publisheddate<>'0000-00-00',publisheddate,planneddate) DESC";	761	ORDER BY IF(publisheddate<>'0000-00-00',publisheddate,planneddate) DESC";
Lines 723-729 sub GetSerials { Link Here
723		776
724	# OK, now add the last 5 issues arrives/missing	777	# OK, now add the last 5 issues arrives/missing
725	$query = "SELECT serialid,serialseq, status, planneddate, publisheddate,	778	$query = "SELECT serialid,serialseq, status, planneddate, publisheddate,
726	publisheddatetext, notes, routingnotes	779	publisheddatetext, notes
727	FROM serial	780	FROM serial
728	WHERE subscriptionid = ?	781	WHERE subscriptionid = ?
729	AND status IN ( $statuses )	782	AND status IN ( $statuses )
Lines 773-779 sub GetSerials2 { Link Here
773	my $dbh = C4::Context->dbh;	826	my $dbh = C4::Context->dbh;
774	my $query = qq\|	827	my $query = qq\|
775	SELECT serialid,serialseq, status, planneddate, publisheddate,	828	SELECT serialid,serialseq, status, planneddate, publisheddate,
776	publisheddatetext, notes, routingnotes	829	publisheddatetext, notes
777	FROM serial	830	FROM serial
778	WHERE subscriptionid=$subscription AND status IN ($statuses_string)	831	WHERE subscriptionid=$subscription AND status IN ($statuses_string)
779	ORDER BY publisheddate,serialid DESC	832	ORDER BY publisheddate,serialid DESC
Lines 1933-2093 sub getsupplierbyserialid { Link Here
1933	return $result;	1986	return $result;
1934	}	1987	}
1935		1988
1936	=head2 check_routing
1937
1938	$result = &check_routing($subscriptionid)
1939
1940	this function checks to see if a serial has a routing list and returns the count of routingid
1941	used to show either an 'add' or 'edit' link
1942
1943	=cut
1944
1945	sub check_routing {
1946	my ($subscriptionid) = @_;
1947
1948	return unless ($subscriptionid);
1949
1950	my $dbh = C4::Context->dbh;
1951	my $sth = $dbh->prepare(
1952	"SELECT count(routingid) routingids FROM subscription LEFT JOIN subscriptionroutinglist
1953	ON subscription.subscriptionid = subscriptionroutinglist.subscriptionid
1954	WHERE subscription.subscriptionid = ? ORDER BY ranking ASC
1955	"
1956	);
1957	$sth->execute($subscriptionid);
1958	my $line = $sth->fetchrow_hashref;
1959	my $result = $line->{'routingids'};
1960	return $result;
1961	}
1962
1963	=head2 addroutingmember
1964
1965	addroutingmember($borrowernumber,$subscriptionid)
1966
1967	this function takes a borrowernumber and subscriptionid and adds the member to the
1968	routing list for that serial subscription and gives them a rank on the list
1969	of either 1 or highest current rank + 1
1970
1971	=cut
1972
1973	sub addroutingmember {
1974	my ( $borrowernumber, $subscriptionid ) = @_;
1975
1976	return unless ($borrowernumber and $subscriptionid);
1977
1978	my $rank;
1979	my $dbh = C4::Context->dbh;
1980	my $sth = $dbh->prepare( "SELECT max(ranking) rank FROM subscriptionroutinglist WHERE subscriptionid = ?" );
1981	$sth->execute($subscriptionid);
1982	while ( my $line = $sth->fetchrow_hashref ) {
1983	if ( $line->{'rank'} > 0 ) {
1984	$rank = $line->{'rank'} + 1;
1985	} else {
1986	$rank = 1;
1987	}
1988	}
1989	$sth = $dbh->prepare( "INSERT INTO subscriptionroutinglist (subscriptionid,borrowernumber,ranking) VALUES (?,?,?)" );
1990	$sth->execute( $subscriptionid, $borrowernumber, $rank );
1991	}
1992
1993	=head2 reorder_members
1994
1995	reorder_members($subscriptionid,$routingid,$rank)
1996
1997	this function is used to reorder the routing list
1998
1999	it takes the routingid of the member one wants to re-rank and the rank it is to move to
2000	- it gets all members on list puts their routingid's into an array
2001	- removes the one in the array that is $routingid
2002	- then reinjects $routingid at point indicated by $rank
2003	- then update the database with the routingids in the new order
2004
2005	=cut
2006
2007	sub reorder_members {
2008	my ( $subscriptionid, $routingid, $rank ) = @_;
2009	my $dbh = C4::Context->dbh;
2010	my $sth = $dbh->prepare( "SELECT * FROM subscriptionroutinglist WHERE subscriptionid = ? ORDER BY ranking ASC" );
2011	$sth->execute($subscriptionid);
2012	my @result;
2013	while ( my $line = $sth->fetchrow_hashref ) {
2014	push( @result, $line->{'routingid'} );
2015	}
2016
2017	# To find the matching index
2018	my $i;
2019	my $key = -1; # to allow for 0 being a valid response
2020	for ( $i = 0 ; $i < @result ; $i++ ) {
2021	if ( $routingid == $result[$i] ) {
2022	$key = $i; # save the index
2023	last;
2024	}
2025	}
2026
2027	# if index exists in array then move it to new position
2028	if ( $key > -1 && $rank > 0 ) {
2029	my $new_rank = $rank - 1; # $new_rank is what you want the new index to be in the array
2030	my $moving_item = splice( @result, $key, 1 );
2031	splice( @result, $new_rank, 0, $moving_item );
2032	}
2033	for ( my $j = 0 ; $j < @result ; $j++ ) {
2034	my $sth = $dbh->prepare( "UPDATE subscriptionroutinglist SET ranking = '" . ( $j + 1 ) . "' WHERE routingid = '" . $result[$j] . "'" );
2035	$sth->execute;
2036	}
2037	return;
2038	}
2039
2040	=head2 delroutingmember
2041
2042	delroutingmember($routingid,$subscriptionid)
2043
2044	this function either deletes one member from routing list if $routingid exists otherwise
2045	deletes all members from the routing list
2046
2047	=cut
2048
2049	sub delroutingmember {
2050
2051	# if $routingid exists then deletes that row otherwise deletes all with $subscriptionid
2052	my ( $routingid, $subscriptionid ) = @_;
2053	my $dbh = C4::Context->dbh;
2054	if ($routingid) {
2055	my $sth = $dbh->prepare("DELETE FROM subscriptionroutinglist WHERE routingid = ?");
2056	$sth->execute($routingid);
2057	reorder_members( $subscriptionid, $routingid );
2058	} else {
2059	my $sth = $dbh->prepare("DELETE FROM subscriptionroutinglist WHERE subscriptionid = ?");
2060	$sth->execute($subscriptionid);
2061	}
2062	return;
2063	}
2064
2065	=head2 getroutinglist
2066
2067	@routinglist = getroutinglist($subscriptionid)
2068
2069	this gets the info from the subscriptionroutinglist for $subscriptionid
2070
2071	return :
2072	the routinglist as an array. Each element of the array contains a hash_ref containing
2073	routingid - a unique id, borrowernumber, ranking, and biblionumber of subscription
2074
2075	=cut
2076
2077	sub getroutinglist {
2078	my ($subscriptionid) = @_;
2079	my $dbh = C4::Context->dbh;
2080	my $sth = $dbh->prepare(
2081	'SELECT routingid, borrowernumber, ranking, biblionumber
2082	FROM subscription
2083	JOIN subscriptionroutinglist ON subscription.subscriptionid = subscriptionroutinglist.subscriptionid
2084	WHERE subscription.subscriptionid = ? ORDER BY ranking ASC'
2085	);
2086	$sth->execute($subscriptionid);
2087	my $routinglist = $sth->fetchall_arrayref({});
2088	return @{$routinglist};
2089	}
2090
2091	=head2 countissuesfrom	1989	=head2 countissuesfrom
2092		1990
2093	$result = countissuesfrom($subscriptionid,$startdate)	1991	$result = countissuesfrom($subscriptionid,$startdate)
Lines 2225-2245 sub GetSubscriptionsFromBorrower { Link Here
2225	my ($borrowernumber) = @_;	2123	my ($borrowernumber) = @_;
2226	my $dbh = C4::Context->dbh;	2124	my $dbh = C4::Context->dbh;
2227	my $sth = $dbh->prepare(	2125	my $sth = $dbh->prepare(
2228	"SELECT subscription.subscriptionid, biblio.title	2126	"SELECT subscriptionroutinglist.*, biblio.title AS bibliotitle
2229	FROM subscription	2127	FROM subscriptionroutinglist
		2128	JOIN subscriptionrouting ON (subscriptionroutinglist.routinglistid = subscriptionrouting.routinglistid)
		2129	JOIN subscription ON (subscriptionroutinglist.subscriptionid = subscription.subscriptionid)
2230	JOIN biblio ON biblio.biblionumber = subscription.biblionumber	2130	JOIN biblio ON biblio.biblionumber = subscription.biblionumber
2231	JOIN subscriptionroutinglist USING (subscriptionid)	2131	WHERE subscriptionrouting.borrowernumber = ? ORDER BY title ASC
2232	WHERE subscriptionroutinglist.borrowernumber = ? ORDER BY title ASC
2233	"	2132	"
2234	);	2133	);
2235	$sth->execute($borrowernumber);	2134	$sth->execute($borrowernumber);
2236	my @routinglist;	2135	my $routinglists = $sth->fetchall_arrayref({});
2237	my $count = 0;	2136	return $routinglists ? @$routinglists : ();
2238	while ( my $line = $sth->fetchrow_hashref ) {
2239	$count++;
2240	push( @routinglist, $line );
2241	}
2242	return ( $count, @routinglist );
2243	}	2137	}
2244		2138
2245		2139

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 $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;

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_7957.perl (+67 lines)
		1	use Modern::Perl;
		2	use C4::Context;
		3
		4	my $dbh = C4::Context->dbh;
		5	$dbh->do("RENAME TABLE subscriptionroutinglist TO tmp_subscriptionroutinglist");
		6	$dbh->do("
		7	CREATE TABLE subscriptionroutinglist (
		8	routinglistid int(11) NOT NULL AUTO_INCREMENT,
		9	subscriptionid int(11) NOT NULL,
		10	title varchar(256) NOT NULL,
		11	notes text default NULL,
		12	PRIMARY KEY (routinglistid),
		13	CONSTRAINT subscriptionroutinglist_ibfk_1 FOREIGN KEY (subscriptionid)
		14	REFERENCES subscription (subscriptionid) ON DELETE CASCADE
		15	) ENGINE=InnoDB DEFAULT CHARSET=utf8
		16	");
		17	$dbh->do("
		18	CREATE TABLE subscriptionrouting (
		19	routinglistid int(11) NOT NULL,
		20	borrowernumber int(11) NOT NULL,
		21	ranking int(11) DEFAULT NULL,
		22	PRIMARY KEY (routinglistid, borrowernumber),
		23	CONSTRAINT subscriptionrouting_ibfk_1 FOREIGN KEY (routinglistid)
		24	REFERENCES subscriptionroutinglist (routinglistid) ON DELETE CASCADE,
		25	CONSTRAINT subscriptionrouting_ibfk_2 FOREIGN KEY (borrowernumber)
		26	REFERENCES borrowers (borrowernumber) ON DELETE CASCADE
		27	) ENGINE=InnoDB DEFAULT CHARSET=utf8
		28	");
		29
		30	# Migrate data from old subscriptionroutinglist table
		31	my $query = qq{
		32	SELECT serial.subscriptionid, serial.routingnotes
		33	FROM tmp_subscriptionroutinglist
		34	LEFT JOIN serial ON (tmp_subscriptionroutinglist.subscriptionid = serial.subscriptionid)
		35	GROUP BY serial.subscriptionid
		36	};
		37	my $sth = $dbh->prepare($query);
		38	$sth->execute();
		39	my $results = $sth->fetchall_arrayref( {} );
		40	$query = qq{
		41	INSERT INTO subscriptionroutinglist (subscriptionid, title, notes)
		42	VALUES (?, ?, ?)
		43	};
		44	$sth = $dbh->prepare($query);
		45	$query = qq{
		46	SELECT borrowernumber, ranking
		47	FROM tmp_subscriptionroutinglist
		48	WHERE subscriptionid = ?
		49	};
		50	my $select_sth = $dbh->prepare($query);
		51	$query = qq{
		52	INSERT INTO subscriptionrouting (routinglistid, borrowernumber, ranking)
		53	VALUES(?, ?, ?)
		54	};
		55	my $insert_sth = $dbh->prepare($query);
		56	foreach ( @$results ) {
		57	$sth->execute($_->{subscriptionid}, 'import', $_->{routingnotes});
		58	my $routinglistid = $dbh->last_insert_id(undef, undef, 'subscriptionroutinglist', undef);
		59	$select_sth->execute($_->{subscriptionid});
		60	my $routings = $select_sth->fetchall_arrayref( {} );
		61	foreach (@$routings) {
		62	$insert_sth->execute($routinglistid, $_->{borrowernumber}, $_->{ranking});
		63	}
		64	}
65
66	$dbh->do("DROP TABLE tmp_subscriptionroutinglist");
67	$dbh->do("ALTER TABLE serial DROP COLUMN routingnotes");

Lines 23-72 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/routing-lists.tt (-39 / +36 lines)
23	<!-- Search Bar End -->	23	<!-- Search Bar End -->
24		24
25	<h1>	25	<h1>
26	[% IF ( countSubscrip ) %]	26	[% IF ( routinglists.size > 0 ) %]
27	[% countSubscrip %] Subscription routing list(s)	27	[% routinglists.size %] Subscription routing list(s)
28	[% ELSE %]	28	[% ELSE %]
29	0 Subscription routing lists	29	0 Subscription routing lists
30	[% END %]	30	[% END %]
31	</h1>	31	</h1>
32		32
33	<div id="subscriptions">	33	<div id="subscriptions">
34	[% IF ( subscripLoop ) %]	34	[% IF ( routinglists.size > 0 ) %]
35	<table id="subscriptiont">	35	<table id="subscriptiont">
36	<thead>	36	<thead>
37	<tr>	37	<tr>
38	<th>Subscription title</th>	38	<th>Subscription title</th>
39	<th>Routing list</th>	39	<th>Routing list</th>
40	</tr>	40	<th>Actions</th>
41	</thead>	41	</tr>
42	<tbody>	42	</thead>
43	[% FOREACH subscripLoop IN subscripLoop %]	43	<tbody>
44	<tr>	44	[% FOREACH routinglist IN routinglists %]
45	<td>	45	<tr>
46	<a href="/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=[% subscripLoop.subscriptionid %]"><strong>	46	<td>
47	[% subscripLoop.title %]	47	<a href="/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=[% routinglist.subscriptionid %]">
48	</strong>	48	<strong>
49	</a>	49	[% routinglist.bibliotitle %]
50	</td>	50	</strong>
51	<td>	51	</a>
52	<a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscripLoop.subscriptionid %]"><strong>	52	</td>
53	Edit routing list	53	<td>[% routinglist.title %]</td>
54	</strong>	54	<td>
55	</a>	55	<a href="/cgi-bin/koha/serials/routinglist.pl?routinglistid=[% routinglist.routinglistid %]"><strong>
56	<input type="hidden" name="biblionumber" value="[% biblionumber %]" />	56	Edit routing list
57	<input type="hidden" name="borrowernumber" value="[% borrowernumber %]" />	57	</strong>
58	</td>	58	</a>
59	</tr>	59	</td>
60	[% END %]	60	</tr>
61	</tbody>	61	[% END %]
62	</table>	62	</tbody>
63	</form>	63	</table>
64	[% ELSE %]	64	[% ELSE %]
65	<p>Patron does not belong to any subscription routing lists.</p>	65	<p>Patron does not belong to any subscription routing lists.</p>
66	<input type="hidden" name="biblionumber" value="[% biblionumber %]" />	66	[% END %]
67	<input type="hidden" name="borrowernumber" value="[% borrowernumber %]" />
68	[% END %]
69
70	</div>	67	</div>
71		68
72		69

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 %]<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 %]<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 %]</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 %]</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-111 Link Here

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

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/routinglist.tt (+196 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 add_user(borrowernumber, borrowername){
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>' + borrowername + '</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/add_user_search.pl",
106	'PatronPopup',
107	'width=740,height=450,location=yes,toolbar=no,scrollbars=yes,resize=yes'
108	);
109	}
110
111	$(document).ready(function() {
112	updateTable();
113	});
114	[% END %]
115
116	//]]>
117	</script>
118	</head>
119
120	<body>
121	[% INCLUDE 'header.inc' %]
122	[% INCLUDE 'serials-search.inc' %]
123
124	<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>
125
126	<div id="doc3" class="yui-t2">
127
128	<div id="bd">
129	<div id="yui-main">
130	<div class="yui-b">
131	[% INCLUDE 'serials-toolbar.inc' %]
132	[% IF ( new ) %]
133	<h1>Create routing list</h1>
134
135	<form action="/cgi-bin/koha/serials/routinglist.pl" method="get">
136	<input type="hidden" name="op" value="savenew" />
137	<input type="hidden" name="subscriptionid" value="[% subscriptionid %]" />
138	<label for="title">Title: </label>
139	<input type="text" id="title" name="title" />
140	<input type="submit" value="Save" />
141	</form>
142	[% ELSE %]
143	<h1>Routing list '[% title %]'</h1>
144	<a style="cursor:pointer" onclick="SearchMember();">Add a borrower</a>
145	[% IF ( borrowers_loop ) %]
146	<table id="borrowers">
147	[% ELSE %]
148	<table id="borrowers" style="display:none">
149	[% END %]
150	<thead>
151	<tr>
152	<th>Name</th>
153	<th>Rank</th>
154	<th> </th>
155	</tr>
156	</thead>
157	<tbody>
158	[% FOREACH borrower IN borrowers_loop %]
159	<tr>
160	<td>[% borrower.surname %], [% borrower.firstname %]</td>
161	<td>
162	<select name="ranking" id="ranking[% borrower.borrowernumber %]">
163	[% FOREACH ranking_loo IN borrower.ranking_loop %]
164	[% IF ( ranking_loo.selected ) %]
165	<option selected="selected" value="[% ranking_loo.rank %]">[% ranking_loo.rank %]</option>
166	[% ELSE %]
167	<option value="[% ranking_loo.rank %]">[% ranking_loo.rank %]</option>
168	[% END %]
169	[% END %]
170	</select>
171	</td>
172	<td><a style="cursor:pointer" onclick="delBorrower([% borrower.borrowernumber %]);">Delete</a></td>
173	</tr>
174	[% END %]
175	</tbody>
176	</table>
177	[% UNLESS ( borrowers_loop ) %]
178	<p id="noborrowersp">There is no borrowers in this routing list.</p>
179	[% END %]
180	<form action="/cgi-bin/koha/serials/routinglist.pl" method="post">
181	<input type="hidden" id="borrowersids" name="borrowersids" value="[% borrowersids %]" />
182	<input type="hidden" name="op" value="mod" />
183	<input type="hidden" name="routinglistid" value="[% routinglistid %]" />
184	<label for="notes">Notes: </label><br />
185	<textarea id="notes" name="notes">[% notes %]</textarea><br />
186	<input type="submit" value="Save" />
187	<input type="button" value="Cancel" onclick="window.location.href='/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscriptionid %]';" />
188	</form>
189	[% END %]<!-- new -->
190	</div>
191	</div>
192	<div class="yui-b">
193	[% INCLUDE 'serials-menu.inc' %]
194	</div>
195	</div>
196	[% INCLUDE 'intranet-bottom.inc' %]

Lines 14-23 function generateReceive(subscriptionid) { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-collection.tt (-6 / +7 lines)
14	document.location = 'serials-collection.pl?op=gennext&subscriptionid='+subscriptionid+'&nbissues='+nbissues;	14	document.location = 'serials-collection.pl?op=gennext&subscriptionid='+subscriptionid+'&nbissues='+nbissues;
15	}	15	}
16	}	16	}
17	function print_slip(subscriptionid,issue){	17	function print_slip(serialid){
18	var myurl = 'routing-preview.pl?ok=1&subscriptionid='+subscriptionid+'&issue='+issue;	18	var myurl = '/cgi-bin/koha/serials/routing-preview-slip.pl?serialid='+serialid;
19	window.open(myurl,'PrintSlip','width=500,height=500,toolbar=no,scrollbars=yes');	19	window.open(myurl,'PrintSlip','width=500,height=500,toolbar=no,scrollbars=yes');
20	}	20	}
		21
21	function addsubscriptionid()	22	function addsubscriptionid()
22	{	23	{
23	var tab=new Array();	24	var tab=new Array();
Lines 134-143 $(document).ready(function() { Link Here
134	[% IF ( routing && CAN_user_serials_routing ) %]	135	[% IF ( routing && CAN_user_serials_routing ) %]
135	<td>	136	<td>
136	[% UNLESS subscription.closed %]	137	[% UNLESS subscription.closed %]
137	[% IF ( subscription.hasRouting ) %]	138	[% IF (subscription.routinglistscount) %]
138	<a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscription.subscriptionid %]">Edit routing list</a>	139	<a href="/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscription.subscriptionid %]">Edit routing lists</a> ([% subscription.routinglistscount %])
139	[% ELSE %]	140	[% ELSE %]
140	<a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscription.subscriptionid %]&op=new">Create routing list</a>	141	<a href="/cgi-bin/koha/serials/routinglist.pl?op=new&subscriptionid=[% subscription.subscriptionid %]">New routing list</a>
141	[% END %]	142	[% END %]
142	[% END %]	143	[% END %]
143	</td>	144	</td>
Lines 303-309 $(document).ready(function() { Link Here
303	</td>	304	</td>
304	[% IF ( routing ) %]	305	[% IF ( routing ) %]
305	<td>	306	<td>
306	<a href="" onclick="print_slip([% serial.subscriptionid %], '[% serial.serialseq.replace("'", "\\'") %] ([% serial.publisheddate \| $KohaDates %])'); return false" >Print list</a>	307	<a style="cursor:pointer" onclick="print_slip([% serial.serialid %]);">Print list</a>
307	</td>	308	</td>
308	[% END %]	309	[% END %]
309	</tr>	310	</tr>

Lines 76-97 if ($borrowernumber) { Link Here

(-)a/members/routing-lists.pl (-14 / +2 lines)
76		76
77	if ($borrowernumber) {	77	if ($borrowernumber) {
78	# new op dev	78	# new op dev
79	my $count;	79	my @routinglists = GetSubscriptionsFromBorrower($borrowernumber );
80	my @borrowerSubscriptions;
81	($count, @borrowerSubscriptions) = GetSubscriptionsFromBorrower($borrowernumber );
82	my @subscripLoop;
83
84	foreach my $num_res (@borrowerSubscriptions) {
85	my %getSubscrip;
86	$getSubscrip{subscriptionid} = $num_res->{'subscriptionid'};
87	$getSubscrip{title} = $num_res->{'title'};
88	$getSubscrip{borrowernumber} = $num_res->{'borrowernumber'};
89	push( @subscripLoop, \%getSubscrip );
90	}
91		80
92	$template->param(	81	$template->param(
93	countSubscrip => scalar @subscripLoop,	82	routinglists => \@routinglists,
94	subscripLoop => \@subscripLoop,
95	routinglistview => 1	83	routinglistview => 1
96	);	84	);
97		85

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
5	# under the terms of the GNU General Public License as published by
6	# the Free Software Foundation; either version 3 of the License, or
7	# (at your option) any later version.
8	#
9	# Koha is distributed in the hope that it will be useful, but
10	# WITHOUT ANY WARRANTY; without even the implied warranty of
11	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12	# GNU General Public License for more details.
13	#
14	# You should have received a copy of the GNU General Public License
15	# along with Koha; if not, see <http://www.gnu.org/licenses>.
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 qw ( -utf8 );
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 => 'routing' }, '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 $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 $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 $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}, \@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-143 Link Here

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

Lines 1-127 Link Here

(-)a/serials/routing.pl (-127 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
6	# under the terms of the GNU General Public License as published by
7	# the Free Software Foundation; either version 3 of the License, or
8	# (at your option) any later version.
9	#
10	# Koha is distributed in the hope that it will be useful, but
11	# WITHOUT ANY WARRANTY; without even the implied warranty of
12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13	# GNU General Public License for more details.
14	#
15	# You should have received a copy of the GNU General Public License
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
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 qw ( -utf8 );
31	use C4::Koha;
32	use C4::Auth;
33	use C4::Output;
34	use C4::Acquisition;
35	use C4::Output;
36	use C4::Context;
37
38	use C4::Members;
39	use C4::Serials;
40
41	use URI::Escape;
42
43	my $query = new CGI;
44	my $subscriptionid = $query->param('subscriptionid');
45	my $serialseq = $query->param('serialseq');
46	my $routingid = $query->param('routingid');
47	my $borrowernumber = $query->param('borrowernumber');
48	my $notes = $query->param('notes');
49	my $op = $query->param('op') \|\| q{};
50	my $date_selected = $query->param('date_selected');
51	$date_selected \|\|= q{};
52	my $dbh = C4::Context->dbh;
53
54	if($op eq 'delete'){
55	delroutingmember($routingid,$subscriptionid);
56	}
57
58	if($op eq 'add'){
59	addroutingmember($borrowernumber,$subscriptionid);
60	}
61	if($op eq 'save'){
62	my $sth = $dbh->prepare('UPDATE serial SET routingnotes = ? WHERE subscriptionid = ?');
63	$sth->execute($notes,$subscriptionid);
64	my $urldate = URI::Escape::uri_escape_utf8($date_selected);
65	print $query->redirect("routing-preview.pl?subscriptionid=$subscriptionid&issue=$urldate");
66	}
67
68	my @routinglist = getroutinglist($subscriptionid);
69	my $subs = GetSubscription($subscriptionid);
70	my ($count,@serials) = GetSerials($subscriptionid);
71	my $serialdates = GetLatestSerials($subscriptionid,$count);
72
73	my $dates = [];
74	foreach my $dateseq (@{$serialdates}) {
75	my $d = {};
76	$d->{publisheddate} = $dateseq->{publisheddate};
77	$d->{serialseq} = $dateseq->{serialseq};
78	$d->{serialid} = $dateseq->{serialid};
79	if($date_selected eq $dateseq->{serialid}){
80	$d->{selected} = ' selected';
81	} else {
82	$d->{selected} = q{};
83	}
84	push @{$dates}, $d;
85	}
86
87	my ($template, $loggedinuser, $cookie)
88	= get_template_and_user({template_name => 'serials/routing.tt',
89	query => $query,
90	type => 'intranet',
91	authnotrequired => 0,
92	flagsrequired => {serials => 'routing'},
93	debug => 1,
94	});
95
96	my $member_loop = [];
97	for my $routing ( @routinglist ) {
98	my $member=GetMember('borrowernumber' => $routing->{borrowernumber});
99	$member->{location} = $member->{branchcode};
100	if ($member->{firstname} ) {
101	$member->{name} = $member->{firstname} . q\| \|;
102	}
103	else {
104	$member->{name} = q{};
105	}
106	if ($member->{surname} ) {
107	$member->{name} .= $member->{surname};
108	}
109	$member->{routingid}=$routing->{routingid} \|\| q{};
110	$member->{ranking} = $routing->{ranking} \|\| q{};
111
112	push(@{$member_loop}, $member);
113	}
114
115	$template->param(
116	title => $subs->{bibliotitle},
117	subscriptionid => $subscriptionid,
118	memberloop => $member_loop,
119	op => $op eq 'new',
120	dates => $dates,
121	routingnotes => $serials[0]->{'routingnotes'},
122	hasRouting => check_routing($subscriptionid),
123	(uc(C4::Context->preference("marcflavour"))) => 1
124
125	);
126
127	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 $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 15-21 use C4::Bookseller; Link Here

(-)a/t/db_dependent/Serials.t (-6 / +1 lines)
15	use C4::Biblio;	15	use C4::Biblio;
16	use C4::Budgets;	16	use C4::Budgets;
17	use Koha::DateUtils;	17	use Koha::DateUtils;
18	use Test::More tests => 45;	18	use Test::More tests => 43;
19		19
20	BEGIN {	20	BEGIN {
21	use_ok('C4::Serials');	21	use_ok('C4::Serials');
Lines 184-193 is(C4::Serials::updateClaim(),undef, 'test updating claim'); Link Here
184		184
185	is(C4::Serials::getsupplierbyserialid(),undef, 'test getting supplier idea');	185	is(C4::Serials::getsupplierbyserialid(),undef, 'test getting supplier idea');
186		186
187	is(C4::Serials::check_routing(), undef, 'test checking route');
188
189	is(C4::Serials::addroutingmember(),undef, 'test adding route member');
190
191		187
192	# Unit tests for statuses management (Bug 11689)	188	# Unit tests for statuses management (Bug 11689)
193	$subscriptionid = NewSubscription(	189	$subscriptionid = NewSubscription(
194	-