Attachment #50179 for bug #15451

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




<script type="text/javascript">
//<![CDATA[
function reloadPage(p) {
    var id = p.value;
    if (id != 0) { document.location = "/cgi-bin/koha/tools/csv-profiles.pl?op=add_form&amp;export_format_id=" + id; }
}
     $(document).ready(function() {
        $("#type").change(function(){

        $("#profile_type").find("option:first").attr("selected", "selected");
        $("#csvnew").find("li.marc_specific").show();
        $("#csvnew").find("li.sql_specific").hide();

        $("#profile_type").change(function(){
            if ( $(this).find("option:selected").val() == "marc" ) {
                $("#csvnew li.marc_specific").show();
                $("#new_profile_marc_content").attr("required", "required");
                $("#csvnew li.sql_specific").hide();
                $("#new_profile_sql_content").removeAttr("required");
            } else {
                $("#csvnew li.marc_specific").hide();
                $("#new_profile_marc_content").removeAttr("required");
                $("#csvnew li.sql_specific").show();
                $("#new_profile_sql_content").attr("required", "required");
            }
        });
        $("#modify_profile_type").change(function(){
            if ( $(this).find("option:selected").val() == "marc" ) {
                $("li.marc_specific").show();
                $("#marc_content").attr("required", "required");
                $("li.sql_specific").hide();
                $("#sql_content").removeAttr("required");
            } else {
                $("li.marc_specific").hide();
                $("#marc_content").removeAttr("required");
                $("li.sql_specific").show();
                $("#sql_content").attr("required", "required");
            }
        });
        $("#type").change();
        $("#modify_profile_type").change();
     });
//]]>
</script>
</head>

<body id="tools_csv-profiles" class="tools">
[% INCLUDE 'header.inc' %]
[% INCLUDE 'cat-search.inc' %]

<div id="breadcrumbs">
    <a href="/cgi-bin/koha/mainpage.pl">Home</a>
    &rsaquo; <a href="/cgi-bin/koha/tools/tools-home.pl">Tools</a>
    &rsaquo; CSV export profiles
</div>

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

[% FOR m IN messages %]
    <div class="dialog [% m.type %]">
        [% SWITCH m.code %]
        [% CASE 'error_on_update' %]
            An error occurred when updating this CSV profile. Perhaps it already exists.
        [% CASE 'error_on_insert' %]
            An error occurred when adding this CSV profile.
        [% CASE 'error_on_delete' %]
            An error occurred when deleting this CSV profile. Check the logs.
        [% CASE 'success_on_update' %]
            CSV profile updated successfully.
        [% CASE 'success_on_insert' %]
            CSV profile added successfully.
        [% CASE 'success_on_delete' %]
            CSV profile deleted successfully.
        [% CASE 'already_exists' %]
            This CSV profile already exists.
        [% CASE %]
            [% m.code %]
        [% END %]
    </div>
[% END %]

[% BLOCK list_separator_options %]
    [% IF selected_separator == ',' %]
        <option value="," selected="selected">Comma (,)</option>
    [% ELSE %]
        <option value=",">Comma (,)</option>
    [% END %]
    [% IF selected_separator == '|' %]
        <option value="|" selected="selected">Pipe (|)</option>
    [% ELSE %]
        <option value="|">Pipe (|)</option>
    [% END %]
    [% IF selected_separator == ';' %]
        <option value=";" selected="selected">Semi-colon (;)</option>
    [% ELSE %]
        <option value=";">Semi-colon (;)</option>
    [% END %]
    [% IF selected_separator == '#' %]
        <option value="#" selected="selected">Sharp (#)</option>
    [% ELSE %]
        <option value="#">Sharp (#)</option>
    [% END %]
    [% IF selected_separator == ' ' %]
        <option value=" " selected="selected">Space ( )</option>
    [% ELSE %]
        <option value=" ">Space ( )</option>
    [% END %]
    [% IF selected_separator == '\t' %]
        <option value="\t" selected="selected">Tabulation (\t)</option>
    [% ELSE %]
        <option value="\t">Tabulation (\t)</option>
    [% END %]
    [% IF selected_separator == '\n' %]
        <option value="\n" selected="selected">New line (\n)</option>
    [% ELSE %]
        <option value="\n">New line (\n)</option>
    [% END %]
[% END %]

[% IF op == 'add_form' %]
    [% IF csv_profile %]
        <h1>Modify a CSV profile</h1>
    [% ELSE %]
        <h1>New CSV profile</h1>
    [% END %]

    <form action="/cgi-bin/koha/tools/csv-profiles.pl" class="validated" method="post">
        <input type="hidden" name="op" value="add_validate" />
        <input type="hidden" name="export_format_id" value="[% csv_profile.export_format_id %]" />
        <fieldset class="rows">
            <ol>
                [% IF csv_profile %]
                    <li><span class="label">Profile ID: </span>[% csv_profile.export_format_id %]</li>
                [% END %]
                <li>
                    <label for="profile" class="required">Profile name: </label>
                    <input type="text" name="profile" id="profile" value="[% csv_profile.profile %]" class="required">
                    <span class="required">Required</span>
                </li>
                <li>
                    <label for="type" class="required">Profile type: </label>
                    <select id="type" name="type">
                        [% IF csv_profile.type == 'sql' %]
                            <option value="marc">MARC</option>
                            <option value="sql" selected="selected">SQL</option>
                        [% ELSE %]
                            <option value="marc" selected="selected">MARC</option>
                            <option value="sql">SQL</option>
                        [% END %]
                    </select>
                    <span class="required">Required</span>
                </li>
                <li>
                    <label for="description">Profile description: </label>
                    <textarea cols="50" rows="2" name="description" id="description">[% csv_profile.description %]</textarea>
                </li>
                <li>
                    <label for="csv_separator">CSV separator: </label>
                    <select name="csv_separator" id="csv_separator">
                        [% PROCESS list_separator_options selected_separator=csv_profile.csv_separator || ',' %]
                    </select>
                </li>

                <li class="marc_specific">
                    <label for="field_separator">Field separator: </label>
                    <select name="field_separator" id="field_separator">
                        [% PROCESS list_separator_options selected_separator=csv_profile.field_separator || '#' %]
                    </select>
                </li>

                <li class="marc_specific"><label for="subfield_separator">Subfield separator: </label>
                    <select name="subfield_separator" id="subfield_separator">
                        [% PROCESS list_separator_options selected_separator=csv_profile.subfield_separator || '|'%]
                    </select>
                </li>

                <li class="marc_specific"><label for="encoding">Encoding: </label>
                    <select name="encoding" id="encoding">
                        [% FOREACH encoding IN encodings %]
                            [% IF csv_profile.encoding == encoding
                                OR NOT csv_profile AND encoding == 'utf8' %]
                                <option selected="selected">[% encoding %]</option>
                            [% ELSE %]
                                <option>[% encoding %]</option>
                            [% END %]
                        [% END %]
                    </select>
                </li>

                <li class="marc_specific">
                    <label for="marc_content" class="required">Profile MARC fields: </label>
                    <textarea cols="50" rows="2" name="marc_content" id="marc_content">[% csv_profile.content %]</textarea>
                    <span class="required">Required</span>
                    <p>You have to define which fields or subfields you want to export, separated by pipes.</p>
                    <p>You can also use your own headers (instead of the ones from Koha) by prefixing the field number with an header, followed by the equal sign.</p>
                    <p>Example: Personal name=200|Entry element=210$a|300|009</p>
                    <p>You can use Template Toolkit tags too. See the help page for more information.</p>
                </li>

                <li class="sql_specific">
                  <label for="sql_content" class="required">Profile SQL fields: </label>
                  <textarea cols="50" rows="2" name="sql_content" id="sql_content">[% csv_profile.content %]</textarea>
                  <p>You have to define which fields you want to export, separated by pipes.</p>
                  <p>You can also use your own headers (instead of the ones from Koha) by prefixing the field name with an header, followed by the equal sign.</p>
                  <p>Example: Name=subscription.name|Title=subscription.title|Issue number=serial.serialseq</p>
                </li>
            </ol>
        </fieldset>
        <fieldset class="action">
            <input type="submit" value="Submit" />
            <a class="cancel" href="/cgi-bin/koha/tools/csv-profiles.pl">Cancel</a>
        </fieldset>
    </form>
[% END %]

[% IF op == 'delete_confirm' %]
    <div class="dialog alert">
        <h3>Delete CSV Profile "[% csv_profile.profile %]?"</h3>
        <form action="/cgi-bin/koha/tools/csv-profiles.pl" method="post">
            <input type="hidden" name="op" value="delete_confirmed" />
            <input type="hidden" name="export_format_id" value="[% csv_profile.export_format_id %]" />
            <input type="submit" class="approve" value="Yes, delete" />
        </form>
        <form action="/cgi-bin/koha/tools/csv-profiles.pl" method="get">
            <input type="submit" class="deny" value="No, do not Delete" />
        </form>
    </div>
[% END %]

[% IF op == 'list' %]
						    <select name="field_separator" id="new_field_separator">
							<option value=":">Colon (:)</option>
							<option value=",">Comma (,)</option>
							<option value="|">Pipe (|)</option>
							<option value=";">Semi-colon (;)</option>
							<option value="#" selected="selected">Sharp (#)</option>
							<option value=" ">Space ( )</option>
							<option value="\t">Tabulation (\t)</option>
							<option value="\n">New line (\n)</option>
						    </select>
                            </li>

    <div id="toolbar" class="btn-toolbar">
        <a class="btn btn-small" id="newcsvprofile" href="/cgi-bin/koha/tools/csv-profiles.pl?op=add_form"><i class="fa fa-plus"></i> New CSV profile</a>
    </div>
							<option value=",">Comma (,)</option>
							<option value="|" selected="selected">Pipe (|)</option>
							<option value=";">Semi-colon (;)</option>
							<option value="#">Sharp (#)</option>
							<option value=" ">Space ( )</option>
							<option value="\t">Tabulation (\t)</option>
							<option value="\n">New line (\n)</option>
						    </select>
                            </li>
					
                            <li class="marc_specific"><label for="new_encoding">Encoding: </label>
						    <select name="encoding" id="new_encoding">
							[% FOREACH encoding IN encodings %]
                                [% IF ( encoding.encoding == 'utf8' ) %]
									<option selected="selected">[% encoding.encoding %]</option>
								[% ELSE %]
									<option>[% encoding.encoding %]</option>
								[% END %]
							[% END %]
						    </select></li>

    <h2>CSV profiles</h2>

    [% IF csv_profiles%]
        <table id="table_csv_profiles">
            <thead>
                <th>CSV profile ID</th>
                <th>Name</th>
                <th>Description</th>
                <th>Content</th>
                <th>CSV separator</th>
                <th>CSV type</th>
                <th>&nbsp;</th>
                <th>&nbsp;</th>
            </thead>
            <tbody>
                [% FOREACH csv_profile IN csv_profiles %]
                <tr>
                    <td>[% csv_profile.export_format_id %]</td>
                    <td>[% csv_profile.profile %]</td>
                    <td>[% csv_profile.description %]</td>
                    <td>[% csv_profile.content %]</td>
                    <td>[% csv_profile.csv_separator %]</td>
                    [% IF csv_profile.type == 'sql' %]
                        <td>SQL</td>
                    [% ELSE %]
                        <td>MARC</td>
                    [% END %]
                    <td><a href="/cgi-bin/koha/tools/csv-profiles.pl?op=add_form&amp;export_format_id=[% csv_profile.export_format_id %]">Edit</a></td>
                    <td><a href="/cgi-bin/koha/tools/csv-profiles.pl?op=delete_confirm&amp;export_format_id=[% csv_profile.export_format_id %]">Delete</a></td>
                </tr>
                [% END %]
            </tbody>
        </table>
    [% ELSE %]
        There is no CSV profile defined. <a href="/cgi-bin/koha/tools/csv-profiles.pl?op=add_form">Create a new CSV profile</a>.
    [% END %]
[% END %]

                            <li class="marc_specific">
                                <label for="new_profile_marc_content" class="required">Profile MARC fields: </label>
                                <textarea cols="50" rows="2" name="profile_marc_content" id="new_profile_marc_content"></textarea>
                                <span class="required">Required</span>
						    <p>You have to define which fields or subfields you want to export, separated by pipes.</p>
                            <p>You can also use your own headers (instead of the ones from Koha) by prefixing the field number with an header, followed by the equal sign.</p>
						    <p>Example: Personal name=200|Entry element=210$a|300|009</p>
                            <p>You can use Template Toolkit tags too. See the help page for more information.</p>
						    </li>
                            <li class="sql_specific">
                              <label for="new_profile_sql_content" class="required">Profile SQL fields: </label>
                              <textarea cols="50" rows="2" name="profile_sql_content" id="new_profile_sql_content"></textarea>
                              <p>You have to define which fields you want to export, separated by pipes.</p>
                              <p>You can also use your own headers (instead of the ones from Koha) by prefixing the field name with an header, followed by the equal sign.</p>
                              <p>Example: Name=subscription.name|Title=subscription.title|Issue number=serial.serialseq</p>
                            </li>
						    </ol>
						</fieldset>
						<fieldset class="action"><input type="hidden" name="action" value="create" />
						<input type="submit" value="Submit" /></fieldset>
					    </form>
					    <br style="clear:both;" />
</div>
					[% IF ( existing_profiles ) %]
<div id="csvedit">
					<h3>Modify or delete a CSV export profile</h3>

                        <form action="/cgi-bin/koha/tools/csv-profiles.pl" class="validated" method="post">
						<fieldset class="rows">
                            <ol>
                            <li><label for="modify_profile_name" class="required">Profile name: </label>
                                <select id="modify_profile_name" name="profile_name" required="required" class="required" onchange="reloadPage(this)">
							<option value="0">-- Choose One --</option>
							[% FOREACH existing_profile IN existing_profiles %]
							[% IF ( existing_profile.export_format_id == selected_profile_id ) %]
							<option value="[% existing_profile.export_format_id %]" selected="selected">[% existing_profile.profile %]</option>
							[% ELSE %]
							<option value="[% existing_profile.export_format_id %]">[% existing_profile.profile %]</option>
							[% END %]
							[% END %]
                            </select>
                            <span class="required">Required</span>
                            </li>

                            <li>
                              <label for="modify_profile_type" class="required">Profile type: </label>
                              <select id="modify_profile_type" name="profile_type" class="required" required="required">
                                <option value="marc">MARC</option>
                                [% IF selected_profile_type == "sql" %]
                                  <option value="sql" selected="selected">SQL</option>
                                [% ELSE %]
                                  <option value="sql">SQL</option>
                                [% END %]
                              </select>
                                <span class="required">Required</span>
                            </li>


						    <li><label for="modify_profile_description">Profile description: </label>
						    <textarea cols="50" rows="2" name="profile_description" id="modify_profile_description">[% selected_profile_description %]</textarea></li>

						    <li><label for="csv_separator">CSV separator: </label>
						    <select name="csv_separator" id="csv_separator">
								<option value=":">Colon (:)</option>
								[% IF ( selected_csv_separator == ',' ) %]
								<option value="," selected="selected">Comma (,)</option>
								[% ELSE %]
								<option value=",">Comma (,)</option>
								[% END %]
								[% IF ( selected_csv_separator == '|' ) %]
								<option value="|" selected="selected">Pipe (|)</option>
								[% ELSE %]
								<option value="|">Pipe (|)</option>
								[% END %]
								[% IF ( selected_csv_separator == ';' ) %]
								<option value=";" selected="selected">Semi-colon (;)</option>
								[% ELSE %]
								<option value=";">Semi-colon (;)</option>
								[% END %]
								[% IF ( selected_csv_separator == '#' ) %]
								<option value="#" selected="selected">Sharp (#)</option>
								[% ELSE %]
								<option value="#">Sharp (#)</option>
								[% END %]
								[% IF ( selected_csv_separator == ' ' ) %]
								<option value=" " selected="selected">Space ( )</option>
								[% ELSE %]
								<option value=" ">Space ( )</option>
								[% END %]
								[% IF ( selected_csv_separator == '\t' ) %]
								<option value="\t" selected="selected">Tabulation (\t)</option>
								[% ELSE %]
								<option value="\t">Tabulation (\t)</option>
								[% END %]
						    	[% IF ( selected_csv_separator == '\n' ) %]
								<option value="\n" selected="selected">New line (\n)</option>
								[% ELSE %]
								<option value="\n">New line (\n)</option>
								[% END %]
                            </select></li>

                            <li class="marc_specific"><label for="field_separator">Field separator: </label>
						    <select name="field_separator" id="field_separator">
                                <option value=":">Colon (:)</option>

                                [% IF ( selected_field_separator == ',' ) %]
                                <option value="," selected="selected">Comma (,)</option>
                                [% ELSE %]
                                <option value=",">Comma (,)</option>
								[% END %]

                                [% IF ( selected_field_separator == '|' ) %]
                                <option value="|" selected="selected">Pipe (|)</option>
                                [% ELSE %]
                                <option value="|">Pipe (|)</option>
                                [% END %]

                                [% IF ( selected_field_separator == ';' ) %]
                                <option value=";" selected="selected">Semi-colon (;)</option>
                                [% ELSE %]
                                <option value=";">Semi-colon (;)</option>
                                [% END %]

                                [% IF ( selected_field_separator == '#' ) %]
                                <option value="#" selected="selected">Sharp (#)</option>
                                [% ELSE %]
                                <option value="#">Sharp (#)</option>
                                [% END %]

                                [% IF ( selected_field_separator == ' ' ) %]
                                <option value=" " selected="selected">Space ( )</option>
                                [% ELSE %]
                                <option value=" ">Space ( )</option>
                                [% END %]

                                [% IF ( selected_field_separator == '\t' ) %]
                                <option value="\t" selected="selected">Tabulation (\t)</option>
                                [% ELSE %]
                                <option value="\t">Tabulation (\t)</option>
                                [% END %]
						    	[% IF ( selected_field_separator == '\n' ) %]
								<option value="\n" selected="selected">New line (\n)</option>
								[% ELSE %]
								<option value="\n">New line (\n)</option>
								[% END %]
						    </select></li>


                            <li class="marc_specific"><label for="subfield_separator">Subfield separator: </label>
						    <select name="subfield_separator" id="subfield_separator">
                                <option value=":">Colon (:)</option>

                                [% IF ( selected_subfield_separator == ',' ) %]
                                <option value="," selected="selected">Comma (,)</option>
                                [% ELSE %]
                                <option value=",">Comma (,)</option>
                                [% END %]

                                [% IF ( selected_subfield_separator == '|' ) %]
                                <option value="|" selected="selected">Pipe (|)</option>
                                [% ELSE %]
                                <option value="|">Pipe (|)</option>
                                [% END %]

								[% IF ( selected_subfield_separator == ';' ) %]
                                <option value=";" selected="selected">Semi-colon (;)</option>
                                [% ELSE %]
                                <option value=";">Semi-colon (;)</option>
                                [% END %]

								[% IF ( selected_subfield_separator == '#' ) %]
                                <option value="#" selected="selected">Sharp (#)</option>
                                [% ELSE %]
                                <option value="#">Sharp (#)</option>
                                [% END %]

								[% IF ( selected_subfield_separator == ' ' ) %]
                                <option value=" " selected="selected">Space ( )</option>
                                [% ELSE %]
                                <option value=" ">Space ( )</option>
                                [% END %]

								[% IF ( selected_subfield_separator == '\t' ) %]
                                <option value="\t" selected="selected">Tabulation (\t)</option>
                                [% ELSE %]
                                <option value="\t">Tabulation (\t)</option>
                                [% END %]
						    	[% IF ( selected_subfield_separator == '\n' ) %]
								<option value="\n" selected="selected">New line (\n)</option>
								[% ELSE %]
								<option value="\n">New line (\n)</option>
                                [% END %]
	
						    </select></li>

                            <li class="marc_specific"><label for="encoding">Encoding: </label>
						    <select name="encoding" id="encoding">
							[% FOREACH encoding IN encodings %]
                                [% IF ( selected_encoding == encoding.encoding ) %]
							    <option selected="selected">[% encoding.encoding %]</option>
							    [% ELSE %]
							    <option>[% encoding.encoding %]</option>
							    [% END %]
							[% END %]
						    </select></li>

                            <li class="marc_specific">
                                <label for="modify_profile_marc_content" class="required">Profile MARC fields: </label>
                                <textarea cols="50" rows="2" name="profile_marc_content" id="modify_profile_marc_content" class="required" required="required">[% selected_profile_content %]</textarea>
                                <span class="required">Required</span>
                            </li>

                            <li class="sql_specific">
                              <label for="modify_profile_sql_content" class="required">Profile SQL fields: </label>
                              <textarea cols="50" rows="2" name="profile_sql_content" id="modify_profile_sql_content">[% selected_profile_content %]</textarea>
                            </li>

						   <li class="radio"> <label for="delete">Delete selected profile?</label>
						    <input type="checkbox" name="delete" id="delete" /></li>
						    </ol>

						</fieldset>

						<fieldset class="action"><input type="hidden" name="modify_profile_id" value="[% selected_profile_id %]" />
						<input type="hidden" name="action" value="edit" />
						<input type="submit" value="Submit" /> <a href="/cgi-bin/koha/tools/csv-profiles.pl" class="cancel">Cancel</a></fieldset>
					    </form>
</div>
<div class="yui-b noprint">
[% INCLUDE 'tools-menu.inc' %]
</div>
</div>
[% INCLUDE 'intranet-bottom.inc' %]
		    <div class="yui-b noprint">
        [% INCLUDE 'tools-menu.inc' %]
    </div>
	</div>
	[% INCLUDE 'intranet-bottom.inc' %]




#!/usr/bin/perl

# Copyright 2009 BibLibre
# Copyright 2015 Koha Development Team
#
# This file is part of Koha.
#


=cut

use Modern::Perl;
#use warnings; FIXME - Bug 2505
use Data::Dumper;
use Encode;

use C4::Auth;

use C4::Output;
use CGI qw ( -utf8 );
use C4::Koha;
use Koha::CsvProfiles;

my $input            = new CGI;
my $export_format_id = $input->param('export_format_id');
my $op               = $input->param('op') || 'list';
my @messages;

# open template
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
    {   template_name   => "tools/csv-profiles.tt",
        template_name   => "tools/csv-profiles.tt",
        query           => $input,
        type            => "intranet",
        authnotrequired => 0,

);

# Getting available encodings list
$template->param( encodings => [ Encode->encodings ] );
my @encodings_loop = map{{encoding => $_}} @encodings;
$template->param(encodings => \@encodings_loop);

my $profile_name        = $input->param("profile_name");
my $profile_description = $input->param("profile_description");
my $csv_separator       = $input->param("csv_separator");
my $field_separator     = $input->param("field_separator");
my $subfield_separator  = $input->param("subfield_separator");
my $encoding            = $input->param("encoding");
my $type                = $input->param("profile_type");
my $action              = $input->param("action");
my $delete              = $input->param("delete");
my $id                  = $input->param("id");
if ($delete) { $action = "delete"; }

my $profile_content = $type eq "marc"
    ? $input->param("profile_marc_content")
    : $input->param("profile_sql_content");

if ($profile_name && $profile_content && $action) {
    my $rows;

    if ($action eq "create") {
    my $query = "INSERT INTO export_format(export_format_id, profile, description, content, csv_separator, field_separator, subfield_separator, encoding, type) VALUES (NULL, ?, ?, ?, ?, ?, ?, ?, ?)";
	my $sth   = $dbh->prepare($query);
    $rows  = $sth->execute($profile_name, $profile_description, $profile_content, $csv_separator, $field_separator, $subfield_separator, $encoding, $type);
    
    }

if ( $op eq 'add_form' ) {
    my $csv_profile;
    if ($export_format_id) {
        $csv_profile = Koha::CsvProfiles->find($export_format_id);
    }
    $template->param( csv_profile => $csv_profile, );
} elsif ( $op eq 'add_validate' ) {
    my $profile     = $input->param("profile");
    my $description = $input->param("description");
    my $type        = $input->param("type");
    my $content =
        $type eq "marc"
      ? $input->param("marc_content")
      : $input->param("sql_content");
    my $csv_separator      = $input->param("csv_separator");
    my $field_separator    = $input->param("field_separator");
    my $subfield_separator = $input->param("subfield_separator");
    my $encoding           = $input->param("encoding");

    if ($export_format_id) {
        my $csv_profile = Koha::CsvProfiles->find($export_format_id);
        $csv_profile->profile($profile);
        $csv_profile->description($description);
        $csv_profile->content($content);
        $csv_profile->csv_separator($csv_separator);
        $csv_profile->field_separator($field_separator);
        $csv_profile->subfield_separator($subfield_separator);
        $csv_profile->encoding($encoding);
        $csv_profile->type($type);
        eval { $csv_profile->store; };

        if ($@) {
            push @messages, { type => 'error', code => 'error_on_update' };
        } else {
            push @messages, { type => 'message', code => 'success_on_update' };
        }
    } else {
        my $csv_profile = Koha::CsvProfile->new(
            {   profile            => $profile,
                description        => $description,
                content            => $content,
                csv_separator      => $csv_separator,
                field_separator    => $field_separator,
                subfield_separator => $subfield_separator,
                encoding           => $encoding,
                type               => $type,
            }
        );
        eval { $csv_profile->store; };
        if ($@) {
            push @messages, { type => 'error', code => 'error_on_insert' };
        } else {
            push @messages, { type => 'message', code => 'success_on_insert' };
        }
    }
    $op = 'list';
} elsif ( $op eq 'delete_confirm' ) {
    my $csv_profile = Koha::CsvProfiles->find($export_format_id);
    $template->param( csv_profile => $csv_profile, );
} elsif ( $op eq 'delete_confirmed' ) {
    my $csv_profile = Koha::CsvProfiles->find($export_format_id);
    my $deleted = eval { $csv_profile->delete; };

    if ( $@ or not $deleted ) {
        push @messages, { type => 'error', code => 'error_on_delete' };
    } else {
        push @messages, { type => 'message', code => 'success_on_delete' };
    }
    $op = 'list';
}

if ( $op eq 'list' ) {
    my $csv_profiles = Koha::CsvProfiles->search;
    $template->param( csv_profiles => $csv_profiles, );
}
	$sth = $dbh->prepare($query);

	$sth->execute($id);
	my $selected_profile = $sth->fetchrow_arrayref();
	$template->param(
	    selected_profile_id          => $selected_profile->[0],
	    selected_profile_name        => $selected_profile->[1],
	    selected_profile_description => $selected_profile->[2],
        selected_profile_content     => $selected_profile->[3],
	    selected_csv_separator       => $selected_profile->[4],
	    selected_field_separator     => $selected_profile->[5],
	    selected_subfield_separator  => $selected_profile->[6],
        selected_encoding            => $selected_profile->[7],
        selected_profile_type        => $selected_profile->[8]
	);

    }

$template->param(
    messages => \@messages,
    op       => $op,
);

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

Return to bug 15451

Lines 1-6 Link Here

(-)a/tools/csv-profiles.pl (-77 / +84 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	# Copyright 2009 BibLibre	3	# Copyright 2009 BibLibre
		4	# Copyright 2015 Koha Development Team
4	#	5	#
5	# This file is part of Koha.	6	# This file is part of Koha.
6	#	7	#
Lines 33-41 This script allow the user to define a new profile for CSV export Link Here
33		34
34	=cut	35	=cut
35		36
36	use strict;	37	use Modern::Perl;
37	#use warnings; FIXME - Bug 2505
38	use Data::Dumper;
39	use Encode;	38	use Encode;
40		39
41	use C4::Auth;	40	use C4::Auth;
Lines 43-57 use C4::Context; Link Here
43	use C4::Output;	42	use C4::Output;
44	use CGI qw ( -utf8 );	43	use CGI qw ( -utf8 );
45	use C4::Koha;	44	use C4::Koha;
46	use C4::Csv;	45	use Koha::CsvProfiles;
47		46
48	my $input = new CGI;	47	my $input = new CGI;
49	my $dbh = C4::Context->dbh;	48	my $export_format_id = $input->param('export_format_id');
		49	my $op = $input->param('op') \|\| 'list';
		50	my @messages;
50		51
51	# open template
52	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(	52	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
53	{	53	{ template_name => "tools/csv-profiles.tt",
54	template_name => "tools/csv-profiles.tt",
55	query => $input,	54	query => $input,
56	type => "intranet",	55	type => "intranet",
57	authnotrequired => 0,	56	authnotrequired => 0,
Lines 61-138 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
61	);	60	);
62		61
63	# Getting available encodings list	62	# Getting available encodings list
64	my @encodings = Encode->encodings();	63	$template->param( encodings => [ Encode->encodings ] );
65	my @encodings_loop = map{{encoding => $_}} @encodings;
66	$template->param(encodings => \@encodings_loop);
67
68	my $profile_name = $input->param("profile_name");
69	my $profile_description = $input->param("profile_description");
70	my $csv_separator = $input->param("csv_separator");
71	my $field_separator = $input->param("field_separator");
72	my $subfield_separator = $input->param("subfield_separator");
73	my $encoding = $input->param("encoding");
74	my $type = $input->param("profile_type");
75	my $action = $input->param("action");
76	my $delete = $input->param("delete");
77	my $id = $input->param("id");
78	if ($delete) { $action = "delete"; }
79
80	my $profile_content = $type eq "marc"
81	? $input->param("profile_marc_content")
82	: $input->param("profile_sql_content");
83
84	if ($profile_name && $profile_content && $action) {
85	my $rows;
86
87	if ($action eq "create") {
88	my $query = "INSERT INTO export_format(export_format_id, profile, description, content, csv_separator, field_separator, subfield_separator, encoding, type) VALUES (NULL, ?, ?, ?, ?, ?, ?, ?, ?)";
89	my $sth = $dbh->prepare($query);
90	$rows = $sth->execute($profile_name, $profile_description, $profile_content, $csv_separator, $field_separator, $subfield_separator, $encoding, $type);
91
92	}
93		64
94	if ($action eq "edit") {	65	if ( $op eq 'add_form' ) {
95	my $query = "UPDATE export_format SET description=?, content=?, csv_separator=?, field_separator=?, subfield_separator=?, encoding=?, type=? WHERE export_format_id=? LIMIT 1";	66	my $csv_profile;
96	my $sth = $dbh->prepare($query);	67	if ($export_format_id) {
97	$rows = $sth->execute($profile_description, $profile_content, $csv_separator, $field_separator, $subfield_separator, $encoding, $type, $profile_name);	68	$csv_profile = Koha::CsvProfiles->find($export_format_id);
98	}	69	}
99		70	$template->param( csv_profile => $csv_profile, );
100	if ($action eq "delete") {	71	} elsif ( $op eq 'add_validate' ) {
101	my $query = "DELETE FROM export_format WHERE export_format_id=? LIMIT 1";	72	my $profile = $input->param("profile");
102	my $sth = $dbh->prepare($query);	73	my $description = $input->param("description");
103	$rows = $sth->execute($profile_name);	74	my $type = $input->param("type");
104		75	my $content =
		76	$type eq "marc"
		77	? $input->param("marc_content")
		78	: $input->param("sql_content");
		79	my $csv_separator = $input->param("csv_separator");
		80	my $field_separator = $input->param("field_separator");
		81	my $subfield_separator = $input->param("subfield_separator");
		82	my $encoding = $input->param("encoding");
		83
		84	if ($export_format_id) {
		85	my $csv_profile = Koha::CsvProfiles->find($export_format_id);
		86	$csv_profile->profile($profile);
		87	$csv_profile->description($description);
		88	$csv_profile->content($content);
		89	$csv_profile->csv_separator($csv_separator);
		90	$csv_profile->field_separator($field_separator);
		91	$csv_profile->subfield_separator($subfield_separator);
		92	$csv_profile->encoding($encoding);
		93	$csv_profile->type($type);
		94	eval { $csv_profile->store; };
		95
		96	if ($@) {
		97	push @messages, { type => 'error', code => 'error_on_update' };
		98	} else {
		99	push @messages, { type => 'message', code => 'success_on_update' };
		100	}
		101	} else {
		102	my $csv_profile = Koha::CsvProfile->new(
		103	{ profile => $profile,
		104	description => $description,
		105	content => $content,
		106	csv_separator => $csv_separator,
		107	field_separator => $field_separator,
		108	subfield_separator => $subfield_separator,
		109	encoding => $encoding,
		110	type => $type,
		111	}
		112	);
		113	eval { $csv_profile->store; };
		114	if ($@) {
		115	push @messages, { type => 'error', code => 'error_on_insert' };
		116	} else {
		117	push @messages, { type => 'message', code => 'success_on_insert' };
		118	}
105	}	119	}
106		120	$op = 'list';
107	$rows ? $template->param(success => 1) : $template->param(error => 1);	121	} elsif ( $op eq 'delete_confirm' ) {
108	$template->param(profile_name => $profile_name);	122	my $csv_profile = Koha::CsvProfiles->find($export_format_id);
109	$template->param(action => $action);	123	$template->param( csv_profile => $csv_profile, );
110		124	} elsif ( $op eq 'delete_confirmed' ) {
		125	my $csv_profile = Koha::CsvProfiles->find($export_format_id);
		126	my $deleted = eval { $csv_profile->delete; };
		127
		128	if ( $@ or not $deleted ) {
		129	push @messages, { type => 'error', code => 'error_on_delete' };
		130	} else {
		131	push @messages, { type => 'message', code => 'success_on_delete' };
		132	}
		133	$op = 'list';
111	}	134	}
112		135
113	# If a profile has been selected for modification	136	if ( $op eq 'list' ) {
114	if ($id) {	137	my $csv_profiles = Koha::CsvProfiles->search;
115	my $query = "SELECT export_format_id, profile, description, content, csv_separator, field_separator, subfield_separator, encoding, type FROM export_format WHERE export_format_id = ?";	138	$template->param( csv_profiles => $csv_profiles, );
116	my $sth;	139	}
117	$sth = $dbh->prepare($query);
118
119	$sth->execute($id);
120	my $selected_profile = $sth->fetchrow_arrayref();
121	$template->param(
122	selected_profile_id => $selected_profile->[0],
123	selected_profile_name => $selected_profile->[1],
124	selected_profile_description => $selected_profile->[2],
125	selected_profile_content => $selected_profile->[3],
126	selected_csv_separator => $selected_profile->[4],
127	selected_field_separator => $selected_profile->[5],
128	selected_subfield_separator => $selected_profile->[6],
129	selected_encoding => $selected_profile->[7],
130	selected_profile_type => $selected_profile->[8]
131	);
132
133	}
134		140
135	# List of existing profiles	141	$template->param(
136	$template->param(existing_profiles => GetCsvProfilesLoop());	142	messages => \@messages,
		143	op => $op,
		144	);
137		145
138	output_html_with_http_headers $input, $cookie, $template->output;	146	output_html_with_http_headers $input, $cookie, $template->output;
139	-