Attachment #60624 for bug #12461

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




        my $all_perms = get_all_subpermissions();

        my @flagroots = qw(circulate catalogue parameters borrowers permissions reserveforothers borrow
          editcatalogue updatecharges management tools editauthorities serials reports acquisition clubs);

        # We are going to use the $flags returned by checkauth
        # to create the template's parameters that will indicate

            $template->param( CAN_user_staffaccess      => 1 );
            $template->param( CAN_user_plugins          => 1 );
            $template->param( CAN_user_coursereserves   => 1 );
            $template->param( CAN_user_clubs            => 1 );

            foreach my $module ( keys %$all_perms ) {
                foreach my $subperm ( keys %{ $all_perms->{$module} } ) {
                    $template->param( "CAN_user_${module}_${subperm}" => 1 );
                }





sub GetFirstValidEmailAddress {
    my $borrowernumber = shift;
    my $dbh = C4::Context->dbh;
    my $sth = $dbh->prepare( "SELECT email, emailpro, B_email FROM borrowers where borrowernumber = ? ");
    $sth->execute( $borrowernumber );
    my $data = $sth->fetchrow_hashref;

    my $borrower = Koha::Patrons->find( $borrowernumber );

    return $borrower->first_valid_email_address();
       return $data->{'emailpro'};
    } elsif ($data->{'B_email'}) {
       return $data->{'B_email'};
    } else {
       return '';
    }
}

=head2 GetNoticeEmailAddress




package Koha::Club;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Club::Templates;
use Koha::Club::Fields;
use Koha::Libraries;

use base qw(Koha::Object);

=head1 NAME

Koha::Club - Koha Club Object class

=head1 API

=head2 Class Methods

=cut

=head3 club_template

=cut

sub club_template {
    my ($self) = @_;

    return unless $self->club_template_id();

    return Koha::Club::Templates->find( $self->club_template_id() );
}

=head3 club_fields

=cut

sub club_fields {
    my ($self) = @_;

    return unless $self->id();

    return Koha::Club::Fields->search( { club_id => $self->id() } );
}

=head3 club_fields

=cut

sub branch {
    my ($self) = @_;

    return unless $self->branchcode();

    return Koha::Libraries->find( $self->branchcode() );
}

=head3 type

=cut

