Attachment #35801 for bug #7957

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

Lines 174-180 sub GetItem { Link Here

(-)a/C4/Items.pm (-1 / +1 lines)
174	($data->{'serialseq'} , $data->{'publisheddate'}) = $ssth->fetchrow_array();	174	($data->{'serialseq'} , $data->{'publisheddate'}) = $ssth->fetchrow_array();
175	}	175	}
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	if( ! $data->{'itype'} ) {	177	if( $data and ! $data->{'itype'} ) {
178	my $sth = $dbh->prepare("SELECT itemtype FROM biblioitems WHERE biblionumber = ?");	178	my $sth = $dbh->prepare("SELECT itemtype FROM biblioitems WHERE biblionumber = ?");
179	$sth->execute($data->{'biblionumber'});	179	$sth->execute($data->{'biblionumber'});
180	($data->{'itype'}) = $sth->fetchrow_array;	180	($data->{'itype'}) = $sth->fetchrow_array;




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

      &UpdateClaimdateIssues
      &GetSuppliersWithLateIssues             &getsupplierbyserialid
      &GetDistributedTo   &SetDistributedTo
      &updateClaim        &removeMissingIssue
      &reorder_members
      &check_routing &updateClaim &removeMissingIssue
      &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();

    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)




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;




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

--




    SetVersion ($DBversion);
}

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

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

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


=head1 FUNCTIONS

=head2 TableExists($table)

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(){




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

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

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

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




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

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

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

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

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

    </div>

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




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

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

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

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

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

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

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

</div>
</div>

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




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

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

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

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

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

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


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

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

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

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

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


</div>
</div>

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




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

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

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

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

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

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

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

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

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

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

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

    return 0;
}

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

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

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

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

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

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

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

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

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




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

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

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

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

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

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

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

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

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

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

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




        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="icon-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="icon-plus"></i> New routing list</a>
                                                [% END %]
                                            </li>
                                                </li>
                                            [% END %]
                                        [% END %]
                                    [% END # IF ( routing && CAN_user_serials_routing ) %]


Lines 108-116 if (@searchpatron) { Link Here

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




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

# Routing.pl script used to create a routing list for a serial subscription
# In this instance it is in fact a setting up of a list of reserves for the item
# where the hierarchical order can be changed on the fly and a routing list can be
# printed out
use strict;
use warnings;
use CGI 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 => 1 }, 'intranet' );

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

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





#!/usr/bin/perl

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

=head1 NAME

routing-preview-slip.pl

=head1 DESCRIPTION

Preview a routing list for printing.

=cut

use Modern::Perl;

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

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

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

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

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

if (!$routinglistid) {
    my $serial = GetSerial($serialid);
    my $subscription = GetSubscription($serial->{subscriptionid});
    my $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}, 'a', \@bibitems, $rank, undef,
                        undef, undef, $biblio->{title}, $itemnumber);
                }
                $rank++;
            }
        } else {
            $template->param(error_no_item => 1);
        }
    } else {
        $template->param(need_confirm => 1);
    }
}

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

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




#!/usr/bin/perl

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

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

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

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

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

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

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

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

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

    ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/routing-preview-slip.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 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.


=head1 Routing.pl

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

=cut

use strict;
use warnings;
use CGI qw ( -utf8 );
use C4::Koha;
use C4::Auth;
use C4::Dates;
use C4::Output;
use C4::Acquisition;
use C4::Output;
use C4::Context;

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

use URI::Escape;

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

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

