# TODO This script drives the CRUD operations on the letter table
# The DB interaction should be handled by calls to C4/Letters.pm
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Output;
use C4::Letters;
-use C4::Members::Attributes;
+
+use Koha::Patron::Attribute::Types;
# $protected_letters = protected_letters()
# - return a hashref of letter_codes representing letters that should never be deleted
my $module = $input->param('module') || '';
my $content = $input->param('content');
my $op = $input->param('op') || '';
+my $redirect = $input->param('redirect');
my $dbh = C4::Context->dbh;
our ( $template, $borrowernumber, $cookie, $staffflags ) = get_template_and_user(
if ( $op eq 'add_validate' or $op eq 'copy_validate' ) {
add_validate();
- $op = q{}; # we return to the default screen for the next operation
+ if( $redirect eq "just_save" ){
+ print $input->redirect("/cgi-bin/koha/tools/letter.pl?op=add_form&branchcode=$branchcode&module=$module&code=$code&redirect=done");
+ exit;
+ } else {
+ $op = q{}; # we return to the default screen for the next operation
+ }
}
if ($op eq 'copy_form') {
my $oldbranchcode = $input->param('oldbranchcode') || q||;
}
}
+ my $preview_is_available = grep {/^$code$/} qw(
+ CHECKIN CHECKOUT HOLD_SLIP
+ );
$template->param(
module => $module,
SQLfieldnames => $field_selection,
branchcode => $branchcode,
+ preview_is_available => $preview_is_available,
);
return;
}
q{
UPDATE letter
SET branchcode = ?, module = ?, name = ?, is_html = ?, title = ?, content = ?, lang = ?
- WHERE branchcode = ? AND module = ? AND code = ? AND message_transport_type = ?
+ WHERE branchcode = ? AND module = ? AND code = ? AND message_transport_type = ? AND lang = ?
},
undef,
$branchcode || '', $module, $name, $is_html || 0, $title, $content, $lang,
- $branchcode, $oldmodule, $code, $mtt
+ $branchcode, $oldmodule, $code, $mtt, $lang
);
} else {
$dbh->do(
}
}
if ($table eq 'borrowers') {
- if ( my $attributes = C4::Members::Attributes::GetAttributes() ) {
- foreach (@$attributes) {
- push @fields, {
- value => "borrower-attribute:$_",
- text => "attribute:$_",
- }
+ my $attribute_types = Koha::Patron::Attribute::Types->search(
+ {},
+ { order_by => 'code' },
+ );
+ while ( my $at = $attribute_types->next ) {
+ push @fields, {
+ value => "borrower-attribute:" . $at->code,
+ text => "attribute:" . $at->code,
}
}
}