=cut
use strict;
use Modern::Perl;
use warnings;
use C4::Auth;
use C4::Biblio;
use C4::Output;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use CGI qw ( -utf8 );
use C4::Serials; # GetExpirationDate
# 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 C4::Auth qw( checkauth );
use C4::Serials qw( reorder_members );
# 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 C4::Koha;
use Encode qw( decode is_utf8 );
# You should have received a copy of the GNU General Public License
use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);
use Carp;
use C4::Context;
-