new                  => undef,

            $item->{'new'},

=head2 columns

  my @columns = C4::Items::columns();

Returns an array of items' table columns on success,

and an empty array on failure.

=cut

sub columns {

    # Pure ANSI SQL goodness.

    my $sql = 'SELECT * FROM items WHERE 1=0;';

    # Get the database handle.

    my $dbh = C4::Context->dbh;

    # Run the SQL statement to load STH's readonly properties.

    my $sth = $dbh->prepare($sql);

    my $rv = $sth->execute();

    # This only fails if the table doesn't exist.

    # This will always be called AFTER an install or upgrade,

    # so borrowers will exist!

    my @data;

    if ($sth->{NUM_OF_FIELDS}>0) {

        @data = @{$sth->{NAME}};

    }

    else {

        @data = ();

    }

    return @data;

}

sub ToggleNewStatus {

    my ( $params ) = @_;

    my @rules = @{ $params->{rules} };

    my $report_only = $params->{report_only};

    my $dbh = C4::Context->dbh;

    my @errors;

    my @items_columns = C4::Items::columns;

    my $report;

    for my $rule ( @rules ) {

        my $duration = $rule->{duration};

        my $conditions = $rule->{conditions};

        my $substitutions = $rule->{substitutions};

        my @params;

        my $query = q|SELECT biblionumber, itemnumber FROM items WHERE 1 |;

        for my $condition ( @$conditions ) {

            if ( grep {/^$condition->{field}$/} @items_columns ) {

                if ( $condition->{value} =~ /\|/ ) {

                    my @values = split /\|/, $condition->{value};

                    $query .= qq| AND $condition->{field} IN (|

                        . join( ',', ('?') x scalar @values )

                        . q|)|;

                    push @params, @values;

                } else {

                    $query .= qq| AND $condition->{field} = ?|;

                    push @params, $condition->{value};

                }

            }

        }

        if ( defined $duration ) {

            $query .= q| AND TO_DAYS(NOW()) - TO_DAYS(dateaccessioned) >= ? |;

            push @params, $duration;

        }

        my $sth = $dbh->prepare($query);

        $sth->execute( @params );

        while ( my $values = $sth->fetchrow_hashref ) {

            my $biblionumber = $values->{biblionumber};

            my $itemnumber = $values->{itemnumber};

            my $item = C4::Items::GetItem( $itemnumber );

            for my $substitution ( @$substitutions ) {

                C4::Items::ModItem( {$substitution->{field} => $substitution->{value}}, $biblionumber, $itemnumber )

                    unless $report_only;

                push @{ $report->{$itemnumber} }, $substitution;

            }

        }

    }

    return $report;

}

  `new` VARCHAR(32) DEFAULT NULL, -- new flag

  `new` VARCHAR(32) DEFAULT NULL, -- new flag

$DBversion = "3.13.00.XXX";

if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {

    if ( not column_exists( 'new', 'items' ) ) {

        $dbh->do(q{

            ALTER TABLE `items` ADD `new` VARCHAR(32) NULL AFTER `stocknumber`;

        });

        $dbh->do(q{

            ALTER TABLE `deleteditems` ADD `new` VARCHAR(32) NULL AFTER `stocknumber`;

        });

    }

    print "Upgrade to $DBversion done (Bug XXXXX: Adds field 'new' in items and deleteditems tables)\n";

    SetVersion($DBversion);

}

/* Tools > toggle_new_status */

div.rules {

    display: block;

}

div#new_rule, div.rule {

    background-color: #F4F8F9;

    border: 2px solid #B9D8D9;

    border-radius: 5px;

    margin: .3em;

    padding: .3em;

}

div.duration, div.blocks {

    border: 2px solid #B9D8D9;

    border-radius: 5px 5px 5px 5px;

    margin: .3em;

    padding: 0 .3em .3em .3em;

}

div.duration h5, div.blocks h5 {

    padding-bottom: 4px;

    padding-left: 0.2em;

    background-color: #E6F0F2;

    border-radius: 1px;

}