if($op eq 'add'){
    addroutingmember($borrowernumber,$subscriptionid);
}
if($op eq 'save'){
    my $sth = $dbh->prepare('UPDATE serial SET routingnotes = ? WHERE subscriptionid = ?');
    $sth->execute($notes,$subscriptionid);
    my $urldate = URI::Escape::uri_escape_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 26-31 use C4::Auth; Link Here

(-)a/serials/serials-collection.pl (-2 / +5 lines)
26	use C4::Koha;	26	use C4::Koha;
27	use C4::Dates qw/format_date/;	27	use C4::Dates qw/format_date/;
28	use C4::Serials;	28	use C4::Serials;
		29	use C4::Serials::RoutingLists qw/GetRoutingListsCount/;
29	use C4::Letters;	30	use C4::Letters;
30	use C4::Output;	31	use C4::Output;
31	use C4::Context;	32	use C4::Context;
Lines 147-154 my $yearmax=($subscriptions->[0]{year} eq "manage" && scalar(@$subscriptions)>1) Link Here
147	my $yearmin=$subscriptions->[scalar(@$subscriptions)-1]{year};	148	my $yearmin=$subscriptions->[scalar(@$subscriptions)-1]{year};
148	my $subscriptionidlist="";	149	my $subscriptionidlist="";
149	foreach my $subscription (@$subscriptiondescs){	150	foreach my $subscription (@$subscriptiondescs){
150	$subscriptionidlist.=$subscription->{'subscriptionid'}."," ;	151	$subscriptionidlist.=$subscription->{'subscriptionid'}."," ;
151	$biblionumber = $subscription->{'bibnum'} unless ($biblionumber);	152	$biblionumber = $subscription->{'bibnum'} unless ($biblionumber);
		153	$subscription->{routinglistscount}
		154	= GetRoutingListsCount($subscription->{subscriptionid});
152	}	155	}
153		156
154	# warn "title : $title yearmax : $yearmax nombre d'elements dans le tableau :".scalar(@$subscriptions);	157	# warn "title : $title yearmax : $yearmax nombre d'elements dans le tableau :".scalar(@$subscriptions);

Lines 35-40 use C4::Branch; Link Here

(-)a/serials/serials-search.pl (-1 / +4 lines)
35	use C4::Context;	35	use C4::Context;
36	use C4::Output;	36	use C4::Output;
37	use C4::Serials;	37	use C4::Serials;
		38	use C4::Serials::RoutingLists qw/GetRoutingListsCount/;
38		39
39	use Koha::DateUtils;	40	use Koha::DateUtils;
40		41
Lines 97-103 if ($searched){ Link Here
97	# to toggle between create or edit routing list options	98	# to toggle between create or edit routing list options
98	if ($routing) {	99	if ($routing) {
99	for my $subscription ( @subscriptions) {	100	for my $subscription ( @subscriptions) {
100	$subscription->{routingedit} = check_routing( $subscription->{subscriptionid} );	101	$subscription->{routinglistscount}
		102	= GetRoutingListsCount($subscription->{subscriptionid});
		103	$subscription->{branchname} = GetBranchName ( $subscription->{branchcode} );
101	}	104	}
102	}	105	}
103		106

Lines 23-28 use C4::Budgets; Link Here

(-)a/serials/subscription-detail.pl (-2 / +2 lines)
23	use C4::Koha;	23	use C4::Koha;
24	use C4::Dates qw/format_date/;	24	use C4::Dates qw/format_date/;
25	use C4::Serials;	25	use C4::Serials;
		26	use C4::Serials::RoutingLists qw/GetRoutingListsCount/;
26	use C4::Output;	27	use C4::Output;
27	use C4::Context;	28	use C4::Context;
28	use C4::Search qw/enabled_staff_search_views/;	29	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");
99	-

Return to bug 7957

Lines 2155-2175 CREATE TABLE `subscriptionhistory` ( Link Here

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

Lines 9759-9764 if ( CheckVersion($DBversion) ) { Link Here

(-)a/installer/data/mysql/updatedatabase.pl (+67 lines)
9759	SetVersion ($DBversion);	9759	SetVersion ($DBversion);
9760	}	9760	}
9761		9761
		9762	$DBversion = "XXX";
		9763	if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
		9764	$dbh->do("RENAME TABLE subscriptionroutinglist TO tmp_subscriptionroutinglist");
		9765	$dbh->do("
		9766	CREATE TABLE subscriptionroutinglist (
		9767	routinglistid int(11) NOT NULL AUTO_INCREMENT,
		9768	subscriptionid int(11) NOT NULL,
		9769	title varchar(256) NOT NULL,
		9770	notes text default NULL,
		9771	PRIMARY KEY (routinglistid),
		9772	CONSTRAINT subscriptionroutinglist_ibfk_1 FOREIGN KEY (subscriptionid)
		9773	REFERENCES subscription (subscriptionid) ON DELETE CASCADE
		9774	) ENGINE=InnoDB DEFAULT CHARSET=utf8
		9775	");
		9776	$dbh->do("
		9777	CREATE TABLE subscriptionrouting (
		9778	routinglistid int(11) NOT NULL,
		9779	borrowernumber int(11) NOT NULL,
		9780	ranking int(11) DEFAULT NULL,
		9781	PRIMARY KEY (routinglistid, borrowernumber),
		9782	CONSTRAINT subscriptionrouting_ibfk_1 FOREIGN KEY (routinglistid)
		9783	REFERENCES subscriptionroutinglist (routinglistid) ON DELETE CASCADE,
		9784	CONSTRAINT subscriptionrouting_ibfk_2 FOREIGN KEY (borrowernumber)
		9785	REFERENCES borrowers (borrowernumber) ON DELETE CASCADE
		9786	) ENGINE=InnoDB DEFAULT CHARSET=utf8
		9787	");
		9788
		9789	# Migrate data from old subscriptionroutinglist table
		9790	my $query = qq{
		9791	SELECT DISTINCT subscriptionid
		9792	FROM tmp_subscriptionroutinglist
		9793	};
		9794	my $sth = $dbh->prepare($query);
		9795	$sth->execute();
		9796	my $results = $sth->fetchall_arrayref( {} );
		9797	$query = qq{
		9798	INSERT INTO subscriptionroutinglist (subscriptionid, title)
		9799	VALUES (?, ?)
		9800	};
		9801	$sth = $dbh->prepare($query);
		9802	$query = qq{
		9803	SELECT borrowernumber, ranking
		9804	FROM tmp_subscriptionroutinglist
		9805	WHERE subscriptionid = ?
		9806	};
		9807	my $select_sth = $dbh->prepare($query);
		9808	$query = qq{
		9809	INSERT INTO subscriptionrouting (routinglistid, borrowernumber, ranking)
		9810	VALUES(?, ?, ?)
		9811	};
		9812	my $insert_sth = $dbh->prepare($query);
		9813	foreach ( @$results ) {
		9814	$sth->execute($_->{subscriptionid}, 'import');
		9815	my $routinglistid = $dbh->last_insert_id(undef, undef, 'subscriptionroutinglist', undef);
		9816	$select_sth->execute($_->{subscriptionid});
		9817	my $routings = $select_sth->fetchall_arrayref( {} );
		9818	foreach (@$routings) {
		9819	$insert_sth->execute($routinglistid, $_->{borrowernumber}, $_->{ranking});
		9820	}
		9821	}
		9822
		9823	$dbh->do("DROP TABLE tmp_subscriptionroutinglist");
		9824	print "Upgrade to $DBversion done (New subscription routing list system).\n";
		9825	SetVersion($DBversion);
9826	}
9827
9828
9762	=head1 FUNCTIONS	9829	=head1 FUNCTIONS
9763		9830
9764	=head2 TableExists($table)	9831	=head2 TableExists($table)

Lines 199-213 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-search.tt (-9 / +7 lines)
199	[% IF ( routing && CAN_user_serials_routing ) %]	199	[% IF ( routing && CAN_user_serials_routing ) %]
200	[% IF ( subscription.cannotedit ) %]	200	[% IF ( subscription.cannotedit ) %]
201	[% ELSE %]	201	[% ELSE %]
202	[% IF ( subscription.routingedit ) %]	202	<li>
203	<li>	203	[% IF ( subscription.routinglistscount ) %]
204	<a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscription.subscriptionid %]"><i class="icon-pencil"></i> Edit routing list ([% subscription.routingedit %])</a>	204	<a href="/cgi-bin/koha/serials/routinglists.pl?subscriptionid=[% subscription.subscriptionid %]"><i class="icon-pencil"></i> Edit routing list ([% subscription.routinglistscount %])</a>
205	</li>	205	[% ELSE %]
206	[% ELSE %]	206	<a href="/cgi-bin/koha/serials/routinglist.pl?subscriptionid=[% subscription.subscriptionid %]&op=new"> <i class="icon-plus"></i> New routing list</a>
207	<li>	207	[% END %]
208	<a href="/cgi-bin/koha/serials/routing.pl?subscriptionid=[% subscription.subscriptionid %]&op=new"> <i class="icon-plus"></i> New routing list</a>	208	</li>
209	</li>
210	[% END %]
211	[% END %]	209	[% END %]
212	[% END # IF ( routing && CAN_user_serials_routing ) %]	210	[% END # IF ( routing && CAN_user_serials_routing ) %]
213		211

Lines 51-63 BEGIN { Link Here

(-)a/C4/Serials.pm (-158 / +56 lines)
51	&ReNewSubscription &GetLateOrMissingIssues	51	&ReNewSubscription &GetLateOrMissingIssues
52	&GetSerialInformation &AddItem2Serial	52	&GetSerialInformation &AddItem2Serial
53	&PrepareSerialsData &GetNextExpected &ModNextExpected	53	&PrepareSerialsData &GetNextExpected &ModNextExpected
		54	&GetSerial &GetSerialItemnumber
54		55
55	&UpdateClaimdateIssues	56	&UpdateClaimdateIssues
56	&GetSuppliersWithLateIssues &getsupplierbyserialid	57	&GetSuppliersWithLateIssues &getsupplierbyserialid
57	&GetDistributedTo &SetDistributedTo	58	&GetDistributedTo &SetDistributedTo
58	&getroutinglist &delroutingmember &addroutingmember	59	&updateClaim &removeMissingIssue
59	&reorder_members
60	&check_routing &updateClaim &removeMissingIssue
61	&CountIssues	60	&CountIssues
62	HasItems	61	HasItems
63	&GetSubscriptionsFromBorrower	62	&GetSubscriptionsFromBorrower
Lines 137-142 sub GetSubscriptionHistoryFromSubscriptionId { Link Here
137	return $results;	136	return $results;
138	}	137	}
139		138
		139	=head2 GetSerial
		140
		141	my $serial = &GetSerial($serialid);
		142
		143	This sub returns serial informations (ie. in serial table) for given $serialid
		144	It returns a hashref where each key is a sql column.
		145
		146	=cut
		147
		148	sub GetSerial {
		149	my ($serialid) = @_;
		150
		151	return unless $serialid;
		152
		153	my $dbh = C4::Context->dbh;
		154	my $query = qq{
		155	SELECT *
		156	FROM serial
		157	WHERE serialid = ?
		158	};
		159	my $sth = $dbh->prepare($query);
		160	$sth->execute($serialid);
		161	return $sth->fetchrow_hashref;
		162	}
		163
		164	=head2 GetSerialItemnumber
		165
		166	my $itemnumber = GetSerialItemnumber($serialid);
		167
		168	Returns the itemnumber associated to $serialid or undef if there is no item.
		169
		170	=cut
		171
		172	sub GetSerialItemnumber {
		173	my ($serialid) = @_;
		174
		175	return unless $serialid;
		176	my $itemnumber;
		177
		178	my $dbh = C4::Context->dbh;
		179	my $query = qq{
		180	SELECT itemnumber
		181	FROM serialitems
		182	WHERE serialid = ?
		183	};
		184	my $sth = $dbh->prepare($query);
		185	my $rv = $sth->execute($serialid);
		186	if ($rv) {
		187	my $result = $sth->fetchrow_hashref;
		188	$itemnumber = $result->{itemnumber};
		189	}
		190	return $itemnumber;
		191	}
		192
140	=head2 GetSerialStatusFromSerialId	193	=head2 GetSerialStatusFromSerialId
141		194
142	$sth = GetSerialStatusFromSerialId();	195	$sth = GetSerialStatusFromSerialId();
Lines 2077-2237 sub getsupplierbyserialid { Link Here
2077	return $result;	2130	return $result;
2078	}	2131	}
2079		2132
2080	=head2 check_routing
2081
2082	$result = &check_routing($subscriptionid)
2083
2084	this function checks to see if a serial has a routing list and returns the count of routingid
2085	used to show either an 'add' or 'edit' link
2086
2087	=cut
2088
2089	sub check_routing {
2090	my ($subscriptionid) = @_;
2091
2092	return unless ($subscriptionid);
2093
2094	my $dbh = C4::Context->dbh;
2095	my $sth = $dbh->prepare(
2096	"SELECT count(routingid) routingids FROM subscription LEFT JOIN subscriptionroutinglist
2097	ON subscription.subscriptionid = subscriptionroutinglist.subscriptionid
2098	WHERE subscription.subscriptionid = ? ORDER BY ranking ASC
2099	"
2100	);
2101	$sth->execute($subscriptionid);
2102	my $line = $sth->fetchrow_hashref;
2103	my $result = $line->{'routingids'};
2104	return $result;
2105	}
2106
2107	=head2 addroutingmember
2108
2109	addroutingmember($borrowernumber,$subscriptionid)
2110
2111	this function takes a borrowernumber and subscriptionid and adds the member to the
2112	routing list for that serial subscription and gives them a rank on the list
2113	of either 1 or highest current rank + 1
2114
2115	=cut
2116
2117	sub addroutingmember {
2118	my ( $borrowernumber, $subscriptionid ) = @_;
2119
2120	return unless ($borrowernumber and $subscriptionid);
2121
2122	my $rank;
2123	my $dbh = C4::Context->dbh;
2124	my $sth = $dbh->prepare( "SELECT max(ranking) rank FROM subscriptionroutinglist WHERE subscriptionid = ?" );
2125	$sth->execute($subscriptionid);
2126	while ( my $line = $sth->fetchrow_hashref ) {
2127	if ( $line->{'rank'} > 0 ) {
2128	$rank = $line->{'rank'} + 1;
2129	} else {
2130	$rank = 1;
2131	}
2132	}
2133	$sth = $dbh->prepare( "INSERT INTO subscriptionroutinglist (subscriptionid,borrowernumber,ranking) VALUES (?,?,?)" );
2134	$sth->execute( $subscriptionid, $borrowernumber, $rank );
2135	}
2136
2137	=head2 reorder_members
2138
2139	reorder_members($subscriptionid,$routingid,$rank)
2140
2141	this function is used to reorder the routing list
2142
2143	it takes the routingid of the member one wants to re-rank and the rank it is to move to
2144	- it gets all members on list puts their routingid's into an array
2145	- removes the one in the array that is $routingid
2146	- then reinjects $routingid at point indicated by $rank
2147	- then update the database with the routingids in the new order
2148
2149	=cut
2150
2151	sub reorder_members {
2152	my ( $subscriptionid, $routingid, $rank ) = @_;
2153	my $dbh = C4::Context->dbh;
2154	my $sth = $dbh->prepare( "SELECT * FROM subscriptionroutinglist WHERE subscriptionid = ? ORDER BY ranking ASC" );
2155	$sth->execute($subscriptionid);
2156	my @result;
2157	while ( my $line = $sth->fetchrow_hashref ) {
2158	push( @result, $line->{'routingid'} );
2159	}
2160
2161	# To find the matching index
2162	my $i;
2163	my $key = -1; # to allow for 0 being a valid response
2164	for ( $i = 0 ; $i < @result ; $i++ ) {
2165	if ( $routingid == $result[$i] ) {
2166	$key = $i; # save the index
2167	last;
2168	}
2169	}
2170
2171	# if index exists in array then move it to new position
2172	if ( $key > -1 && $rank > 0 ) {
2173	my $new_rank = $rank - 1; # $new_rank is what you want the new index to be in the array
2174	my $moving_item = splice( @result, $key, 1 );
2175	splice( @result, $new_rank, 0, $moving_item );
2176	}
2177	for ( my $j = 0 ; $j < @result ; $j++ ) {
2178	my $sth = $dbh->prepare( "UPDATE subscriptionroutinglist SET ranking = '" . ( $j + 1 ) . "' WHERE routingid = '" . $result[$j] . "'" );
2179	$sth->execute;
2180	}
2181	return;
2182	}
2183
2184	=head2 delroutingmember
2185
2186	delroutingmember($routingid,$subscriptionid)
2187
2188	this function either deletes one member from routing list if $routingid exists otherwise
2189	deletes all members from the routing list
2190
2191	=cut
2192
2193	sub delroutingmember {
2194
2195	# if $routingid exists then deletes that row otherwise deletes all with $subscriptionid
2196	my ( $routingid, $subscriptionid ) = @_;
2197	my $dbh = C4::Context->dbh;
2198	if ($routingid) {
2199	my $sth = $dbh->prepare("DELETE FROM subscriptionroutinglist WHERE routingid = ?");
2200	$sth->execute($routingid);
2201	reorder_members( $subscriptionid, $routingid );
2202	} else {
2203	my $sth = $dbh->prepare("DELETE FROM subscriptionroutinglist WHERE subscriptionid = ?");
2204	$sth->execute($subscriptionid);
2205	}
2206	return;
2207	}
2208
2209	=head2 getroutinglist
2210
2211	@routinglist = getroutinglist($subscriptionid)
2212
2213	this gets the info from the subscriptionroutinglist for $subscriptionid
2214
2215	return :
2216	the routinglist as an array. Each element of the array contains a hash_ref containing
2217	routingid - a unique id, borrowernumber, ranking, and biblionumber of subscription
2218
2219	=cut
2220
2221	sub getroutinglist {
2222	my ($subscriptionid) = @_;
2223	my $dbh = C4::Context->dbh;
2224	my $sth = $dbh->prepare(
2225	'SELECT routingid, borrowernumber, ranking, biblionumber
2226	FROM subscription
2227	JOIN subscriptionroutinglist ON subscription.subscriptionid = subscriptionroutinglist.subscriptionid
2228	WHERE subscription.subscriptionid = ? ORDER BY ranking ASC'
2229	);
2230	$sth->execute($subscriptionid);
2231	my $routinglist = $sth->fetchall_arrayref({});
2232	return @{$routinglist};
2233	}
2234
2235	=head2 countissuesfrom	2133	=head2 countissuesfrom
2236		2134
2237	$result = countissuesfrom($subscriptionid,$startdate)	2135	$result = countissuesfrom($subscriptionid,$startdate)

Line 0 Link Here

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

Lines 2-15 Link Here

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

Lines 14-47 Link Here

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

Lines 1-57 Link Here

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

Lines 1-97 Link Here

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

Line 0 Link Here

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

Lines 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 290-296 $(document).ready(function() { Link Here
290	</td>	291	</td>
291	[% IF ( routing ) %]	292	[% IF ( routing ) %]
292	<td>	293	<td>
293	<a href="" onclick="print_slip([% serial.subscriptionid \|html %], '[% serial.serialseq \|html %] ([% serial.publisheddate %])'); return false" >Print list</a>	294	<a style="cursor:pointer" onclick="print_slip([% serial.serialid %]);">Print list</a>
294	</td>	295	</td>
295	[% END %]	296	[% END %]
296	</tr>	297	</tr>

Lines 1-38 Link Here

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

Line 0 Link Here

(-)a/serials/routing-preview-slip.pl (+144 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2011 BibLibre SARL
		4	# This file is part of Koha.
		5	#
		6	# Koha is free software; you can redistribute it and/or modify it under the
		7	# terms of the GNU General Public License as published by the Free Software
		8	# Foundation; either version 2 of the License, or (at your option) any later
		9	# version.
		10	#
		11	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		12	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		13	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License along
		16	# with Koha; if not, write to the Free Software Foundation, Inc.,
		17	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		18
		19	=head1 NAME
		20
		21	routing-preview-slip.pl
		22
		23	=head1 DESCRIPTION
		24
		25	Preview a routing list for printing.
		26
		27	=cut
		28
		29	use Modern::Perl;
		30
		31	use CGI;
		32	use C4::Auth;
		33	use C4::Output;
		34
		35	use C4::Biblio;
		36	use C4::Branch;
		37	use C4::Members;
		38	use C4::Serials;
		39	use C4::Serials::RoutingLists qw/GetRoutingList GetRoutingLists/;
		40
		41	my $input = new CGI;
		42	my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
		43	template_name => 'serials/routing-preview-slip.tt',
		44	query => $input,
		45	type => 'intranet',
		46	authnotrequired => 0,
		47	flagsrequired => { 'serials' => 'routing' },
		48	debug => 1,
		49	} );
		50
		51	my $routinglistid = $input->param('routinglistid');
		52	my $serialid = $input->param('serialid');
		53
		54	if (!$routinglistid and !$serialid) {
		55	exit;
		56	}
		57
		58	if (!$routinglistid) {
		59	my $serial = GetSerial($serialid);
		60	my $subscription = GetSubscription($serial->{subscriptionid});
		61	my $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}, 'a', \@bibitems, $rank, undef,
120	undef, undef, $biblio->{title}, $itemnumber);
121	}
122	$rank++;
123	}
124	} else {
125	$template->param(error_no_item => 1);
126	}
127	} else {
128	$template->param(need_confirm => 1);
129	}
130	}
131
132	$template->param(
133	routinglistid => $routinglistid,
134	serialid => $serialid,
135	libraryname => $branch->{branchname},
136	title => $biblio->{title},
137	serial => $serial,
138	memberloop => \@memberloop,
139	routingnotes => $routinglist->{notes},
140	generalroutingnote => C4::Context->preference('RoutingListNote'),
141	routinglisttitle => $routinglist->{title},
142	);
143
144	output_html_with_http_headers $input, $cookie, $template->output;

Lines 1-145 Link Here

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

Lines 1-128 Link Here

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