@@ -, +, @@
---
.../prog/en/modules/patroncards/card-print.tt | 165 --------------------
patroncards/card-print.pl | 131 ----------------
2 files changed, 296 deletions(-)
delete mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/patroncards/card-print.tt
delete mode 100755 patroncards/card-print.pl
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/patroncards/card-print.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/patroncards/card-print.tt
@@ -1,165 +0,0 @@
- [% INCLUDE 'doc-head-open.inc' %]
-
Koha › Tools › Patron Card Creator › Patron card printing/exporting
- [% INCLUDE 'doc-head-close.inc' %]
-
-
-
-
-
-
-
- [% IF ( batches ) %]
-
- [% ELSE %]
-
-
- [% IF ( label_ids ) %]
- Exporting [% label_count %] cards(s).
- [% ELSIF ( item_numbers ) %]
- Exporting [% item_count %] cards(s).
- [% ELSE %]
- [% multi_batch_count %] batch(es) to export.
- [% END %]
-
-
-
- [% END %]
-
- [% INCLUDE 'intranet-bottom.inc' %]
--- a/patroncards/card-print.pl
+++ a/patroncards/card-print.pl
@@ -1,131 +0,0 @@
-#!/usr/bin/perl
-#
-# Copyright 2009 Foundations Bible College.
-#
-# This file is part of Koha.
-#
-# Koha is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 3 of the License, or
-# (at your option) any later version.
-#
-# Koha is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with Koha; if not, see
.
-
-use strict;
-use warnings;
-
-use CGI qw ( -utf8 );
-use Data::Dumper;
-
-use C4::Auth qw(get_template_and_user);
-use C4::Output qw(output_html_with_http_headers);
-use C4::Creators;
-use C4::Labels;
-
-my $cgi = new CGI;
-my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
- {
- template_name => "patroncards/card-print.tt",
- query => $cgi,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => { catalogue => 1 },
- debug => 1,
- }
-);
-
-my $op = $cgi->param('op') || 'none';
-my @label_ids = $cgi->param('label_id') if $cgi->param('label_id'); # this will handle individual label printing
-my @batch_ids = $cgi->param('batch_id') if $cgi->param('batch_id');
-my $layout_id = $cgi->param('layout_id') || undef;
-my $template_id = $cgi->param('template_id') || undef;
-my $start_label = $cgi->param('start_label') || 1;
-my @item_numbers = $cgi->param('item_number') if $cgi->param('item_number');
-my $output_format = $cgi->param('output_format') || 'pdf';
-my $referer = $cgi->param('referer') || undef;
-
-my $layouts = undef;
-my $templates = undef;
-my $label_output_formats = undef;
-my @batches = ();
-my $multi_batch_count = scalar(@batch_ids);
-my $label_count = scalar(@label_ids);
-my $item_count = scalar(@item_numbers);
-
-if ($op eq 'export') {
- if (@label_ids) {
- my $label_id_param = '&label_id=';
- $label_id_param .= join ('&label_id=',@label_ids);
- push (@batches, {create_script => ($output_format eq 'pdf' ? 'label-create-pdf.pl' : 'label-create-csv.pl'),
- batch_id => $batch_ids[0],
- template_id => $template_id,
- layout_id => $layout_id,
- start_label => $start_label,
- label_ids => $label_id_param,
- label_count => scalar(@label_ids),
- });
- $template->param(
- batches => \@batches,
- referer => $referer,
- );
- }
- elsif (@item_numbers) {
- my $item_number_param = '&item_number=';
- $item_number_param .= join ('&item_number=',@item_numbers);
- push (@batches, {create_script => ($output_format eq 'pdf' ? 'label-create-pdf.pl' : 'label-create-csv.pl'),
- template_id => $template_id,
- layout_id => $layout_id,
- start_label => $start_label,
- item_numbers => $item_number_param,
- label_count => scalar(@item_numbers),
- });
- $template->param(
- batches => \@batches,
- referer => $referer,
- );
- }
- elsif (@batch_ids) {
- foreach my $batch_id (@batch_ids) {
- push (@batches, {create_script => ($output_format eq 'pdf' ? 'label-create-pdf.pl' : 'label-create-csv.pl'),
- batch_id => $batch_id,
- template_id => $template_id,
- layout_id => $layout_id,
- start_label => $start_label,
- });
- }
- $template->param(
- batches => \@batches,
- referer => $referer,
- );
- }
-}
-elsif ($op eq 'none') {
- # setup select menus for selecting layout and template for this run...
- $referer = $ENV{'HTTP_REFERER'};
- $referer =~ s/^.*?:\/\/.*?(\/.*)$/$1/m;
- @batch_ids = grep{$_ = {batch_id => $_}} @batch_ids;
- @label_ids = grep{$_ = {label_id => $_}} @label_ids;
- @item_numbers = grep{$_ = {item_number => $_}} @item_numbers;
- $templates = get_all_templates(field_list => 'template_id, template_code');
- $layouts = get_all_layouts(field_list => 'layout_id, layout_name');
- $label_output_formats = get_label_output_formats();
- $template->param(
- batch_ids => \@batch_ids,
- label_ids => \@label_ids,
- item_numbers => \@item_numbers,
- templates => $templates,
- layouts => $layouts,
- label_output_formats => $label_output_formats,
- multi_batch_count => $multi_batch_count,
- label_count => $label_count,
- item_count => $item_count,
- referer => $referer,
- );
-}
-output_html_with_http_headers $cgi, $cookie, $template->output;
--