sub _type {
    return 'Club';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Enrollment;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;
use Koha::Clubs;

use base qw(Koha::Object);

=head1 NAME

Koha::Club::Enrollment

Represents a "pattern" on which many clubs can be created.
In this way we can directly compare different clubs of the same 'template'
for statistical purposes.

=head1 API

=head2 Class Methods

=cut

=head3 cancel

=cut

sub cancel {
    my ( $self ) = @_;

    $self->_result()->update( { date_canceled => \'NOW()' } );

    return $self;
}

=head3 club

=cut

sub club {
    my ( $self ) = @_;
    return Koha::Clubs->find( $self->club_id() );
}

=head3 type

=cut

sub _type {
    return 'ClubEnrollment';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Enrollment::Field;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Club::Enrollment::Field

Represents a "pattern" on which many clubs can be created.
In this way we can directly compare different clubs of the same 'template'
for statistical purposes.

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'ClubEnrollmentField';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Enrollment::Fields;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Club::Enrollment::Field;

use base qw(Koha::Objects);

=head1 NAME

Koha::Club::Enrollment::Fields

This object represents a collection of club enrollemnt fields.

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'ClubEnrollmentField';
}

sub object_class {
    return 'Koha::Club::Enrollment::Field';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Enrollments;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Club::Enrollment;

use base qw(Koha::Objects);

=head1 NAME

Koha::Club::Enrollments

This object represents a collection of club templates.

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'ClubEnrollment';
}

sub object_class {
    return 'Koha::Club::Enrollment';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Field;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Club::Template::Fields;

use base qw(Koha::Object);

=head1 NAME

Koha::Club::Field

Represents the value set at creation time for a Koha::Club::Template::Field

=head1 API

=head2 Class Methods

=cut

=head3 club_template_field

=cut

sub club_template_field {
    my ( $self ) = @_;

    return Koha::Club::Template::Fields->find( $self->club_template_field_id );
}

=head3 type

=cut

sub _type {
    return 'ClubField';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Fields;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Club::Field;

use base qw(Koha::Objects);

=head1 NAME

Koha::Club::Fields

Represents a collection of club fields.

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'ClubField';
}

sub object_class {
    return 'Koha::Club::Field';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Template;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Club::Template::Fields;
use Koha::Club::Template::EnrollmentFields;

use base qw(Koha::Object);

=head1 NAME

Koha::Club::Template

Represents a "pattern" on which many clubs can be created.
In this way we can directly compare different clubs of the same 'template'
for statistical purposes.

=head1 API

=head2 Class Methods

=cut

=head3 club_template_fields

=cut

sub club_template_fields {
    my ($self) = @_;

    return Koha::Club::Template::Fields->search( { club_template_id => $self->id() } );
}

sub club_template_enrollment_fields {
    my ($self) = @_;

    return Koha::Club::Template::EnrollmentFields->search( { club_template_id => $self->id() } );
}

=head3 type

=cut

sub _type {
    return 'ClubTemplate';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Template::EnrollmentField;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Club::Template::EnrollemntField

Represents a club field that is only set at the time a patron is enrolled

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'ClubTemplateEnrollmentField';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Template::EnrollmentFields;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Club::Template::EnrollmentField;

use base qw(Koha::Objects);

=head1 NAME

Koha::Club::Template::EnrollemntFields

Represents a colleciton of club fields that are only set at the time a patron is enrolled

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'ClubTemplateEnrollmentField';
}

sub object_class {
    return 'Koha::Club::Template::EnrollmentField';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Template::Field;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Club::Template::Field

Represents a club field that is set when the club is created

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'ClubTemplateField';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Template::Fields;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Club::Template::Field;

use base qw(Koha::Objects);

=head1 NAME

Koha::Club::Template::Fields

Represents a collection of club fields that are set when the club is created

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'ClubTemplateField';
}

sub object_class {
    return 'Koha::Club::Template::Field';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Club::Templates;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Club::Template;

use base qw(Koha::Objects);

=head1 NAME

Koha::Club::Templates

This object represents a collection of club templates.

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'ClubTemplate';
}

sub object_class {
    return 'Koha::Club::Template';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Clubs;

# Copyright ByWater Solutions 2014
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Carp;

use Koha::Database;

use Koha::Club;

use base qw(Koha::Objects);

=head1 NAME

Koha::Clubs - Koha Clubs Object class

This object represents a collection of clubs a patron may enroll in.

=head1 API

=head2 Class Methods

=cut

=head3 get_enrollable

=cut

sub get_enrollable {
    my ( $self, $params ) = @_;

    # We need to filter out all the already enrolled in clubs
    my $borrower = $params->{borrower};
    if ($borrower) {
        delete( $params->{borrower} );
        my @enrollments = $borrower->get_club_enrollments();
        if (@enrollments) {
            $params->{'me.id'} = { -not_in => [ map { $_->club()->id() } @enrollments ] };
        }
    }

    my $rs = $self->_resultset()->search( $params, { prefetch => 'club_template' } );

    if (wantarray) {
        my $class = ref($self) ? ref($self) : $self;

        return $class->_wrap( $rs->all() );

    }
    else {
        my $class = ref($self) ? ref($self) : $self;

        return $class->_new_from_dbic($rs);
    }
}

=head3 type

=cut

sub _type {
    return 'Club';
}

sub object_class {
    return 'Koha::Club';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




use Koha::Patron::Images;
use Koha::Patrons;
use Koha::Virtualshelves;
use Koha::Club::Enrollments;

use base qw(Koha::Object);


    return Koha::Holds->_new_from_dbic($holds_rs);
}

=head3 first_valid_email_address

=cut

sub first_valid_email_address {
    my ($self) = @_;

    return $self->email() || $self->emailpro() || $self->B_email() || q{};
}

=head3 get_club_enrollments

=cut

sub get_club_enrollments {
    my ($self) = @_;

    return Koha::Club::Enrollments->search( { borrowernumber => $self->borrowernumber(), date_canceled => undef } );
}

=head3 get_enrollable_clubs

=cut

sub get_enrollable_clubs {
    my ( $self, $is_enrollable_from_opac ) = @_;

    my $params;
    $params->{is_enrollable_from_opac} = $is_enrollable_from_opac
      if $is_enrollable_from_opac;
    $params->{is_email_required} = 0 unless $self->first_valid_email_address();

    $params->{borrower} = $self;

    return Koha::Clubs->get_enrollable($params);
}

=head3 type

=cut

Lines 130-137 __PACKAGE__->belongs_to( Link Here

(-)a/Koha/Schema/Result/AuthorisedValue.pm (-2 / +2 lines)
130	);	130	);
131		131
132		132
133	# Created by DBIx::Class::Schema::Loader v0.07045 @ 2016-08-30 11:52:45	133	# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:54:50
134	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:LOArv8JQ0aiTZgcy+jb7pA	134	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:IzI/WpMbwvfZ8BpHtRCsiQ
135		135
136		136
137	# You can replace this text with custom content, and it will be preserved on regeneration	137	# You can replace this text with custom content, and it will be preserved on regeneration




  { is_deferrable => 1, on_delete => "RESTRICT", on_update => "RESTRICT" },
);

=head2 club_enrollments

Type: has_many

Related object: L<Koha::Schema::Result::ClubEnrollment>

=cut

__PACKAGE__->has_many(
  "club_enrollments",
  "Koha::Schema::Result::ClubEnrollment",
  { "foreign.borrowernumber" => "self.borrowernumber" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 course_instructors

Type: has_many




  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 club_enrollments

Type: has_many

Related object: L<Koha::Schema::Result::ClubEnrollment>

=cut

__PACKAGE__->has_many(
  "club_enrollments",
  "Koha::Schema::Result::ClubEnrollment",
  { "foreign.branchcode" => "self.branchcode" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 club_templates

Type: has_many

Related object: L<Koha::Schema::Result::ClubTemplate>

=cut

__PACKAGE__->has_many(
  "club_templates",
  "Koha::Schema::Result::ClubTemplate",
  { "foreign.branchcode" => "self.branchcode" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 clubs

Type: has_many

Related object: L<Koha::Schema::Result::Club>

=cut

__PACKAGE__->has_many(
  "clubs",
  "Koha::Schema::Result::Club",
  { "foreign.branchcode" => "self.branchcode" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 collections

Type: has_many

__PACKAGE__->many_to_many("categorycodes", "branchrelations", "categorycode");


# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:lvjA8x8u5RKeZQ0+uiLm7A


# You can replace this text with custom code or comments, and it will be preserved on regeneration




use utf8;
package Koha::Schema::Result::Club;

# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE

=head1 NAME

Koha::Schema::Result::Club

=cut

use strict;
use warnings;

use base 'DBIx::Class::Core';

=head1 TABLE: C<clubs>

=cut

__PACKAGE__->table("clubs");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_template_id

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 name

  data_type: 'tinytext'
  is_nullable: 0

=head2 description

  data_type: 'text'
  is_nullable: 1

=head2 date_start

  data_type: 'date'
  datetime_undef_if_invalid: 1
  is_nullable: 1

=head2 date_end

  data_type: 'date'
  datetime_undef_if_invalid: 1
  is_nullable: 1

=head2 branchcode

  data_type: 'varchar'
  is_foreign_key: 1
  is_nullable: 1
  size: 11

=head2 date_created

  data_type: 'timestamp'
  datetime_undef_if_invalid: 1
  default_value: current_timestamp
  is_nullable: 0

=head2 date_updated

  data_type: 'timestamp'
  datetime_undef_if_invalid: 1
  is_nullable: 1

=cut

__PACKAGE__->add_columns(
  "id",
  { data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
  "club_template_id",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "name",
  { data_type => "tinytext", is_nullable => 0 },
  "description",
  { data_type => "text", is_nullable => 1 },
  "date_start",
  { data_type => "date", datetime_undef_if_invalid => 1, is_nullable => 1 },
  "date_end",
  { data_type => "date", datetime_undef_if_invalid => 1, is_nullable => 1 },
  "branchcode",
  { data_type => "varchar", is_foreign_key => 1, is_nullable => 1, size => 11 },
  "date_created",
  {
    data_type => "timestamp",
    datetime_undef_if_invalid => 1,
    default_value => \"current_timestamp",
    is_nullable => 0,
  },
  "date_updated",
  {
    data_type => "timestamp",
    datetime_undef_if_invalid => 1,
    is_nullable => 1,
  },
);

=head1 PRIMARY KEY

=over 4

=item * L</id>

=back

=cut

__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=head2 branchcode

Type: belongs_to

Related object: L<Koha::Schema::Result::Branch>

=cut

__PACKAGE__->belongs_to(
  "branchcode",
  "Koha::Schema::Result::Branch",
  { branchcode => "branchcode" },
  {
    is_deferrable => 1,
    join_type     => "LEFT",
    on_delete     => "RESTRICT",
    on_update     => "RESTRICT",
  },
);

=head2 club_enrollments

Type: has_many

Related object: L<Koha::Schema::Result::ClubEnrollment>

=cut

__PACKAGE__->has_many(
  "club_enrollments",
  "Koha::Schema::Result::ClubEnrollment",
  { "foreign.club_id" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 club_fields

Type: has_many

Related object: L<Koha::Schema::Result::ClubField>

=cut

__PACKAGE__->has_many(
  "club_fields",
  "Koha::Schema::Result::ClubField",
  { "foreign.club_id" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 club_template

Type: belongs_to

Related object: L<Koha::Schema::Result::ClubTemplate>

=cut

__PACKAGE__->belongs_to(
  "club_template",
  "Koha::Schema::Result::ClubTemplate",
  { id => "club_template_id" },
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);


# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:nMwJy/qR8aWu12hQq4rORQ


# You can replace this text with custom content, and it will be preserved on regeneration
1;




use utf8;
package Koha::Schema::Result::ClubEnrollment;

# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE

=head1 NAME

Koha::Schema::Result::ClubEnrollment

=cut

use strict;
use warnings;

use base 'DBIx::Class::Core';

=head1 TABLE: C<club_enrollments>

=cut

__PACKAGE__->table("club_enrollments");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_id

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 borrowernumber

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 date_enrolled

  data_type: 'timestamp'
  datetime_undef_if_invalid: 1
  default_value: current_timestamp
  is_nullable: 0

=head2 date_canceled

  data_type: 'timestamp'
  datetime_undef_if_invalid: 1
  is_nullable: 1

=head2 date_created

  data_type: 'timestamp'
  datetime_undef_if_invalid: 1
  default_value: '0000-00-00 00:00:00'
  is_nullable: 0

=head2 date_updated

  data_type: 'timestamp'
  datetime_undef_if_invalid: 1
  is_nullable: 1

=head2 branchcode

  data_type: 'varchar'
  is_foreign_key: 1
  is_nullable: 1
  size: 11

=cut

__PACKAGE__->add_columns(
  "id",
  { data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
  "club_id",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "borrowernumber",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "date_enrolled",
  {
    data_type => "timestamp",
    datetime_undef_if_invalid => 1,
    default_value => \"current_timestamp",
    is_nullable => 0,
  },
  "date_canceled",
  {
    data_type => "timestamp",
    datetime_undef_if_invalid => 1,
    is_nullable => 1,
  },
  "date_created",
  {
    data_type => "timestamp",
    datetime_undef_if_invalid => 1,
    default_value => "0000-00-00 00:00:00",
    is_nullable => 0,
  },
  "date_updated",
  {
    data_type => "timestamp",
    datetime_undef_if_invalid => 1,
    is_nullable => 1,
  },
  "branchcode",
  { data_type => "varchar", is_foreign_key => 1, is_nullable => 1, size => 11 },
);

=head1 PRIMARY KEY

=over 4

=item * L</id>

=back

=cut

__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=head2 borrowernumber

Type: belongs_to

Related object: L<Koha::Schema::Result::Borrower>

=cut

__PACKAGE__->belongs_to(
  "borrowernumber",
  "Koha::Schema::Result::Borrower",
  { borrowernumber => "borrowernumber" },
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);

=head2 branchcode

Type: belongs_to

Related object: L<Koha::Schema::Result::Branch>

=cut

__PACKAGE__->belongs_to(
  "branchcode",
  "Koha::Schema::Result::Branch",
  { branchcode => "branchcode" },
  {
    is_deferrable => 1,
    join_type     => "LEFT",
    on_delete     => "SET NULL",
    on_update     => "CASCADE",
  },
);

=head2 club

Type: belongs_to

Related object: L<Koha::Schema::Result::Club>

=cut

__PACKAGE__->belongs_to(
  "club",
  "Koha::Schema::Result::Club",
  { id => "club_id" },
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);

=head2 club_enrollment_fields

Type: has_many

Related object: L<Koha::Schema::Result::ClubEnrollmentField>

=cut

__PACKAGE__->has_many(
  "club_enrollment_fields",
  "Koha::Schema::Result::ClubEnrollmentField",
  { "foreign.club_enrollment_id" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);


# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:9ypc+smG/VlgtWW66PhvHQ


# You can replace this text with custom content, and it will be preserved on regeneration
1;




use utf8;
package Koha::Schema::Result::ClubEnrollmentField;

# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE

=head1 NAME

Koha::Schema::Result::ClubEnrollmentField

=cut

use strict;
use warnings;

use base 'DBIx::Class::Core';

=head1 TABLE: C<club_enrollment_fields>

=cut

__PACKAGE__->table("club_enrollment_fields");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_enrollment_id

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 club_template_enrollment_field_id

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 value

  data_type: 'text'
  is_nullable: 0

=cut

__PACKAGE__->add_columns(
  "id",
  { data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
  "club_enrollment_id",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "club_template_enrollment_field_id",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "value",
  { data_type => "text", is_nullable => 0 },
);

=head1 PRIMARY KEY

=over 4

=item * L</id>

=back

=cut

__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=head2 club_enrollment

Type: belongs_to

Related object: L<Koha::Schema::Result::ClubEnrollment>

=cut

__PACKAGE__->belongs_to(
  "club_enrollment",
  "Koha::Schema::Result::ClubEnrollment",
  { id => "club_enrollment_id" },
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);

=head2 club_template_enrollment_field

Type: belongs_to

Related object: L<Koha::Schema::Result::ClubTemplateEnrollmentField>

=cut

__PACKAGE__->belongs_to(
  "club_template_enrollment_field",
  "Koha::Schema::Result::ClubTemplateEnrollmentField",
  { id => "club_template_enrollment_field_id" },
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);


# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:2ANAs3mh3i/kd3Qxrcd5IA


# You can replace this text with custom content, and it will be preserved on regeneration
1;




use utf8;
package Koha::Schema::Result::ClubField;

# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE

=head1 NAME

Koha::Schema::Result::ClubField

=cut

use strict;
use warnings;

use base 'DBIx::Class::Core';

=head1 TABLE: C<club_fields>

=cut

__PACKAGE__->table("club_fields");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_template_field_id

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 club_id

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 value

  data_type: 'text'
  is_nullable: 1

=cut

__PACKAGE__->add_columns(
  "id",
  { data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
  "club_template_field_id",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "club_id",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "value",
  { data_type => "text", is_nullable => 1 },
);

=head1 PRIMARY KEY

=over 4

=item * L</id>

=back

=cut

__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=head2 club

Type: belongs_to

Related object: L<Koha::Schema::Result::Club>

=cut

__PACKAGE__->belongs_to(
  "club",
  "Koha::Schema::Result::Club",
  { id => "club_id" },
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);

=head2 club_template_field

Type: belongs_to

Related object: L<Koha::Schema::Result::ClubTemplateField>

=cut

__PACKAGE__->belongs_to(
  "club_template_field",
  "Koha::Schema::Result::ClubTemplateField",
  { id => "club_template_field_id" },
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);


# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:m4GLLIVIHgRpRhCGLh12DQ


# You can replace this text with custom content, and it will be preserved on regeneration
1;




use utf8;
package Koha::Schema::Result::ClubTemplate;

# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE

=head1 NAME

Koha::Schema::Result::ClubTemplate

=cut

use strict;
use warnings;

use base 'DBIx::Class::Core';

=head1 TABLE: C<club_templates>

=cut

__PACKAGE__->table("club_templates");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 name

  data_type: 'tinytext'
  is_nullable: 0

=head2 description

  data_type: 'text'
  is_nullable: 1

=head2 is_enrollable_from_opac

  data_type: 'tinyint'
  default_value: 0
  is_nullable: 0

=head2 is_email_required

  data_type: 'tinyint'
  default_value: 0
  is_nullable: 0

=head2 branchcode

  data_type: 'varchar'
  is_foreign_key: 1
  is_nullable: 1
  size: 10

=head2 date_created

  data_type: 'timestamp'
  datetime_undef_if_invalid: 1
  default_value: current_timestamp
  is_nullable: 0

=head2 date_updated

  data_type: 'timestamp'
  datetime_undef_if_invalid: 1
  is_nullable: 1

=head2 is_deletable

  data_type: 'tinyint'
  default_value: 1
  is_nullable: 0

=cut

__PACKAGE__->add_columns(
  "id",
  { data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
  "name",
  { data_type => "tinytext", is_nullable => 0 },
  "description",
  { data_type => "text", is_nullable => 1 },
  "is_enrollable_from_opac",
  { data_type => "tinyint", default_value => 0, is_nullable => 0 },
  "is_email_required",
  { data_type => "tinyint", default_value => 0, is_nullable => 0 },
  "branchcode",
  { data_type => "varchar", is_foreign_key => 1, is_nullable => 1, size => 10 },
  "date_created",
  {
    data_type => "timestamp",
    datetime_undef_if_invalid => 1,
    default_value => \"current_timestamp",
    is_nullable => 0,
  },
  "date_updated",
  {
    data_type => "timestamp",
    datetime_undef_if_invalid => 1,
    is_nullable => 1,
  },
  "is_deletable",
  { data_type => "tinyint", default_value => 1, is_nullable => 0 },
);

=head1 PRIMARY KEY

=over 4

=item * L</id>

=back

=cut

__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=head2 branchcode

Type: belongs_to

Related object: L<Koha::Schema::Result::Branch>

=cut

__PACKAGE__->belongs_to(
  "branchcode",
  "Koha::Schema::Result::Branch",
  { branchcode => "branchcode" },
  {
    is_deferrable => 1,
    join_type     => "LEFT",
    on_delete     => "SET NULL",
    on_update     => "CASCADE",
  },
);

=head2 club_template_enrollment_fields

Type: has_many

Related object: L<Koha::Schema::Result::ClubTemplateEnrollmentField>

=cut

__PACKAGE__->has_many(
  "club_template_enrollment_fields",
  "Koha::Schema::Result::ClubTemplateEnrollmentField",
  { "foreign.club_template_id" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 club_template_fields

Type: has_many

Related object: L<Koha::Schema::Result::ClubTemplateField>

=cut

__PACKAGE__->has_many(
  "club_template_fields",
  "Koha::Schema::Result::ClubTemplateField",
  { "foreign.club_template_id" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 clubs

Type: has_many

Related object: L<Koha::Schema::Result::Club>

=cut

__PACKAGE__->has_many(
  "clubs",
  "Koha::Schema::Result::Club",
  { "foreign.club_template_id" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);


# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:j5aiACVUGzrdng4+jt6mfg

1;




use utf8;
package Koha::Schema::Result::ClubTemplateEnrollmentField;

# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE

=head1 NAME

Koha::Schema::Result::ClubTemplateEnrollmentField

=cut

use strict;
use warnings;

use base 'DBIx::Class::Core';

=head1 TABLE: C<club_template_enrollment_fields>

=cut

__PACKAGE__->table("club_template_enrollment_fields");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_template_id

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 name

  data_type: 'tinytext'
  is_nullable: 0

=head2 description

  data_type: 'text'
  is_nullable: 1

=head2 authorised_value_category

  data_type: 'varchar'
  is_nullable: 1
  size: 16

=cut

__PACKAGE__->add_columns(
  "id",
  { data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
  "club_template_id",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "name",
  { data_type => "tinytext", is_nullable => 0 },
  "description",
  { data_type => "text", is_nullable => 1 },
  "authorised_value_category",
  { data_type => "varchar", is_nullable => 1, size => 16 },
);

=head1 PRIMARY KEY

=over 4

=item * L</id>

=back

=cut

__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=head2 club_enrollment_fields

Type: has_many

Related object: L<Koha::Schema::Result::ClubEnrollmentField>

=cut

__PACKAGE__->has_many(
  "club_enrollment_fields",
  "Koha::Schema::Result::ClubEnrollmentField",
  { "foreign.club_template_enrollment_field_id" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 club_template

Type: belongs_to

Related object: L<Koha::Schema::Result::ClubTemplate>

=cut

__PACKAGE__->belongs_to(
  "club_template",
  "Koha::Schema::Result::ClubTemplate",
  { id => "club_template_id" },
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);


# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:KGo2mEIAkTVYSPsOLoaBCg


# You can replace this text with custom content, and it will be preserved on regeneration
1;




use utf8;
package Koha::Schema::Result::ClubTemplateField;

# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE

=head1 NAME

Koha::Schema::Result::ClubTemplateField

=cut

use strict;
use warnings;

use base 'DBIx::Class::Core';

=head1 TABLE: C<club_template_fields>

=cut

__PACKAGE__->table("club_template_fields");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_template_id

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 name

  data_type: 'tinytext'
  is_nullable: 0

=head2 description

  data_type: 'text'
  is_nullable: 1

=head2 authorised_value_category

  data_type: 'varchar'
  is_nullable: 1
  size: 16

=cut

__PACKAGE__->add_columns(
  "id",
  { data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
  "club_template_id",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "name",
  { data_type => "tinytext", is_nullable => 0 },
  "description",
  { data_type => "text", is_nullable => 1 },
  "authorised_value_category",
  { data_type => "varchar", is_nullable => 1, size => 16 },
);

=head1 PRIMARY KEY

=over 4

=item * L</id>

=back

=cut

__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=head2 club_fields

Type: has_many

Related object: L<Koha::Schema::Result::ClubField>

=cut

__PACKAGE__->has_many(
  "club_fields",
  "Koha::Schema::Result::ClubField",
  { "foreign.club_template_field_id" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 club_template

Type: belongs_to

Related object: L<Koha::Schema::Result::ClubTemplate>

=cut

__PACKAGE__->belongs_to(
  "club_template",
  "Koha::Schema::Result::ClubTemplate",
  { id => "club_template_id" },
  { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);


# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:P73ABSn2tzlTYbD3nov21g


# You can replace this text with custom content, and it will be preserved on regeneration
1;

Lines 35-42 sub GetByCode { Link Here

(-)a/Koha/Template/Plugin/AuthorisedValues.pm (-2 / +2 lines)
35	}	35	}
36		36
37	sub Get {	37	sub Get {
38	my ( $self, $category, $opac ) = @_;	38	my ( $self, $category, $selected, $opac ) = @_;
39	return GetAuthorisedValues( $category, $opac );	39	return GetAuthorisedValues( $category, $selected, $opac );
40	}	40	}
41		41
42	sub GetAuthValueDropbox {	42	sub GetAuthValueDropbox {

Lines 57-61 sub HasOverdues { Link Here

(-)a/Koha/Template/Plugin/Borrowers.pm (-1 lines)
57	return Koha::Patrons->find( $borrowernumber )->has_overdues;	57	return Koha::Patrons->find( $borrowernumber )->has_overdues;
58	}	58	}
59		59
60
61	1;	60	1;




#!/usr/bin/perl

# Copyright 2013 ByWater Solutions
#
# 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>.

use Modern::Perl;

use CGI;

use C4::Auth;
use C4::Output;
use Koha::Database;
use Koha::DateUtils qw(dt_from_string);
use Koha::Clubs;
use Koha::Club::Fields;

my $cgi = new CGI;

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
    {
        template_name   => 'clubs/clubs-add-modify.tt',
        query           => $cgi,
        type            => 'intranet',
        authnotrequired => 0,
        flagsrequired   => { clubs => 'edit_clubs' },
    }
);

my $schema = Koha::Database->new()->schema();

my $id = $cgi->param('id');
my $club = $id ? Koha::Clubs->find($id) : Koha::Club->new();
my $stored = $cgi->param('name') ? $id ? 'updated' : 'stored' : undef;

my $club_template_id = $cgi->param('club_template_id');
my $club_template = $club->club_template() || Koha::Club::Templates->find($club_template_id);
$club_template_id ||= $club_template->id();

my $date_start = $cgi->param('date_start');
$date_start = $date_start ? dt_from_string($date_start) : undef;
my $date_end = $cgi->param('date_end');
$date_end = $date_end ? dt_from_string($date_end) : undef;

if ( $cgi->param('name') ) {    # Update or create club
    $club->set(
        {
            club_template_id => $cgi->param('club_template_id') || undef,
            name             => $cgi->param('name')             || undef,
            description      => $cgi->param('description')      || undef,
            branchcode       => $cgi->param('branchcode')       || undef,
            date_start       => $date_start,
            date_end         => $date_end,
            date_updated     => dt_from_string(),
        }
    )->store();

    my @club_template_field_id = $cgi->multi_param('club_template_field_id');
    my @club_field_id          = $cgi->multi_param('club_field_id');
    my @club_field             = $cgi->multi_param('club_field');

    for ( my $i = 0 ; $i < @club_template_field_id ; $i++ ) {
        my $club_template_field_id = $club_template_field_id[$i] || undef;
        my $club_field_id          = $club_field_id[$i]          || undef;
        my $club_field             = $club_field[$i]             || undef;

        my $field =
          $club_field_id
          ? Koha::Club::Fields->find($club_field_id)
          : Koha::Club::Field->new();

        $field->set(
            {
                club_id                => $club->id(),
                club_template_field_id => $club_template_field_id,
                value                  => $club_field,
            }
        )->store();
    }

    $id ||= $club->id();

    print $cgi->redirect("/cgi-bin/koha/clubs/clubs.pl?stored=$stored&club_id=$id");
    exit;
}

$club = Koha::Clubs->find($id);

$template->param(
    club_template => $club_template,
    club          => $club,
);

output_html_with_http_headers( $cgi, $cookie, $template->output );




#!/usr/bin/perl

# Copyright 2013 ByWater Solutions
#
# 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>.

use Modern::Perl;

use CGI;

use C4::Auth;
use C4::Output;

use Koha::Clubs;
use Koha::Club::Templates;

my $cgi = new CGI;

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
    {
        template_name   => "clubs/clubs.tt",
        query           => $cgi,
        type            => "intranet",
        authnotrequired => 0,
        flagsrequired   => { clubs => '*' },
    }
);

my $stored = $cgi->param('stored');
my $club_template_id = $cgi->param('club_template_id');
my $club_id = $cgi->param('club_id');

my $club_template = $club_template_id ? Koha::Club::Templates->find( $club_template_id ) : undef;
my $club = $club_id ? Koha::Clubs->find( $club_id ) : undef;

my @club_templates = Koha::Club::Templates->search();
my @clubs          = Koha::Clubs->search();

$template->param(
    stored         => $stored,
    club_template  => $club_template,
    club           => $club,
    club_templates => \@club_templates,
    clubs          => \@clubs,
);

output_html_with_http_headers( $cgi, $cookie, $template->output );




#!/usr/bin/perl

# Copyright 2013 ByWater Solutions
#
# 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>.

use Modern::Perl;

use CGI;

use C4::Auth;
use C4::Output;

use Koha::Patrons;
use Koha::Club::Enrollments;

my $cgi = new CGI;

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
    {
        template_name   => "clubs/patron-clubs-tab.tt",
        query           => $cgi,
        type            => "intranet",
        authnotrequired => 0,
        flagsrequired   => { clubs => '*' },
    }
);

my $patronnumber = $cgi->param('borrowernumber');

my $patron = Koha::Patrons->find($patronnumber);

my @enrollments = $patron->get_club_enrollments();
my @clubs       = $patron->get_enrollable_clubs();

$template->param(
    enrollments    => \@enrollments,
    clubs          => \@clubs,
    borrowernumber => $patronnumber
);

output_html_with_http_headers( $cgi, $cookie, $template->output );




#!/usr/bin/perl

# Copyright 2013 ByWater Solutions
#
# 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>.

use Modern::Perl;

use CGI;

use C4::Auth;
use C4::Output;
use Koha::Clubs;

my $cgi = new CGI;

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
    {
        template_name   => "clubs/patron-enroll.tt",
        query           => $cgi,
        type            => "intranet",
        authnotrequired => 0,
        flagsrequired   => { clubs => '*' },
    }
);

my $id             = $cgi->param('id');
my $borrowernumber = $cgi->param('borrowernumber');

my $club = Koha::Clubs->find($id);

$template->param(
    club           => $club,
    borrowernumber => $borrowernumber,
);

output_html_with_http_headers( $cgi, $cookie, $template->output );




#!/usr/bin/perl

# Copyright 2013 ByWater Solutions
#
# 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>.

use Modern::Perl;

use CGI;

use C4::Auth;
use C4::Output;

use Koha::DateUtils qw(dt_from_string);
use Koha::Club::Templates;
use Koha::Club::Template::Fields;
use Koha::Club::Template::EnrollmentFields;

use Koha::Database;
my $schema = Koha::Database->new()->schema();

my $cgi = new CGI;

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
    {
        template_name   => 'clubs/templates-add-modify.tt',
        query           => $cgi,
        type            => 'intranet',
        authnotrequired => 0,
        flagsrequired   => { clubs => 'edit_templates' },
    }
);

my $id = $cgi->param('id');

my $club_template;
my $stored;

if ( $cgi->param('name') ) {    # Update or create club
    if ($id) {
        $club_template = Koha::Club::Templates->find($id);
        $stored        = 'updated';
    }
    else {
        $club_template = Koha::Club::Template->new();
        $stored = 'created';
    }

    $club_template->set(
        {
            id          => $id                        || undef,
            name        => $cgi->param('name')        || undef,
            description => $cgi->param('description') || undef,
            branchcode  => $cgi->param('branchcode')  || undef,
            date_updated            => dt_from_string(),
            is_email_required       => $cgi->param('is_email_required') ? 1 : 0,
            is_enrollable_from_opac => $cgi->param('is_enrollable_from_opac') ? 1 : 0,
        }
    )->store();

    $id ||= $club_template->id();

    # Update club creation fields
    my @field_id                        = $cgi->multi_param('club_template_field_id');
    my @field_name                      = $cgi->multi_param('club_template_field_name');
    my @field_description               = $cgi->multi_param('club_template_field_description');
    my @field_authorised_value_category = $cgi->multi_param('club_template_field_authorised_value_category');

    my @field_delete = $cgi->multi_param('club_template_field_delete');

    for ( my $i = 0 ; $i < @field_id ; $i++ ) {
        my $field_id                        = $field_id[$i];
        my $field_name                      = $field_name[$i];
        my $field_description               = $field_description[$i];
        my $field_authorised_value_category = $field_authorised_value_category[$i];

        my $field =
          $field_id
          ? Koha::Club::Template::Fields->find($field_id)
          : Koha::Club::Template::Field->new();

        if ( grep( /^$field_id$/, @field_delete ) ) {
            $field->delete();
        }
        else {
            $field->set(
                {
                    club_template_id          => $id,
                    name                      => $field_name,
                    description               => $field_description,
                    authorised_value_category => $field_authorised_value_category,
                }
            )->store();
        }
    }

    # Update club enrollment fields
    @field_id                        = $cgi->multi_param('club_template_enrollment_field_id');
    @field_name                      = $cgi->multi_param('club_template_enrollment_field_name');
    @field_description               = $cgi->multi_param('club_template_enrollment_field_description');
    @field_authorised_value_category = $cgi->multi_param('club_template_enrollment_field_authorised_value_category');

    @field_delete = $cgi->multi_param('club_template_enrollment_field_delete');

    for ( my $i = 0 ; $i < @field_id ; $i++ ) {
        my $field_id                        = $field_id[$i];
        my $field_name                      = $field_name[$i];
        my $field_description               = $field_description[$i];
        my $field_authorised_value_category = $field_authorised_value_category[$i];

        my $field =
          $field_id
          ? Koha::Club::Template::EnrollmentFields->find($field_id)
          : Koha::Club::Template::EnrollmentField->new();

        if ( grep( /^$field_id$/, @field_delete ) ) {
            $field->delete();
        }
        else {
            $field->set(
                {
                    id                        => $field_id,
                    club_template_id          => $id,
                    name                      => $field_name,
                    description               => $field_description,
                    authorised_value_category => $field_authorised_value_category,
                }
            )->store();
        }
    }

    print $cgi->redirect("/cgi-bin/koha/clubs/clubs.pl?stored=$stored&club_template_id=$id");
    exit;
}

$club_template ||= Koha::Club::Templates->find($id);
$template->param( club_template => $club_template );

output_html_with_http_headers( $cgi, $cookie, $template->output );




--
-- Table structure for table 'club_templates'
--

CREATE TABLE IF NOT EXISTS club_templates (
  id int(11) NOT NULL AUTO_INCREMENT,
  `name` tinytext NOT NULL,
  description text,
  is_enrollable_from_opac tinyint(1) NOT NULL DEFAULT '0',
  is_email_required tinyint(1) NOT NULL DEFAULT '0',
  branchcode varchar(10) NULL DEFAULT NULL,
  date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
  date_updated timestamp NULL DEFAULT NULL,
  is_deletable tinyint(1) NOT NULL DEFAULT '1',
  PRIMARY KEY (id),
  KEY ct_branchcode (branchcode),
  CONSTRAINT `club_templates_ibfk_1` FOREIGN KEY (branchcode) REFERENCES `branches` (branchcode) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'clubs'
--

CREATE TABLE IF NOT EXISTS clubs (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_template_id int(11) NOT NULL,
  `name` tinytext NOT NULL,
  description text,
  date_start date DEFAULT NULL,
  date_end date DEFAULT NULL,
  branchcode varchar(10) NULL DEFAULT NULL,
  date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
  date_updated timestamp NULL DEFAULT NULL,
  PRIMARY KEY (id),
  KEY club_template_id (club_template_id),
  KEY branchcode (branchcode),
  CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branchcode) REFERENCES branches (branchcode)
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_enrollments'
--

CREATE TABLE IF NOT EXISTS club_enrollments (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_id int(11) NOT NULL,
  borrowernumber int(11) NOT NULL,
  date_enrolled timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
  date_canceled timestamp NULL DEFAULT NULL,
  date_created timestamp NOT NULL DEFAULT '0000-00-00 00:00:00',
  date_updated timestamp NULL DEFAULT NULL,
  branchcode varchar(10) NULL DEFAULT NULL,
  PRIMARY KEY (id),
  KEY club_id (club_id),
  KEY borrowernumber (borrowernumber),
  KEY branchcode (branchcode),
  CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club_id) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branchcode) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_template_enrollment_fields'
--

CREATE TABLE IF NOT EXISTS club_template_enrollment_fields (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_template_id int(11) NOT NULL,
  `name` tinytext NOT NULL,
  description text,
  authorised_value_category varchar(16) DEFAULT NULL,
  PRIMARY KEY (id),
  KEY club_template_id (club_template_id),
  CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_enrollment_fields'
--

CREATE TABLE IF NOT EXISTS club_enrollment_fields (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_enrollment_id int(11) NOT NULL,
  club_template_enrollment_field_id int(11) NOT NULL,
  `value` text NOT NULL,
  PRIMARY KEY (id),
  KEY club_enrollment_id (club_enrollment_id),
  KEY club_template_enrollment_field_id (club_template_enrollment_field_id),
  CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment_id) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT club_enrollment_fields_ibfk_2 FOREIGN KEY (club_template_enrollment_field_id) REFERENCES club_template_enrollment_fields (id) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_template_fields'
--

CREATE TABLE IF NOT EXISTS club_template_fields (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_template_id int(11) NOT NULL,
  `name` tinytext NOT NULL,
  description text,
  authorised_value_category varchar(16) DEFAULT NULL,
  PRIMARY KEY (id),
  KEY club_template_id (club_template_id),
  CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_fields'
--

CREATE TABLE IF NOT EXISTS club_fields (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_template_field_id int(11) NOT NULL,
  club_id int(11) NOT NULL,
  `value` text,
  PRIMARY KEY (id),
  KEY club_template_field_id (club_template_field_id),
  KEY club_id (club_id),
  CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field_id) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club_id) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

INSERT IGNORE INTO userflags (bit, flag, flagdesc, defaulton) VALUES (21, 'clubs', 'Patron clubs', '0');

INSERT IGNORE INTO permissions (module_bit, code, description) VALUES
   (21, 'edit_templates', 'Create and update club templates'),
   (21, 'edit_clubs', 'Create and update clubs'),
   (21, 'enroll', 'Enroll patrons in clubs')
;




    CONSTRAINT `deletedrecord_metadata_fk_1` FOREIGN KEY (biblionumber) REFERENCES deletedbiblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_templates'
--

CREATE TABLE IF NOT EXISTS club_templates (
  id int(11) NOT NULL AUTO_INCREMENT,
  `name` tinytext NOT NULL,
  description text,
  is_enrollable_from_opac tinyint(1) NOT NULL DEFAULT '0',
  is_email_required tinyint(1) NOT NULL DEFAULT '0',
  branchcode varchar(10) NULL DEFAULT NULL,
  date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
  date_updated timestamp NULL DEFAULT NULL,
  is_deletable tinyint(1) NOT NULL DEFAULT '1',
  PRIMARY KEY (id),
  KEY ct_branchcode (branchcode),
  CONSTRAINT `club_templates_ibfk_1` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'clubs'
--

CREATE TABLE IF NOT EXISTS clubs (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_template_id int(11) NOT NULL,
  `name` tinytext NOT NULL,
  description text,
  date_start date DEFAULT NULL,
  date_end date DEFAULT NULL,
  branchcode varchar(10) NULL DEFAULT NULL,
  date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
  date_updated timestamp NULL DEFAULT NULL,
  PRIMARY KEY (id),
  KEY club_template_id (club_template_id),
  KEY branchcode (branchcode),
  CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branchcode) REFERENCES branches (branchcode)
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_enrollments'
--

CREATE TABLE IF NOT EXISTS club_enrollments (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_id int(11) NOT NULL,
  borrowernumber int(11) NOT NULL,
  date_enrolled timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
  date_canceled timestamp NULL DEFAULT NULL,
  date_created timestamp NOT NULL DEFAULT '0000-00-00 00:00:00',
  date_updated timestamp NULL DEFAULT NULL,
  branchcode varchar(10) NULL DEFAULT NULL,
  PRIMARY KEY (id),
  KEY club_id (club_id),
  KEY borrowernumber (borrowernumber),
  KEY branchcode (branchcode),
  CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club_id) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branchcode) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_template_enrollment_fields'
--

CREATE TABLE IF NOT EXISTS club_template_enrollment_fields (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_template_id int(11) NOT NULL,
  `name` tinytext NOT NULL,
  description text,
  authorised_value_category varchar(16) DEFAULT NULL,
  PRIMARY KEY (id),
  KEY club_template_id (club_template_id),
  CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_enrollment_fields'
--

CREATE TABLE IF NOT EXISTS club_enrollment_fields (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_enrollment_id int(11) NOT NULL,
  club_template_enrollment_field_id int(11) NOT NULL,
  `value` text NOT NULL,
  PRIMARY KEY (id),
  KEY club_enrollment_id (club_enrollment_id),
  KEY club_template_enrollment_field_id (club_template_enrollment_field_id),
  CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment_id) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT club_enrollment_fields_ibfk_2 FOREIGN KEY (club_template_enrollment_field_id) REFERENCES club_template_enrollment_fields (id) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_template_fields'
--

CREATE TABLE IF NOT EXISTS club_template_fields (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_template_id int(11) NOT NULL,
  `name` tinytext NOT NULL,
  description text,
  authorised_value_category varchar(16) DEFAULT NULL,
  PRIMARY KEY (id),
  KEY club_template_id (club_template_id),
  CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

--
-- Table structure for table 'club_fields'
--

CREATE TABLE IF NOT EXISTS club_fields (
  id int(11) NOT NULL AUTO_INCREMENT,
  club_template_field_id int(11) NOT NULL,
  club_id int(11) NOT NULL,
  `value` text,
  PRIMARY KEY (id),
  KEY club_template_field_id (club_template_field_id),
  KEY club_id (club_id),
  CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field_id) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
  CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club_id) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE
>>>>>>> Bug 12461 - Add patron clubs feature
>>>>>>> Bug 12461 - Add patron clubs feature
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

/*!40103 SET TIME_ZONE=@OLD_TIME_ZONE */;
/*!40101 SET SQL_MODE=@OLD_SQL_MODE */;
/*!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS */;

Lines 17-21 INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES Link Here

(-)a/installer/data/mysql/userflags.sql (-1 / +2 lines)
17	(17,'staffaccess','Allow staff members to modify permissions for other staff members',0),	17	(17,'staffaccess','Allow staff members to modify permissions for other staff members',0),
18	(18,'coursereserves','Course reserves',0),	18	(18,'coursereserves','Course reserves',0),
19	(19, 'plugins', 'Koha plugins', '0'),	19	(19, 'plugins', 'Koha plugins', '0'),
20	(20, 'lists', 'Lists', 0)	20	(20, 'lists', 'Lists', 0),
		21	(21, 'clubs', 'Patron clubs', '0')
21	;	22	;

Lines 78-82 INSERT INTO permissions (module_bit, code, description) VALUES Link Here

(-)a/installer/data/mysql/userpermissions.sql (-1 / +4 lines)
78	(19, 'tool', 'Use tool plugins'),	78	(19, 'tool', 'Use tool plugins'),
79	(19, 'report', 'Use report plugins'),	79	(19, 'report', 'Use report plugins'),
80	(19, 'configure', 'Configure plugins'),	80	(19, 'configure', 'Configure plugins'),
81	(20, 'delete_public_lists', 'Delete public lists')	81	(20, 'delete_public_lists', 'Delete public lists'),
		82	(21, 'edit_templates', 'Create and update club templates'),
		83	(21, 'edit_clubs', 'Create and update clubs'),
		84	(21, 'enroll', 'Enroll patrons in clubs')
82	;	85	;

Lines 19-24 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/permissions.inc (+4 lines)
19	[%- CASE 'coursereserves' -%]<span>Course reserves</span>	19	[%- CASE 'coursereserves' -%]<span>Course reserves</span>
20	[%- CASE 'plugins' -%]<span>Koha plugins</span>	20	[%- CASE 'plugins' -%]<span>Koha plugins</span>
21	[%- CASE 'lists' -%]<span>Lists</span>	21	[%- CASE 'lists' -%]<span>Lists</span>
		22	[%- CASE 'clubs' -%]<span>Patron clubs</span>
22	[%- END -%]	23	[%- END -%]
23	[%- END -%]	24	[%- END -%]
24		25
Lines 103-107 Link Here
103	[%- CASE 'delete_public_lists' -%]<span>Delete public lists</span>	104	[%- CASE 'delete_public_lists' -%]<span>Delete public lists</span>
104	[%- CASE 'upload_general_files' -%]<span>Upload any file</span>	105	[%- CASE 'upload_general_files' -%]<span>Upload any file</span>
105	[%- CASE 'upload_manage' -%]<span>Manage uploaded files (<i>Useless without upload_general_files</i>)</span>	106	[%- CASE 'upload_manage' -%]<span>Manage uploaded files (<i>Useless without upload_general_files</i>)</span>
		107	[%- CASE 'edit_clubs' -%]<span>Create and edit clubs</span>
		108	[%- CASE 'edit_templates' -%]<span>Create and edit club templates</span>
		109	[%- CASE 'enroll' -%]<span>Enroll patrons in clubs</span>
106	[%- END -%]	110	[%- END -%]
107	[%- END -%]	111	[%- END -%]

Lines 25-30 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/tools-menu.inc (+3 lines)
25	[% IF ( CAN_user_tools_manage_patron_lists ) %]	25	[% IF ( CAN_user_tools_manage_patron_lists ) %]
26	<li><a href="/cgi-bin/koha/patron_lists/lists.pl">Patron lists</a></li>	26	<li><a href="/cgi-bin/koha/patron_lists/lists.pl">Patron lists</a></li>
27	[% END %]	27	[% END %]
		28	[% IF (CAN_user_clubs) %]
		29	<li><a href="/cgi-bin/koha/clubs/clubs.pl">Patron clubs</a></li>
		30	[% END %]
28	[% IF ( CAN_user_tools_moderate_comments ) %]	31	[% IF ( CAN_user_tools_moderate_comments ) %]
29	<li><a href="/cgi-bin/koha/reviews/reviewswaiting.pl">Comments</a></li>	32	<li><a href="/cgi-bin/koha/reviews/reviewswaiting.pl">Comments</a></li>
30	[% END %]	33	[% END %]

Lines 97-102 $(document).ready(function() { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tt (+23 lines)
97	}	97	}
98	});	98	});
99		99
		100	if ( $('#clubs-tab').length ) {
		101	$('#clubs-tab-link').on('click', function() {
		102	$('#clubs-tab').text(_("Loading..."));
		103	$('#clubs-tab').load('/cgi-bin/koha/clubs/patron-clubs-tab.pl?borrowernumber=[% borrowernumber %]');
		104	});
		105	}
		106
100	[% IF !( CircAutoPrintQuickSlip == 'clear' ) %]	107	[% IF !( CircAutoPrintQuickSlip == 'clear' ) %]
101	// listen submit to trigger qslip on empty checkout	108	// listen submit to trigger qslip on empty checkout
102	$('#mainform').bind('submit',function() {	109	$('#mainform').bind('submit',function() {
Lines 891-896 No patron matched <span class="ex">[% message \| html %]</span> Link Here
891	[% END %]	898	[% END %]
892	</li>	899	</li>
893		900
		901	[% SET enrollments = patron.get_club_enrollments.size \|\| 0 %]
		902	[% SET enrollable = patron.get_enrollable_clubs.size \|\| 0 %]
		903	[% IF CAN_user_clubs && ( enrollable \|\| enrollments ) %]
		904	<li>
		905	<a id="clubs-tab-link" href="#clubs-tab">
		906	Clubs ([% enrollments %]/[% enrollable %])
		907	</a>
		908	</li>
		909	[% END %]
		910
894	[% IF relatives_issues_count %]	911	[% IF relatives_issues_count %]
895	<li><a id="relatives-issues-tab" href="#relatives-issues">Relatives' checkouts</a></li>	912	<li><a id="relatives-issues-tab" href="#relatives-issues">Relatives' checkouts</a></li>
896	[% END %]	913	[% END %]
Lines 939-944 No patron matched <span class="ex">[% message \| html %]</span> Link Here
939	</div>	956	</div>
940	[% END %]	957	[% END %]
941		958
		959	[% IF CAN_user_clubs && ( enrollable \|\| enrollments ) %]
		960	<div id="clubs-tab">
		961	Loading...
		962	</div>
		963	[% END %]
		964
942	[% INCLUDE borrower_debarments.inc %]	965	[% INCLUDE borrower_debarments.inc %]
943		966
944	<div id="reserves">	967	<div id="reserves">




[% USE KohaDates %]
[% USE Branches %]
[% USE AuthorisedValues %]
[% SET AuthorisedValuesCategories = AuthorisedValues.GetCategories %]
[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Tools &rsaquo; Patron clubs &rsaquo; Club</title>
[% INCLUDE 'doc-head-close.inc' %]
[% INCLUDE 'calendar.inc' %]
</head>

<body id="clubs_add_modify" class="clubs">
[% 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="clubs.pl">Patron clubs</a> &rsaquo; Add / modify club</div>

<div class="yui-t7">
    <div class="yui-main">
        <form method="post" class="validated">
            <input type="hidden" name="id" value="[% club.id %]" />
            <input type="hidden" name="club_template_id" value="[% club_template.id %]" />

            <fieldset class="rows">

                <legend>
                    [% IF club %]
                        Modify club <i>[% club.name %]</i>
                    [% ELSE %]
                        Create a new <i>[% club_template.name %]</i> club
                    [% END %]
                </legend>

                <ol>
                    <li>
                        <label class="required" for="name">Name:</label>
                        <input id="club-name" name="name" type="text" value="[% club.name %]" required="required"/>
                        <span class="required">Required</span>
                    </li>

                    <li>
                        <label for="description">Description:</label>
                        <input id="club-template-name" name="description" type="text" value="[% club.description %]" />
                    </li>

                    <li>
                        <label for="date_start">Start date:</label>
                        <input name="date_start" id="from" size="10" readonly="readonly" class="datepickerfrom" value="[% club.date_start | $KohaDates %]">
                    </li>

                    <li>
                        <label for="date_end">End date:</label>
                        <input name="date_end" id="to" size="10" readonly="readonly" class="datepickerto" value="[% club.date_end | $KohaDates %]" >
                    </li>

                    <li>
                        <label for="name">Library:</label>
                        <select name="branchcode" id="club-template-branchcode">
                            <option value="">&nbsp</option>
                            [% PROCESS options_for_libraries libraries => Branches.all( selected => club.branch.branchcode ) %]
                        </select>
                    </li>

                    [% IF club %]
                        [% FOREACH f IN club.club_fields %]
                            <li>
                                <input type="hidden" name="club_template_field_id" value="[% f.club_template_field.id %]" />
                                <input type="hidden" name="club_field_id" value="[% f.id %]" />

                                <label for="club_field">[% f.club_template_field.name %]</label>
                                [% IF f.club_template_field.authorised_value_category %]
                                    <select name="club_field">
                                        [% FOREACH a IN AuthorisedValues.Get( f.club_template_field.authorised_value_category ) %]
                                            [% IF a.authorised_value == f.value %]
                                                <option value="[% a.authorised_value %]" selected="selected">[% a.lib %]</option>
                                            [% ELSE %]
                                                <option value="[% a.authorised_value %]">[% a.lib %]</option>
                                            [% END %]
                                        [% END %]
                                    </select>
                                [% ELSE %]
                                    <input type="text" name="club_field" value="[% f.value %]" />
                                [% END %]
                            </li>
                        [% END %]
                    [% ELSE %]
                        [% FOREACH f IN club_template.club_template_fields %]
                            <li>
                                <input type="hidden" name="club_template_field_id" value="[% f.id %]" />

                                <label for="club_field">[% f.name %]</label>
                                [% IF f.authorised_value_category %]
                                    <select name="club_field">
                                        [% FOREACH a IN AuthorisedValues.Get( f.authorised_value_category ) %]
                                            <option value="[% a.authorised_value %]">[% a.lib %]</option>
                                        [% END %]
                                    </select>
                                [% ELSE %]
                                    <input type="text" name="club_field" />
                                [% END %]
                            </li>
                        [% END %]
                    [% END %]

                </ol>

            </fieldset>

            <fieldset class="action">
                <input type="submit" class="btn btn-default" value="Save" />
                <a href="clubs.pl" class="cancel">Cancel</a>
            </fieldset>
        </form>
    </div>
</div>

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




[% USE Branches %]
[% USE Koha %]
[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Tools &rsaquo; Patron clubs</title>
[% INCLUDE 'doc-head-close.inc' %]

<link rel="stylesheet" type="text/css" href="[% interface %]/[% theme %]/css/datatables.css" />
[% INCLUDE 'datatables.inc' %]

<script type="text/javascript">
//<![CDATA[
    $(document).ready(function() {
        tTable = $('#club-templates-table').dataTable($.extend(true, {}, dataTablesDefaults, {
            "sPaginationType": "four_button",
            "sDom": 'C<"top pager"ilpf><"#filter_c">tr<"bottom pager"ip>',
            "aoColumnDefs": [
                    { "aTargets": [ -1, -2 ], "bSortable": false, "bSearchable": false },
            ]
        } ));

        cTable = $('#clubs-table').dataTable($.extend(true, {}, dataTablesDefaults, {
            "sPaginationType": "four_button",
            "sDom": 'C<"top pager"ilpf><"#filter_c">tr<"bottom pager"ip>',
            "aoColumnDefs": [
                    { "aTargets": [ -1, -2 ], "bSortable": false, "bSearchable": false },
            ]
        } ));
    });

    function ConfirmDeleteTemplate( id, name, a ) {
        if ( confirm( _("Are you sure you want to delete the club template %s?" ).format(name) ) ) {
            $.ajax({
                type: "POST",
                url: '/cgi-bin/koha/svc/club/template/delete',
                data: { id: id },
                success: function( data ) {
                    if ( data.success ) {
                        tTable.fnDeleteRow(a.closest("tr")[0]);
                    } else {
                        alert(_("Unable to delete template!"));
                    }
                },
                dataType: 'json'
            });
        }
    }

    function ConfirmDeleteClub( id, name, a ) {
        if ( confirm( _("Are you sure you want to delete the club %s?" ).format(name) ) ) {
            $.ajax({
                type: "POST",
                url: '/cgi-bin/koha/svc/club/delete',
                data: { id: id },
                success: function( data ) {
                    if ( data.success ) {
                        cTable.fnDeleteRow(a.closest("tr")[0]);
                    } else {
                        alert(_("Unable to delete club!"));
                    }
                },
                dataType: 'json'
            });
        }
    }
//]]>
</script>

</head>

<body id="clubs_clubs" class="clubs">
[% 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; Patron clubs</div>

<div id="doc3" class="yui-t2">
   <div id="bd">
        <div id="yui-main">
            <div class="yui-b">
                <h1>Patron clubs</h1>

                [% IF club_template %]
                    <div class="dialog message">
                        [% IF stored == 'updated' %]
                            <p>Club template <i>[% club_template.name %]</i> was updated.</p>
                        [% ELSE %]
                            <p>Club template <i>[% club_template.name %]</i> was saved.</p>
                        [% END %]
                    </div>
                [% ELSIF club %]
                    <div class="dialog message">
                        [% IF stored == 'updated' %]
                            <p>Club <i>[% club.name %]</i> was updated.</p>
                        [% ELSE %]
                            <p>Club <i>[% club.name %]</i> was saved.</p>
                        [% END %]
                    </div>
                [% END %]

                <h3>Club templates</h3>

                [% IF CAN_user_clubs_edit_templates %]
                    <div class="btn-toolbar">
                        <div class="btn-group">
                            <a class="btn btn-default" href="templates-add-modify.pl"><i class="fa fa-plus"></i> New club template</a>
                        </div>
                    </div>
                [% END %]

                <table id="club-templates-table">
                    <thead>
                        <tr>
                            <th>Name</th>
                            <th>Description</th>
                            <th>Public enrollment</th>
                            <th>Email required</th>
                            <th>Library</th>
                            <th>&nbsp;</th>
                            <th>&nbsp;</th>
                        </tr>
                    </thead>

                    <tbody>
                        [% IF club_templates %]
                            [% FOREACH t IN club_templates %]
                                <tr>
                                    <td>[% t.name %]</td>
                                    <td>[% t.description %]</td>
                                    <td>
                                        [% IF t.is_enrollable_from_opac %]
                                            Yes
                                        [% ELSE %]
                                            No
                                        [% END %]
                                    </td>
                                    <td>
                                        [% IF t.is_email_required %]
                                            Yes
                                        [% ELSE %]
                                            No
                                        [% END %]
                                    </td>
                                    <td>[% Branches.GetName( t.branchcode ) %]</td>
                                    <td>
                                        [% IF CAN_user_clubs_edit_templates %]
                                            <a class="btn btn-default" style="white-space:nowrap"  href="templates-add-modify.pl?id=[% t.id %]">
                                                <i class="fa fa-edit"></i> Edit
                                            </a>
                                        [% END %]
                                    </td>
                                    <td>
                                        [% IF CAN_user_clubs_edit_templates %]
                                            <a class="btn btn-default" href="#" onclick='ConfirmDeleteTemplate([% t.id %], "[% t.name | html %]", $(this) ); return false;'>
                                                <i class="fa fa-trash"></i> Delete
                                            </a>
                                        [% END %]
                                    </td>
                                </tr>
                            [% END %]
                        [% ELSE %]
                            <tr>
                                <td colspan="7">
                                    No club templates defined.
                                </td>
                            </td>
                        [% END %]
                    </tbody>
                </table>

                <h3>Clubs</h3>

                [% IF CAN_user_clubs_edit_clubs %]
                    <div class="btn-toolbar">
                        <div class="btn-group">
                            <button class="btn btn-default dropdown-toggle" data-toggle="dropdown"><i class="fa fa-plus"></i> New club <span class="caret"></span></button>
                            <ul class="dropdown-menu">
                                [% FOREACH t IN club_templates %]
                                    <li><a href="/cgi-bin/koha/clubs/clubs-add-modify.pl?club_template_id=[% t.id %]">[% t.name %]</a></li>
                                [% END %]
                            </ul>
                        </div>
                    </div>
                [% END %]

                <table id="clubs-table">
                    <thead>
                        <tr>
                            <th>Name</th>
                            <th>Template</th>
                            <th>Description</th>
                            <th>Public enrollment</th>
                            <th>Email required</th>
                            <th>Library</th>
                            <th>&nbsp;</th>
                            <th>&nbsp;</th>
                        </tr>
                    </thead>

                    <tbody>
                        [% IF clubs %]
                            [% FOREACH c IN clubs %]
                                <tr>
                                    <td>[% c.name %]</td>
                                    <td>[% c.club_template.name %]</td>
                                    <td>[% c.description %]</td>
                                    <td>
                                        [% IF c.club_template.is_enrollable_from_opac %]
                                            Yes
                                        [% ELSE %]
                                            No
                                        [% END %]
                                    </td>
                                    <td>
                                        [% IF c.club_template.is_email_required %]
                                            Yes
                                        [% ELSE %]
                                            No
                                        [% END %]
                                    </td>
                                    <td>[% Branches.GetName( c.branchcode ) %]</td>
                                    <td>
                                        [% IF CAN_user_clubs_edit_clubs %]
                                            <a class="btn btn-default" style="white-space:nowrap" href="clubs-add-modify.pl?id=[% c.id %]">
                                                <i class="fa fa-edit"></i> Edit
                                            </a>
                                        [% END %]
                                    </td>
                                    <td>
                                        [% IF CAN_user_clubs_edit_clubs %]
                                            <a class="btn btn-default" href="#" onclick='ConfirmDeleteClub([% c.id %], "[% c.name | html %]", $(this) ); return false;'>
                                                <i class="fa fa-trash"></i> Delete
                                            </a>
                                        [% END %]
                                    </td>
                                </tr>
                            [% END %]
                        [% ELSE %]
                            <tr>
                                <td colspan="8">
                                    No club templates defined.
                                </td>
                            </td>
                        [% END %]
                    </tbody>
                </table>
            </div>
        </div>
        <div class="yui-b noprint">
            [% INCLUDE 'tools-menu.inc' %]
        </div>
    </div>
</div>
[% INCLUDE 'intranet-bottom.inc' %]




[% USE KohaDates %]

[% IF enrollments %]
    <table>
        <thead>
            <tr>
                <th colspan="4">
                    Clubs currently enrolled in
                </th>
            </tr>
            <tr>
                <th>Name</th>
                <th>Description</th>
                <th>Date enrolled</th>
                [% IF CAN_user_clubs_enroll %]<th>&nbsp;</th>[% END %]
            </tr>
        </thead>

        <tbody>
            [% FOREACH e IN enrollments %]
                <tr>
                    <td>[% e.club.name %]</td>
                    <td>[% e.club.description %]</td>
                    <td>[% e.date_enrolled | $KohaDates %]</td>
                    [% IF CAN_user_clubs_enroll %]
                        <td>
                            <a class="btn btn-xs" onclick="cancelEnrollment( [% e.id %] )">
                                <i class="fa fa-remove"></i> Cancel
                            </a>
                        </td>
                    [% END %]
                </tr>
            [% END %]
        </tbody>
    </table>
[% END %]

[% IF clubs %]
    <table>
        <thead>
            <tr>
                <th colspan="3">
                    Clubs not enrolled in
                </th>
            </tr>
            <tr>
                <th>Name</th>
                <th>Description</th>
                [% IF CAN_user_clubs_enroll %]<th>&nbsp;</th>[% END %]
            </tr>
        </thead>

        <tbody>
            [% FOREACH c IN clubs %]
                <tr>
                    <td>[% c.name %]</td>
                    <td>[% c.description %]</td>
                    [% IF CAN_user_clubs_enroll %]
                        <td>
                            <a class="btn btn-xs" onclick="loadEnrollmentForm([% c.id %])">
                                <i class="fa fa-plus"></i> Enroll
                            </a>
                        </td>
                    [% END %]
                </tr>
            [% END %]
        </tbody>
    </table>
[% END %]

[% IF CAN_user_clubs_enroll %]
<script type="text/javascript">
function loadEnrollmentForm( id ) {
    $("body").css("cursor", "progress");
    $('#clubs-tab').load('/cgi-bin/koha/clubs/patron-enroll.pl?borrowernumber=[% borrowernumber %]&id=' + id, function() {
        $("body").css("cursor", "default");
    });

    return false;
}

function cancelEnrollment( id ) {
    $("body").css("cursor", "progress");
    $.ajax({
        type: "POST",
        url: '/cgi-bin/koha/svc/club/cancel_enrollment',
        data: { id: id },
        success: function( data ) {
            if ( data.success ) {
                $('#clubs-tab').load('/cgi-bin/koha/clubs/patron-clubs-tab.pl?borrowernumber=[% borrowernumber %]', function() {
                    $("body").css("cursor", "default");
                });
            } else {
                alert(_("Unable to cancel enrollment!"));
            }
        },
        dataType: 'json'
    });
    return false;
}
</script>
[% END %]




[% USE AuthorisedValues %]
[% SET AuthorisedValuesCategories = AuthorisedValues.GetCategories %]

<h3>
    Enroll in <i>[% club.name %]</i>
</h3>

<div class="container">
    <form id="patron-enrollment-form">
        <input type="hidden" name="id" value="[% club.id %]" />
        <input type="hidden" name="borrowernumber" value="[% borrowernumber %]" />
        <fieldset class="rows">
            <ol>
                [% FOREACH f IN club.club_template.club_template_enrollment_fields %]
                    <li>
                        <label>[% f.name %]</label>
                        [% IF f.authorised_value_category %]
                            <select name="[% f.id %]">
                                [% FOREACH a IN AuthorisedValues.Get( f.authorised_value_category ) %]
                                    <option value="[% a.authorised_value %]">[% a.lib %]</option>
                                [% END %]
                            </select>
                        [% ELSE %]
                            <input type="text" name="[% f.id %]" />
                        [% END %]
                        <span class="hint">[% f.description %]</span>
                    </li>
                [% END %]

                <li>
                    <a href="#" class="btn btn-default" onclick="addEnrollment(); return false;"><i class="fa fa-plus"></i> Enroll</a>
                    <a href="#" onclick="showClubs(); return false;">Cancel</a>
                </li>
            </ol>
        </fieldset>
    </form>
</div>

<script type="text/javascript">
function addEnrollment() {
    $("body").css("cursor", "progress");
    $.ajax({
        type: "POST",
        url: '/cgi-bin/koha/svc/club/enroll',
        data: $( "#patron-enrollment-form" ).serialize(),
        success: function( data ) {
            if ( data.success ) {
                $('#clubs-tab').load('/cgi-bin/koha/clubs/patron-clubs-tab.pl?borrowernumber=[% borrowernumber %]&id=[% club.id %]', function() {
                    $("body").css("cursor", "default");
                });
            } else {
                alert(_("Unable to create enrollment!"));
            }
        },
        dataType: 'json'
    });
    return false;
}

function showClubs() {
    $("body").css("cursor", "progress");
    $('#clubs-tab').load('/cgi-bin/koha/clubs/patron-clubs-tab.pl?borrowernumber=[% borrowernumber %]&id=[% club.id %]', function() {
        $("body").css("cursor", "default");
    });
}
</script>




[% USE Branches %]
[% USE AuthorisedValues %]
[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Tools &rsaquo; Patron clubs &rsaquo; Club template</title>
[% INCLUDE 'doc-head-close.inc' %]
</head>

<body id="clubs_templates_add_modify" class="clubs">
[% 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="clubs.pl">Patron clubs</a> &rsaquo; Add / modify club template</div>

<div class="yui-t7">
    <div class="yui-main">
        <form method="post" class="validated">
            <input type="hidden" name="id" value="[% club_template.id %]" />

            <fieldset class="rows">

                <legend>
                    [% IF club_template %]
                        Modify club template <i>[% club_template.name %]</i>
                    [% ELSE %]
                        Create a new club template
                    [% END %]
                </legend>

                <ol>
                    <li>
                        <label class="required" for="name">Name:</label>
                        <input id="club-template-name" name="name" type="text" value="[% club_template.name %]" required="required"/>
                        <span class="required">Required</span>
                    </li>

                    <li>
                        <label for="description">Description:</label>
                        <input id="club-template-description" name="description" type="text" value="[% club_template.description %]" />
                    </li>

                    <li>
                        <label for="is_enrollable_from_opac">Allow public enrollment:</label>
                        [% IF club_template.is_enrollable_from_opac %]
                            <input type="checkbox" id="club-template-is-enrollable-from-opac" name="is_enrollable_from_opac" checked="checked" />
                        [% ELSE %]
                            <input type="checkbox" id="club-template-is-enrollable-from-opac" name="is_enrollable_from_opac" />
                        [% END %]
                        <span class="hint">If a template allows public enrollment, patrons can enroll in a club based on this template from the public catalog.</span>
                    </li>

                    <li>
                        <label for="is_email_required">Require valid email address:</label>
                        [% IF club_template.is_email_required %]
                            <input type="checkbox" id="club-template-is-email-required" name="is_email_required" checked="checked" />
                        [% ELSE %]
                            <input type="checkbox" id="club-template-is-email-required" name="is_email_required" />
                        [% END %]
                        <span class="hint">If set, a club based on this template can only be enrolled in by patrons with a valid email address.</span>
                    </li>

                    <li>
                        <label for="branchcode">Library:</label>
                        <select name="branchcode" id="club-template-branchcode">
                            <option value="">&nbsp</option>
                            [% PROCESS options_for_libraries libraries => Branches.all( selected => club_template.branchcode ) %]
                        </select>
                        <span class="hint">If set, only librarians logged in with this branch will be able to modify this club template.</span>
                    </li>

                </ol>

                <h2>Club fields:</h2>
                <p><span class="hint">These fields will be used in the creation of clubs based on this template</span></p>
                <span id="club-template-fields">
                    [% FOREACH f IN club_template.club_template_fields %]
                        <ul>
                            <input type="hidden" name="club_template_field_id" value="[% f.id %]" />
                            <li>
                                <label for="field-name-[% f.id %]">Name:</label>
                                <input name="club_template_field_name" id="field-name-[% f.id %]" value="[% f.name %]" />
                            </li>

                            <li>
                                <label for="field-description-[% f.id %]">Description:</label>
                                <input name="club_template_field_description" id="field-description-[% f.id %]" value="[% f.description %]" />
                            </li>

                            <li>
                                <label for="field-description-[% f.id %]">Authorised value category:</label>
                                <select name="club_template_field_authorised_value_category" id="field-authorised-value-category-[% f.id %]">
                                    <option value="">&nbsp;</option>
                                    [% PROCESS options_for_authorised_value_categories authorised_value_categories => AuthorisedValues.GetCategories( selected => f.authorised_value_category) %]
                                </select>
                            </li>

                            <li>
                                <label for="field-delete-[% f.id %]">Delete field:</label>
                                <input type="checkbox" name="club_template_field_delete" id="field-delete-[% f.id %]" value="[% f.id %]" />
                            </li>

                            <hr/>
                        </ul>
                    [% END %]
                </span>
                <div class="btn-toolbar">
                    <a href="#" class="btn btn-default" onclick="$('#new-field-template').clone().attr('id','').show().appendTo('#club-template-fields'); return false;">
                        <i class="fa fa-plus"></i> Add new field
                    </a>
                </div>

                <h2>Enrollment fields:</h2>
                <p><span class="hint">These fields will be used when enrolling a patron in a club based on this template</span></p>
                <span id="club-template-enrollment-fields">
                    [% FOREACH f IN club_template.club_template_enrollment_fields %]
                        <ul>
                            <input type="hidden" name="club_template_enrollment_field_id" value="[% f.id %]" />
                            <li>
                                <label for="enrollment-field-name-[% f.id %]">Name:</label>
                                <input name="club_template_enrollment_field_name" id="enrollment-field-name-[% f.id %]" value="[% f.name %]" />
                            </li>

                            <li>
                                <label for="enrollment-field-description-[% f.id %]">Description:</label>
                                <input name="club_template_enrollment_field_description" id="enrollment-field-description-[% f.id %]" value="[% f.description %]" />
                            </li>

                            <li>
                                <label for="enrollment-field-description-[% f.id %]">Authorised value category:</label>
                                <select name="club_template_enrollment_field_authorised_value_category" id="enrollment-field-authorised-value-category-[% f.id %]">
                                    <option value="">&nbsp;</option>
                                    [% PROCESS options_for_authorised_value_categories authorised_value_categories => AuthorisedValues.GetCategories( selected => f.authorised_value_category) %]
                                </select>
                            </li>

                            <li>
                                <label for="enrollment-field-delete-[% f.id %]">Delete field:</label>
                                <input type="checkbox" name="club_template_enrollment_field_delete" id="enrollment-field-delete-[% f.id %]" value="[% f.id %]" />
                            </li>

                            <hr/>
                        </ul>
                    [% END %]
                </span>
                <div class="btn-toolbar">
                    <a href="#" class="btn btn-default" onclick="$('#new-enrollment-field-template').clone().attr('id','').show().appendTo('#club-template-enrollment-fields'); return false;">
                        <i class="fa fa-plus"></i> Add new field
                    </a>
                </div>

            </fieldset>

            <fieldset class="action">
                <input type="hidden" name="id" value="[% club_template.id %]" />
                <input type="submit" class="btn btn-default" value="Save" />
                <a href="clubs.pl" class="cancel">Cancel</a>
            </fieldset>
        </form>
    </div>
</div>

<span id="new-field-template" style="display:none">
    <ul>
        <input type="hidden" name="club_template_field_id" value="" />

        <li>
            <label for="club_template_field_name">Name:</label>
            <input name="club_template_field_name" />
        </li>

        <li>
            <label for="club_template_field_description">Description:</label>
            <input name="club_template_field_description" />
        </li>

        <li>
            <label for="club_template_field_authorised_value_category">Authorised value category:</label>
            <select name="club_template_field_authorised_value_category">
                <option value="">&nbsp;</option>
                [% PROCESS options_for_authorised_value_categories authorised_value_categories => AuthorisedValues.GetCategories() %]
            </select>
        </li>

        <a href="#" onclick="$(this).parent().remove(); return false;">Cancel</a>

        <hr/>
    </ul>
</span>

<span id="new-enrollment-field-template" style="display:none">
    <ul>
        <input type="hidden" name="club_template_enrollment_field_id" value="" />

        <li>
            <label for="club_template_enrollment_field_name">Name:</label>
            <input name="club_template_enrollment_field_name" />
        </li>

        <li>
            <label for="club_template_enrollment_field_description">Description:</label>
            <input name="club_template_enrollment_field_description" />
        </li>

        <li>
            <label for="club_template_enrollment_field_authorised_value_category">Authorised value category:</label>
            <select name="club_template_enrollment_field_authorised_value_category">
                <option value="">&nbsp;</option>
                [% PROCESS options_for_authorised_value_categories authorised_value_categories => AuthorisedValues.GetCategories() %]
            </select>
        </li>

        <a href="#" onclick="$(this).parent().remove(); return false;">Cancel</a>

        <hr/>
    </ul>
</span>

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

Lines 48-53 var MSG_EXPORT_SELECT_CHECKOUTS = _("You must select checkout(s) to export"); Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt (+22 lines)
48	columns_settings = [% ColumnsSettings.GetColumns( 'members', 'moremember', 'issues-table', 'json' ) %]	48	columns_settings = [% ColumnsSettings.GetColumns( 'members', 'moremember', 'issues-table', 'json' ) %]
49		49
50	$(document).ready(function() {	50	$(document).ready(function() {
		51	if ( $('#clubs-tab').length ) {
		52	$('#clubs-tab-link').on('click', function() {
		53	$('#clubs-tab').text(_("Loading..."));
		54	$('#clubs-tab').load('/cgi-bin/koha/clubs/patron-clubs-tab.pl?borrowernumber=[% borrowernumber %]');
		55	});
		56	}
		57
51	$('#finesholdsissues').tabs({	58	$('#finesholdsissues').tabs({
52	// Correct table sizing for tables hidden in tabs	59	// Correct table sizing for tables hidden in tabs
53	// http://www.datatables.net/examples/api/tabs_and_scrolling.html	60	// http://www.datatables.net/examples/api/tabs_and_scrolling.html
Lines 519-524 function validate1(date) { Link Here
519	</li>	526	</li>
520	[% END %]	527	[% END %]
521	<li><a id="debarments-tab-link" href="#reldebarments">[% debarments.size %] Restrictions</a></li>	528	<li><a id="debarments-tab-link" href="#reldebarments">[% debarments.size %] Restrictions</a></li>
		529	[% SET enrollments = borrower.get_club_enrollments.size \|\| 0 %]
		530	[% SET enrollable = borrower.get_enrollable_clubs.size \|\| 0 %]
		531	[% IF CAN_user_clubs && ( enrollments \|\| enrollable ) %]
		532	<li>
		533	<a id="clubs-tab-link" href="#clubs-tab">
		534	Clubs ([% enrollments %]/[% enrollable %])
		535	</a>
		536	</li>
		537	[% END %]
522	</ul>	538	</ul>
523		539
524	[% INCLUDE "checkouts-table.inc" %]	540	[% INCLUDE "checkouts-table.inc" %]
Lines 554-559 function validate1(date) { Link Here
554	[% END %]	570	[% END %]
555	</div>	571	</div>
556		572
		573	[% IF CAN_user_clubs && ( enrollments \|\| enrollable ) %]
		574	<div id="clubs-tab">
		575	Loading...
		576	</div>
		577	[% END %]
		578
557	[% INCLUDE borrower_debarments.inc %]	579	[% INCLUDE borrower_debarments.inc %]
558		580
559	<div id="reserves">	581	<div id="reserves">

Lines 20-25 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/tools-home.tt (+5 lines)
20	<dd>Manage lists of patrons.</dd>	20	<dd>Manage lists of patrons.</dd>
21	[% END %]	21	[% END %]
22		22
		23	[% IF (CAN_user_clubs) %]
		24	<dt><a href="/cgi-bin/koha/clubs/clubs.pl">Patron clubs</a>
		25	<dd>Manage patron clubs..</dd>
		26	[% END %]
		27
23	[% IF ( CAN_user_tools_moderate_comments ) %]	28	[% IF ( CAN_user_tools_moderate_comments ) %]
24	<dt><a href="/cgi-bin/koha/reviews/reviewswaiting.pl">Comments</a> [% IF ( pendingcomments ) %]<span class="number_box"><a href="/cgi-bin/koha/reviews/reviewswaiting.pl">[% pendingcomments %]</a></span>[% END %]</dt>	29	<dt><a href="/cgi-bin/koha/reviews/reviewswaiting.pl">Comments</a> [% IF ( pendingcomments ) %]<span class="number_box"><a href="/cgi-bin/koha/reviews/reviewswaiting.pl">[% pendingcomments %]</a></span>[% END %]</dt>
25	<dd>Moderate patron comments. </dd>	30	<dd>Moderate patron comments. </dd>




[% USE KohaDates %]

[% IF enrollments %]
    <table id="clubs-table-enrolled" class="table table-bordered table-striped">
        <thead>
            <tr>
                <th colspan="4">
                    Clubs you are currently enrolled in
                </th>
            </tr>
            <tr>
                <th>Name</th>
                <th>Description</th>
                <th>Date enrolled</th>
                <th>&nbsp;</th>
            </tr>
        </thead>

        <tbody>
            [% FOREACH e IN enrollments %]
                <tr>
                    <td>[% e.club.name %]</td>
                    <td>[% e.club.description %]</td>
                    <td>[% e.date_enrolled | $KohaDates %]</td>
                    [% IF e.club.club_template.is_enrollable_from_opac %]
                        <td>
                            <a class="btn btn-xs" onclick="cancelEnrollment( [% e.id %] )">
                                <i class="icon-remove"></i> Cancel
                            </a>
                        </td>
                    [% END %]
                </tr>
            [% END %]
        </tbody>
    </table>
[% END %]

[% IF clubs %]
    <table id="clubs-table-unenrolled" class="table table-bordered table-striped">
        <thead>
            <tr>
                <th colspan="3">
                    Clubs you can enroll in
                </th>
            </tr>
            <tr>
                <th>Name</th>
                <th>Description</th>
                <th>&nbsp;</th>
            </tr>
        </thead>

        <tbody>
            [% FOREACH c IN clubs %]
                <tr>
                    <td>[% c.name %]</td>
                    <td>[% c.description %]</td>
                    <td>
                        [% IF !c.club_template.is_email_required || ( c.club_template.is_email_required && borrower.FirstValidEmailAddress ) %]
                            <a class="btn btn-xs" onclick="loadEnrollmentForm([% c.id %])">
                                <i class="icon-plus"></i> Enroll
                            </a>
                        [% ELSE %]
                            <span class="hint">You must have an email address to enroll</span>
                        [% END %]
                    </td>
                </tr>
            [% END %]
        </tbody>
    </table>
[% END %]

<script type="text/javascript">
function loadEnrollmentForm( id ) {
    $("body").css("cursor", "progress");
    $('#opac-user-clubs').load('/cgi-bin/koha/clubs/enroll.pl?borrowernumber=[% borrower.borrowernumber %]&id=' + id, function() {
        $("body").css("cursor", "default");
    });

    return false;
}

function cancelEnrollment( id ) {
    $("body").css("cursor", "progress");
    $.ajax({
        type: "POST",
        url: '/cgi-bin/koha/svc/club/cancel_enrollment',
        data: { id: id },
        success: function( data ) {
            if ( data.success ) {
                $('#opac-user-clubs').load('/cgi-bin/koha/clubs/clubs-tab.pl?borrowernumber=[% borrower.borrowernumber %]', function() {
                    $("body").css("cursor", "default");
                });
            } else {
                alert(_("Unable to cancel enrollment!"));
            }
        },
        dataType: 'json'
    });
    return false;
}
</script>




[% USE AuthorisedValues %]
[% SET AuthorisedValuesCategories = AuthorisedValues.GetCategories %]

<h3>
    Enroll in <i>[% club.name %]</i>
</h3>

<div class="container">
    <form id="patron-enrollment-form">
        <input type="hidden" name="id" value="[% club.id %]" />
        <input type="hidden" name="borrowernumber" value="[% borrowernumber %]" />
        <fieldset class="rows">
            <ol>
                [% FOREACH f IN club.club_template.club_template_enrollment_fields %]
                    <li>
                        <label>[% f.name %]</label>
                        [% IF f.authorised_value_category %]
                            <select name="[% f.id %]">
                                [% FOREACH a IN AuthorisedValues.Get( f.authorised_value_category ) %]
                                    <option value="[% a.authorised_value %]">[% a.lib %]</option>
                                [% END %]
                            </select>
                        [% ELSE %]
                            <input type="text" name="[% f.id %]" />
                        [% END %]
                        <span class="hint">[% f.description %]</span>
                    </li>
                [% END %]

                <li>
                    <a href="#" class="btn btn-default" onclick="addEnrollment(); return false;"><i class="fa fa-plus"></i> Enroll</a>
                    <a href="#" onclick="showClubs(); return false;">Cancel</a>
                </li>
            </ol>
        </fieldset>
    </form>
</div>

<script type="text/javascript">
function addEnrollment() {
    $("body").css("cursor", "progress");
    $.ajax({
        type: "POST",
        url: '/cgi-bin/koha/svc/club/enroll',
        data: $( "#patron-enrollment-form" ).serialize(),
        success: function( data ) {
            if ( data.success ) {
                $('#opac-user-clubs').load('/cgi-bin/koha/clubs/clubs-tab.pl?borrowernumber=[% borrowernumber %]&id=[% club.id %]', function() {
                    $("body").css("cursor", "default");
                });
            } else {
                alert(_("Unable to create enrollment!"));
            }
        },
        dataType: 'json'
    });
    return false;
}

function showClubs() {
    $("body").css("cursor", "progress");
    $('#opac-user-clubs').load('/cgi-bin/koha/clubs/clubs-tab.pl?borrowernumber=[% borrowernumber %]&id=[% club.id %]', function() {
        $("body").css("cursor", "default");
    });
}
</script>

Lines 82-88 Using this account is not recommended because some parts of Koha will not functi Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-user.tt (-1 / +23 lines)
82	[% ELSIF error == 'too_soon' %]	82	[% ELSIF error == 'too_soon' %]
83	It is too soon after the checkout date for this item to be renewed.	83	It is too soon after the checkout date for this item to be renewed.
84	[% ELSIF error == 'on_reserve' %]	84	[% ELSIF error == 'on_reserve' %]
85	This item is on hold for another patron.	85	This item is on hold for another borrower.
86	[% END %]	86	[% END %]
87	[% END %]	87	[% END %]
88	</span>	88	</span>
Lines 133-138 Using this account is not recommended because some parts of Koha will not functi Link Here
133	[% IF ( BORROWER_INFO.amountoverzero ) %]<li><a href="#opac-user-fines">Fines ([% amountoutstanding \| $Price %])</a></li>[% END %]	133	[% IF ( BORROWER_INFO.amountoverzero ) %]<li><a href="#opac-user-fines">Fines ([% amountoutstanding \| $Price %])</a></li>[% END %]
134	[% IF ( BORROWER_INFO.amountlessthanzero ) %]<li><a href="#opac-user-fines">Credits ([% amountoutstanding \| $Price %])</a></li>[% END %]	134	[% IF ( BORROWER_INFO.amountlessthanzero ) %]<li><a href="#opac-user-fines">Credits ([% amountoutstanding \| $Price %])</a></li>[% END %]
135	[% END %]	135	[% END %]
		136
		137	[% IF borrower.get_club_enrollments.size \|\| borrower.get_enrollable_clubs(1).size %]
		138	<li>
		139	<a id="opac-user-clubs-tab-link" href="#opac-user-clubs">
		140	Clubs ([% borrower.get_club_enrollments.size %]/[% borrower.get_enrollable_clubs(1).size \|\| 0 %])
		141	</a>
		142	</li>
		143	[% END %]
		144
136	[% IF ( RESERVES.count ) %]<li><a href="#opac-user-holds">Holds ([% RESERVES.count %])</a></li>[% END %]	145	[% IF ( RESERVES.count ) %]<li><a href="#opac-user-holds">Holds ([% RESERVES.count %])</a></li>[% END %]
137	[% IF Koha.Preference('ArticleRequests') && borrower.article_requests_current %]<li><a href="#opac-user-article-requests">Article requests ([% borrower.article_requests_current.count %])</a></li>[% END %]	146	[% IF Koha.Preference('ArticleRequests') && borrower.article_requests_current %]<li><a href="#opac-user-article-requests">Article requests ([% borrower.article_requests_current.count %])</a></li>[% END %]
138	[% IF ( OverDriveCirculation ) %]	147	[% IF ( OverDriveCirculation ) %]
Lines 315-320 Using this account is not recommended because some parts of Koha will not functi Link Here
315	[% END # IF issues_count %]	324	[% END # IF issues_count %]
316	</div> <!-- / .opac-user-checkouts -->	325	</div> <!-- / .opac-user-checkouts -->
317		326
		327	[% IF borrower.get_club_enrollments_count.size \|\| borrower.get_enrollable_clubs(1).size %]
		328	<div id="opac-user-clubs">
		329	Loading...
		330	</div>
		331	[% END %]
		332
318	[% IF ( OPACFinesTab ) %]	333	[% IF ( OPACFinesTab ) %]
319	<!-- FINES BOX -->	334	<!-- FINES BOX -->
320	[% IF BORROWER_INFO.amountoverfive %]	335	[% IF BORROWER_INFO.amountoverfive %]
Lines 893-898 Using this account is not recommended because some parts of Koha will not functi Link Here
893	[% END %]	908	[% END %]
894		909
895	$( ".suspend-until" ).datepicker({ minDate: 1 }); // Require that "until date" be in the future	910	$( ".suspend-until" ).datepicker({ minDate: 1 }); // Require that "until date" be in the future
		911
		912	if ( $('#opac-user-clubs').length ) {
		913	$('#opac-user-clubs-tab-link').on('click', function() {
		914	$('#opac-user-clubs').text(_("Loading..."));
		915	$('#opac-user-clubs').load('/cgi-bin/koha/clubs/clubs-tab.pl?borrowernumber=[% borrowernumber %]');
		916	});
		917	}
896	});	918	});
897	//]]>	919	//]]>
898	</script>	920	</script>

Lines 64-69 if ( C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preferen Link Here

(-)a/members/moremember.pl (+2 lines)
64	use DateTime;	64	use DateTime;
65	use Koha::DateUtils;	65	use Koha::DateUtils;
66	use Koha::Database;	66	use Koha::Database;
		67	use Koha::Patrons;
67	use Koha::Patron::Categories;	68	use Koha::Patron::Categories;
68	use Koha::Token;	69	use Koha::Token;
69		70
Lines 356-361 $template->param( Link Here
356	PatronsPerPage => C4::Context->preference("PatronsPerPage") \|\| 20,	357	PatronsPerPage => C4::Context->preference("PatronsPerPage") \|\| 20,
357	relatives_issues_count => $relatives_issues_count,	358	relatives_issues_count => $relatives_issues_count,
358	relatives_borrowernumbers => \@relatives,	359	relatives_borrowernumbers => \@relatives,
		360	borrower => Koha::Patrons->find( $borrowernumber ),
359	);	361	);
360		362
361	output_html_with_http_headers $input, $cookie, $template->output;	363	output_html_with_http_headers $input, $cookie, $template->output;




#!/usr/bin/perl

# Copyright 2013 ByWater Solutions
#
# 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>.

use Modern::Perl;

use CGI;

use C4::Auth;
use C4::Output;
use Koha::Patrons;

my $cgi = new CGI;

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
    {
        template_name   => "clubs/clubs-tab.tt",
        query           => $cgi,
        type            => "opac",
        authnotrequired => 0,
    }
);

my $borrowernumber = $cgi->param('borrowernumber');

my $borrower = Koha::Patrons->find($borrowernumber);

my @enrollments = $borrower->get_club_enrollments();
my @clubs = $borrower->get_enrollable_clubs( my $opac = 1 );

$template->param(
    enrollments => \@enrollments,
    clubs       => \@clubs,
    borrower    => $borrower,
);

output_html_with_http_headers( $cgi, $cookie, $template->output );




#!/usr/bin/perl

# Copyright 2013 ByWater Solutions
#
# 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>.

use Modern::Perl;

use CGI;

use C4::Auth;
use C4::Output;
use Koha::Clubs;

my $cgi = new CGI;

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
    {
        template_name   => "clubs/enroll.tt",
        query           => $cgi,
        type            => "opac",
        authnotrequired => 0,
    }
);

my $id             = $cgi->param('id');
my $borrowernumber = $cgi->param('borrowernumber');

my $club = Koha::Clubs->find($id);

$template->param(
    club           => $club,
    borrowernumber => $borrowernumber,
);

output_html_with_http_headers( $cgi, $cookie, $template->output );




#!/usr/bin/perl

# Copyright 2014 ByWater Solutions
#
# 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 2 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#

use Modern::Perl;

use CGI;
use JSON qw(to_json);

use C4::Auth qw(check_cookie_auth);
use Koha::Club::Enrollments;

my $cgi = new CGI;

my ( $auth_status, $sessionID ) =
  check_cookie_auth( $cgi->cookie('CGISESSID') );
if ( $auth_status ne "ok" ) {
    exit 0;
}

my $borrowernumber = C4::Context->userenv->{'number'};

my $id = $cgi->param('id');

my $enrollment = Koha::Club::Enrollments->find($id);
$enrollment->cancel();

binmode STDOUT, ':encoding(UTF-8)';
print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );

print to_json( { success => $enrollment ? 1 : 0 } );




#!/usr/bin/perl

# Copyright 2014 ByWater Solutions
#
# 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 2 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#

use Modern::Perl;

use CGI;
use JSON qw(to_json);

use C4::Auth qw(check_cookie_auth);
use Koha::Club::Enrollment::Field;
use Koha::Club::Enrollment;
use Koha::Clubs;

my $cgi = new CGI;

my ( $auth_status, $sessionID ) =
  check_cookie_auth( $cgi->cookie('CGISESSID') );
if ( $auth_status ne "ok" ) {
    exit 0;
}

my $borrowernumber = C4::Context->userenv->{'number'};

my $id = $cgi->param('id');

my $enrollment;
if ( $borrowernumber && $id ) {
    my $club = Koha::Clubs->find($id);

    if ( $club->club_template()->is_enrollable_from_opac() ) {
        $enrollment = Koha::Club::Enrollment->new()->set(
            {
                club_id        => $club->id(),
                borrowernumber => $borrowernumber,
                date_enrolled  => \'NOW()',
                date_created   => \'NOW()',
                branchcode     => C4::Context->userenv
                ? C4::Context->userenv->{'branch'}
                : undef,
            }
        )->store();

        my @enrollment_fields = $club->club_template()->club_template_enrollment_fields();

        foreach my $e (@enrollment_fields) {
            Koha::Club::Enrollment::Field->new()->set(
                {
                    club_enrollment_id                => $enrollment->id(),
                    club_template_enrollment_field_id => $e->id(),
                    value                             => $cgi->param( $e->id() ),
                }
            )->store();
        }
    }
}

binmode STDOUT, ':encoding(UTF-8)';
print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );

print to_json( { success => $enrollment ? 1 : 0 } );




#!/usr/bin/perl

# Copyright 2014 ByWater Solutions
#
# 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 2 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#

use Modern::Perl;

use CGI;
use JSON qw(to_json);

use C4::Auth qw(check_cookie_auth);

use Koha::Club::Enrollments;

my $cgi = new CGI;

my ( $auth_status, $sessionID ) =
  check_cookie_auth( $cgi->cookie('CGISESSID'), { clubs => 'enroll' } );
if ( $auth_status ne "ok" ) {
    exit 0;
}

my $id = $cgi->param('id');

my $enrollment = Koha::Club::Enrollments->find($id);
$enrollment->cancel() if $enrollment;

binmode STDOUT, ':encoding(UTF-8)';
print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );

print to_json( { success => $enrollment ? 1 : 0 } );




#!/usr/bin/perl

# Copyright 2014 ByWater Solutions
#
# 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 2 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#

use Modern::Perl;

use CGI;
use JSON qw(to_json);

use C4::Auth qw(check_cookie_auth);
use Koha::Clubs;

my $cgi = new CGI;

my ( $auth_status, $sessionID ) = check_cookie_auth( $cgi->cookie('CGISESSID'), { clubs => 'edit_clubs' } );
if ( $auth_status ne "ok" ) {
    exit 0;
}

my $success = 0;

my $id = $cgi->param('id');

my $club = Koha::Clubs->find($id);
if ($club) {
    $success = $club->delete();
}

binmode STDOUT, ':encoding(UTF-8)';
print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );

print to_json( { success => $success ? 1 : 0 } );




#!/usr/bin/perl

# Copyright 2014 ByWater Solutions
#
# 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 2 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#

use Modern::Perl;

use CGI;
use JSON qw(to_json);

use C4::Auth qw(check_cookie_auth);
use Koha::Club::Enrollment::Fields;
use Koha::Club::Enrollments;
use Koha::Clubs;

my $cgi = new CGI;

my ( $auth_status, $sessionID ) =
  check_cookie_auth( $cgi->cookie('CGISESSID'), { clubs => 'enroll' } );
if ( $auth_status ne "ok" ) {
    exit 0;
}

my $id             = $cgi->param('id');
my $borrowernumber = $cgi->param('borrowernumber');

my $club = Koha::Clubs->find($id);

my $enrollment;
if ($club) {
    $enrollment = Koha::Club::Enrollment->new(
        {
            club_id        => $club->id(),
            borrowernumber => $borrowernumber,
            date_enrolled  => \'NOW()',
            date_created   => \'NOW()',
            branchcode     => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
        }
    )->store();

    if ($enrollment) {
        my @enrollment_fields = $club->club_template()->club_template_enrollment_fields();

        foreach my $e (@enrollment_fields) {
            my $club_enrollment_field = Koha::Club::Enrollment::Field->new(
                {
                    club_enrollment_id                => $enrollment->id(),
                    club_template_enrollment_field_id => $e->id(),
                    value                             => $cgi->param( $e->id() ),
                }
            )->store();
        }
    }
}

binmode STDOUT, ':encoding(UTF-8)';
print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );

print to_json( { success => $enrollment ? 1 : 0 } );




#!/usr/bin/perl

# Copyright 2014 ByWater Solutions
#
# 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 2 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#

use Modern::Perl;

use CGI;
use JSON qw(to_json);

use C4::Auth qw(check_cookie_auth);

use Koha::Club::Templates;

my $cgi = new CGI;

my ( $auth_status, $sessionID ) = check_cookie_auth( $cgi->cookie('CGISESSID'), { clubs => 'edit_templates' } );
if ( $auth_status ne "ok" ) {
    exit 0;
}

my $success = 0;

my $id = $cgi->param('id');

my $club_template = Koha::Club::Templates->find($id);
if ($club_template) {
    $success = $club_template->delete();
}

binmode STDOUT, ':encoding(UTF-8)';
print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );

print to_json( { success => $success ? 1 : 0 } );




#!/usr/bin/perl

# 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>.

use Modern::Perl;

use Test::More tests => 36;
use Test::Warn;

use C4::Context;
use Koha::Database;
use Koha::Patrons;

use t::lib::TestBuilder;

BEGIN {
    use_ok('Koha::Club');
    use_ok('Koha::Clubs');
    use_ok('Koha::Club::Field');
    use_ok('Koha::Club::Fields');
    use_ok('Koha::Club::Template');
    use_ok('Koha::Club::Templates');
    use_ok('Koha::Club::Template::Field');
    use_ok('Koha::Club::Template::Fields');
    use_ok('Koha::Club::Enrollment::Field');
    use_ok('Koha::Club::Enrollment::Fields');
    use_ok('Koha::Club::Template::EnrollmentField');
    use_ok('Koha::Club::Template::EnrollmentFields');
}

# Start transaction
my $database = Koha::Database->new();
my $schema   = $database->schema();
my $dbh      = C4::Context->dbh;
my $builder  = t::lib::TestBuilder->new;

$schema->storage->txn_begin();
$dbh->do("DELETE FROM club_templates");

my $categorycode = $builder->build( { source => 'Category' } )->{categorycode};
my $branchcode   = $builder->build( { source => 'Branch' } )->{branchcode};

my $patron = Koha::Patron->new(
    {
        surname      => 'Test 1',
        branchcode   => $branchcode,
        categorycode => $categorycode
    }
);
$patron->store();

my $club_template = Koha::Club::Template->new(
    {
        name                    => "Test Club Template",
        is_enrollable_from_opac => 0,
        is_email_required       => 0,
    }
)->store();
is( ref($club_template), 'Koha::Club::Template', 'Club template created' );

# Add some template fields
my $club_template_field_1 = Koha::Club::Template::Field->new(
    {
        club_template_id => $club_template->id,
        name             => 'Test Club Template Field 1',
    }
)->store();
is( ref($club_template_field_1),
    'Koha::Club::Template::Field', 'Club template field 1 created' );

my $club_template_field_2 = Koha::Club::Template::Field->new(
    {
        club_template_id => $club_template->id,
        name             => 'Test Club Template Field 2',
    }
)->store();
is( ref($club_template_field_2),
    'Koha::Club::Template::Field', 'Club template field 2 created' );

is( $club_template->club_template_fields->count,
    2, 'Club template has two fields' );

## Add some template enrollment fields
my $club_template_enrollment_field_1 =
  Koha::Club::Template::EnrollmentField->new(
    {
        club_template_id => $club_template->id,
        name             => 'Test Club Template EnrollmentField 1',
    }
  )->store();
is(
    ref($club_template_enrollment_field_1),
    'Koha::Club::Template::EnrollmentField',
    'Club template field 1 created'
);

my $club_template_enrollment_field_2 =
  Koha::Club::Template::EnrollmentField->new(
    {
        club_template_id => $club_template->id,
        name             => 'Test Club Template EnrollmentField 2',
    }
  )->store();
is(
    ref($club_template_enrollment_field_2),
    'Koha::Club::Template::EnrollmentField',
    'Club template field 2 created'
);

is( $club_template->club_template_enrollment_fields->count,
    2, 'Club template has two enrollment fields' );

## Create a club based on this template
my $club = Koha::Club->new(
    {
        club_template_id => $club_template->id,
        name             => "Test Club",
        branchcode       => $branchcode,
    }
)->store();

my $club_field_1 = Koha::Club::Field->new(
    {
        club_template_field_id => $club_template_field_1->id,
        club_id                => $club->id,
        value                  => 'TEST',
    }
)->store();
is( ref($club_field_1), 'Koha::Club::Field', 'Club field 1 created' );
is(
    $club_field_1->club_template_field->id,
    $club_template_field_1->id,
    'Field 2 is linked to correct template field'
);

my $club_field_2 = Koha::Club::Field->new(
    {
        club_template_field_id => $club_template_field_2->id,
        club_id                => $club->id,
        value                  => 'TEST',
    }
)->store();
is( ref($club_field_2), 'Koha::Club::Field', 'Club field 2 created' );
is(
    $club_field_2->club_template_field->id,
    $club_template_field_2->id,
    'Field 2 is linked to correct template field'
);

is( ref($club), 'Koha::Club', 'Club created' );
is( $club->club_template->id,
    $club_template->id, 'Club is using correct template' );
is( $club->branch->id, $branchcode, 'Club is using correct branch' );
is( $club->club_fields->count, 2, 'Club has correct number of fields' );
is( Koha::Clubs->get_enrollable( { borrower => $patron } )->count,
    1, 'Koha::Clubs->get_enrollable returns 1 enrollable club for patron' );
is( $patron->get_enrollable_clubs->count,
    1, 'There is 1 enrollable club for patron' );

## Create an enrollment for this club
my $club_enrollment = Koha::Club::Enrollment->new(
    {
        club_id        => $club->id,
        borrowernumber => $patron->id,
        branchcode     => $branchcode,
    }
)->store();
is( ref($club_enrollment), 'Koha::Club::Enrollment',
    'Club enrollment created' );

my $club_enrollment_field_1 = Koha::Club::Enrollment::Field->new(
    {
        club_enrollment_id => $club_enrollment->id,
        club_template_enrollment_field_id =>
          $club_template_enrollment_field_1->id,
        value => 'TEST',
    }
)->store();
is(
    ref($club_enrollment_field_1),
    'Koha::Club::Enrollment::Field',
    'Enrollment field 1 created'
);

my $club_enrollment_field_2 = Koha::Club::Enrollment::Field->new(
    {
        club_enrollment_id => $club_enrollment->id,
        club_template_enrollment_field_id =>
          $club_template_enrollment_field_2->id,
        value => 'TEST',
    }
)->store();
is(
    ref($club_enrollment_field_2),
    'Koha::Club::Enrollment::Field',
    'Enrollment field 2 created'
);

is( $club_enrollment->club->id, $club->id, 'Got correct club for enrollment' );
is( Koha::Clubs->get_enrollable( { borrower => $patron } )->count,
    0, 'Koha::Clubs->get_enrollable returns 0 enrollable clubs for patron' );
is( $patron->get_club_enrollments->count,
    1, 'Got 1 club enrollment for patron' );
is( $patron->get_enrollable_clubs->count,
    0, 'No more enrollable clubs for patron' );

$schema->storage->txn_rollback();
1;

Return to bug 12461

Lines 260-266 sub get_template_and_user { Link Here

(-)a/C4/Auth.pm (-2 / +3 lines)
260	my $all_perms = get_all_subpermissions();	260	my $all_perms = get_all_subpermissions();
261		261
262	my @flagroots = qw(circulate catalogue parameters borrowers permissions reserveforothers borrow	262	my @flagroots = qw(circulate catalogue parameters borrowers permissions reserveforothers borrow
263	editcatalogue updatecharges management tools editauthorities serials reports acquisition);	263	editcatalogue updatecharges management tools editauthorities serials reports acquisition clubs);
264		264
265	# We are going to use the $flags returned by checkauth	265	# We are going to use the $flags returned by checkauth
266	# to create the template's parameters that will indicate	266	# to create the template's parameters that will indicate
Lines 283-290 sub get_template_and_user { Link Here
283	$template->param( CAN_user_staffaccess => 1 );	283	$template->param( CAN_user_staffaccess => 1 );
284	$template->param( CAN_user_plugins => 1 );	284	$template->param( CAN_user_plugins => 1 );
285	$template->param( CAN_user_coursereserves => 1 );	285	$template->param( CAN_user_coursereserves => 1 );
286	foreach my $module ( keys %$all_perms ) {	286	$template->param( CAN_user_clubs => 1 );
287		287
		288	foreach my $module ( keys %$all_perms ) {
288	foreach my $subperm ( keys %{ $all_perms->{$module} } ) {	289	foreach my $subperm ( keys %{ $all_perms->{$module} } ) {
289	$template->param( "CAN_user_${module}_${subperm}" => 1 );	290	$template->param( "CAN_user_${module}_${subperm}" => 1 );
290	}	291	}

Lines 974-993 addresses. Link Here

(-)a/C4/Members.pm (-13 / +3 lines)
974		974
975	sub GetFirstValidEmailAddress {	975	sub GetFirstValidEmailAddress {
976	my $borrowernumber = shift;	976	my $borrowernumber = shift;
977	my $dbh = C4::Context->dbh;
978	my $sth = $dbh->prepare( "SELECT email, emailpro, B_email FROM borrowers where borrowernumber = ? ");
979	$sth->execute( $borrowernumber );
980	my $data = $sth->fetchrow_hashref;
981		977
982	if ($data->{'email'}) {	978	my $borrower = Koha::Patrons->find( $borrowernumber );
983	return $data->{'email'};	979
984	} elsif ($data->{'emailpro'}) {	980	return $borrower->first_valid_email_address();
985	return $data->{'emailpro'};
986	} elsif ($data->{'B_email'}) {
987	return $data->{'B_email'};
988	} else {
989	return '';
990	}
991	}	981	}
992		982
993	=head2 GetNoticeEmailAddress	983	=head2 GetNoticeEmailAddress

Lines 855-860 __PACKAGE__->belongs_to( Link Here

(-)a/Koha/Schema/Result/Borrower.pm (+15 lines)
855	{ is_deferrable => 1, on_delete => "RESTRICT", on_update => "RESTRICT" },	855	{ is_deferrable => 1, on_delete => "RESTRICT", on_update => "RESTRICT" },
856	);	856	);
857		857
		858	=head2 club_enrollments
		859
		860	Type: has_many
		861
		862	Related object: L<Koha::Schema::Result::ClubEnrollment>
		863
		864	=cut
		865
		866	__PACKAGE__->has_many(
		867	"club_enrollments",
		868	"Koha::Schema::Result::ClubEnrollment",
		869	{ "foreign.borrowernumber" => "self.borrowernumber" },
		870	{ cascade_copy => 0, cascade_delete => 0 },
		871	);
		872
858	=head2 course_instructors	873	=head2 course_instructors
859		874
860	Type: has_many	875	Type: has_many

Lines 352-357 __PACKAGE__->has_many( Link Here

(-)a/Koha/Schema/Result/Branch.pm (-2 / +47 lines)
352	{ cascade_copy => 0, cascade_delete => 0 },	352	{ cascade_copy => 0, cascade_delete => 0 },
353	);	353	);
354		354
		355	=head2 club_enrollments
		356
		357	Type: has_many
		358
		359	Related object: L<Koha::Schema::Result::ClubEnrollment>
		360
		361	=cut
		362
		363	__PACKAGE__->has_many(
		364	"club_enrollments",
		365	"Koha::Schema::Result::ClubEnrollment",
		366	{ "foreign.branchcode" => "self.branchcode" },
		367	{ cascade_copy => 0, cascade_delete => 0 },
		368	);
		369
		370	=head2 club_templates
		371
		372	Type: has_many
		373
		374	Related object: L<Koha::Schema::Result::ClubTemplate>
		375
		376	=cut
		377
		378	__PACKAGE__->has_many(
		379	"club_templates",
		380	"Koha::Schema::Result::ClubTemplate",
		381	{ "foreign.branchcode" => "self.branchcode" },
		382	{ cascade_copy => 0, cascade_delete => 0 },
		383	);
		384
		385	=head2 clubs
		386
		387	Type: has_many
		388
		389	Related object: L<Koha::Schema::Result::Club>
		390
		391	=cut
		392
		393	__PACKAGE__->has_many(
		394	"clubs",
		395	"Koha::Schema::Result::Club",
		396	{ "foreign.branchcode" => "self.branchcode" },
		397	{ cascade_copy => 0, cascade_delete => 0 },
		398	);
		399
355	=head2 collections	400	=head2 collections
356		401
357	Type: has_many	402	Type: has_many
Lines 543-550 Composing rels: L</branchrelations> -> categorycode Link Here
543	__PACKAGE__->many_to_many("categorycodes", "branchrelations", "categorycode");	588	__PACKAGE__->many_to_many("categorycodes", "branchrelations", "categorycode");
544		589
545		590
546	# Created by DBIx::Class::Schema::Loader v0.07042 @ 2016-10-24 13:56:21	591	# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
547	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:/9YwsU+GXK+fzc6IX2Tj5g	592	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:lvjA8x8u5RKeZQ0+uiLm7A
548		593
549		594
550	# You can replace this text with custom code or comments, and it will be preserved on regeneration	595	# You can replace this text with custom code or comments, and it will be preserved on regeneration

Lines 3954-3959 CREATE TABLE deletedbiblio_metadata ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (+126 lines)
3954	CONSTRAINT `deletedrecord_metadata_fk_1` FOREIGN KEY (biblionumber) REFERENCES deletedbiblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE	3954	CONSTRAINT `deletedrecord_metadata_fk_1` FOREIGN KEY (biblionumber) REFERENCES deletedbiblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
3955	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;	3955	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
3956		3956
		3957	--
		3958	-- Table structure for table 'club_templates'
		3959	--
		3960
		3961	CREATE TABLE IF NOT EXISTS club_templates (
		3962	id int(11) NOT NULL AUTO_INCREMENT,
		3963	`name` tinytext NOT NULL,
		3964	description text,
		3965	is_enrollable_from_opac tinyint(1) NOT NULL DEFAULT '0',
		3966	is_email_required tinyint(1) NOT NULL DEFAULT '0',
		3967	branchcode varchar(10) NULL DEFAULT NULL,
		3968	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		3969	date_updated timestamp NULL DEFAULT NULL,
		3970	is_deletable tinyint(1) NOT NULL DEFAULT '1',
		3971	PRIMARY KEY (id),
		3972	KEY ct_branchcode (branchcode),
		3973	CONSTRAINT `club_templates_ibfk_1` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE
		3974	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
		3975
		3976	--
		3977	-- Table structure for table 'clubs'
		3978	--
		3979
		3980	CREATE TABLE IF NOT EXISTS clubs (
		3981	id int(11) NOT NULL AUTO_INCREMENT,
		3982	club_template_id int(11) NOT NULL,
		3983	`name` tinytext NOT NULL,
		3984	description text,
		3985	date_start date DEFAULT NULL,
		3986	date_end date DEFAULT NULL,
		3987	branchcode varchar(10) NULL DEFAULT NULL,
		3988	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		3989	date_updated timestamp NULL DEFAULT NULL,
		3990	PRIMARY KEY (id),
		3991	KEY club_template_id (club_template_id),
		3992	KEY branchcode (branchcode),
		3993	CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
		3994	CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branchcode) REFERENCES branches (branchcode)
		3995	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
		3996
		3997	--
		3998	-- Table structure for table 'club_enrollments'
		3999	--
		4000
		4001	CREATE TABLE IF NOT EXISTS club_enrollments (
		4002	id int(11) NOT NULL AUTO_INCREMENT,
		4003	club_id int(11) NOT NULL,
		4004	borrowernumber int(11) NOT NULL,
		4005	date_enrolled timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		4006	date_canceled timestamp NULL DEFAULT NULL,
		4007	date_created timestamp NOT NULL DEFAULT '0000-00-00 00:00:00',
		4008	date_updated timestamp NULL DEFAULT NULL,
		4009	branchcode varchar(10) NULL DEFAULT NULL,
		4010	PRIMARY KEY (id),
		4011	KEY club_id (club_id),
		4012	KEY borrowernumber (borrowernumber),
		4013	KEY branchcode (branchcode),
		4014	CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club_id) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
		4015	CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
		4016	CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branchcode) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE
		4017	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
		4018
		4019	--
		4020	-- Table structure for table 'club_template_enrollment_fields'
4021	--
4022
4023	CREATE TABLE IF NOT EXISTS club_template_enrollment_fields (
4024	id int(11) NOT NULL AUTO_INCREMENT,
4025	club_template_id int(11) NOT NULL,
4026	`name` tinytext NOT NULL,
4027	description text,
4028	authorised_value_category varchar(16) DEFAULT NULL,
4029	PRIMARY KEY (id),
4030	KEY club_template_id (club_template_id),
4031	CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE
4032	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
4033
4034	--
4035	-- Table structure for table 'club_enrollment_fields'
4036	--
4037
4038	CREATE TABLE IF NOT EXISTS club_enrollment_fields (
4039	id int(11) NOT NULL AUTO_INCREMENT,
4040	club_enrollment_id int(11) NOT NULL,
4041	club_template_enrollment_field_id int(11) NOT NULL,
4042	`value` text NOT NULL,
4043	PRIMARY KEY (id),
4044	KEY club_enrollment_id (club_enrollment_id),
4045	KEY club_template_enrollment_field_id (club_template_enrollment_field_id),
4046	CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment_id) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
4047	CONSTRAINT club_enrollment_fields_ibfk_2 FOREIGN KEY (club_template_enrollment_field_id) REFERENCES club_template_enrollment_fields (id) ON DELETE CASCADE ON UPDATE CASCADE
4048	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
4049
4050	--
4051	-- Table structure for table 'club_template_fields'
4052	--
4053
4054	CREATE TABLE IF NOT EXISTS club_template_fields (
4055	id int(11) NOT NULL AUTO_INCREMENT,
4056	club_template_id int(11) NOT NULL,
4057	`name` tinytext NOT NULL,
4058	description text,
4059	authorised_value_category varchar(16) DEFAULT NULL,
4060	PRIMARY KEY (id),
4061	KEY club_template_id (club_template_id),
4062	CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE
4063	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
4064
4065	--
4066	-- Table structure for table 'club_fields'
4067	--
4068
4069	CREATE TABLE IF NOT EXISTS club_fields (
4070	id int(11) NOT NULL AUTO_INCREMENT,
4071	club_template_field_id int(11) NOT NULL,
4072	club_id int(11) NOT NULL,
4073	`value` text,
4074	PRIMARY KEY (id),
4075	KEY club_template_field_id (club_template_field_id),
4076	KEY club_id (club_id),
4077	CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field_id) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
4078	CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club_id) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE
4079	>>>>>>> Bug 12461 - Add patron clubs feature
4080	>>>>>>> Bug 12461 - Add patron clubs feature
4081	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
4082
3957	/!40103 SET TIME_ZONE=@OLD_TIME_ZONE /;	4083	/!40103 SET TIME_ZONE=@OLD_TIME_ZONE /;
3958	/!40101 SET SQL_MODE=@OLD_SQL_MODE /;	4084	/!40101 SET SQL_MODE=@OLD_SQL_MODE /;
3959	/!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS /;	4085	/!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS /;

Line 0 Link Here

(-)a/Koha/Club.pm (+92 lines)
		1	package Koha::Club;
		2
		3	# Copyright ByWater Solutions 2014
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 3 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along
		17	# with Koha; if not, write to the Free Software Foundation, Inc.,
		18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		19
		20	use Modern::Perl;
		21
		22	use Carp;
		23
		24	use Koha::Database;
		25
		26	use Koha::Club::Templates;
		27	use Koha::Club::Fields;
		28	use Koha::Libraries;
		29
		30	use base qw(Koha::Object);
		31
		32	=head1 NAME
		33
		34	Koha::Club - Koha Club Object class
		35
		36	=head1 API
		37
		38	=head2 Class Methods
		39
		40	=cut
		41
		42	=head3 club_template
		43
		44	=cut
		45
		46	sub club_template {
		47	my ($self) = @_;
		48
		49	return unless $self->club_template_id();
		50
		51	return Koha::Club::Templates->find( $self->club_template_id() );
		52	}
		53
		54	=head3 club_fields
		55
		56	=cut
		57
		58	sub club_fields {
		59	my ($self) = @_;
		60
		61	return unless $self->id();
		62
		63	return Koha::Club::Fields->search( { club_id => $self->id() } );
		64	}
65
66	=head3 club_fields
67
68	=cut
69
70	sub branch {
71	my ($self) = @_;
72
73	return unless $self->branchcode();
74
75	return Koha::Libraries->find( $self->branchcode() );
76	}
77
78	=head3 type
79
80	=cut
81
82	sub _type {
83	return 'Club';
84	}
85
86	=head1 AUTHOR
87
88	Kyle M Hall <kyle@bywatersolutions.com>
89
90	=cut
91
92	1;

Line 0 Link Here

(-)a/Koha/Club/Enrollment.pm (+78 lines)
		1	package Koha::Club::Enrollment;
		2
		3	# Copyright ByWater Solutions 2014
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 3 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along
		17	# with Koha; if not, write to the Free Software Foundation, Inc.,
		18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		19
		20	use Modern::Perl;
		21
		22	use Carp;
		23
		24	use Koha::Database;
		25	use Koha::Clubs;
		26
		27	use base qw(Koha::Object);
		28
		29	=head1 NAME
		30
		31	Koha::Club::Enrollment
		32
		33	Represents a "pattern" on which many clubs can be created.
		34	In this way we can directly compare different clubs of the same 'template'
		35	for statistical purposes.
		36
		37	=head1 API
		38
		39	=head2 Class Methods
		40
		41	=cut
		42
		43	=head3 cancel
		44
		45	=cut
		46
		47	sub cancel {
		48	my ( $self ) = @_;
		49
		50	$self->_result()->update( { date_canceled => \'NOW()' } );
		51
		52	return $self;
		53	}
		54
		55	=head3 club
		56
		57	=cut
		58
		59	sub club {
		60	my ( $self ) = @_;
		61	return Koha::Clubs->find( $self->club_id() );
		62	}
		63
		64	=head3 type
65
66	=cut
67
68	sub _type {
69	return 'ClubEnrollment';
70	}
71
72	=head1 AUTHOR
73
74	Kyle M Hall <kyle@bywatersolutions.com>
75
76	=cut
77
78	1;

Line 0 Link Here

(-)a/Koha/Club/Enrollment/Field.pm (+56 lines)
	1	package Koha::Club::Enrollment::Field;
	2
	3	# Copyright ByWater Solutions 2014
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it under the
	8	# terms of the GNU General Public License as published by the Free Software
	9	# Foundation; either version 3 of the License, or (at your option) any later
	10	# version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License along
	17	# with Koha; if not, write to the Free Software Foundation, Inc.,
	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	19
	20	use Modern::Perl;
	21
	22	use Carp;
	23
	24	use Koha::Database;
	25
	26	use base qw(Koha::Object);
	27
	28	=head1 NAME
	29
	30	Koha::Club::Enrollment::Field
	31
	32	Represents a "pattern" on which many clubs can be created.
	33	In this way we can directly compare different clubs of the same 'template'
	34	for statistical purposes.
	35
	36	=head1 API
	37
	38	=head2 Class Methods
	39
	40	=cut
	41
	42	=head3 type
	43
	44	=cut
	45
	46	sub _type {
	47	return 'ClubEnrollmentField';
	48	}
	49
	50	=head1 AUTHOR
	51
	52	Kyle M Hall <kyle@bywatersolutions.com>
	53
	54	=cut
	55
	56	1;

Line 0 Link Here

(-)a/Koha/Club/Enrollment/Fields.pm (+60 lines)
	1	package Koha::Club::Enrollment::Fields;
	2
	3	# Copyright ByWater Solutions 2014
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it under the
	8	# terms of the GNU General Public License as published by the Free Software
	9	# Foundation; either version 3 of the License, or (at your option) any later
	10	# version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License along
	17	# with Koha; if not, write to the Free Software Foundation, Inc.,
	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	19
	20	use Modern::Perl;
	21
	22	use Carp;
	23
	24	use Koha::Database;
	25
	26	use Koha::Club::Enrollment::Field;
	27
	28	use base qw(Koha::Objects);
	29
	30	=head1 NAME
	31
	32	Koha::Club::Enrollment::Fields
	33
	34	This object represents a collection of club enrollemnt fields.
	35
	36	=head1 API
	37
	38	=head2 Class Methods
	39
	40	=cut
	41
	42	=head3 type
	43
	44	=cut
	45
	46	sub _type {
	47	return 'ClubEnrollmentField';
	48	}
	49
	50	sub object_class {
	51	return 'Koha::Club::Enrollment::Field';
	52	}
	53
	54	=head1 AUTHOR
	55
	56	Kyle M Hall <kyle@bywatersolutions.com>
	57
	58	=cut
	59
	60	1;

Line 0 Link Here

(-)a/Koha/Club/Enrollments.pm (+60 lines)
	1	package Koha::Club::Enrollments;
	2
	3	# Copyright ByWater Solutions 2014
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it under the
	8	# terms of the GNU General Public License as published by the Free Software
	9	# Foundation; either version 3 of the License, or (at your option) any later
	10	# version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License along
	17	# with Koha; if not, write to the Free Software Foundation, Inc.,
	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	19
	20	use Modern::Perl;
	21
	22	use Carp;
	23
	24	use Koha::Database;
	25
	26	use Koha::Club::Enrollment;
	27
	28	use base qw(Koha::Objects);
	29
	30	=head1 NAME
	31
	32	Koha::Club::Enrollments
	33
	34	This object represents a collection of club templates.
	35
	36	=head1 API
	37
	38	=head2 Class Methods
	39
	40	=cut
	41
	42	=head3 type
	43
	44	=cut
	45
	46	sub _type {
	47	return 'ClubEnrollment';
	48	}
	49
	50	sub object_class {
	51	return 'Koha::Club::Enrollment';
	52	}
	53
	54	=head1 AUTHOR
	55
	56	Kyle M Hall <kyle@bywatersolutions.com>
	57
	58	=cut
	59
	60	1;

Line 0 Link Here

(-)a/Koha/Club/Field.pm (+66 lines)
		1	package Koha::Club::Field;
		2
		3	# Copyright ByWater Solutions 2014
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 3 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along
		17	# with Koha; if not, write to the Free Software Foundation, Inc.,
		18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		19
		20	use Modern::Perl;
		21
		22	use Carp;
		23
		24	use Koha::Database;
		25
		26	use Koha::Club::Template::Fields;
		27
		28	use base qw(Koha::Object);
		29
		30	=head1 NAME
		31
		32	Koha::Club::Field
		33
		34	Represents the value set at creation time for a Koha::Club::Template::Field
		35
		36	=head1 API
		37
		38	=head2 Class Methods
		39
		40	=cut
		41
		42	=head3 club_template_field
		43
		44	=cut
		45
		46	sub club_template_field {
		47	my ( $self ) = @_;
		48
		49	return Koha::Club::Template::Fields->find( $self->club_template_field_id );
		50	}
		51
		52	=head3 type
		53
		54	=cut
		55
		56	sub _type {
		57	return 'ClubField';
		58	}
		59
		60	=head1 AUTHOR
		61
		62	Kyle M Hall <kyle@bywatersolutions.com>
		63
		64	=cut
65
66	1;

Line 0 Link Here

(-)a/Koha/Club/Fields.pm (+60 lines)
	1	package Koha::Club::Fields;
	2
	3	# Copyright ByWater Solutions 2014
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it under the
	8	# terms of the GNU General Public License as published by the Free Software
	9	# Foundation; either version 3 of the License, or (at your option) any later
	10	# version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License along
	17	# with Koha; if not, write to the Free Software Foundation, Inc.,
	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	19
	20	use Modern::Perl;
	21
	22	use Carp;
	23
	24	use Koha::Database;
	25
	26	use Koha::Club::Field;
	27
	28	use base qw(Koha::Objects);
	29
	30	=head1 NAME
	31
	32	Koha::Club::Fields
	33
	34	Represents a collection of club fields.
	35
	36	=head1 API
	37
	38	=head2 Class Methods
	39
	40	=cut
	41
	42	=head3 type
	43
	44	=cut
	45
	46	sub _type {
	47	return 'ClubField';
	48	}
	49
	50	sub object_class {
	51	return 'Koha::Club::Field';
	52	}
	53
	54	=head1 AUTHOR
	55
	56	Kyle M Hall <kyle@bywatersolutions.com>
	57
	58	=cut
	59
	60	1;

Line 0 Link Here

(-)a/Koha/Club/Template.pm (+75 lines)
		1	package Koha::Club::Template;
		2
		3	# Copyright ByWater Solutions 2014
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 3 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along
		17	# with Koha; if not, write to the Free Software Foundation, Inc.,
		18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		19
		20	use Modern::Perl;
		21
		22	use Carp;
		23
		24	use Koha::Database;
		25
		26	use Koha::Club::Template::Fields;
		27	use Koha::Club::Template::EnrollmentFields;
		28
		29	use base qw(Koha::Object);
		30
		31	=head1 NAME
		32
		33	Koha::Club::Template
		34
		35	Represents a "pattern" on which many clubs can be created.
		36	In this way we can directly compare different clubs of the same 'template'
		37	for statistical purposes.
		38
		39	=head1 API
		40
		41	=head2 Class Methods
		42
		43	=cut
		44
		45	=head3 club_template_fields
		46
		47	=cut
		48
		49	sub club_template_fields {
		50	my ($self) = @_;
		51
		52	return Koha::Club::Template::Fields->search( { club_template_id => $self->id() } );
		53	}
		54
		55	sub club_template_enrollment_fields {
		56	my ($self) = @_;
		57
		58	return Koha::Club::Template::EnrollmentFields->search( { club_template_id => $self->id() } );
		59	}
		60
		61	=head3 type
		62
		63	=cut
		64
65	sub _type {
66	return 'ClubTemplate';
67	}
68
69	=head1 AUTHOR
70
71	Kyle M Hall <kyle@bywatersolutions.com>
72
73	=cut
74
75	1;

Line 0 Link Here

(-)a/Koha/Club/Template/EnrollmentField.pm (+54 lines)
	1	package Koha::Club::Template::EnrollmentField;
	2
	3	# Copyright ByWater Solutions 2014
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it under the
	8	# terms of the GNU General Public License as published by the Free Software
	9	# Foundation; either version 3 of the License, or (at your option) any later
	10	# version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License along
	17	# with Koha; if not, write to the Free Software Foundation, Inc.,
	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	19
	20	use Modern::Perl;
	21
	22	use Carp;
	23
	24	use Koha::Database;
	25
	26	use base qw(Koha::Object);
	27
	28	=head1 NAME
	29
	30	Koha::Club::Template::EnrollemntField
	31
	32	Represents a club field that is only set at the time a patron is enrolled
	33
	34	=head1 API
	35
	36	=head2 Class Methods
	37
	38	=cut
	39
	40	=head3 type
	41
	42	=cut
	43
	44	sub _type {
	45	return 'ClubTemplateEnrollmentField';
	46	}
	47
	48	=head1 AUTHOR
	49
	50	Kyle M Hall <kyle@bywatersolutions.com>
	51
	52	=cut
	53
	54	1;

Line 0 Link Here

(-)a/Koha/Club/Template/EnrollmentFields.pm (+60 lines)
	1	package Koha::Club::Template::EnrollmentFields;
	2
	3	# Copyright ByWater Solutions 2014
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it under the
	8	# terms of the GNU General Public License as published by the Free Software
	9	# Foundation; either version 3 of the License, or (at your option) any later
	10	# version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License along
	17	# with Koha; if not, write to the Free Software Foundation, Inc.,
	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	19
	20	use Modern::Perl;
	21
	22	use Carp;
	23
	24	use Koha::Database;
	25
	26	use Koha::Club::Template::EnrollmentField;
	27
	28	use base qw(Koha::Objects);
	29
	30	=head1 NAME
	31
	32	Koha::Club::Template::EnrollemntFields
	33
	34	Represents a colleciton of club fields that are only set at the time a patron is enrolled
	35
	36	=head1 API
	37
	38	=head2 Class Methods
	39
	40	=cut
	41
	42	=head3 type
	43
	44	=cut
	45
	46	sub _type {
	47	return 'ClubTemplateEnrollmentField';
	48	}
	49
	50	sub object_class {
	51	return 'Koha::Club::Template::EnrollmentField';
	52	}
	53
	54	=head1 AUTHOR
	55
	56	Kyle M Hall <kyle@bywatersolutions.com>
	57
	58	=cut
	59
	60	1;

Line 0 Link Here

(-)a/Koha/Club/Template/Field.pm (+54 lines)
	1	package Koha::Club::Template::Field;
	2
	3	# Copyright ByWater Solutions 2014
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it under the
	8	# terms of the GNU General Public License as published by the Free Software
	9	# Foundation; either version 3 of the License, or (at your option) any later
	10	# version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License along
	17	# with Koha; if not, write to the Free Software Foundation, Inc.,
	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	19
	20	use Modern::Perl;
	21
	22	use Carp;
	23
	24	use Koha::Database;
	25
	26	use base qw(Koha::Object);
	27
	28	=head1 NAME
	29
	30	Koha::Club::Template::Field
	31
	32	Represents a club field that is set when the club is created
	33
	34	=head1 API
	35
	36	=head2 Class Methods
	37
	38	=cut
	39
	40	=head3 type
	41
	42	=cut
	43
	44	sub _type {
	45	return 'ClubTemplateField';
	46	}
	47
	48	=head1 AUTHOR
	49
	50	Kyle M Hall <kyle@bywatersolutions.com>
	51
	52	=cut
	53
	54	1;

Line 0 Link Here

(-)a/Koha/Club/Template/Fields.pm (+60 lines)
	1	package Koha::Club::Template::Fields;
	2
	3	# Copyright ByWater Solutions 2014
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it under the
	8	# terms of the GNU General Public License as published by the Free Software
	9	# Foundation; either version 3 of the License, or (at your option) any later
	10	# version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License along
	17	# with Koha; if not, write to the Free Software Foundation, Inc.,
	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	19
	20	use Modern::Perl;
	21
	22	use Carp;
	23
	24	use Koha::Database;
	25
	26	use Koha::Club::Template::Field;
	27
	28	use base qw(Koha::Objects);
	29
	30	=head1 NAME
	31
	32	Koha::Club::Template::Fields
	33
	34	Represents a collection of club fields that are set when the club is created
	35
	36	=head1 API
	37
	38	=head2 Class Methods
	39
	40	=cut
	41
	42	=head3 type
	43
	44	=cut
	45
	46	sub _type {
	47	return 'ClubTemplateField';
	48	}
	49
	50	sub object_class {
	51	return 'Koha::Club::Template::Field';
	52	}
	53
	54	=head1 AUTHOR
	55
	56	Kyle M Hall <kyle@bywatersolutions.com>
	57
	58	=cut
	59
	60	1;

Line 0 Link Here

(-)a/Koha/Club/Templates.pm (+60 lines)
	1	package Koha::Club::Templates;
	2
	3	# Copyright ByWater Solutions 2014
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it under the
	8	# terms of the GNU General Public License as published by the Free Software
	9	# Foundation; either version 3 of the License, or (at your option) any later
	10	# version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
	13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License along
	17	# with Koha; if not, write to the Free Software Foundation, Inc.,
	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
	19
	20	use Modern::Perl;
	21
	22	use Carp;
	23
	24	use Koha::Database;
	25
	26	use Koha::Club::Template;
	27
	28	use base qw(Koha::Objects);
	29
	30	=head1 NAME
	31
	32	Koha::Club::Templates
	33
	34	This object represents a collection of club templates.
	35
	36	=head1 API
	37
	38	=head2 Class Methods
	39
	40	=cut
	41
	42	=head3 type
	43
	44	=cut
	45
	46	sub _type {
	47	return 'ClubTemplate';
	48	}
	49
	50	sub object_class {
	51	return 'Koha::Club::Template';
	52	}
	53
	54	=head1 AUTHOR
	55
	56	Kyle M Hall <kyle@bywatersolutions.com>
	57
	58	=cut
	59
	60	1;

Line 0 Link Here

(-)a/Koha/Clubs.pm (+92 lines)
		1	package Koha::Clubs;
		2
		3	# Copyright ByWater Solutions 2014
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 3 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along
		17	# with Koha; if not, write to the Free Software Foundation, Inc.,
		18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		19
		20	use Modern::Perl;
		21
		22	use Carp;
		23
		24	use Koha::Database;
		25
		26	use Koha::Club;
		27
		28	use base qw(Koha::Objects);
		29
		30	=head1 NAME
		31
		32	Koha::Clubs - Koha Clubs Object class
		33
		34	This object represents a collection of clubs a patron may enroll in.
		35
		36	=head1 API
		37
		38	=head2 Class Methods
		39
		40	=cut
		41
		42	=head3 get_enrollable
		43
		44	=cut
		45
		46	sub get_enrollable {
		47	my ( $self, $params ) = @_;
		48
		49	# We need to filter out all the already enrolled in clubs
		50	my $borrower = $params->{borrower};
		51	if ($borrower) {
		52	delete( $params->{borrower} );
		53	my @enrollments = $borrower->get_club_enrollments();
		54	if (@enrollments) {
		55	$params->{'me.id'} = { -not_in => [ map { $_->club()->id() } @enrollments ] };
		56	}
		57	}
		58
		59	my $rs = $self->_resultset()->search( $params, { prefetch => 'club_template' } );
		60
		61	if (wantarray) {
		62	my $class = ref($self) ? ref($self) : $self;
		63
		64	return $class->_wrap( $rs->all() );
65
66	}
67	else {
68	my $class = ref($self) ? ref($self) : $self;
69
70	return $class->_new_from_dbic($rs);
71	}
72	}
73
74	=head3 type
75
76	=cut
77
78	sub _type {
79	return 'Club';
80	}
81
82	sub object_class {
83	return 'Koha::Club';
84	}
85
86	=head1 AUTHOR
87
88	Kyle M Hall <kyle@bywatersolutions.com>
89
90	=cut
91
92	1;

Lines 35-40 use Koha::Patron::HouseboundRole; Link Here

(-)a/Koha/Patron.pm (+38 lines)
35	use Koha::Patron::Images;	35	use Koha::Patron::Images;
36	use Koha::Patrons;	36	use Koha::Patrons;
37	use Koha::Virtualshelves;	37	use Koha::Virtualshelves;
		38	use Koha::Club::Enrollments;
38		39
39	use base qw(Koha::Object);	40	use base qw(Koha::Object);
40		41
Lines 584-589 sub holds { Link Here
584	return Koha::Holds->_new_from_dbic($holds_rs);	585	return Koha::Holds->_new_from_dbic($holds_rs);
585	}	586	}
586		587
		588	=head3 first_valid_email_address
		589
		590	=cut
		591
		592	sub first_valid_email_address {
		593	my ($self) = @_;
		594
		595	return $self->email() \|\| $self->emailpro() \|\| $self->B_email() \|\| q{};
		596	}
		597
		598	=head3 get_club_enrollments
		599
		600	=cut
		601
		602	sub get_club_enrollments {
		603	my ($self) = @_;
		604
		605	return Koha::Club::Enrollments->search( { borrowernumber => $self->borrowernumber(), date_canceled => undef } );
		606	}
		607
		608	=head3 get_enrollable_clubs
		609
		610	=cut
		611
		612	sub get_enrollable_clubs {
		613	my ( $self, $is_enrollable_from_opac ) = @_;
		614
		615	my $params;
		616	$params->{is_enrollable_from_opac} = $is_enrollable_from_opac
		617	if $is_enrollable_from_opac;
		618	$params->{is_email_required} = 0 unless $self->first_valid_email_address();
		619
		620	$params->{borrower} = $self;
		621
		622	return Koha::Clubs->get_enrollable($params);
		623	}
		624
587	=head3 type	625	=head3 type
588		626
589	=cut	627	=cut

Line 0 Link Here

(-)a/Koha/Schema/Result/Club.pm (+197 lines)
		1	use utf8;
		2	package Koha::Schema::Result::Club;
		3
		4	# Created by DBIx::Class::Schema::Loader
		5	# DO NOT MODIFY THE FIRST PART OF THIS FILE
		6
		7	=head1 NAME
		8
		9	Koha::Schema::Result::Club
		10
		11	=cut
		12
		13	use strict;
		14	use warnings;
		15
		16	use base 'DBIx::Class::Core';
		17
		18	=head1 TABLE: C<clubs>
		19
		20	=cut
		21
		22	__PACKAGE__->table("clubs");
		23
		24	=head1 ACCESSORS
		25
		26	=head2 id
		27
		28	data_type: 'integer'
		29	is_auto_increment: 1
		30	is_nullable: 0
		31
		32	=head2 club_template_id
		33
		34	data_type: 'integer'
		35	is_foreign_key: 1
		36	is_nullable: 0
		37
		38	=head2 name
		39
		40	data_type: 'tinytext'
		41	is_nullable: 0
		42
		43	=head2 description
		44
		45	data_type: 'text'
		46	is_nullable: 1
		47
		48	=head2 date_start
		49
		50	data_type: 'date'
		51	datetime_undef_if_invalid: 1
		52	is_nullable: 1
		53
		54	=head2 date_end
		55
		56	data_type: 'date'
		57	datetime_undef_if_invalid: 1
		58	is_nullable: 1
		59
		60	=head2 branchcode
		61
		62	data_type: 'varchar'
		63	is_foreign_key: 1
		64	is_nullable: 1
65	size: 11
66
67	=head2 date_created
68
69	data_type: 'timestamp'
70	datetime_undef_if_invalid: 1
71	default_value: current_timestamp
72	is_nullable: 0
73
74	=head2 date_updated
75
76	data_type: 'timestamp'
77	datetime_undef_if_invalid: 1
78	is_nullable: 1
79
80	=cut
81
82	__PACKAGE__->add_columns(
83	"id",
84	{ data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
85	"club_template_id",
86	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
87	"name",
88	{ data_type => "tinytext", is_nullable => 0 },
89	"description",
90	{ data_type => "text", is_nullable => 1 },
91	"date_start",
92	{ data_type => "date", datetime_undef_if_invalid => 1, is_nullable => 1 },
93	"date_end",
94	{ data_type => "date", datetime_undef_if_invalid => 1, is_nullable => 1 },
95	"branchcode",
96	{ data_type => "varchar", is_foreign_key => 1, is_nullable => 1, size => 11 },
97	"date_created",
98	{
99	data_type => "timestamp",
100	datetime_undef_if_invalid => 1,
101	default_value => \"current_timestamp",
102	is_nullable => 0,
103	},
104	"date_updated",
105	{
106	data_type => "timestamp",
107	datetime_undef_if_invalid => 1,
108	is_nullable => 1,
109	},
110	);
111
112	=head1 PRIMARY KEY
113
114	=over 4
115
116	=item * L</id>
117
118	=back
119
120	=cut
121
122	__PACKAGE__->set_primary_key("id");
123
124	=head1 RELATIONS
125
126	=head2 branchcode
127
128	Type: belongs_to
129
130	Related object: L<Koha::Schema::Result::Branch>
131
132	=cut
133
134	__PACKAGE__->belongs_to(
135	"branchcode",
136	"Koha::Schema::Result::Branch",
137	{ branchcode => "branchcode" },
138	{
139	is_deferrable => 1,
140	join_type => "LEFT",
141	on_delete => "RESTRICT",
142	on_update => "RESTRICT",
143	},
144	);
145
146	=head2 club_enrollments
147
148	Type: has_many
149
150	Related object: L<Koha::Schema::Result::ClubEnrollment>
151
152	=cut
153
154	__PACKAGE__->has_many(
155	"club_enrollments",
156	"Koha::Schema::Result::ClubEnrollment",
157	{ "foreign.club_id" => "self.id" },
158	{ cascade_copy => 0, cascade_delete => 0 },
159	);
160
161	=head2 club_fields
162
163	Type: has_many
164
165	Related object: L<Koha::Schema::Result::ClubField>
166
167	=cut
168
169	__PACKAGE__->has_many(
170	"club_fields",
171	"Koha::Schema::Result::ClubField",
172	{ "foreign.club_id" => "self.id" },
173	{ cascade_copy => 0, cascade_delete => 0 },
174	);
175
176	=head2 club_template
177
178	Type: belongs_to
179
180	Related object: L<Koha::Schema::Result::ClubTemplate>
181
182	=cut
183
184	__PACKAGE__->belongs_to(
185	"club_template",
186	"Koha::Schema::Result::ClubTemplate",
187	{ id => "club_template_id" },
188	{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
189	);
190
191
192	# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
193	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:nMwJy/qR8aWu12hQq4rORQ
194
195
196	# You can replace this text with custom content, and it will be preserved on regeneration
197	1;

Line 0 Link Here

(-)a/Koha/Schema/Result/ClubEnrollment.pm (+201 lines)
		1	use utf8;
		2	package Koha::Schema::Result::ClubEnrollment;
		3
		4	# Created by DBIx::Class::Schema::Loader
		5	# DO NOT MODIFY THE FIRST PART OF THIS FILE
		6
		7	=head1 NAME
		8
		9	Koha::Schema::Result::ClubEnrollment
		10
		11	=cut
		12
		13	use strict;
		14	use warnings;
		15
		16	use base 'DBIx::Class::Core';
		17
		18	=head1 TABLE: C<club_enrollments>
		19
		20	=cut
		21
		22	__PACKAGE__->table("club_enrollments");
		23
		24	=head1 ACCESSORS
		25
		26	=head2 id
		27
		28	data_type: 'integer'
		29	is_auto_increment: 1
		30	is_nullable: 0
		31
		32	=head2 club_id
		33
		34	data_type: 'integer'
		35	is_foreign_key: 1
		36	is_nullable: 0
		37
		38	=head2 borrowernumber
		39
		40	data_type: 'integer'
		41	is_foreign_key: 1
		42	is_nullable: 0
		43
		44	=head2 date_enrolled
		45
		46	data_type: 'timestamp'
		47	datetime_undef_if_invalid: 1
		48	default_value: current_timestamp
		49	is_nullable: 0
		50
		51	=head2 date_canceled
		52
		53	data_type: 'timestamp'
		54	datetime_undef_if_invalid: 1
		55	is_nullable: 1
		56
		57	=head2 date_created
		58
		59	data_type: 'timestamp'
		60	datetime_undef_if_invalid: 1
		61	default_value: '0000-00-00 00:00:00'
		62	is_nullable: 0
		63
		64	=head2 date_updated
65
66	data_type: 'timestamp'
67	datetime_undef_if_invalid: 1
68	is_nullable: 1
69
70	=head2 branchcode
71
72	data_type: 'varchar'
73	is_foreign_key: 1
74	is_nullable: 1
75	size: 11
76
77	=cut
78
79	__PACKAGE__->add_columns(
80	"id",
81	{ data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
82	"club_id",
83	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
84	"borrowernumber",
85	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
86	"date_enrolled",
87	{
88	data_type => "timestamp",
89	datetime_undef_if_invalid => 1,
90	default_value => \"current_timestamp",
91	is_nullable => 0,
92	},
93	"date_canceled",
94	{
95	data_type => "timestamp",
96	datetime_undef_if_invalid => 1,
97	is_nullable => 1,
98	},
99	"date_created",
100	{
101	data_type => "timestamp",
102	datetime_undef_if_invalid => 1,
103	default_value => "0000-00-00 00:00:00",
104	is_nullable => 0,
105	},
106	"date_updated",
107	{
108	data_type => "timestamp",
109	datetime_undef_if_invalid => 1,
110	is_nullable => 1,
111	},
112	"branchcode",
113	{ data_type => "varchar", is_foreign_key => 1, is_nullable => 1, size => 11 },
114	);
115
116	=head1 PRIMARY KEY
117
118	=over 4
119
120	=item * L</id>
121
122	=back
123
124	=cut
125
126	__PACKAGE__->set_primary_key("id");
127
128	=head1 RELATIONS
129
130	=head2 borrowernumber
131
132	Type: belongs_to
133
134	Related object: L<Koha::Schema::Result::Borrower>
135
136	=cut
137
138	__PACKAGE__->belongs_to(
139	"borrowernumber",
140	"Koha::Schema::Result::Borrower",
141	{ borrowernumber => "borrowernumber" },
142	{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
143	);
144
145	=head2 branchcode
146
147	Type: belongs_to
148
149	Related object: L<Koha::Schema::Result::Branch>
150
151	=cut
152
153	__PACKAGE__->belongs_to(
154	"branchcode",
155	"Koha::Schema::Result::Branch",
156	{ branchcode => "branchcode" },
157	{
158	is_deferrable => 1,
159	join_type => "LEFT",
160	on_delete => "SET NULL",
161	on_update => "CASCADE",
162	},
163	);
164
165	=head2 club
166
167	Type: belongs_to
168
169	Related object: L<Koha::Schema::Result::Club>
170
171	=cut
172
173	__PACKAGE__->belongs_to(
174	"club",
175	"Koha::Schema::Result::Club",
176	{ id => "club_id" },
177	{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
178	);
179
180	=head2 club_enrollment_fields
181
182	Type: has_many
183
184	Related object: L<Koha::Schema::Result::ClubEnrollmentField>
185
186	=cut
187
188	__PACKAGE__->has_many(
189	"club_enrollment_fields",
190	"Koha::Schema::Result::ClubEnrollmentField",
191	{ "foreign.club_enrollment_id" => "self.id" },
192	{ cascade_copy => 0, cascade_delete => 0 },
193	);
194
195
196	# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
197	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:9ypc+smG/VlgtWW66PhvHQ
198
199
200	# You can replace this text with custom content, and it will be preserved on regeneration
201	1;

Line 0 Link Here

(-)a/Koha/Schema/Result/ClubEnrollmentField.pm (+112 lines)
		1	use utf8;
		2	package Koha::Schema::Result::ClubEnrollmentField;
		3
		4	# Created by DBIx::Class::Schema::Loader
		5	# DO NOT MODIFY THE FIRST PART OF THIS FILE
		6
		7	=head1 NAME
		8
		9	Koha::Schema::Result::ClubEnrollmentField
		10
		11	=cut
		12
		13	use strict;
		14	use warnings;
		15
		16	use base 'DBIx::Class::Core';
		17
		18	=head1 TABLE: C<club_enrollment_fields>
		19
		20	=cut
		21
		22	__PACKAGE__->table("club_enrollment_fields");
		23
		24	=head1 ACCESSORS
		25
		26	=head2 id
		27
		28	data_type: 'integer'
		29	is_auto_increment: 1
		30	is_nullable: 0
		31
		32	=head2 club_enrollment_id
		33
		34	data_type: 'integer'
		35	is_foreign_key: 1
		36	is_nullable: 0
		37
		38	=head2 club_template_enrollment_field_id
		39
		40	data_type: 'integer'
		41	is_foreign_key: 1
		42	is_nullable: 0
		43
		44	=head2 value
		45
		46	data_type: 'text'
		47	is_nullable: 0
		48
		49	=cut
		50
		51	__PACKAGE__->add_columns(
		52	"id",
		53	{ data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
		54	"club_enrollment_id",
		55	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
		56	"club_template_enrollment_field_id",
		57	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
		58	"value",
		59	{ data_type => "text", is_nullable => 0 },
		60	);
		61
		62	=head1 PRIMARY KEY
		63
		64	=over 4
65
66	=item * L</id>
67
68	=back
69
70	=cut
71
72	__PACKAGE__->set_primary_key("id");
73
74	=head1 RELATIONS
75
76	=head2 club_enrollment
77
78	Type: belongs_to
79
80	Related object: L<Koha::Schema::Result::ClubEnrollment>
81
82	=cut
83
84	__PACKAGE__->belongs_to(
85	"club_enrollment",
86	"Koha::Schema::Result::ClubEnrollment",
87	{ id => "club_enrollment_id" },
88	{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
89	);
90
91	=head2 club_template_enrollment_field
92
93	Type: belongs_to
94
95	Related object: L<Koha::Schema::Result::ClubTemplateEnrollmentField>
96
97	=cut
98
99	__PACKAGE__->belongs_to(
100	"club_template_enrollment_field",
101	"Koha::Schema::Result::ClubTemplateEnrollmentField",
102	{ id => "club_template_enrollment_field_id" },
103	{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
104	);
105
106
107	# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
108	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:2ANAs3mh3i/kd3Qxrcd5IA
109
110
111	# You can replace this text with custom content, and it will be preserved on regeneration
112	1;

Line 0 Link Here

(-)a/Koha/Schema/Result/ClubField.pm (+112 lines)
		1	use utf8;
		2	package Koha::Schema::Result::ClubField;
		3
		4	# Created by DBIx::Class::Schema::Loader
		5	# DO NOT MODIFY THE FIRST PART OF THIS FILE
		6
		7	=head1 NAME
		8
		9	Koha::Schema::Result::ClubField
		10
		11	=cut
		12
		13	use strict;
		14	use warnings;
		15
		16	use base 'DBIx::Class::Core';
		17
		18	=head1 TABLE: C<club_fields>
		19
		20	=cut
		21
		22	__PACKAGE__->table("club_fields");
		23
		24	=head1 ACCESSORS
		25
		26	=head2 id
		27
		28	data_type: 'integer'
		29	is_auto_increment: 1
		30	is_nullable: 0
		31
		32	=head2 club_template_field_id
		33
		34	data_type: 'integer'
		35	is_foreign_key: 1
		36	is_nullable: 0
		37
		38	=head2 club_id
		39
		40	data_type: 'integer'
		41	is_foreign_key: 1
		42	is_nullable: 0
		43
		44	=head2 value
		45
		46	data_type: 'text'
		47	is_nullable: 1
		48
		49	=cut
		50
		51	__PACKAGE__->add_columns(
		52	"id",
		53	{ data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
		54	"club_template_field_id",
		55	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
		56	"club_id",
		57	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
		58	"value",
		59	{ data_type => "text", is_nullable => 1 },
		60	);
		61
		62	=head1 PRIMARY KEY
		63
		64	=over 4
65
66	=item * L</id>
67
68	=back
69
70	=cut
71
72	__PACKAGE__->set_primary_key("id");
73
74	=head1 RELATIONS
75
76	=head2 club
77
78	Type: belongs_to
79
80	Related object: L<Koha::Schema::Result::Club>
81
82	=cut
83
84	__PACKAGE__->belongs_to(
85	"club",
86	"Koha::Schema::Result::Club",
87	{ id => "club_id" },
88	{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
89	);
90
91	=head2 club_template_field
92
93	Type: belongs_to
94
95	Related object: L<Koha::Schema::Result::ClubTemplateField>
96
97	=cut
98
99	__PACKAGE__->belongs_to(
100	"club_template_field",
101	"Koha::Schema::Result::ClubTemplateField",
102	{ id => "club_template_field_id" },
103	{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
104	);
105
106
107	# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
108	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:m4GLLIVIHgRpRhCGLh12DQ
109
110
111	# You can replace this text with custom content, and it will be preserved on regeneration
112	1;

Line 0 Link Here

(-)a/Koha/Schema/Result/ClubTemplate.pm (+195 lines)
		1	use utf8;
		2	package Koha::Schema::Result::ClubTemplate;
		3
		4	# Created by DBIx::Class::Schema::Loader
		5	# DO NOT MODIFY THE FIRST PART OF THIS FILE
		6
		7	=head1 NAME
		8
		9	Koha::Schema::Result::ClubTemplate
		10
		11	=cut
		12
		13	use strict;
		14	use warnings;
		15
		16	use base 'DBIx::Class::Core';
		17
		18	=head1 TABLE: C<club_templates>
		19
		20	=cut
		21
		22	__PACKAGE__->table("club_templates");
		23
		24	=head1 ACCESSORS
		25
		26	=head2 id
		27
		28	data_type: 'integer'
		29	is_auto_increment: 1
		30	is_nullable: 0
		31
		32	=head2 name
		33
		34	data_type: 'tinytext'
		35	is_nullable: 0
		36
		37	=head2 description
		38
		39	data_type: 'text'
		40	is_nullable: 1
		41
		42	=head2 is_enrollable_from_opac
		43
		44	data_type: 'tinyint'
		45	default_value: 0
		46	is_nullable: 0
		47
		48	=head2 is_email_required
		49
		50	data_type: 'tinyint'
		51	default_value: 0
		52	is_nullable: 0
		53
		54	=head2 branchcode
		55
		56	data_type: 'varchar'
		57	is_foreign_key: 1
		58	is_nullable: 1
		59	size: 10
		60
		61	=head2 date_created
		62
		63	data_type: 'timestamp'
		64	datetime_undef_if_invalid: 1
65	default_value: current_timestamp
66	is_nullable: 0
67
68	=head2 date_updated
69
70	data_type: 'timestamp'
71	datetime_undef_if_invalid: 1
72	is_nullable: 1
73
74	=head2 is_deletable
75
76	data_type: 'tinyint'
77	default_value: 1
78	is_nullable: 0
79
80	=cut
81
82	__PACKAGE__->add_columns(
83	"id",
84	{ data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
85	"name",
86	{ data_type => "tinytext", is_nullable => 0 },
87	"description",
88	{ data_type => "text", is_nullable => 1 },
89	"is_enrollable_from_opac",
90	{ data_type => "tinyint", default_value => 0, is_nullable => 0 },
91	"is_email_required",
92	{ data_type => "tinyint", default_value => 0, is_nullable => 0 },
93	"branchcode",
94	{ data_type => "varchar", is_foreign_key => 1, is_nullable => 1, size => 10 },
95	"date_created",
96	{
97	data_type => "timestamp",
98	datetime_undef_if_invalid => 1,
99	default_value => \"current_timestamp",
100	is_nullable => 0,
101	},
102	"date_updated",
103	{
104	data_type => "timestamp",
105	datetime_undef_if_invalid => 1,
106	is_nullable => 1,
107	},
108	"is_deletable",
109	{ data_type => "tinyint", default_value => 1, is_nullable => 0 },
110	);
111
112	=head1 PRIMARY KEY
113
114	=over 4
115
116	=item * L</id>
117
118	=back
119
120	=cut
121
122	__PACKAGE__->set_primary_key("id");
123
124	=head1 RELATIONS
125
126	=head2 branchcode
127
128	Type: belongs_to
129
130	Related object: L<Koha::Schema::Result::Branch>
131
132	=cut
133
134	__PACKAGE__->belongs_to(
135	"branchcode",
136	"Koha::Schema::Result::Branch",
137	{ branchcode => "branchcode" },
138	{
139	is_deferrable => 1,
140	join_type => "LEFT",
141	on_delete => "SET NULL",
142	on_update => "CASCADE",
143	},
144	);
145
146	=head2 club_template_enrollment_fields
147
148	Type: has_many
149
150	Related object: L<Koha::Schema::Result::ClubTemplateEnrollmentField>
151
152	=cut
153
154	__PACKAGE__->has_many(
155	"club_template_enrollment_fields",
156	"Koha::Schema::Result::ClubTemplateEnrollmentField",
157	{ "foreign.club_template_id" => "self.id" },
158	{ cascade_copy => 0, cascade_delete => 0 },
159	);
160
161	=head2 club_template_fields
162
163	Type: has_many
164
165	Related object: L<Koha::Schema::Result::ClubTemplateField>
166
167	=cut
168
169	__PACKAGE__->has_many(
170	"club_template_fields",
171	"Koha::Schema::Result::ClubTemplateField",
172	{ "foreign.club_template_id" => "self.id" },
173	{ cascade_copy => 0, cascade_delete => 0 },
174	);
175
176	=head2 clubs
177
178	Type: has_many
179
180	Related object: L<Koha::Schema::Result::Club>
181
182	=cut
183
184	__PACKAGE__->has_many(
185	"clubs",
186	"Koha::Schema::Result::Club",
187	{ "foreign.club_template_id" => "self.id" },
188	{ cascade_copy => 0, cascade_delete => 0 },
189	);
190
191
192	# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
193	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:j5aiACVUGzrdng4+jt6mfg
194
195	1;

Line 0 Link Here

(-)a/Koha/Schema/Result/ClubTemplateEnrollmentField.pm (+119 lines)
		1	use utf8;
		2	package Koha::Schema::Result::ClubTemplateEnrollmentField;
		3
		4	# Created by DBIx::Class::Schema::Loader
		5	# DO NOT MODIFY THE FIRST PART OF THIS FILE
		6
		7	=head1 NAME
		8
		9	Koha::Schema::Result::ClubTemplateEnrollmentField
		10
		11	=cut
		12
		13	use strict;
		14	use warnings;
		15
		16	use base 'DBIx::Class::Core';
		17
		18	=head1 TABLE: C<club_template_enrollment_fields>
		19
		20	=cut
		21
		22	__PACKAGE__->table("club_template_enrollment_fields");
		23
		24	=head1 ACCESSORS
		25
		26	=head2 id
		27
		28	data_type: 'integer'
		29	is_auto_increment: 1
		30	is_nullable: 0
		31
		32	=head2 club_template_id
		33
		34	data_type: 'integer'
		35	is_foreign_key: 1
		36	is_nullable: 0
		37
		38	=head2 name
		39
		40	data_type: 'tinytext'
		41	is_nullable: 0
		42
		43	=head2 description
		44
		45	data_type: 'text'
		46	is_nullable: 1
		47
		48	=head2 authorised_value_category
		49
		50	data_type: 'varchar'
		51	is_nullable: 1
		52	size: 16
		53
		54	=cut
		55
		56	__PACKAGE__->add_columns(
		57	"id",
		58	{ data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
		59	"club_template_id",
		60	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
		61	"name",
		62	{ data_type => "tinytext", is_nullable => 0 },
		63	"description",
		64	{ data_type => "text", is_nullable => 1 },
65	"authorised_value_category",
66	{ data_type => "varchar", is_nullable => 1, size => 16 },
67	);
68
69	=head1 PRIMARY KEY
70
71	=over 4
72
73	=item * L</id>
74
75	=back
76
77	=cut
78
79	__PACKAGE__->set_primary_key("id");
80
81	=head1 RELATIONS
82
83	=head2 club_enrollment_fields
84
85	Type: has_many
86
87	Related object: L<Koha::Schema::Result::ClubEnrollmentField>
88
89	=cut
90
91	__PACKAGE__->has_many(
92	"club_enrollment_fields",
93	"Koha::Schema::Result::ClubEnrollmentField",
94	{ "foreign.club_template_enrollment_field_id" => "self.id" },
95	{ cascade_copy => 0, cascade_delete => 0 },
96	);
97
98	=head2 club_template
99
100	Type: belongs_to
101
102	Related object: L<Koha::Schema::Result::ClubTemplate>
103
104	=cut
105
106	__PACKAGE__->belongs_to(
107	"club_template",
108	"Koha::Schema::Result::ClubTemplate",
109	{ id => "club_template_id" },
110	{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
111	);
112
113
114	# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
115	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:KGo2mEIAkTVYSPsOLoaBCg
116
117
118	# You can replace this text with custom content, and it will be preserved on regeneration
119	1;

Line 0 Link Here

(-)a/Koha/Schema/Result/ClubTemplateField.pm (+119 lines)
		1	use utf8;
		2	package Koha::Schema::Result::ClubTemplateField;
		3
		4	# Created by DBIx::Class::Schema::Loader
		5	# DO NOT MODIFY THE FIRST PART OF THIS FILE
		6
		7	=head1 NAME
		8
		9	Koha::Schema::Result::ClubTemplateField
		10
		11	=cut
		12
		13	use strict;
		14	use warnings;
		15
		16	use base 'DBIx::Class::Core';
		17
		18	=head1 TABLE: C<club_template_fields>
		19
		20	=cut
		21
		22	__PACKAGE__->table("club_template_fields");
		23
		24	=head1 ACCESSORS
		25
		26	=head2 id
		27
		28	data_type: 'integer'
		29	is_auto_increment: 1
		30	is_nullable: 0
		31
		32	=head2 club_template_id
		33
		34	data_type: 'integer'
		35	is_foreign_key: 1
		36	is_nullable: 0
		37
		38	=head2 name
		39
		40	data_type: 'tinytext'
		41	is_nullable: 0
		42
		43	=head2 description
		44
		45	data_type: 'text'
		46	is_nullable: 1
		47
		48	=head2 authorised_value_category
		49
		50	data_type: 'varchar'
		51	is_nullable: 1
		52	size: 16
		53
		54	=cut
		55
		56	__PACKAGE__->add_columns(
		57	"id",
		58	{ data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
		59	"club_template_id",
		60	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
		61	"name",
		62	{ data_type => "tinytext", is_nullable => 0 },
		63	"description",
		64	{ data_type => "text", is_nullable => 1 },
65	"authorised_value_category",
66	{ data_type => "varchar", is_nullable => 1, size => 16 },
67	);
68
69	=head1 PRIMARY KEY
70
71	=over 4
72
73	=item * L</id>
74
75	=back
76
77	=cut
78
79	__PACKAGE__->set_primary_key("id");
80
81	=head1 RELATIONS
82
83	=head2 club_fields
84
85	Type: has_many
86
87	Related object: L<Koha::Schema::Result::ClubField>
88
89	=cut
90
91	__PACKAGE__->has_many(
92	"club_fields",
93	"Koha::Schema::Result::ClubField",
94	{ "foreign.club_template_field_id" => "self.id" },
95	{ cascade_copy => 0, cascade_delete => 0 },
96	);
97
98	=head2 club_template
99
100	Type: belongs_to
101
102	Related object: L<Koha::Schema::Result::ClubTemplate>
103
104	=cut
105
106	__PACKAGE__->belongs_to(
107	"club_template",
108	"Koha::Schema::Result::ClubTemplate",
109	{ id => "club_template_id" },
110	{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
111	);
112
113
114	# Created by DBIx::Class::Schema::Loader v0.07040 @ 2015-01-12 09:56:17
115	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:P73ABSn2tzlTYbD3nov21g
116
117
118	# You can replace this text with custom content, and it will be preserved on regeneration
119	1;

Line 0 Link Here

(-)a/clubs/clubs-add-modify.pl (+107 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2013 ByWater Solutions
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it
		8	# under the terms of the GNU General Public License as published by
		9	# the Free Software Foundation; either version 3 of the License, or
		10	# (at your option) any later version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but
		13	# WITHOUT ANY WARRANTY; without even the implied warranty of
		14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		15	# GNU General Public License for more details.
		16	#
		17	# You should have received a copy of the GNU General Public License
		18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		19
		20	use Modern::Perl;
		21
		22	use CGI;
		23
		24	use C4::Auth;
		25	use C4::Output;
		26	use Koha::Database;
		27	use Koha::DateUtils qw(dt_from_string);
		28	use Koha::Clubs;
		29	use Koha::Club::Fields;
		30
		31	my $cgi = new CGI;
		32
		33	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
		34	{
		35	template_name => 'clubs/clubs-add-modify.tt',
		36	query => $cgi,
		37	type => 'intranet',
		38	authnotrequired => 0,
		39	flagsrequired => { clubs => 'edit_clubs' },
		40	}
		41	);
		42
		43	my $schema = Koha::Database->new()->schema();
		44
		45	my $id = $cgi->param('id');
		46	my $club = $id ? Koha::Clubs->find($id) : Koha::Club->new();
		47	my $stored = $cgi->param('name') ? $id ? 'updated' : 'stored' : undef;
		48
		49	my $club_template_id = $cgi->param('club_template_id');
		50	my $club_template = $club->club_template() \|\| Koha::Club::Templates->find($club_template_id);
		51	$club_template_id \|\|= $club_template->id();
		52
		53	my $date_start = $cgi->param('date_start');
		54	$date_start = $date_start ? dt_from_string($date_start) : undef;
		55	my $date_end = $cgi->param('date_end');
		56	$date_end = $date_end ? dt_from_string($date_end) : undef;
		57
		58	if ( $cgi->param('name') ) { # Update or create club
		59	$club->set(
		60	{
		61	club_template_id => $cgi->param('club_template_id') \|\| undef,
		62	name => $cgi->param('name') \|\| undef,
		63	description => $cgi->param('description') \|\| undef,
		64	branchcode => $cgi->param('branchcode') \|\| undef,
65	date_start => $date_start,
66	date_end => $date_end,
67	date_updated => dt_from_string(),
68	}
69	)->store();
70
71	my @club_template_field_id = $cgi->multi_param('club_template_field_id');
72	my @club_field_id = $cgi->multi_param('club_field_id');
73	my @club_field = $cgi->multi_param('club_field');
74
75	for ( my $i = 0 ; $i < @club_template_field_id ; $i++ ) {
76	my $club_template_field_id = $club_template_field_id[$i] \|\| undef;
77	my $club_field_id = $club_field_id[$i] \|\| undef;
78	my $club_field = $club_field[$i] \|\| undef;
79
80	my $field =
81	$club_field_id
82	? Koha::Club::Fields->find($club_field_id)
83	: Koha::Club::Field->new();
84
85	$field->set(
86	{
87	club_id => $club->id(),
88	club_template_field_id => $club_template_field_id,
89	value => $club_field,
90	}
91	)->store();
92	}
93
94	$id \|\|= $club->id();
95
96	print $cgi->redirect("/cgi-bin/koha/clubs/clubs.pl?stored=$stored&club_id=$id");
97	exit;
98	}
99
100	$club = Koha::Clubs->find($id);
101
102	$template->param(
103	club_template => $club_template,
104	club => $club,
105	);
106
107	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

(-)a/clubs/clubs.pl (+60 lines)
	1	#!/usr/bin/perl
	2
	3	# Copyright 2013 ByWater Solutions
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it
	8	# under the terms of the GNU General Public License as published by
	9	# the Free Software Foundation; either version 3 of the License, or
	10	# (at your option) any later version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but
	13	# WITHOUT ANY WARRANTY; without even the implied warranty of
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	# GNU General Public License for more details.
	16	#
	17	# You should have received a copy of the GNU General Public License
	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
	19
	20	use Modern::Perl;
	21
	22	use CGI;
	23
	24	use C4::Auth;
	25	use C4::Output;
	26
	27	use Koha::Clubs;
	28	use Koha::Club::Templates;
	29
	30	my $cgi = new CGI;
	31
	32	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
	33	{
	34	template_name => "clubs/clubs.tt",
	35	query => $cgi,
	36	type => "intranet",
	37	authnotrequired => 0,
	38	flagsrequired => { clubs => '*' },
	39	}
	40	);
	41
	42	my $stored = $cgi->param('stored');
	43	my $club_template_id = $cgi->param('club_template_id');
	44	my $club_id = $cgi->param('club_id');
	45
	46	my $club_template = $club_template_id ? Koha::Club::Templates->find( $club_template_id ) : undef;
	47	my $club = $club_id ? Koha::Clubs->find( $club_id ) : undef;
	48
	49	my @club_templates = Koha::Club::Templates->search();
	50	my @clubs = Koha::Clubs->search();
	51
	52	$template->param(
	53	stored => $stored,
	54	club_template => $club_template,
	55	club => $club,
	56	club_templates => \@club_templates,
	57	clubs => \@clubs,
	58	);
	59
	60	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

(-)a/clubs/patron-clubs-tab.pl (+55 lines)
	1	#!/usr/bin/perl
	2
	3	# Copyright 2013 ByWater Solutions
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it
	8	# under the terms of the GNU General Public License as published by
	9	# the Free Software Foundation; either version 3 of the License, or
	10	# (at your option) any later version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but
	13	# WITHOUT ANY WARRANTY; without even the implied warranty of
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	# GNU General Public License for more details.
	16	#
	17	# You should have received a copy of the GNU General Public License
	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
	19
	20	use Modern::Perl;
	21
	22	use CGI;
	23
	24	use C4::Auth;
	25	use C4::Output;
	26
	27	use Koha::Patrons;
	28	use Koha::Club::Enrollments;
	29
	30	my $cgi = new CGI;
	31
	32	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
	33	{
	34	template_name => "clubs/patron-clubs-tab.tt",
	35	query => $cgi,
	36	type => "intranet",
	37	authnotrequired => 0,
	38	flagsrequired => { clubs => '*' },
	39	}
	40	);
	41
	42	my $patronnumber = $cgi->param('borrowernumber');
	43
	44	my $patron = Koha::Patrons->find($patronnumber);
	45
	46	my @enrollments = $patron->get_club_enrollments();
	47	my @clubs = $patron->get_enrollable_clubs();
	48
	49	$template->param(
	50	enrollments => \@enrollments,
	51	clubs => \@clubs,
	52	borrowernumber => $patronnumber
	53	);
	54
	55	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

(-)a/clubs/patron-enroll.pl (+50 lines)
	1	#!/usr/bin/perl
	2
	3	# Copyright 2013 ByWater Solutions
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it
	8	# under the terms of the GNU General Public License as published by
	9	# the Free Software Foundation; either version 3 of the License, or
	10	# (at your option) any later version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but
	13	# WITHOUT ANY WARRANTY; without even the implied warranty of
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	# GNU General Public License for more details.
	16	#
	17	# You should have received a copy of the GNU General Public License
	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
	19
	20	use Modern::Perl;
	21
	22	use CGI;
	23
	24	use C4::Auth;
	25	use C4::Output;
	26	use Koha::Clubs;
	27
	28	my $cgi = new CGI;
	29
	30	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
	31	{
	32	template_name => "clubs/patron-enroll.tt",
	33	query => $cgi,
	34	type => "intranet",
	35	authnotrequired => 0,
	36	flagsrequired => { clubs => '*' },
	37	}
	38	);
	39
	40	my $id = $cgi->param('id');
	41	my $borrowernumber = $cgi->param('borrowernumber');
	42
	43	my $club = Koha::Clubs->find($id);
	44
	45	$template->param(
	46	club => $club,
	47	borrowernumber => $borrowernumber,
	48	);
	49
	50	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

(-)a/clubs/templates-add-modify.pl (+152 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2013 ByWater Solutions
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it
		8	# under the terms of the GNU General Public License as published by
		9	# the Free Software Foundation; either version 3 of the License, or
		10	# (at your option) any later version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but
		13	# WITHOUT ANY WARRANTY; without even the implied warranty of
		14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		15	# GNU General Public License for more details.
		16	#
		17	# You should have received a copy of the GNU General Public License
		18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		19
		20	use Modern::Perl;
		21
		22	use CGI;
		23
		24	use C4::Auth;
		25	use C4::Output;
		26
		27	use Koha::DateUtils qw(dt_from_string);
		28	use Koha::Club::Templates;
		29	use Koha::Club::Template::Fields;
		30	use Koha::Club::Template::EnrollmentFields;
		31
		32	use Koha::Database;
		33	my $schema = Koha::Database->new()->schema();
		34
		35	my $cgi = new CGI;
		36
		37	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
		38	{
		39	template_name => 'clubs/templates-add-modify.tt',
		40	query => $cgi,
		41	type => 'intranet',
		42	authnotrequired => 0,
		43	flagsrequired => { clubs => 'edit_templates' },
		44	}
		45	);
		46
		47	my $id = $cgi->param('id');
		48
		49	my $club_template;
		50	my $stored;
		51
		52	if ( $cgi->param('name') ) { # Update or create club
		53	if ($id) {
		54	$club_template = Koha::Club::Templates->find($id);
		55	$stored = 'updated';
		56	}
		57	else {
		58	$club_template = Koha::Club::Template->new();
		59	$stored = 'created';
		60	}
		61
		62	$club_template->set(
		63	{
		64	id => $id \|\| undef,
65	name => $cgi->param('name') \|\| undef,
66	description => $cgi->param('description') \|\| undef,
67	branchcode => $cgi->param('branchcode') \|\| undef,
68	date_updated => dt_from_string(),
69	is_email_required => $cgi->param('is_email_required') ? 1 : 0,
70	is_enrollable_from_opac => $cgi->param('is_enrollable_from_opac') ? 1 : 0,
71	}
72	)->store();
73
74	$id \|\|= $club_template->id();
75
76	# Update club creation fields
77	my @field_id = $cgi->multi_param('club_template_field_id');
78	my @field_name = $cgi->multi_param('club_template_field_name');
79	my @field_description = $cgi->multi_param('club_template_field_description');
80	my @field_authorised_value_category = $cgi->multi_param('club_template_field_authorised_value_category');
81
82	my @field_delete = $cgi->multi_param('club_template_field_delete');
83
84	for ( my $i = 0 ; $i < @field_id ; $i++ ) {
85	my $field_id = $field_id[$i];
86	my $field_name = $field_name[$i];
87	my $field_description = $field_description[$i];
88	my $field_authorised_value_category = $field_authorised_value_category[$i];
89
90	my $field =
91	$field_id
92	? Koha::Club::Template::Fields->find($field_id)
93	: Koha::Club::Template::Field->new();
94
95	if ( grep( /^$field_id$/, @field_delete ) ) {
96	$field->delete();
97	}
98	else {
99	$field->set(
100	{
101	club_template_id => $id,
102	name => $field_name,
103	description => $field_description,
104	authorised_value_category => $field_authorised_value_category,
105	}
106	)->store();
107	}
108	}
109
110	# Update club enrollment fields
111	@field_id = $cgi->multi_param('club_template_enrollment_field_id');
112	@field_name = $cgi->multi_param('club_template_enrollment_field_name');
113	@field_description = $cgi->multi_param('club_template_enrollment_field_description');
114	@field_authorised_value_category = $cgi->multi_param('club_template_enrollment_field_authorised_value_category');
115
116	@field_delete = $cgi->multi_param('club_template_enrollment_field_delete');
117
118	for ( my $i = 0 ; $i < @field_id ; $i++ ) {
119	my $field_id = $field_id[$i];
120	my $field_name = $field_name[$i];
121	my $field_description = $field_description[$i];
122	my $field_authorised_value_category = $field_authorised_value_category[$i];
123
124	my $field =
125	$field_id
126	? Koha::Club::Template::EnrollmentFields->find($field_id)
127	: Koha::Club::Template::EnrollmentField->new();
128
129	if ( grep( /^$field_id$/, @field_delete ) ) {
130	$field->delete();
131	}
132	else {
133	$field->set(
134	{
135	id => $field_id,
136	club_template_id => $id,
137	name => $field_name,
138	description => $field_description,
139	authorised_value_category => $field_authorised_value_category,
140	}
141	)->store();
142	}
143	}
144
145	print $cgi->redirect("/cgi-bin/koha/clubs/clubs.pl?stored=$stored&club_template_id=$id");
146	exit;
147	}
148
149	$club_template \|\|= Koha::Club::Templates->find($id);
150	$template->param( club_template => $club_template );
151
152	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_12461.sql (+131 lines)
		1	--
		2	-- Table structure for table 'club_templates'
		3	--
		4
		5	CREATE TABLE IF NOT EXISTS club_templates (
		6	id int(11) NOT NULL AUTO_INCREMENT,
		7	`name` tinytext NOT NULL,
		8	description text,
		9	is_enrollable_from_opac tinyint(1) NOT NULL DEFAULT '0',
		10	is_email_required tinyint(1) NOT NULL DEFAULT '0',
		11	branchcode varchar(10) NULL DEFAULT NULL,
		12	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		13	date_updated timestamp NULL DEFAULT NULL,
		14	is_deletable tinyint(1) NOT NULL DEFAULT '1',
		15	PRIMARY KEY (id),
		16	KEY ct_branchcode (branchcode),
		17	CONSTRAINT `club_templates_ibfk_1` FOREIGN KEY (branchcode) REFERENCES `branches` (branchcode) ON DELETE CASCADE ON UPDATE CASCADE
		18	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
		19
		20	--
		21	-- Table structure for table 'clubs'
		22	--
		23
		24	CREATE TABLE IF NOT EXISTS clubs (
		25	id int(11) NOT NULL AUTO_INCREMENT,
		26	club_template_id int(11) NOT NULL,
		27	`name` tinytext NOT NULL,
		28	description text,
		29	date_start date DEFAULT NULL,
		30	date_end date DEFAULT NULL,
		31	branchcode varchar(10) NULL DEFAULT NULL,
		32	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		33	date_updated timestamp NULL DEFAULT NULL,
		34	PRIMARY KEY (id),
		35	KEY club_template_id (club_template_id),
		36	KEY branchcode (branchcode),
		37	CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
		38	CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branchcode) REFERENCES branches (branchcode)
		39	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
		40
		41	--
		42	-- Table structure for table 'club_enrollments'
		43	--
		44
		45	CREATE TABLE IF NOT EXISTS club_enrollments (
		46	id int(11) NOT NULL AUTO_INCREMENT,
		47	club_id int(11) NOT NULL,
		48	borrowernumber int(11) NOT NULL,
		49	date_enrolled timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		50	date_canceled timestamp NULL DEFAULT NULL,
		51	date_created timestamp NOT NULL DEFAULT '0000-00-00 00:00:00',
		52	date_updated timestamp NULL DEFAULT NULL,
		53	branchcode varchar(10) NULL DEFAULT NULL,
		54	PRIMARY KEY (id),
		55	KEY club_id (club_id),
		56	KEY borrowernumber (borrowernumber),
		57	KEY branchcode (branchcode),
		58	CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club_id) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
		59	CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
		60	CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branchcode) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE
		61	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
		62
		63	--
		64	-- Table structure for table 'club_template_enrollment_fields'
65	--
66
67	CREATE TABLE IF NOT EXISTS club_template_enrollment_fields (
68	id int(11) NOT NULL AUTO_INCREMENT,
69	club_template_id int(11) NOT NULL,
70	`name` tinytext NOT NULL,
71	description text,
72	authorised_value_category varchar(16) DEFAULT NULL,
73	PRIMARY KEY (id),
74	KEY club_template_id (club_template_id),
75	CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE
76	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
77
78	--
79	-- Table structure for table 'club_enrollment_fields'
80	--
81
82	CREATE TABLE IF NOT EXISTS club_enrollment_fields (
83	id int(11) NOT NULL AUTO_INCREMENT,
84	club_enrollment_id int(11) NOT NULL,
85	club_template_enrollment_field_id int(11) NOT NULL,
86	`value` text NOT NULL,
87	PRIMARY KEY (id),
88	KEY club_enrollment_id (club_enrollment_id),
89	KEY club_template_enrollment_field_id (club_template_enrollment_field_id),
90	CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment_id) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
91	CONSTRAINT club_enrollment_fields_ibfk_2 FOREIGN KEY (club_template_enrollment_field_id) REFERENCES club_template_enrollment_fields (id) ON DELETE CASCADE ON UPDATE CASCADE
92	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
93
94	--
95	-- Table structure for table 'club_template_fields'
96	--
97
98	CREATE TABLE IF NOT EXISTS club_template_fields (
99	id int(11) NOT NULL AUTO_INCREMENT,
100	club_template_id int(11) NOT NULL,
101	`name` tinytext NOT NULL,
102	description text,
103	authorised_value_category varchar(16) DEFAULT NULL,
104	PRIMARY KEY (id),
105	KEY club_template_id (club_template_id),
106	CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template_id) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE
107	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
108
109	--
110	-- Table structure for table 'club_fields'
111	--
112
113	CREATE TABLE IF NOT EXISTS club_fields (
114	id int(11) NOT NULL AUTO_INCREMENT,
115	club_template_field_id int(11) NOT NULL,
116	club_id int(11) NOT NULL,
117	`value` text,
118	PRIMARY KEY (id),
119	KEY club_template_field_id (club_template_field_id),
120	KEY club_id (club_id),
121	CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field_id) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
122	CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club_id) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE
123	) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
124
125	INSERT IGNORE INTO userflags (bit, flag, flagdesc, defaulton) VALUES (21, 'clubs', 'Patron clubs', '0');
126
127	INSERT IGNORE INTO permissions (module_bit, code, description) VALUES
128	(21, 'edit_templates', 'Create and update club templates'),
129	(21, 'edit_clubs', 'Create and update clubs'),
130	(21, 'enroll', 'Enroll patrons in clubs')
131	;

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/clubs/clubs-add-modify.tt (+115 lines)
		1	[% USE KohaDates %]
		2	[% USE Branches %]
		3	[% USE AuthorisedValues %]
		4	[% SET AuthorisedValuesCategories = AuthorisedValues.GetCategories %]
		5	[% INCLUDE 'doc-head-open.inc' %]
		6	<title>Koha &rsaquo; Tools &rsaquo; Patron clubs &rsaquo; Club</title>
		7	[% INCLUDE 'doc-head-close.inc' %]
		8	[% INCLUDE 'calendar.inc' %]
		9	</head>
		10
		11	<body id="clubs_add_modify" class="clubs">
		12	[% INCLUDE 'header.inc' %]
		13	[% INCLUDE 'cat-search.inc' %]
		14	<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="clubs.pl">Patron clubs</a> &rsaquo; Add / modify club</div>
		15
		16	<div class="yui-t7">
		17	<div class="yui-main">
		18	<form method="post" class="validated">
		19	<input type="hidden" name="id" value="[% club.id %]" />
		20	<input type="hidden" name="club_template_id" value="[% club_template.id %]" />
		21
		22	<fieldset class="rows">
		23
		24	<legend>
		25	[% IF club %]
		26	Modify club <i>[% club.name %]</i>
		27	[% ELSE %]
		28	Create a new <i>[% club_template.name %]</i> club
		29	[% END %]
		30	</legend>
		31
		32	<ol>
		33	<li>
		34	<label class="required" for="name">Name:</label>
		35	<input id="club-name" name="name" type="text" value="[% club.name %]" required="required"/>
		36	<span class="required">Required</span>
		37	</li>
		38
		39	<li>
		40	<label for="description">Description:</label>
		41	<input id="club-template-name" name="description" type="text" value="[% club.description %]" />
		42	</li>
		43
		44	<li>
		45	<label for="date_start">Start date:</label>
		46	<input name="date_start" id="from" size="10" readonly="readonly" class="datepickerfrom" value="[% club.date_start \| $KohaDates %]">
		47	</li>
		48
		49	<li>
		50	<label for="date_end">End date:</label>
		51	<input name="date_end" id="to" size="10" readonly="readonly" class="datepickerto" value="[% club.date_end \| $KohaDates %]" >
		52	</li>
		53
		54	<li>
		55	<label for="name">Library:</label>
		56	<select name="branchcode" id="club-template-branchcode">
		57	<option value="">&nbsp</option>
		58	[% PROCESS options_for_libraries libraries => Branches.all( selected => club.branch.branchcode ) %]
		59	</select>
		60	</li>
		61
		62	[% IF club %]
		63	[% FOREACH f IN club.club_fields %]
		64	<li>
65	<input type="hidden" name="club_template_field_id" value="[% f.club_template_field.id %]" />
66	<input type="hidden" name="club_field_id" value="[% f.id %]" />
67
68	<label for="club_field">[% f.club_template_field.name %]</label>
69	[% IF f.club_template_field.authorised_value_category %]
70	<select name="club_field">
71	[% FOREACH a IN AuthorisedValues.Get( f.club_template_field.authorised_value_category ) %]
72	[% IF a.authorised_value == f.value %]
73	<option value="[% a.authorised_value %]" selected="selected">[% a.lib %]</option>
74	[% ELSE %]
75	<option value="[% a.authorised_value %]">[% a.lib %]</option>
76	[% END %]
77	[% END %]
78	</select>
79	[% ELSE %]
80	<input type="text" name="club_field" value="[% f.value %]" />
81	[% END %]
82	</li>
83	[% END %]
84	[% ELSE %]
85	[% FOREACH f IN club_template.club_template_fields %]
86	<li>
87	<input type="hidden" name="club_template_field_id" value="[% f.id %]" />
88
89	<label for="club_field">[% f.name %]</label>
90	[% IF f.authorised_value_category %]
91	<select name="club_field">
92	[% FOREACH a IN AuthorisedValues.Get( f.authorised_value_category ) %]
93	<option value="[% a.authorised_value %]">[% a.lib %]</option>
94	[% END %]
95	</select>
96	[% ELSE %]
97	<input type="text" name="club_field" />
98	[% END %]
99	</li>
100	[% END %]
101	[% END %]
102
103	</ol>
104
105	</fieldset>
106
107	<fieldset class="action">
108	<input type="submit" class="btn btn-default" value="Save" />
109	<a href="clubs.pl" class="cancel">Cancel</a>
110	</fieldset>
111	</form>
112	</div>
113	</div>
114
115	[% INCLUDE 'intranet-bottom.inc' %]

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/clubs/clubs.tt (+252 lines)
		1	[% USE Branches %]
		2	[% USE Koha %]
		3	[% INCLUDE 'doc-head-open.inc' %]
		4	<title>Koha &rsaquo; Tools &rsaquo; Patron clubs</title>
		5	[% INCLUDE 'doc-head-close.inc' %]
		6
		7	<link rel="stylesheet" type="text/css" href="[% interface %]/[% theme %]/css/datatables.css" />
		8	[% INCLUDE 'datatables.inc' %]
		9
		10	<script type="text/javascript">
		11	//<![CDATA[
		12	$(document).ready(function() {
		13	tTable = $('#club-templates-table').dataTable($.extend(true, {}, dataTablesDefaults, {
		14	"sPaginationType": "four_button",
		15	"sDom": 'C<"top pager"ilpf><"#filter_c">tr<"bottom pager"ip>',
		16	"aoColumnDefs": [
		17	{ "aTargets": [ -1, -2 ], "bSortable": false, "bSearchable": false },
		18	]
		19	} ));
		20
		21	cTable = $('#clubs-table').dataTable($.extend(true, {}, dataTablesDefaults, {
		22	"sPaginationType": "four_button",
		23	"sDom": 'C<"top pager"ilpf><"#filter_c">tr<"bottom pager"ip>',
		24	"aoColumnDefs": [
		25	{ "aTargets": [ -1, -2 ], "bSortable": false, "bSearchable": false },
		26	]
		27	} ));
		28	});
		29
		30	function ConfirmDeleteTemplate( id, name, a ) {
		31	if ( confirm( _("Are you sure you want to delete the club template %s?" ).format(name) ) ) {
		32	$.ajax({
		33	type: "POST",
		34	url: '/cgi-bin/koha/svc/club/template/delete',
		35	data: { id: id },
		36	success: function( data ) {
		37	if ( data.success ) {
		38	tTable.fnDeleteRow(a.closest("tr")[0]);
		39	} else {
		40	alert(_("Unable to delete template!"));
		41	}
		42	},
		43	dataType: 'json'
		44	});
		45	}
		46	}
		47
		48	function ConfirmDeleteClub( id, name, a ) {
		49	if ( confirm( _("Are you sure you want to delete the club %s?" ).format(name) ) ) {
		50	$.ajax({
		51	type: "POST",
		52	url: '/cgi-bin/koha/svc/club/delete',
		53	data: { id: id },
		54	success: function( data ) {
		55	if ( data.success ) {
		56	cTable.fnDeleteRow(a.closest("tr")[0]);
		57	} else {
		58	alert(_("Unable to delete club!"));
		59	}
		60	},
		61	dataType: 'json'
		62	});
		63	}
		64	}
65	//]]>
66	</script>
67
68	</head>
69
70	<body id="clubs_clubs" class="clubs">
71	[% INCLUDE 'header.inc' %]
72	[% INCLUDE 'cat-search.inc' %]
73	<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; Patron clubs</div>
74
75	<div id="doc3" class="yui-t2">
76	<div id="bd">
77	<div id="yui-main">
78	<div class="yui-b">
79	<h1>Patron clubs</h1>
80
81	[% IF club_template %]
82	<div class="dialog message">
83	[% IF stored == 'updated' %]
84	<p>Club template <i>[% club_template.name %]</i> was updated.</p>
85	[% ELSE %]
86	<p>Club template <i>[% club_template.name %]</i> was saved.</p>
87	[% END %]
88	</div>
89	[% ELSIF club %]
90	<div class="dialog message">
91	[% IF stored == 'updated' %]
92	<p>Club <i>[% club.name %]</i> was updated.</p>
93	[% ELSE %]
94	<p>Club <i>[% club.name %]</i> was saved.</p>
95	[% END %]
96	</div>
97	[% END %]
98
99	<h3>Club templates</h3>
100
101	[% IF CAN_user_clubs_edit_templates %]
102	<div class="btn-toolbar">
103	<div class="btn-group">
104	<a class="btn btn-default" href="templates-add-modify.pl"><i class="fa fa-plus"></i> New club template</a>
105	</div>
106	</div>
107	[% END %]
108
109	<table id="club-templates-table">
110	<thead>
111	<tr>
112	<th>Name</th>
113	<th>Description</th>
114	<th>Public enrollment</th>
115	<th>Email required</th>
116	<th>Library</th>
117	<th> </th>
118	<th> </th>
119	</tr>
120	</thead>
121
122	<tbody>
123	[% IF club_templates %]
124	[% FOREACH t IN club_templates %]
125	<tr>
126	<td>[% t.name %]</td>
127	<td>[% t.description %]</td>
128	<td>
129	[% IF t.is_enrollable_from_opac %]
130	Yes
131	[% ELSE %]
132	No
133	[% END %]
134	</td>
135	<td>
136	[% IF t.is_email_required %]
137	Yes
138	[% ELSE %]
139	No
140	[% END %]
141	</td>
142	<td>[% Branches.GetName( t.branchcode ) %]</td>
143	<td>
144	[% IF CAN_user_clubs_edit_templates %]
145	<a class="btn btn-default" style="white-space:nowrap" href="templates-add-modify.pl?id=[% t.id %]">
146	<i class="fa fa-edit"></i> Edit
147	</a>
148	[% END %]
149	</td>
150	<td>
151	[% IF CAN_user_clubs_edit_templates %]
152	<a class="btn btn-default" href="#" onclick='ConfirmDeleteTemplate([% t.id %], "[% t.name \| html %]", $(this) ); return false;'>
153	<i class="fa fa-trash"></i> Delete
154	</a>
155	[% END %]
156	</td>
157	</tr>
158	[% END %]
159	[% ELSE %]
160	<tr>
161	<td colspan="7">
162	No club templates defined.
163	</td>
164	</td>
165	[% END %]
166	</tbody>
167	</table>
168
169	<h3>Clubs</h3>
170
171	[% IF CAN_user_clubs_edit_clubs %]
172	<div class="btn-toolbar">
173	<div class="btn-group">
174	<button class="btn btn-default dropdown-toggle" data-toggle="dropdown"><i class="fa fa-plus"></i> New club <span class="caret"></span></button>
175	<ul class="dropdown-menu">
176	[% FOREACH t IN club_templates %]
177	<li><a href="/cgi-bin/koha/clubs/clubs-add-modify.pl?club_template_id=[% t.id %]">[% t.name %]</a></li>
178	[% END %]
179	</ul>
180	</div>
181	</div>
182	[% END %]
183
184	<table id="clubs-table">
185	<thead>
186	<tr>
187	<th>Name</th>
188	<th>Template</th>
189	<th>Description</th>
190	<th>Public enrollment</th>
191	<th>Email required</th>
192	<th>Library</th>
193	<th> </th>
194	<th> </th>
195	</tr>
196	</thead>
197
198	<tbody>
199	[% IF clubs %]
200	[% FOREACH c IN clubs %]
201	<tr>
202	<td>[% c.name %]</td>
203	<td>[% c.club_template.name %]</td>
204	<td>[% c.description %]</td>
205	<td>
206	[% IF c.club_template.is_enrollable_from_opac %]
207	Yes
208	[% ELSE %]
209	No
210	[% END %]
211	</td>
212	<td>
213	[% IF c.club_template.is_email_required %]
214	Yes
215	[% ELSE %]
216	No
217	[% END %]
218	</td>
219	<td>[% Branches.GetName( c.branchcode ) %]</td>
220	<td>
221	[% IF CAN_user_clubs_edit_clubs %]
222	<a class="btn btn-default" style="white-space:nowrap" href="clubs-add-modify.pl?id=[% c.id %]">
223	<i class="fa fa-edit"></i> Edit
224	</a>
225	[% END %]
226	</td>
227	<td>
228	[% IF CAN_user_clubs_edit_clubs %]
229	<a class="btn btn-default" href="#" onclick='ConfirmDeleteClub([% c.id %], "[% c.name \| html %]", $(this) ); return false;'>
230	<i class="fa fa-trash"></i> Delete
231	</a>
232	[% END %]
233	</td>
234	</tr>
235	[% END %]
236	[% ELSE %]
237	<tr>
238	<td colspan="8">
239	No club templates defined.
240	</td>
241	</td>
242	[% END %]
243	</tbody>
244	</table>
245	</div>
246	</div>
247	<div class="yui-b noprint">
248	[% INCLUDE 'tools-menu.inc' %]
249	</div>
250	</div>
251	</div>
252	[% INCLUDE 'intranet-bottom.inc' %]