div.duration span, div.blocks div {

    display:block;

}

[% INCLUDE 'doc-head-open.inc' %]

<title>Koha &rsaquo; Tools &rsaquo; Toggle new status</title>

[% INCLUDE 'doc-head-close.inc' %]

<script type="text/javascript">//<![CDATA[

  function clear_inputs(node, new_node) {

    var selects = $(node).find("select");

    $(selects).each(function(i) {

      var select = this;

      $(new_node).find("select").eq(i).val($(select).val());

    });

    var inputs = $(node).find("input");

    $(inputs).each(function(i) {

      var input = this;

      $(new_node).find("input").eq(i).val($(input).val());

    });

  }

  function remove_block_action( link ) {

    var blocks = $(link).parent().parent();

    if( $(blocks).find(".block").length > 2 ) {

      $(blocks).find("a.remove_block").show();

    } else {

      $(blocks).find("a.remove_block").hide();

    }

    $(link).parent().remove();

  }

  function remove_rule_action( link ) {

    if( $("#rules").find("div.rule").length < 2 ) {

        $("#edit_rules").hide();

    }

    $(link).parent().remove();

  }

  function clone_block(block) {

    var new_block = $(block).clone(1);

    clear_inputs(block, new_block);

    $(new_block).find('a.remove_block').show();

    var blocks = $(block).parent();

    $(blocks).append(new_block);

    $(blocks).find('a.remove_block').click(function(){

      remove_block_action($(this));

    }).show();

  }

  $(document).ready(function() {

    $("#new_rule a.remove_rule").hide();

    $("#new_rule a.remove_block").hide();

    $("#rules a.remove_block").click(function(){

      remove_block_action($(this));

    });

    $("#rules a.remove_rule").click(function(){

      remove_rule_action($(this));

    });

    var unique_id = $("div.rule").length + 1;

    $("a.add_rule").click(function(){

      var rule = $("#new_rule");

      var new_rule = $(rule).clone(1);

      $(new_rule).removeAttr('id');

      $(new_rule).attr('class', 'rule');

      clear_inputs(rule, new_rule);

      $(new_rule).find("select[name='condition_field']").attr('name', 'condition_field_' + unique_id);

      $(new_rule).find("select[name='substitution_field']").attr('name', 'substitution_field_' + unique_id);

      $(new_rule).find("input[name='condition_value']").attr('name', 'condition_value_' + unique_id);

      $(new_rule).find("input[name='substitution_value']").attr('name', 'substitution_value_' + unique_id);

      $(new_rule).find("input[name='duration']").attr('name', 'duration_' + unique_id);

      $(new_rule).find("input[name='unique_id']").val(unique_id);

      $("#rules").append(new_rule);

      if( $("#rules").find("div.rule").length > 0 ) {

          $("#edit_rules").show();

      }

      if( $("#rules").find(".conditions > .condition").length > 1 ) {

      }

      if( $("#rules").find(".conditions > .condition").length > 1 ) {

      }

      $(new_rule).find('a.remove_rule').click(function(){

        remove_rule_action( $(this) );

      }).show();

      unique_id++;

    });

    $("a.add_block").click(function(){

      clone_block( $(this).parent() );

    });

    if( $("#rules").find("div.rule").length < 1 ) {

        $("#edit_rules").hide();

    }

    $("#rules .rule .blocks").each(function(){

      if ( $(this).find(".block").length == 1 ) {

        $(this).find("a.remove_block").hide();

      }

    });

  });

//]]>

</script>

</head>

<body id="tools_toggle_new_status" 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; <a href="/cgi-bin/koha/tools/toggle_new_status.pl">Toggle new status</a></div>

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

  <div id="bd">

    <div id="yui-main">

      <div class="yui-b">

        <h3>Toggle new status</h3>

        <div id="toolbar" class="btn-toolbar">

          <a class="btn btn-small" id="newentry" href="/cgi-bin/koha/tools/toggle_new_status.pl?op=edit_form"><i class="icon-plus"></i> Edit</a>

        </div>

        [% FOR message IN messages %]

          [% IF message.type == "error" %]

            <div class="dialog error">

          [% END %]

          [% IF message.code == "unable_to_load_configuration" %]

            An error occurs: Unable to load the configuration.

          [% END %]

          </div>

        [% END %]

        [% IF rules and op == 'edit_form' %]

          <form method="post" action="/cgi-bin/koha/tools/toggle_new_status.pl">

            <div id="edit_rules">

              <div id="rules">

                <h4>List of rules</h4>

                [% FOR rule IN rules %]

                  <div class="rule">

                    <input type="hidden" name="unique_id" value="[% loop.count %]" /> <!-- FIXME on update, the unique_id should be filled -->

                    <div class="duration">

                      <h5>Duration</h5>

                      <input type="text" value="[% rule.duration %]" name="duration_[% loop.count %]" required="required" /> days

                    </div>

                    <div class="blocks">

                      <h5>Conditions</h5>

                      (they are cumulatives but you can separate with a pipe '|' for a field with several values):

                      [% FOR condition IN rule.conditions %]

                        <div class="block">

                          <select name="condition_field_[% loop.count %]">

                            <option value="">Choose a field name</option>

                            [% FOR field IN item_fields %]

                              [% IF condition.field == field %]

                                <option value="[% field %]" selected="selected">items.[% field %]</option>

                              [% ELSE %]

                                <option value="[% field %]">items.[% field %]</option>

                              [% END %]

                            [% END %]

                          </select>

                          =

                          <input type="text" value="[% condition.value %]" name="condition_value_[% loop.count %]" />

                          <a class="add_block" style="cursor:pointer">Add</a>

                          <a class="remove_block" style="cursor:pointer">Remove</a>

                        </div>

                      [% END %]

                    </div>

                    <div class="blocks">

                      <h5>Substitutions</h5>

                      If the value is an empty string, the field will be deleted.

                      [% FOR substitution IN rule.substitutions %]

                        <div class="block">

                          <select name="substitution_field_[% loop.count %]">

                            <option value="">Choose a field name</option>

                            [% FOR field IN item_fields %]

                              [% IF substitution.field == field %]

                                <option value="[% field %]" selected="selected">items.[% field %]</option>

                              [% ELSE %]

                                <option value="[% field %]">items.[% field %]</option>

                              [% END %]

                            [% END %]

                          </select>

                          =

                          <input type="text" value="[% substitution.value %]" name="substitution_value_[% loop.count %]" />

                          <a class="add_block" style="cursor:pointer">Add</a>

                          <a class="remove_block" style="cursor:pointer">Remove</a>

                        </div>

                      [% END %]

                    </div>

                    <a class="remove_rule" style="cursor:pointer">Remove</a>

                  </div>

                [% END %]

              </div>

              <fieldset class="action">

                <input type="hidden" name="op" value="update" />

                <a class="cancel" href="/cgi-bin/koha/tools/toggle_new_status.pl">Cancel</a>

                <input type="submit" value="Submit" />

              </fieldset>

            </div>

          </form>

          <h4>Add a new rule</h4>

          <div id="new_rule">

            <input type="hidden" name="unique_id" />

            <div class="duration">

              <h5>Duration</h5>

              <input type="text" value="" name="duration" required="required" /> days

            </div>

            <div class="blocks">

              <h5>Conditions</h5>

              (they are cumulatives but you can separate with a pipe '|' for a field with several values).

              <div class="block">

                <select name="condition_field">

                  <option value="">Choose a field name</option>

                  [% FOR field IN item_fields %]

                    <option value="[% field %]">items.[% field %]</option>

                  [% END %]

                </select>

                =

                <input type="text" value="" name="condition_value" />

                <a class="add_block" style="cursor:pointer">Add</a>

                <a class="remove_block" style="cursor:pointer">Remove</a>

              </div>

            </div>

            <div class="blocks">

              <h5>Substitutions</h5>

              If the value is an empty string, the field will be deleted.

              <div class="block">

                <select name="substitution_field">

                  <option value="">Choose a field name</option>

                  [% FOR field IN item_fields %]

                    <option value="[% field %]">items.[% field %]</option>

                  [% END %]

                </select>

                =

                <input type="text" value="" name="substitution_value" />

                <a class="add_block" style="cursor:pointer">Add</a>

                <a class="remove_block" style="cursor:pointer">Remove</a>

              </div>

            </div>

          <a class="add_rule" style="cursor:pointer">Add</a>

          <a class="remove_rule" style="cursor:pointer">Remove</a>

          </div>

        [% ELSIF rules and op == 'show' %]

          <div id="rules">

            <h4>List of rules</h4>

            [% FOR rule IN rules %]

              <div class="rule">

                <div class="duration">

                  <h5>Duration</h5>

                  [% rule.duration %] days

                </div>

                <div class="blocks">

                  <h5>Conditions</h5>

                  [% FOR condition IN rule.conditions %]

                    [% IF condition.field %]

                      <div class="block">

                        [% condition.field %] = [% condition.value %]

                      </div>

                    [% ELSE %]

                      There is no condition for this rule.

                    [% END %]

                  [% END %]

                </div>

                <div class="blocks">

                  <h5>Substitutions</h5>

                  [% FOR substitution IN rule.substitutions %]

                    [% IF substitution.field %]

                      <div class="block">

                        [% substitution.field %] = [% substitution.value %]

                      </div>

                    [% ELSE %]

                      There is no substitution for this rule.

                    [% END %]

                  [% END %]

                </div>

              </div>

            [% END %]

          </div>

        [% ELSE %]

          There is no rule defined. Please click on the edit button.

        [% END %]

      </div>

    </div>

  <div class="yui-b noprint">

    [% INCLUDE 'tools-menu.inc' %]

  </div>

</div>

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

    [% IF ( CAN_user_tools_items_batchmod ) %]

      <dt><a href="/cgi-bin/koha/tools/toggle_new_status.pl">Toggle new status</a></dt>

      <dd>Toggle the "new" status for items</dd>

    [% END %]

#!/usr/bin/perl

use Modern::Perl;

use Getopt::Long;

use Pod::Usage;

use JSON;

use C4::Context;

use C4::Items;

# Getting options

my ( $verbose, $help, $confirm );

my $result = GetOptions(

    'h|help'    => \$help,

    'v|verbose' => \$verbose,

    'c|confirm' => \$confirm,

);

pod2usage(1) if $help;

$verbose = 1 unless $confirm;

# Load configuration from the syspref

my $syspref_content = C4::Context->preference('toggle_new_status_configuration');

my $rules = eval { JSON::from_json( $syspref_content ) };

pod2usage({ -message => "Unable to load the configuration : $@", -exitval => 1 })

    if $@;

my $report = C4::Items::ToggleNewStatus( { rules => $rules, report_only => not $confirm } );

if ( $verbose ) {

    if ( $report ) {

        say "Item to modify:";

        while ( my ( $itemnumber, $substitutions ) = each %$report ) {

            for my $substitution ( @$substitutions ) {

                if ( defined $substitution->{value} and $substitution->{value} ne q|| ) {

                   say "\titemnumber $itemnumber: $substitution->{field}=$substitution->{value}";

                } else {

                   say "\titemnumber $itemnumber: field $substitution->{field} to delete";

                }

            }

        }

    } else {

        say "There is no item to modify";

    }

}

exit(0);

__END__

=head1 NAME

toggle_new_status.pl

=head1 SYNOPSIS

./toggle_new_status.pl -h

Toggle recent acquisitions status.

Use this script to delete "new" status for items.

=head1 OPTIONS

=over 8

=item B<-h|--help>

Prints this help message.

=item B<-v|--verbose>

Set the verbose flag.

=item B<-c|--confirm>

The script will modify the items.

=back

=head1 AUTHOR

Jonathan Druart <jonathan.druart@biblibre.com>

=head1 COPYRIGHT

Copyright 2013 BibLibre

=head1 LICENSE

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 <http://www.gnu.org/licenses>.

=cut