Attachment #31567 for bug #12461

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





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::Database->new()->schema()->resultset('Borrower')->find( $borrowernumber );

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

=head2 GetNoticeEmailAddress




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

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

=head1 NAME

Koha::Schema::Result::Borrower

=cut

use strict;
use warnings;

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


=head1 NAME

Koha::Schema::Result::Borrower

=cut


=head2 dateofbirth

  data_type: 'date'
  datetime_undef_if_invalid: 1
  is_nullable: 1

=head2 branchcode

=head2 dateenrolled

  data_type: 'date'
  datetime_undef_if_invalid: 1
  is_nullable: 1

=head2 dateexpiry

  data_type: 'date'
  datetime_undef_if_invalid: 1
  is_nullable: 1

=head2 gonenoaddress

=head2 debarred

  data_type: 'date'
  datetime_undef_if_invalid: 1
  is_nullable: 1

=head2 debarredcomment

  "B_phone",
  { accessor => "b_phone", data_type => "mediumtext", is_nullable => 1 },
  "dateofbirth",
  { data_type => "date", is_nullable => 1 },
  "branchcode",
  {
    data_type => "varchar",

    size => 10,
  },
  "dateenrolled",
  { data_type => "date", is_nullable => 1 },
  "dateexpiry",
  { data_type => "date", is_nullable => 1 },
  "gonenoaddress",
  { data_type => "tinyint", is_nullable => 1 },
  "lost",
  { data_type => "tinyint", is_nullable => 1 },
  "debarred",
  { data_type => "date", is_nullable => 1 },
  "debarredcomment",
  { data_type => "varchar", is_nullable => 1, size => 255 },
  "contactname",

  "privacy",
  { data_type => "integer", default_value => 1, is_nullable => 0 },
);
__PACKAGE__->set_primary_key("borrowernumber");
__PACKAGE__->add_unique_constraint("cardnumber", ["cardnumber"]);

=head1 RELATIONS

=head2 accountlines_borrowernumbers

Type: has_many

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

=cut

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

=head2 accountlines_borrowernumbers

Type: has_many

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

=cut

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

=head2 accountoffsets_borrowernumbers

Type: has_many

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

=cut

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

=head2 accountoffsets_borrowernumbers

Type: has_many


=cut

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

=head2 aqbasketusers_borrowernumbers

Type: has_many

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

=cut

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

=head2 aqbasketusers_borrowernumbers

Type: has_many


=cut

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

=head2 aqbudgetborrowers_borrowernumbers

Type: has_many

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

=cut

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

=head2 aqbudgetborrowers_borrowernumbers

Type: has_many


=cut

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

=head2 borrower_attributes_borrowernumbers

Type: has_many


=cut

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

=head2 borrower_attributes_borrowernumbers

Type: has_many

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

=cut

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

=head2 borrower_debarments_borrowernumbers

Type: has_many


=cut

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

=head2 borrower_debarments_borrowernumbers

Type: has_many

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

=cut

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

=head2 borrower_files_borrowernumbers

Type: has_many

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

=cut

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

=head2 borrower_files_borrowernumbers

Type: has_many


=cut

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

=head2 borrower_message_preferences_borrowernumbers

Type: has_many

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

=cut

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

=head2 borrower_message_preferences_borrowernumbers

Type: has_many


=cut

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

=head2 categorycode

Type: belongs_to

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

=cut

__PACKAGE__->belongs_to(
  "categorycode",
  "Koha::Schema::Result::Category",
  { categorycode => "categorycode" },
  { on_delete => "CASCADE", on_update => "CASCADE" },
);

=head2 branchcode

Type: belongs_to

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

=head2 branchcode

Type: belongs_to

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

=cut

__PACKAGE__->belongs_to(
  "branchcode",
  "Koha::Schema::Result::Branch",
  { branchcode => "branchcode" },
  { on_delete => "CASCADE", on_update => "CASCADE" },
);

=head2 club_enrollments

Type: has_many

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

=cut

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

=head2 course_instructors_borrowernumbers

Type: has_many

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

=cut

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

=head2 course_instructors_borrowernumbers

Type: has_many


=cut

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

=head2 creator_batches_borrower_numbers

Type: has_many


=cut

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

=head2 creator_batches_borrower_numbers

Type: has_many

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

=cut

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

=head2 hold_fill_targets_borrowernumbers

Type: has_many


=cut

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

=head2 hold_fill_targets_borrowernumbers

Type: has_many

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

=cut

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

=head2 issues_borrowernumbers

Type: has_many

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

=cut

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

=head2 issues_borrowernumbers

Type: has_many


=cut

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

=head2 message_queue_borrowernumbers

Type: has_many

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

=cut

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

=head2 message_queue_borrowernumbers

Type: has_many


=cut

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

=head2 old_issues_borrowernumbers

Type: has_many


=cut

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

=head2 old_issues_borrowernumbers

Type: has_many

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

=cut

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

=head2 old_reserves_borrowernumbers

Type: has_many


=cut

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

=head2 old_reserves_borrowernumbers

Type: has_many

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

=cut

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

=head2 patron_list_patrons_borrowernumbers

Type: has_many

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

=cut

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

=head2 patron_list_patrons_borrowernumbers

Type: has_many


=cut

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

=head2 patron_lists_owners

Type: has_many

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

=cut

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

=head2 patron_lists_owners

Type: has_many


=cut

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

=head2 patroncards_borrowernumbers

Type: has_many


=cut

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

=head2 patroncards_borrowernumbers

Type: has_many

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

=cut

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

=head2 patronimage_borrowernumber

Type: might_have


=cut

__PACKAGE__->might_have(
  "patronimage_borrowernumber",
  "Koha::Schema::Result::Patronimage",
  { "foreign.borrowernumber" => "self.borrowernumber" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 patronimage_borrowernumber

Type: might_have

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

=cut

__PACKAGE__->might_have(
  "patronimage_borrowernumber",
  "Koha::Schema::Result::Patronimage",
  { "foreign.borrowernumber" => "self.borrowernumber" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 ratings_borrowernumbers

Type: has_many

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

=cut

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

=head2 ratings_borrowernumbers

Type: has_many


=cut

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

=head2 reserves_borrowernumbers

Type: has_many

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

=cut

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

=head2 reserves_borrowernumbers

Type: has_many


=cut

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

=head2 reviews_borrowernumbers

Type: has_many


=cut

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

=head2 reviews_borrowernumbers

Type: has_many

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

=cut

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

=head2 subscriptionroutinglist_borrowernumbers

Type: has_many


=cut

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

=head2 subscriptionroutinglist_borrowernumbers

Type: has_many

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

=cut

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

=head2 tags_all_borrowernumbers

Type: has_many

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

=cut

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

=head2 tags_all_borrowernumbers

Type: has_many


=cut

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

=head2 tags_approvals_approved_by

Type: has_many

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

=cut

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

=head2 tags_approvals_approved_by

Type: has_many


=cut

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

=head2 user_permissions_borrowernumbers

Type: has_many


=cut

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

=head2 user_permissions_borrowernumbers

Type: has_many

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

=cut

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

=head2 virtualshelfcontents_borrowernumbers

Type: has_many


=cut

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

=head2 virtualshelfcontents_borrowernumbers

Type: has_many

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

=cut

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

=head2 virtualshelfshares_borrowernumbers

Type: has_many

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

=cut

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

=head2 virtualshelfshares_borrowernumbers

Type: has_many

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

=cut

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

=head2 virtualshelves_owners

Type: has_many

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

=cut

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

=head2 virtualshelves_owners

Type: has_many

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

=cut

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


# Created by DBIx::Class::Schema::Loader v0.07039 @ 2014-08-18 13:01:05
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ZzZiKYN4b/LuEARX4rawhA

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

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

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

    return $self->club_enrollments({ date_canceled => undef })->count();
}

sub ClubsEnrollableCount {
    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->FirstValidEmailAddress();

    return $self->result_source->schema->resultset('Club')
      ->search( $params, { prefetch => 'club_template' } )->count();
}

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




package Koha::Schema::Result::Club;

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

use strict;
use warnings;

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


=head1 NAME

Koha::Schema::Result::Club

=cut

__PACKAGE__->table("clubs");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_template

  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'
  is_nullable: 0

=head2 date_end

  data_type: 'date'
  is_nullable: 1

=head2 branch

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

=head2 date_created

  data_type: 'timestamp'
  default_value: current_timestamp
  is_nullable: 0

=head2 date_updated

  data_type: 'timestamp'
  is_nullable: 1

=cut

__PACKAGE__->add_columns(
  "id",
  { data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
  "club_template",
  { 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", is_nullable => 0 },
  "date_end",
  { data_type => "date", is_nullable => 1 },
  "branch",
  { data_type => "varchar", is_foreign_key => 1, is_nullable => 1, size => 11 },
  "date_created",
  {
    data_type     => "timestamp",
    default_value => \"current_timestamp",
    is_nullable   => 0,
  },
  "date_updated",
  { data_type => "timestamp", is_nullable => 1 },
);
__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=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" => "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" => "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" },
  { on_delete => "CASCADE", on_update => "CASCADE" },
);

=head2 branch

Type: belongs_to

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

=cut

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


# Created by DBIx::Class::Schema::Loader v0.07000 @ 2014-05-30 09:55:12
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Y6kcTQulxM9XeOpDV+TiiQ


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




package Koha::Schema::Result::ClubEnrollment;

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

use strict;
use warnings;

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


=head1 NAME

Koha::Schema::Result::ClubEnrollment

=cut

__PACKAGE__->table("club_enrollments");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 borrower

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 date_enrolled

  data_type: 'timestamp'
  default_value: current_timestamp
  is_nullable: 0

=head2 date_canceled

  data_type: 'timestamp'
  is_nullable: 1

=head2 date_created

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

=head2 date_updated

  data_type: 'timestamp'
  is_nullable: 1

=head2 branch

  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",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "borrower",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "date_enrolled",
  {
    data_type     => "timestamp",
    default_value => \"current_timestamp",
    is_nullable   => 0,
  },
  "date_canceled",
  { data_type => "timestamp", is_nullable => 1 },
  "date_created",
  {
    data_type     => "timestamp",
    default_value => "0000-00-00 00:00:00",
    is_nullable   => 0,
  },
  "date_updated",
  { data_type => "timestamp", is_nullable => 1 },
  "branch",
  { data_type => "varchar", is_foreign_key => 1, is_nullable => 1, size => 11 },
);
__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_enrollment" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 club

Type: belongs_to

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

=cut

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

=head2 borrower

Type: belongs_to

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

=cut

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

=head2 branch

Type: belongs_to

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

=cut

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


# Created by DBIx::Class::Schema::Loader v0.07000 @ 2014-05-30 09:55:12
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:mfTpVLaQhTKJ//QnRm2f5A


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




package Koha::Schema::Result::ClubEnrollmentField;

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

use strict;
use warnings;

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


=head1 NAME

Koha::Schema::Result::ClubEnrollmentField

=cut

__PACKAGE__->table("club_enrollment_fields");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_enrollment

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 club_template_enrollment_field

  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",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "club_template_enrollment_field",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "value",
  { data_type => "text", is_nullable => 0 },
);
__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=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" },
  { on_delete => "CASCADE", on_update => "CASCADE" },
);

=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" },
  { on_delete => "CASCADE", on_update => "CASCADE" },
);


# Created by DBIx::Class::Schema::Loader v0.07000 @ 2014-05-30 09:55:12
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:bOPkyazyrsDwUKKS4oHHdQ


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




package Koha::Schema::Result::ClubField;

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

use strict;
use warnings;

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


=head1 NAME

Koha::Schema::Result::ClubField

=cut

__PACKAGE__->table("club_fields");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_template_field

  data_type: 'integer'
  is_foreign_key: 1
  is_nullable: 0

=head2 club

  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",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "club",
  { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
  "value",
  { data_type => "text", is_nullable => 1 },
);
__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=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" },
  { on_delete => "CASCADE", 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" },
  { on_delete => "CASCADE", on_update => "CASCADE" },
);

=head2 z_clubs_rewrite_clubs

Type: has_many

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

=cut

__PACKAGE__->has_many(
  "z_clubs_rewrite_clubs",
  "Koha::Schema::Result::ZClubRewrite",
  { "foreign.club" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 z_clubs_rewrite_club_template_fields

Type: has_many

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

=cut

__PACKAGE__->has_many(
  "z_clubs_rewrite_club_template_fields",
  "Koha::Schema::Result::ZClubRewrite",
  { "foreign.club_template_field" => "self.club_template_field" },
  { cascade_copy => 0, cascade_delete => 0 },
);


# Created by DBIx::Class::Schema::Loader v0.07000 @ 2014-05-30 09:55:12
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:B5i1BInvl7L9Mjor17Okrw


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




package Koha::Schema::Result::ClubTemplate;

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

use strict;
use warnings;

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


=head1 NAME

Koha::Schema::Result::ClubTemplate

=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 branch

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

=head2 date_created

  data_type: 'timestamp'
  default_value: current_timestamp
  is_nullable: 0

=head2 date_updated

  data_type: 'timestamp'
  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 },
  "branch",
  { data_type => "varchar", is_foreign_key => 1, is_nullable => 1, size => 10 },
  "date_created",
  {
    data_type     => "timestamp",
    default_value => \"current_timestamp",
    is_nullable   => 0,
  },
  "date_updated",
  { data_type => "timestamp", is_nullable => 1 },
  "is_deletable",
  { data_type => "tinyint", default_value => 1, is_nullable => 0 },
);
__PACKAGE__->set_primary_key("id");

=head1 RELATIONS

=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" => "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" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 branch

Type: belongs_to

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

=cut

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

=head2 clubs

Type: has_many

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

=cut

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


# Created by DBIx::Class::Schema::Loader v0.07000 @ 2014-05-23 10:30:48
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:XhoCAiWRvHG5FBNhr7JEkg

1;




package Koha::Schema::Result::ClubTemplateEnrollmentField;

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

use strict;
use warnings;

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


=head1 NAME

Koha::Schema::Result::ClubTemplateEnrollmentField

=cut

__PACKAGE__->table("club_template_enrollment_fields");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_template

  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",
  { 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 },
);
__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" => "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" },
  { on_delete => "CASCADE", on_update => "CASCADE" },
);


# Created by DBIx::Class::Schema::Loader v0.07000 @ 2014-05-30 09:55:12
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:FO/5gEcTgdIYma9hmhXdNw


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




package Koha::Schema::Result::ClubTemplateField;

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

use strict;
use warnings;

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


=head1 NAME

Koha::Schema::Result::ClubTemplateField

=cut

__PACKAGE__->table("club_template_fields");

=head1 ACCESSORS

=head2 id

  data_type: 'integer'
  is_auto_increment: 1
  is_nullable: 0

=head2 club_template

  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",
  { 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 },
);
__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" => "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" },
  { on_delete => "CASCADE", on_update => "CASCADE" },
);


# Created by DBIx::Class::Schema::Loader v0.07000 @ 2014-05-23 11:09:48
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:rm9181l4mTPyIpDBQTERBQ


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

Lines 40-45 sub GetAuthValueDropbox { Link Here

(-)a/Koha/Template/Plugin/AuthorisedValues.pm (+6 lines)
40	return C4::Koha::GetAuthvalueDropbox($category, $default);	40	return C4::Koha::GetAuthvalueDropbox($category, $default);
41	}	41	}
42		42
		43	sub Categories {
		44	my ( $self ) = @_;
		45
		46	return GetAuthorisedValueCategories();
		47	}
		48
43	1;	49	1;
44		50
45	=head1 NAME	51	=head1 NAME

Lines 48-51 sub IsDebarred { Link Here

(-)a/Koha/Template/Plugin/Borrowers.pm (+4 lines)
48	return Koha::Borrower::Debarments::IsDebarred($borrower->{borrowernumber});	48	return Koha::Borrower::Debarments::IsDebarred($borrower->{borrowernumber});
49	}	49	}
50		50
		51	sub HasValidEmailAddress {
		52
		53	}
		54
51	1;	55	1;

Lines 26-31 use Encode qw{encode decode}; Link Here

(-)a/Koha/Template/Plugin/Branches.pm (+7 lines)
26	use C4::Koha;	26	use C4::Koha;
27	use C4::Context;	27	use C4::Context;
28		28
		29	sub GetBranches {
		30	my ($self) = @_;
		31
		32	my $dbh = C4::Context->dbh;
		33	return $dbh->selectall_arrayref( "SELECT * FROM branches", { Slice => {} } );
		34	}
		35
29	sub GetName {	36	sub GetName {
30	my ( $self, $branchcode ) = @_;	37	my ( $self, $branchcode ) = @_;
31		38

Lines 44-47 sub Preference { Link Here

(-)a/Koha/Template/Plugin/Koha.pm (+5 lines)
44	return C4::Context->preference( $pref );	44	return C4::Context->preference( $pref );
45	}	45	}
46		46
		47	sub UserEnv {
		48	my ( $self, $key ) = @_;
		49	my $userenv = C4::Context->userenv;
		50	return $userenv ? $userenv->{$key} : undef;
		51	}
47	1;	52	1;

Lines 565-570 $template->param( picture => 1 ) if $picture; Link Here

(-)a/circ/circulation.pl (+3 lines)
565		565
566	my $canned_notes = GetAuthorisedValues("BOR_NOTES");	566	my $canned_notes = GetAuthorisedValues("BOR_NOTES");
567		567
		568	my $schema = Koha::Database->new()->schema();
		569
568	$template->param(	570	$template->param(
569	debt_confirmed => $debt_confirmed,	571	debt_confirmed => $debt_confirmed,
570	SpecifyDueDate => $duedatespec_allow,	572	SpecifyDueDate => $duedatespec_allow,
Lines 574-579 $template->param( Link Here
574	export_with_csv_profile => C4::Context->preference("ExportWithCsvProfile"),	576	export_with_csv_profile => C4::Context->preference("ExportWithCsvProfile"),
575	canned_bor_notes_loop => $canned_notes,	577	canned_bor_notes_loop => $canned_notes,
576	debarments => GetDebarments({ borrowernumber => $borrowernumber }),	578	debarments => GetDebarments({ borrowernumber => $borrowernumber }),
		579	borrower => $schema->resultset('Borrower')->find( $borrowernumber ),
577	);	580	);
578		581
579	output_html_with_http_headers $query, $cookie, $template->output;	582	output_html_with_http_headers $query, $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::Database;
use Koha::DateUtils qw(dt_from_string);

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 = $schema->resultset('Club')->find($id);

my $club_template_id =
  $club ? $club->club_template()->id() : $cgi->param('club_template_id');
my $club_template = $schema->resultset('ClubTemplate')->find($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
    if ($club) {
        $club->update(
            {
                id            => $id                             || undef,
                club_template => $cgi->param('club_template_id') || undef,
                name          => $cgi->param('name')             || undef,
                description   => $cgi->param('description')      || undef,
                branch        => $cgi->param('branchcode')       || undef,
                date_start    => $date_start,
                date_end      => $date_end,
                date_updated  => dt_from_string(),
            }
        );
    }
    else {
        $club = $schema->resultset('Club')->create(
            {
                id            => $id                             || undef,
                club_template => $cgi->param('club_template_id') || undef,
                name          => $cgi->param('name')             || undef,
                description   => $cgi->param('description')      || undef,
                branch        => $cgi->param('branchcode')       || undef,
                date_start    => $date_start,
                date_end      => $date_end,
                date_updated  => dt_from_string(),
            }
        );

    }

    my @club_template_field_id = $cgi->param('club_template_field_id');
    my @club_field_id          = $cgi->param('club_field_id');
    my @club_field             = $cgi->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;

        if ($club_field_id) {
            $schema->resultset('ClubField')->find($club_field_id)->update(
                {
                    club                => $club->id(),
                    club_template_field => $club_template_field_id,
                    value               => $club_field,
                }
            );
        }
        else {
            $schema->resultset('ClubField')->create(
                {
                    club                => $club->id(),
                    club_template_field => $club_template_field_id,
                    value               => $club_field,
                }
            );
        }
    }

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

$club = $schema->resultset('Club')->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::Database;

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 $schema = Koha::Database->new()->schema();

my @club_templates = $schema->resultset("ClubTemplate")->all();
my @clubs          = $schema->resultset("Club")->all();

$template->param(
    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::Database;

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 $borrowernumber = $cgi->param('borrowernumber');

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

my @enrollments =
  $schema->resultset("ClubEnrollment")
  ->search( { borrower => $borrowernumber, date_canceled => undef } );

my @clubs =
  $schema->resultset("Club")
  ->search(
    { id => { -not_in => [ map { $_->club()->id() } @enrollments ] } } );

$template->param(
    enrollments    => \@enrollments,
    clubs          => \@clubs,
    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::Database;

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 $schema = Koha::Database->new()->schema();

my $club = $schema->resultset("Club")->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::Database;
use Koha::DateUtils qw(dt_from_string);

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 $schema = Koha::Database->new()->schema();

my $club_template;

if ( $cgi->param('name') ) {    # Update or create club
    $club_template = $schema->resultset('ClubTemplate')->update_or_create(
        {
            id          => $id                        || undef,
            name        => $cgi->param('name')        || undef,
            description => $cgi->param('description') || undef,
            branch      => $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,
        }
    );

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

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

    my @field_delete = $cgi->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];

        if ( grep( /^$field_id$/, @field_delete ) ) {
            $schema->resultset('ClubTemplateField')->find($field_id)->delete();
        }
        else {
            $club_template =
              $schema->resultset('ClubTemplateField')->update_or_create(
                {
                    id            => $field_id,
                    club_template => $id,
                    name          => $field_name,
                    description   => $field_description,
                    authorised_value_category =>
                      $field_authorised_value_category,
                }
              );
        }
    }

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

    @field_delete = $cgi->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];

        if ( grep( /^$field_id$/, @field_delete ) ) {
            $schema->resultset('ClubTemplateEnrollmentField')->find($field_id)
              ->delete();
        }
        else {
            $club_template =
              $schema->resultset('ClubTemplateEnrollmentField')
              ->update_or_create(
                {
                    id            => $field_id,
                    club_template => $id,
                    name          => $field_name,
                    description   => $field_description,
                    authorised_value_category =>
                      $field_authorised_value_category,
                }
              );
        }
    }
}

$club_template = $schema->resultset('ClubTemplate')->find($id);
$template->param( club_template => $club_template );

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

Lines 18-20 INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES Link Here

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

Lines 68-71 INSERT INTO permissions (module_bit, code, description) VALUES Link Here

(-)a/installer/data/mysql/en/mandatory/userpermissions.sql (+3 lines)
68	(19, 'tool', 'Use tool plugins'),	68	(19, 'tool', 'Use tool plugins'),
69	(19, 'report', 'Use report plugins'),	69	(19, 'report', 'Use report plugins'),
70	(19, 'configure', 'Configure plugins')	70	(19, 'configure', 'Configure plugins')
		71	(20, 'edit_templates', 'Create and update club templates'),
		72	(20, 'edit_clubs', 'Create and update clubs'),
		73	(20, 'enroll', 'Enroll patrons in clubs')
71	;	74	;




    PRIMARY KEY(module, page, tablename, columnname)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

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

CREATE TABLE clubs (
    id int(11) NOT NULL AUTO_INCREMENT,
    club_template int(11) NOT NULL,
    `name` tinytext NOT NULL,
    description text,
    date_start date DEFAULT NULL,
    date_end date DEFAULT NULL,
    branch varchar(11) DEFAULT NULL,
    date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
    date_updated timestamp NULL DEFAULT NULL,
    PRIMARY KEY (id),
    KEY club_template (club_template),
    KEY branch (branch)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

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

CREATE TABLE club_enrollments (
    id int(11) NOT NULL AUTO_INCREMENT,
    club int(11) NOT NULL,
    borrower 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,
    branch varchar(11) DEFAULT NULL,
    PRIMARY KEY (id),
    KEY club (club),
    KEY borrower (borrower),
    KEY branch (branch)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

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

CREATE TABLE club_enrollment_fields (
    id int(11) NOT NULL AUTO_INCREMENT,
    club_enrollment int(11) NOT NULL,
    club_template_enrollment_field int(11) NOT NULL,
    `value` text NOT NULL,
    PRIMARY KEY (id),
    KEY club_enrollment (club_enrollment),
    KEY club_template_enrollment_field (club_template_enrollment_field),
    KEY club_template_enrollment_field_2 (club_template_enrollment_field)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

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

CREATE TABLE club_fields (
    id int(11) NOT NULL AUTO_INCREMENT,
    club_template_field int(11) NOT NULL,
    club int(11) NOT NULL,
    `value` text,
    PRIMARY KEY (id),
    KEY club_template_field (club_template_field,club),
    KEY club (club)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

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

CREATE TABLE 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',
    branch varchar(10) CHARACTER SET utf8 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 branch (branch)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

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

CREATE TABLE club_template_enrollment_fields (
    id int(11) NOT NULL AUTO_INCREMENT,
    club_template int(11) NOT NULL,
    `name` tinytext NOT NULL,
    description text,
    authorised_value_category varchar(16) DEFAULT NULL,
    PRIMARY KEY (id),
    KEY club_template (club_template),
    KEY club_template_2 (club_template)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

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

CREATE TABLE club_template_fields (
    id int(11) NOT NULL AUTO_INCREMENT,
    club_template int(11) NOT NULL,
    `name` tinytext NOT NULL,
    description text,
    authorised_value_category varchar(16) DEFAULT NULL,
    PRIMARY KEY (id),
    KEY club_template (club_template)
) ENGINE=InnoDB  DEFAULT CHARSET=utf8;

--
-- Constraints for table `clubs`
--
ALTER TABLE `clubs`
ADD CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
ADD CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branch) REFERENCES branches (branchcode);

--
-- Constraints for table `club_enrollments`
--
ALTER TABLE `club_enrollments`
ADD CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
ADD CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrower) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
ADD CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;

--
-- Constraints for table `club_enrollment_fields`
--
ALTER TABLE `club_enrollment_fields`
ADD CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
ADD CONSTRAINT club_enrollment_fields_ibfk_2 FOREIGN KEY (club_template_enrollment_field) REFERENCES club_template_enrollment_fields (id) ON DELETE CASCADE ON UPDATE CASCADE;

--
-- Constraints for table `club_fields`
--
ALTER TABLE `club_fields`
ADD CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
ADD CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE;

--
-- Constraints for table `club_templates`
--
ALTER TABLE `club_templates`
ADD CONSTRAINT club_templates_ibfk_1 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;

--
-- Constraints for table `club_template_enrollment_fields`
--
ALTER TABLE `club_template_enrollment_fields`
ADD CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;

--
-- Constraints for table `club_template_fields`
--
ALTER TABLE `club_template_fields`
ADD CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;

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




    SetVersion($DBversion);
}

$DBversion = "3.17.00.XXX";
if ( CheckVersion($DBversion) ) {
    $dbh->do("INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES ('20', 'clubs', 'Patron clubs', '0')");

    $dbh->do("
        CREATE TABLE clubs (
            id int(11) NOT NULL AUTO_INCREMENT,
            club_template int(11) NOT NULL,
            `name` tinytext NOT NULL,
            description text,
            date_start date DEFAULT NULL,
            date_end date DEFAULT NULL,
            branch varchar(11) DEFAULT NULL,
            date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
            date_updated timestamp NULL DEFAULT NULL,
            PRIMARY KEY (id),
            KEY club_template (club_template),
            KEY branch (branch)
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
    ");

    $dbh->do("
        CREATE TABLE club_enrollments (
            id int(11) NOT NULL AUTO_INCREMENT,
            club int(11) NOT NULL,
            borrower 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,
            branch varchar(11) DEFAULT NULL,
            PRIMARY KEY (id),
            KEY club (club),
            KEY borrower (borrower),
            KEY branch (branch)
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
    ");

    $dbh->do("
        CREATE TABLE club_enrollment_fields (
            id int(11) NOT NULL AUTO_INCREMENT,
            club_enrollment int(11) NOT NULL,
            club_template_enrollment_field int(11) NOT NULL,
            `value` text NOT NULL,
            PRIMARY KEY (id),
            KEY club_enrollment (club_enrollment),
            KEY club_template_enrollment_field (club_template_enrollment_field),
            KEY club_template_enrollment_field_2 (club_template_enrollment_field)
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
    ");

    $dbh->do("
        CREATE TABLE club_fields (
            id int(11) NOT NULL AUTO_INCREMENT,
            club_template_field int(11) NOT NULL,
            club int(11) NOT NULL,
            `value` text,
            PRIMARY KEY (id),
            KEY club_template_field (club_template_field,club),
            KEY club (club)
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
    ");

    $dbh->do("
        CREATE TABLE 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',
            branch varchar(10) CHARACTER SET utf8 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 branch (branch)
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8 DEFAULT;
    ");

    $dbh->do("
        CREATE TABLE club_template_enrollment_fields (
            id int(11) NOT NULL AUTO_INCREMENT,
            club_template int(11) NOT NULL,
            `name` tinytext NOT NULL,
            description text,
            authorised_value_category varchar(16) DEFAULT NULL,
            PRIMARY KEY (id),
            KEY club_template (club_template),
            KEY club_template_2 (club_template)
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
    ");

    $dbh->do("
        CREATE TABLE club_template_fields (
            id int(11) NOT NULL AUTO_INCREMENT,
            club_template int(11) NOT NULL,
            `name` tinytext NOT NULL,
            description text,
            authorised_value_category varchar(16) DEFAULT NULL,
            PRIMARY KEY (id),
            KEY club_template (club_template)
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
    ");

    $dbh->do("
        ALTER TABLE `clubs`
            ADD CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
            ADD CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branch) REFERENCES branches (branchcode);
    ");

    $dbh->do("
        ALTER TABLE `club_enrollments`
            ADD CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
            ADD CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrower) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
            ADD CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;
    ");

    $dbh->do("
        ALTER TABLE `club_enrollment_fields`
            ADD CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
            ADD CONSTRAINT club_enrollment_fields_ibfk_2 FOREIGN KEY (club_template_enrollment_field) REFERENCES club_template_enrollment_fields (id) ON DELETE CASCADE ON UPDATE CASCADE;
    ");

    $dbh->do("
        ALTER TABLE `club_fields`
            ADD CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
            ADD CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE;
    ");

    $dbh->do("
        ALTER TABLE `club_templates`
            ADD CONSTRAINT club_templates_ibfk_1 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;
    ");

    $dbh->do("
        ALTER TABLE `club_template_enrollment_fields`
            ADD CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;
    ");

    $dbh->do("
        ALTER TABLE `club_template_fields`
            ADD CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;
    ");

   print "Upgrade to $DBversion done (Bug 12461 - Add patron clubs feature)\n";
   SetVersion ($DBversion);
}

=head1 FUNCTIONS

=head2 TableExists($table)

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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tt (+19 lines)
45		45
46	$(document).ready(function() {	46	$(document).ready(function() {
47	[% IF !( CircAutoPrintQuickSlip == 'clear' ) %]	47	[% IF !( CircAutoPrintQuickSlip == 'clear' ) %]
		48	$('#clubs-tab-link').on('click', function() {
		49	$('#clubs-tab').text(_("Loading..."));
		50	$('#clubs-tab').load('/cgi-bin/koha/clubs/patron-clubs-tab.pl?borrowernumber=[% borrowernumber %]');
		51	});
		52
48	// listen submit to trigger qslip on empty checkout	53	// listen submit to trigger qslip on empty checkout
49	$('#mainform').bind('submit',function() {	54	$('#mainform').bind('submit',function() {
50	if ($('#barcode').val() == '') {	55	if ($('#barcode').val() == '') {
Lines 666-671 No patron matched <span class="ex">[% message %]</span> Link Here
666	[% END %]	671	[% END %]
667	</li>	672	</li>
668		673
		674	[% IF CAN_user_clubs && ( borrower.ClubsEnrolledCount \|\| borrower.ClubsEnrollableCount ) %]
		675	<li>
		676	<a id="clubs-tab-link" href="#clubs-tab">
		677	Clubs ([% borrower.ClubsEnrolledCount %]/[% borrower.ClubsEnrollableCount %])
		678	</a>
		679	</li>
		680	[% END %]
		681
669	[% IF relatives_issues_count %]	682	[% IF relatives_issues_count %]
670	<li><a id="relatives-issues-tab" href="#relatives-issues">Relatives' checkouts</a></li>	683	<li><a id="relatives-issues-tab" href="#relatives-issues">Relatives' checkouts</a></li>
671	[% END %]	684	[% END %]
Lines 741-746 No patron matched <span class="ex">[% message %]</span> Link Here
741	</div>	754	</div>
742	[% END %]	755	[% END %]
743		756
		757	[% IF CAN_user_clubs %]
		758	<div id="clubs-tab">
		759	Loading...
		760	</div>
		761	[% END %]
		762
744	[% INCLUDE borrower_debarments.inc %]	763	[% INCLUDE borrower_debarments.inc %]
745		764
746	<div id="reserves">	765	<div id="reserves">




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

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

function CheckForm() {
  if ( !$("#club-name").val() ) {
    alert( _("Name is a required field!")  );
    return false;
  }

  return true;
}

//]]>
</script>

</head>

<body>
[% 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" onsubmit="return CheckForm()">
            <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 %]" />
                    </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">Branch:</label>
                        <select name="branchcode" id="club-template-branchcode">
                            <option value="">&nbsp</option>
                            [% FOREACH b IN Branches.GetBranches() %]
                                [% IF b.branchcode == club.branch.branchcode %]
                                    <option value="[% b.branchcode %]" selected="selected">[% b.branchname | $EncodeUTF8 %]</option>
                                [% ELSE %]
                                    <option value="[% b.branchcode %]">[% b.branchname | $EncodeUTF8 %]</option>
                                [% END %]
                            [% END %]
                        </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>

            <input type="submit" class="btn" value="Save" />

            <a href="clubs.pl" class="cancel">Cancel</a>
        </form>
    </div>
</div>

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




[% USE EncodeUTF8 %]
[% 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="[% themelang %]/css/datatables.css" />
[% INCLUDE 'datatables.inc' %]

<script type="text/javascript">
//<![CDATA[
    $(document).ready(function() {
        tTable = $('#club-templates-table').dataTable($.extend(true, {}, dataTablesDefaults, {
            "aoColumnDefs": [
                { "aTargets": [ -1, -2 ], "bSortable": false, "bSearchable": false },
            ]
        } ));

        cTable = $('#clubs-table').dataTable($.extend(true, {}, dataTablesDefaults, {
            "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") + 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 ") + 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>
[% 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 class="yui-t7">
    <div class="yui-main">
        <h1>Patron clubs</h1>


        <h3>Club templates</h3>

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

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

            <tbody>
                [% FOREACH t IN club_templates %]
                    <tr>
                        <td>[% t.name | $EncodeUTF8 %]</td>
                        <td>[% t.description | $EncodeUTF8 %]</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>[% t.branch.branchname | $EncodeUTF8 %]</td>
                        <td>
                            [% IF CAN_user_clubs_edit_templates && t.is_deletable && ( CAN_user_superlibrarian || t.branch.branchcode == Koha.UserEnv('branch') ) %]
                                <a class="btn btn-mini" href="templates-add-modify.pl?id=[% t.id %]">
                                    <i class="icon-edit"></i> Edit
                                </a>
                            [% END %]
                        </td>
                        <td>
                            [% IF CAN_user_clubs_edit_templates && t.is_deletable && ( CAN_user_superlibrarian || t.branch.branchcode == Koha.UserEnv('branch') ) %]
                                <a class="btn btn-mini" href="#" onclick='ConfirmDeleteTemplate([% t.id %], "[% t.name | html %]", $(this) ); return false;'>
                                    <i class="icon-trash"></i> Delete
                                </a>
                            [% END %]
                        </td>
                    </tr>
                [% END %]
            </tbody>
        </table>

        <h3>Clubs</h3>

        [% IF CAN_user_clubs_edit_clubs %]
            <div class="btn-group">
                <div class="btn-group">
                    <button class="btn btn-small dropdown-toggle" data-toggle="dropdown"><i class="icon-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>Branch</th>
                    <th>&nbsp;</th>
                    <th>&nbsp;</th>
                </tr>
            </thead>

            <tbody>
                [% FOREACH c IN clubs %]
                    <tr>
                        <td>[% c.name | $EncodeUTF8 %]</td>
                        <td>[% c.club_template.name | $EncodeUTF8 %]</td>
                        <td>[% c.description | $EncodeUTF8 %]</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>[% c.branch.branchname | $EncodeUTF8 %]</td>
                        <td>
                            [% IF CAN_user_clubs_edit_clubs && ( CAN_user_superlibrarian || c.branch.branchcode == Koha.UserEnv('branch') ) %]
                                <a class="btn btn-mini" href="clubs-add-modify.pl?id=[% c.id %]">
                                    <i class="icon-edit"></i> Edit
                                </a>
                            [% END %]
                        </td>
                        <td>
                            [% IF CAN_user_clubs_edit_clubs && ( CAN_user_superlibrarian || c.branch.branchcode == Koha.UserEnv('branch') ) %]
                                <a class="btn btn-mini" href="#" onclick='ConfirmDeleteClub([% c.id %], "[% c.name | html %]", $(this) ); return false;'>
                                    <i class="icon-trash"></i> Delete
                                </a>
                            [% END %]
                        </td>
                    </tr>
                [% END %]
            </tbody>
        </table>
    </div>
</div>
[% INCLUDE 'intranet-bottom.inc' %]




[% USE EncodeUTF8 %]
[% 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 | $EncodeUTF8 %]</td>
                    <td>[% e.club.description | $EncodeUTF8 %]</td>
                    <td>[% e.date_enrolled | $KohaDates %]</td>
                    [% IF CAN_user_clubs_enroll %]
                        <td>
                            <a class="btn btn-mini" onclick="cancelEnrollment( [% e.id %] )">
                                <i class="icon-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 | $EncodeUTF8 %]</td>
                    <td>[% c.description | $EncodeUTF8 %]</td>
                    [% IF CAN_user_clubs_enroll %]
                        <td>
                            <a class="btn btn-mini" onclick="loadEnrollmentForm([% c.id %])">
                                <i class="icon-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 EncodeUTF8 %]
[% USE AuthorisedValues %]
[% SET AuthorisedValuesCategories = AuthorisedValues.Categories %]

<h3>
    Enroll in <i>[% club.name | $EncodeUTF8 %]</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.club_template_field.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" onclick="addEnrollment(); return false;"><i class="icon-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 EncodeUTF8 %]
[% USE Branches %]
[% USE AuthorisedValues %]
[% SET AuthorisedValuesCategories = AuthorisedValues.Categories %]
[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Tools &rsaquo; Patron clubs &rsaquo; Club template</title>
[% INCLUDE 'doc-head-close.inc' %]

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

function CheckForm() {
  if ( !$("#club-template-name").val() ) {
    alert( _("Name is a required field!")  );
    return false;
  }

  return true;
}

//]]>
</script>

</head>

<body>
[% 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" onsubmit="return CheckForm()">
            <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 %]" />
                    </li>

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

                    <li>
                        <label for="name">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="name">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="name">Branch:</label>
                        <select name="branchcode" id="club-template-branchcode">
                            <option value="">&nbsp</option>
                            [% FOREACH b IN Branches.GetBranches() %]
                                [% IF b.branchcode == club_template.branch.branchcode %]
                                    <option value="[% b.branchcode %]" selected="selected">[% b.branchname | $EncodeUTF8 %]</option>
                                [% ELSE %]
                                    <option value="[% b.branchcode %]">[% b.branchname | $EncodeUTF8 %]</option>
                                [% END %]
                            [% END %]
                        </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>
                <span class="hint">These fields will be used in the creation of clubs based on this template</span>
                <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>
                                    [% FOREACH c IN AuthorisedValuesCategories %]
                                        [% IF f.authorised_value_category == c %]
                                            <option selected="selected" value="[% c %]">[% c %]</option>
                                        [% ELSE %]
                                            <option value="[% c %]">[% c %]</option>
                                        [% END %]
                                    [% END %]
                                </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>
                <a href="#" class="btn" onclick="$('#new-field-template').clone().attr('id','').show().appendTo('#club-template-fields'); return false;">
                    Add new field
                </a>

                <h2>Enrollment fields:</h2>
                <span class="hint">These fields will be used when enrolling a patron in a club based on this template</span>
                <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>
                                    [% FOREACH c IN AuthorisedValuesCategories %]
                                        [% IF f.authorised_value_category == c %]
                                            <option selected="selected" value="[% c %]">[% c %]</option>
                                        [% ELSE %]
                                            <option value="[% c %]">[% c %]</option>
                                        [% END %]
                                    [% END %]
                                </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>
                <a href="#" class="btn" onclick="$('#new-enrollment-field-template').clone().attr('id','').show().appendTo('#club-template-enrollment-fields'); return false;">
                    Add new field
                </a>

            </fieldset>

            <input type="hidden" name="id" value="[% club_template.id %]" />

            <input type="submit" class="btn" value="Save" />

            <a href="clubs.pl" class="cancel">Cancel</a>
        </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>
                [% FOREACH c IN AuthorisedValuesCategories %]
                    <option value="[% c %]">[% c %]</option>
                [% END %]
            </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>
                [% FOREACH c IN AuthorisedValuesCategories %]
                    <option value="[% c %]">[% c %]</option>
                [% END %]
            </select>
        </li>

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

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

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

Lines 33-38 var relatives_borrowernumbers = new Array(); Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt (+16 lines)
33	[% END %]	33	[% END %]
34		34
35	$(document).ready(function() {	35	$(document).ready(function() {
		36	$('#clubs-tab-link').on('click', function() {
		37	$('#clubs-tab').text(_("Loading..."));
		38	$('#clubs-tab').load('/cgi-bin/koha/clubs/patron-clubs-tab.pl?borrowernumber=[% borrowernumber %]');
		39	});
		40
36	$('#finesholdsissues').tabs({	41	$('#finesholdsissues').tabs({
37	// Correct table sizing for tables hidden in tabs	42	// Correct table sizing for tables hidden in tabs
38	// http://www.datatables.net/examples/api/tabs_and_scrolling.html	43	// http://www.datatables.net/examples/api/tabs_and_scrolling.html
Lines 406-411 function validate1(date) { Link Here
406	[% END %]	411	[% END %]
407	</li>	412	</li>
408	<li><a id="debarments-tab-link" href="#reldebarments">[% debarments.size %] Restrictions</a></li>	413	<li><a id="debarments-tab-link" href="#reldebarments">[% debarments.size %] Restrictions</a></li>
		414	[% IF CAN_user_clubs && ( borrower.ClubsEnrolledCount \|\| borrower.ClubsEnrollableCount ) %]
		415	<li>
		416	<a id="clubs-tab-link" href="#clubs-tab">
		417	Clubs ([% borrower.ClubsEnrolledCount %]/[% borrower.ClubsEnrollableCount %])
		418	</a>
		419	</li>
		420	[% END %]
409	</ul>	421	</ul>
410		422
411	<div id="checkouts">	423	<div id="checkouts">
Lines 498-503 function validate1(date) { Link Here
498	[% END %]	510	[% END %]
499	</div>	511	</div>
500		512
		513	<div id="clubs-tab">
		514	Loading...
		515	</div>
		516
501	[% INCLUDE borrower_debarments.inc %]	517	[% INCLUDE borrower_debarments.inc %]
502		518
503	<div id="reserves">	519	<div id="reserves">

Lines 15-20 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/tools-home.tt (+5 lines)
15	<div class="yui-u first">	15	<div class="yui-u first">
16	<h3>Patrons and circulation</h3>	16	<h3>Patrons and circulation</h3>
17	<dl>	17	<dl>
		18	[% IF CAN_user_clubs_edit_clubs \|\| CAN_user_clubs_edit_templates %]
		19	<dt><a href="/cgi-bin/koha/clubs/clubs.pl">Patron clubs</a>
		20	<dd>Manage patrons clubs.</dd>
		21	[% END %]
		22
18	[% IF (CAN_user_tools_manage_patron_lists) %]	23	[% IF (CAN_user_tools_manage_patron_lists) %]
19	<dt><a href="/cgi-bin/koha/patron_lists/lists.pl">Patron lists</a>	24	<dt><a href="/cgi-bin/koha/patron_lists/lists.pl">Patron lists</a>
20	<dd>Manage lists of patrons.</dd>	25	<dd>Manage lists of patrons.</dd>




[% USE EncodeUTF8 %]
[% 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 | $EncodeUTF8 %]</td>
                    <td>[% e.club.description | $EncodeUTF8 %]</td>
                    <td>[% e.date_enrolled | $KohaDates %]</td>
                    [% IF e.club.club_template.is_enrollable_from_opac %]
                        <td>
                            <a class="btn btn-mini" 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 | $EncodeUTF8 %]</td>
                    <td>[% c.description | $EncodeUTF8 %]</td>
                    <td>
                        [% IF borrower.FirstValidEmailAddress %]
                            <a class="btn btn-mini" 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 EncodeUTF8 %]
[% USE AuthorisedValues %]
[% SET AuthorisedValuesCategories = AuthorisedValues.Categories %]

<h3>
    Enroll in <i>[% club.name | $EncodeUTF8 %]</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.club_template_field.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" onclick="addEnrollment(); return false;"><i class="icon-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 111-116 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-user.tt (+17 lines)
111	[% IF ( BORROWER_INF.amountlessthanzero ) %]<li><a href="#opac-user-fines">Credits ([% BORROWER_INF.amountoutstanding %])</a></li>[% END %]	111	[% IF ( BORROWER_INF.amountlessthanzero ) %]<li><a href="#opac-user-fines">Credits ([% BORROWER_INF.amountoutstanding %])</a></li>[% END %]
112	[% END %]	112	[% END %]
113	[% IF ( waiting_count ) %][% IF ( BORROWER_INF.atdestination ) %]<li><a href="#opac-user-waiting">Waiting ([% waiting_count %])</a></li>[% END %][% END %]	113	[% IF ( waiting_count ) %][% IF ( BORROWER_INF.atdestination ) %]<li><a href="#opac-user-waiting">Waiting ([% waiting_count %])</a></li>[% END %][% END %]
		114	[% IF borrower.ClubsEnrolledCount \|\| borrower.ClubsEnrollableCount %]
		115	<li>
		116	<a id="opac-user-clubs-tab-link" href="#opac-user-clubs">
		117	Clubs ([% borrower.ClubsEnrolledCount %]/[% borrower.ClubsEnrollableCount %])
		118	</a>
		119	</li>
		120	[% END %]
		121
114	[% IF ( reserves_count ) %]<li><a href="#opac-user-holds">Holds ([% reserves_count %])</a></li>[% END %]	122	[% IF ( reserves_count ) %]<li><a href="#opac-user-holds">Holds ([% reserves_count %])</a></li>[% END %]
115	</ul>	123	</ul>
116		124
Lines 277-282 Link Here
277	[% END # IF issues_count %]	285	[% END # IF issues_count %]
278	</div> <!-- / .opac-user-checkouts -->	286	</div> <!-- / .opac-user-checkouts -->
279		287
		288	<div id="opac-user-clubs">
		289	Loading...
		290	</div>
		291
280	[% IF ( OPACFinesTab ) %]	292	[% IF ( OPACFinesTab ) %]
281	<!-- FINES BOX -->	293	<!-- FINES BOX -->
282	[% IF ( BORROWER_INF.amountoverfive ) %]	294	[% IF ( BORROWER_INF.amountoverfive ) %]
Lines 724-729 Link Here
724	[% END %]	736	[% END %]
725		737
726	$( ".suspend-until" ).datepicker({ minDate: 1 }); // Require that "until date" be in the future	738	$( ".suspend-until" ).datepicker({ minDate: 1 }); // Require that "until date" be in the future
		739
		740	$('#opac-user-clubs-tab-link').on('click', function() {
		741	$('#opac-user-clubs').text(_("Loading..."));
		742	$('#opac-user-clubs').load('/cgi-bin/koha/clubs/clubs-tab.pl?borrowernumber=[% borrowernumber %]');
		743	});
727	});	744	});
728	//]]>	745	//]]>
729	</script>	746	</script>

Lines 341-346 if (C4::Context->preference('EnhancedMessagingPreferences')) { Link Here

(-)a/members/moremember.pl (+3 lines)
341	# Computes full borrower address	341	# Computes full borrower address
342	my $address = $data->{'streetnumber'} . " $roadtype " . $data->{'address'};	342	my $address = $data->{'streetnumber'} . " $roadtype " . $data->{'address'};
343		343
		344	my $schema = Koha::Database->new()->schema();
		345
344	# in template <TMPL_IF name="I"> => instutitional (A for Adult, C for children)	346	# in template <TMPL_IF name="I"> => instutitional (A for Adult, C for children)
345	$template->param( $data->{'categorycode'} => 1 );	347	$template->param( $data->{'categorycode'} => 1 );
346	$template->param(	348	$template->param(
Lines 371-376 $template->param( Link Here
371	relatives_issues_count => $relatives_issues_count,	373	relatives_issues_count => $relatives_issues_count,
372	relatives_borrowernumbers => \@relatives,	374	relatives_borrowernumbers => \@relatives,
373	address => $address	375	address => $address
		376	borrower => $schema->resultset('Borrower')->find( $borrowernumber ),
374	);	377	);
375		378
376	output_html_with_http_headers $input, $cookie, $template->output;	379	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::Database;

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 $schema = Koha::Database->new()->schema();

my $borrower = $schema->resultset('Borrower')->find($borrowernumber);

my @enrollments = $schema->resultset("ClubEnrollment")->search(
    {
        borrower      => $borrowernumber,
        date_canceled => undef,
    },
    { prefetch => 'club' }
);

my @clubs = $schema->resultset("Club")->search(
    {
        'me.id' => { -not_in => [ map { $_->club()->id() } @enrollments ] },
        'club_template.is_enrollable_from_opac' => 1,
    },
    { prefetch => 'club_template' }
);

$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::Database;

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 $schema = Koha::Database->new()->schema();

my $club = $schema->resultset("Club")->find($id);

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

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




use C4::Letters;
use C4::Branch; # GetBranches
use Koha::DateUtils;
use Koha::Database;

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

use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE';


    patronupdate => $patronupdate,
    OpacRenewalAllowed => C4::Context->preference("OpacRenewalAllowed"),
    userview => 1,
);

$template->param(
    SuspendHoldsOpac => C4::Context->preference('SuspendHoldsOpac'),
    AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),
    OpacHoldNotes => C4::Context->preference('OpacHoldNotes'),
    borrower => $schema->resultset('Borrower')->find($borrowernumber),
);

output_html_with_http_headers $query, $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::Database;

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 $schema = Koha::Database->new()->schema();

my $enrollment = $schema->resultset('ClubEnrollment')->find($id);

if ( $enrollment && $enrollment->get_column('borrower') == $borrowernumber ) {
    $enrollment->update( { date_canceled => \'NOW()' } );
}

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::Database;

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 $schema = Koha::Database->new()->schema();

    my $club = $schema->resultset('Club')->find($id);

    if ( $club->club_template()->is_enrollable_from_opac() ) {
        $enrollment = $schema->resultset('ClubEnrollment')->create(
            {
                club          => $club->id(),
                borrower      => $borrowernumber,
                date_enrolled => \'NOW()',
                date_created  => \'NOW()',
                branch        => C4::Context->userenv
                ? C4::Context->userenv->{'branch'}
                : undef,
            }
        );

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

        foreach my $e (@enrollment_fields) {
            my $club_enrollment_field =
              $schema->resultset('ClubEnrollmentField')->create(
                {
                    club_enrollment                => $enrollment->id(),
                    club_template_enrollment_field => $e->id(),
                    value                          => $cgi->param( $e->id() ),
                }
              );
        }
    }
}

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::Database;

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 $schema = Koha::Database->new()->schema();

my $enrollment =
  $schema->resultset('ClubEnrollment')->find($id)
  ->update( { date_canceled => \'NOW()' } );

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::Database;

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::Database->new()->schema()->resultset('Club')->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::Database;

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 $schema = Koha::Database->new()->schema();

my $club = $schema->resultset('Club')->find($id);

my $enrollment;
if ($club) {
    $enrollment = $schema->resultset('ClubEnrollment')->create(
        {
            club          => $club->id(),
            borrower      => $borrowernumber,
            date_enrolled => \'NOW()',
            date_created  => \'NOW()',
            branch        => C4::Context->userenv
            ? C4::Context->userenv->{'branch'}
            : undef,
        }
    );

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

        foreach my $e (@enrollment_fields) {
            my $club_enrollment_field =
              $schema->resultset('ClubEnrollmentField')->create(
                {
                    club_enrollment                => $enrollment->id(),
                    club_template_enrollment_field => $e->id(),
                    value                          => $cgi->param( $e->id() ),
                }
              );
        }
    }
}

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::Database;

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::Database->new()->schema()->resultset('ClubTemplate')->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 } );

Return to bug 12461

Lines 1474-1493 addresses. Link Here

(-)a/C4/Members.pm (-13 / +3 lines)
1474		1474
1475	sub GetFirstValidEmailAddress {	1475	sub GetFirstValidEmailAddress {
1476	my $borrowernumber = shift;	1476	my $borrowernumber = shift;
1477	my $dbh = C4::Context->dbh;
1478	my $sth = $dbh->prepare( "SELECT email, emailpro, B_email FROM borrowers where borrowernumber = ? ");
1479	$sth->execute( $borrowernumber );
1480	my $data = $sth->fetchrow_hashref;
1481		1477
1482	if ($data->{'email'}) {	1478	my $borrower = Koha::Database->new()->schema()->resultset('Borrower')->find( $borrowernumber );
1483	return $data->{'email'};	1479
1484	} elsif ($data->{'emailpro'}) {	1480	return $borrower->FirstValidEmailAddress();
1485	return $data->{'emailpro'};
1486	} elsif ($data->{'B_email'}) {
1487	return $data->{'B_email'};
1488	} else {
1489	return '';
1490	}
1491	}	1481	}
1492		1482
1493	=head2 GetNoticeEmailAddress	1483	=head2 GetNoticeEmailAddress

Lines 3453-3458 CREATE TABLE IF NOT EXISTS columns_settings ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (+173 lines)
3453	PRIMARY KEY(module, page, tablename, columnname)	3453	PRIMARY KEY(module, page, tablename, columnname)
3454	) ENGINE=InnoDB DEFAULT CHARSET=utf8;	3454	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3455		3455
		3456	--
		3457	-- Table structure for table 'clubs'
		3458	--
		3459
		3460	CREATE TABLE clubs (
		3461	id int(11) NOT NULL AUTO_INCREMENT,
		3462	club_template int(11) NOT NULL,
		3463	`name` tinytext NOT NULL,
		3464	description text,
		3465	date_start date DEFAULT NULL,
		3466	date_end date DEFAULT NULL,
		3467	branch varchar(11) DEFAULT NULL,
		3468	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		3469	date_updated timestamp NULL DEFAULT NULL,
		3470	PRIMARY KEY (id),
		3471	KEY club_template (club_template),
		3472	KEY branch (branch)
		3473	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		3474
		3475	-- --------------------------------------------------------
		3476
		3477	--
		3478	-- Table structure for table 'club_enrollments'
		3479	--
		3480
		3481	CREATE TABLE club_enrollments (
		3482	id int(11) NOT NULL AUTO_INCREMENT,
		3483	club int(11) NOT NULL,
		3484	borrower int(11) NOT NULL,
		3485	date_enrolled timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		3486	date_canceled timestamp NULL DEFAULT NULL,
		3487	date_created timestamp NOT NULL DEFAULT '0000-00-00 00:00:00',
		3488	date_updated timestamp NULL DEFAULT NULL,
		3489	branch varchar(11) DEFAULT NULL,
		3490	PRIMARY KEY (id),
		3491	KEY club (club),
		3492	KEY borrower (borrower),
		3493	KEY branch (branch)
		3494	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		3495
		3496	-- --------------------------------------------------------
		3497
		3498	--
		3499	-- Table structure for table 'club_enrollment_fields'
		3500	--
		3501
		3502	CREATE TABLE club_enrollment_fields (
		3503	id int(11) NOT NULL AUTO_INCREMENT,
		3504	club_enrollment int(11) NOT NULL,
		3505	club_template_enrollment_field int(11) NOT NULL,
		3506	`value` text NOT NULL,
		3507	PRIMARY KEY (id),
		3508	KEY club_enrollment (club_enrollment),
		3509	KEY club_template_enrollment_field (club_template_enrollment_field),
		3510	KEY club_template_enrollment_field_2 (club_template_enrollment_field)
		3511	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		3512
		3513	-- --------------------------------------------------------
		3514
		3515	--
		3516	-- Table structure for table 'club_fields'
		3517	--
		3518
		3519	CREATE TABLE club_fields (
3520	id int(11) NOT NULL AUTO_INCREMENT,
3521	club_template_field int(11) NOT NULL,
3522	club int(11) NOT NULL,
3523	`value` text,
3524	PRIMARY KEY (id),
3525	KEY club_template_field (club_template_field,club),
3526	KEY club (club)
3527	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3528
3529	-- --------------------------------------------------------
3530
3531	--
3532	-- Table structure for table 'club_templates'
3533	--
3534
3535	CREATE TABLE club_templates (
3536	id int(11) NOT NULL AUTO_INCREMENT,
3537	`name` tinytext NOT NULL,
3538	description text,
3539	is_enrollable_from_opac tinyint(1) NOT NULL DEFAULT '0',
3540	is_email_required tinyint(1) NOT NULL DEFAULT '0',
3541	branch varchar(10) CHARACTER SET utf8 DEFAULT NULL,
3542	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
3543	date_updated timestamp NULL DEFAULT NULL,
3544	is_deletable tinyint(1) NOT NULL DEFAULT '1',
3545	PRIMARY KEY (id),
3546	KEY branch (branch)
3547	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3548
3549	-- --------------------------------------------------------
3550
3551	--
3552	-- Table structure for table 'club_template_enrollment_fields'
3553	--
3554
3555	CREATE TABLE club_template_enrollment_fields (
3556	id int(11) NOT NULL AUTO_INCREMENT,
3557	club_template int(11) NOT NULL,
3558	`name` tinytext NOT NULL,
3559	description text,
3560	authorised_value_category varchar(16) DEFAULT NULL,
3561	PRIMARY KEY (id),
3562	KEY club_template (club_template),
3563	KEY club_template_2 (club_template)
3564	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3565
3566	-- --------------------------------------------------------
3567
3568	--
3569	-- Table structure for table 'club_template_fields'
3570	--
3571
3572	CREATE TABLE club_template_fields (
3573	id int(11) NOT NULL AUTO_INCREMENT,
3574	club_template int(11) NOT NULL,
3575	`name` tinytext NOT NULL,
3576	description text,
3577	authorised_value_category varchar(16) DEFAULT NULL,
3578	PRIMARY KEY (id),
3579	KEY club_template (club_template)
3580	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3581
3582	--
3583	-- Constraints for table `clubs`
3584	--
3585	ALTER TABLE `clubs`
3586	ADD CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
3587	ADD CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branch) REFERENCES branches (branchcode);
3588
3589	--
3590	-- Constraints for table `club_enrollments`
3591	--
3592	ALTER TABLE `club_enrollments`
3593	ADD CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
3594	ADD CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrower) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
3595	ADD CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;
3596
3597	--
3598	-- Constraints for table `club_enrollment_fields`
3599	--
3600	ALTER TABLE `club_enrollment_fields`
3601	ADD CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
3602	ADD CONSTRAINT club_enrollment_fields_ibfk_2 FOREIGN KEY (club_template_enrollment_field) REFERENCES club_template_enrollment_fields (id) ON DELETE CASCADE ON UPDATE CASCADE;
3603
3604	--
3605	-- Constraints for table `club_fields`
3606	--
3607	ALTER TABLE `club_fields`
3608	ADD CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
3609	ADD CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE;
3610
3611	--
3612	-- Constraints for table `club_templates`
3613	--
3614	ALTER TABLE `club_templates`
3615	ADD CONSTRAINT club_templates_ibfk_1 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;
3616
3617	--
3618	-- Constraints for table `club_template_enrollment_fields`
3619	--
3620	ALTER TABLE `club_template_enrollment_fields`
3621	ADD CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;
3622
3623	--
3624	-- Constraints for table `club_template_fields`
3625	--
3626	ALTER TABLE `club_template_fields`
3627	ADD CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;
3628
3456	/!40103 SET TIME_ZONE=@OLD_TIME_ZONE /;	3629	/!40103 SET TIME_ZONE=@OLD_TIME_ZONE /;
3457	/!40101 SET SQL_MODE=@OLD_SQL_MODE /;	3630	/!40101 SET SQL_MODE=@OLD_SQL_MODE /;
3458	/!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS /;	3631	/!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS /;

Lines 8751-8756 if ( CheckVersion($DBversion) ) { Link Here

(-)a/installer/data/mysql/updatedatabase.pl (+148 lines)
8751	SetVersion($DBversion);	8751	SetVersion($DBversion);
8752	}	8752	}
8753		8753
		8754	$DBversion = "3.17.00.XXX";
		8755	if ( CheckVersion($DBversion) ) {
		8756	$dbh->do("INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES ('20', 'clubs', 'Patron clubs', '0')");
		8757
		8758	$dbh->do("
		8759	CREATE TABLE clubs (
		8760	id int(11) NOT NULL AUTO_INCREMENT,
		8761	club_template int(11) NOT NULL,
		8762	`name` tinytext NOT NULL,
		8763	description text,
		8764	date_start date DEFAULT NULL,
		8765	date_end date DEFAULT NULL,
		8766	branch varchar(11) DEFAULT NULL,
		8767	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		8768	date_updated timestamp NULL DEFAULT NULL,
		8769	PRIMARY KEY (id),
		8770	KEY club_template (club_template),
		8771	KEY branch (branch)
		8772	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		8773	");
		8774
		8775	$dbh->do("
		8776	CREATE TABLE club_enrollments (
		8777	id int(11) NOT NULL AUTO_INCREMENT,
		8778	club int(11) NOT NULL,
		8779	borrower int(11) NOT NULL,
		8780	date_enrolled timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		8781	date_canceled timestamp NULL DEFAULT NULL,
		8782	date_created timestamp NOT NULL DEFAULT '0000-00-00 00:00:00',
		8783	date_updated timestamp NULL DEFAULT NULL,
		8784	branch varchar(11) DEFAULT NULL,
		8785	PRIMARY KEY (id),
		8786	KEY club (club),
		8787	KEY borrower (borrower),
		8788	KEY branch (branch)
		8789	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		8790	");
		8791
		8792	$dbh->do("
		8793	CREATE TABLE club_enrollment_fields (
		8794	id int(11) NOT NULL AUTO_INCREMENT,
		8795	club_enrollment int(11) NOT NULL,
		8796	club_template_enrollment_field int(11) NOT NULL,
		8797	`value` text NOT NULL,
		8798	PRIMARY KEY (id),
		8799	KEY club_enrollment (club_enrollment),
		8800	KEY club_template_enrollment_field (club_template_enrollment_field),
		8801	KEY club_template_enrollment_field_2 (club_template_enrollment_field)
		8802	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		8803	");
		8804
		8805	$dbh->do("
		8806	CREATE TABLE club_fields (
		8807	id int(11) NOT NULL AUTO_INCREMENT,
		8808	club_template_field int(11) NOT NULL,
		8809	club int(11) NOT NULL,
		8810	`value` text,
		8811	PRIMARY KEY (id),
		8812	KEY club_template_field (club_template_field,club),
		8813	KEY club (club)
		8814	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		8815	");
		8816
		8817	$dbh->do("
8818	CREATE TABLE club_templates (
8819	id int(11) NOT NULL AUTO_INCREMENT,
8820	`name` tinytext NOT NULL,
8821	description text,
8822	is_enrollable_from_opac tinyint(1) NOT NULL DEFAULT '0',
8823	is_email_required tinyint(1) NOT NULL DEFAULT '0',
8824	branch varchar(10) CHARACTER SET utf8 DEFAULT NULL,
8825	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
8826	date_updated timestamp NULL DEFAULT NULL,
8827	is_deletable tinyint(1) NOT NULL DEFAULT '1',
8828	PRIMARY KEY (id),
8829	KEY branch (branch)
8830	) ENGINE=InnoDB DEFAULT CHARSET=utf8 DEFAULT;
8831	");
8832
8833	$dbh->do("
8834	CREATE TABLE club_template_enrollment_fields (
8835	id int(11) NOT NULL AUTO_INCREMENT,
8836	club_template int(11) NOT NULL,
8837	`name` tinytext NOT NULL,
8838	description text,
8839	authorised_value_category varchar(16) DEFAULT NULL,
8840	PRIMARY KEY (id),
8841	KEY club_template (club_template),
8842	KEY club_template_2 (club_template)
8843	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8844	");
8845
8846	$dbh->do("
8847	CREATE TABLE club_template_fields (
8848	id int(11) NOT NULL AUTO_INCREMENT,
8849	club_template int(11) NOT NULL,
8850	`name` tinytext NOT NULL,
8851	description text,
8852	authorised_value_category varchar(16) DEFAULT NULL,
8853	PRIMARY KEY (id),
8854	KEY club_template (club_template)
8855	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8856	");
8857
8858	$dbh->do("
8859	ALTER TABLE `clubs`
8860	ADD CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
8861	ADD CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branch) REFERENCES branches (branchcode);
8862	");
8863
8864	$dbh->do("
8865	ALTER TABLE `club_enrollments`
8866	ADD CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
8867	ADD CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrower) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
8868	ADD CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;
8869	");
8870
8871	$dbh->do("
8872	ALTER TABLE `club_enrollment_fields`
8873	ADD CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
8874	ADD CONSTRAINT club_enrollment_fields_ibfk_2 FOREIGN KEY (club_template_enrollment_field) REFERENCES club_template_enrollment_fields (id) ON DELETE CASCADE ON UPDATE CASCADE;
8875	");
8876
8877	$dbh->do("
8878	ALTER TABLE `club_fields`
8879	ADD CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
8880	ADD CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE;
8881	");
8882
8883	$dbh->do("
8884	ALTER TABLE `club_templates`
8885	ADD CONSTRAINT club_templates_ibfk_1 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;
8886	");
8887
8888	$dbh->do("
8889	ALTER TABLE `club_template_enrollment_fields`
8890	ADD CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;
8891	");
8892
8893	$dbh->do("
8894	ALTER TABLE `club_template_fields`
8895	ADD CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;
8896	");
8897
8898	print "Upgrade to $DBversion done (Bug 12461 - Add patron clubs feature)\n";
8899	SetVersion ($DBversion);
8900	}
8901
8754	=head1 FUNCTIONS	8902	=head1 FUNCTIONS
8755		8903
8756	=head2 TableExists($table)	8904	=head2 TableExists($table)

Line 0 Link Here

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

Line 0 Link Here

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

Line 0 Link Here

(-)a/Koha/Schema/Result/ClubEnrollmentField.pm (+97 lines)
		1	package Koha::Schema::Result::ClubEnrollmentField;
		2
		3	# Created by DBIx::Class::Schema::Loader
		4	# DO NOT MODIFY THE FIRST PART OF THIS FILE
		5
		6	use strict;
		7	use warnings;
		8
		9	use base 'DBIx::Class::Core';
		10
		11
		12	=head1 NAME
		13
		14	Koha::Schema::Result::ClubEnrollmentField
		15
		16	=cut
		17
		18	__PACKAGE__->table("club_enrollment_fields");
		19
		20	=head1 ACCESSORS
		21
		22	=head2 id
		23
		24	data_type: 'integer'
		25	is_auto_increment: 1
		26	is_nullable: 0
		27
		28	=head2 club_enrollment
		29
		30	data_type: 'integer'
		31	is_foreign_key: 1
		32	is_nullable: 0
		33
		34	=head2 club_template_enrollment_field
		35
		36	data_type: 'integer'
		37	is_foreign_key: 1
		38	is_nullable: 0
		39
		40	=head2 value
		41
		42	data_type: 'text'
		43	is_nullable: 0
		44
		45	=cut
		46
		47	__PACKAGE__->add_columns(
		48	"id",
		49	{ data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
		50	"club_enrollment",
		51	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
		52	"club_template_enrollment_field",
		53	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
		54	"value",
		55	{ data_type => "text", is_nullable => 0 },
		56	);
		57	__PACKAGE__->set_primary_key("id");
		58
		59	=head1 RELATIONS
		60
		61	=head2 club_template_enrollment_field
		62
		63	Type: belongs_to
		64
65	Related object: L<Koha::Schema::Result::ClubTemplateEnrollmentField>
66
67	=cut
68
69	__PACKAGE__->belongs_to(
70	"club_template_enrollment_field",
71	"Koha::Schema::Result::ClubTemplateEnrollmentField",
72	{ id => "club_template_enrollment_field" },
73	{ on_delete => "CASCADE", on_update => "CASCADE" },
74	);
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" },
88	{ on_delete => "CASCADE", on_update => "CASCADE" },
89	);
90
91
92	# Created by DBIx::Class::Schema::Loader v0.07000 @ 2014-05-30 09:55:12
93	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:bOPkyazyrsDwUKKS4oHHdQ
94
95
96	# You can replace this text with custom content, and it will be preserved on regeneration
97	1;

Line 0 Link Here

(-)a/Koha/Schema/Result/ClubField.pm (+127 lines)
		1	package Koha::Schema::Result::ClubField;
		2
		3	# Created by DBIx::Class::Schema::Loader
		4	# DO NOT MODIFY THE FIRST PART OF THIS FILE
		5
		6	use strict;
		7	use warnings;
		8
		9	use base 'DBIx::Class::Core';
		10
		11
		12	=head1 NAME
		13
		14	Koha::Schema::Result::ClubField
		15
		16	=cut
		17
		18	__PACKAGE__->table("club_fields");
		19
		20	=head1 ACCESSORS
		21
		22	=head2 id
		23
		24	data_type: 'integer'
		25	is_auto_increment: 1
		26	is_nullable: 0
		27
		28	=head2 club_template_field
		29
		30	data_type: 'integer'
		31	is_foreign_key: 1
		32	is_nullable: 0
		33
		34	=head2 club
		35
		36	data_type: 'integer'
		37	is_foreign_key: 1
		38	is_nullable: 0
		39
		40	=head2 value
		41
		42	data_type: 'text'
		43	is_nullable: 1
		44
		45	=cut
		46
		47	__PACKAGE__->add_columns(
		48	"id",
		49	{ data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
		50	"club_template_field",
		51	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
		52	"club",
		53	{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
		54	"value",
		55	{ data_type => "text", is_nullable => 1 },
		56	);
		57	__PACKAGE__->set_primary_key("id");
		58
		59	=head1 RELATIONS
		60
		61	=head2 club_template_field
		62
		63	Type: belongs_to
		64
65	Related object: L<Koha::Schema::Result::ClubTemplateField>
66
67	=cut
68
69	__PACKAGE__->belongs_to(
70	"club_template_field",
71	"Koha::Schema::Result::ClubTemplateField",
72	{ id => "club_template_field" },
73	{ on_delete => "CASCADE", on_update => "CASCADE" },
74	);
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" },
88	{ on_delete => "CASCADE", on_update => "CASCADE" },
89	);
90
91	=head2 z_clubs_rewrite_clubs
92
93	Type: has_many
94
95	Related object: L<Koha::Schema::Result::ZClubRewrite>
96
97	=cut
98
99	__PACKAGE__->has_many(
100	"z_clubs_rewrite_clubs",
101	"Koha::Schema::Result::ZClubRewrite",
102	{ "foreign.club" => "self.id" },
103	{ cascade_copy => 0, cascade_delete => 0 },
104	);
105
106	=head2 z_clubs_rewrite_club_template_fields
107
108	Type: has_many
109
110	Related object: L<Koha::Schema::Result::ZClubRewrite>
111
112	=cut
113
114	__PACKAGE__->has_many(
115	"z_clubs_rewrite_club_template_fields",
116	"Koha::Schema::Result::ZClubRewrite",
117	{ "foreign.club_template_field" => "self.club_template_field" },
118	{ cascade_copy => 0, cascade_delete => 0 },
119	);
120
121
122	# Created by DBIx::Class::Schema::Loader v0.07000 @ 2014-05-30 09:55:12
123	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:B5i1BInvl7L9Mjor17Okrw
124
125
126	# You can replace this text with custom content, and it will be preserved on regeneration
127	1;

Line 0 Link Here

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

Line 0 Link Here

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

Line 0 Link Here

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

Line 0 Link Here

(-)a/clubs/clubs-add-modify.pl (+125 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
		29	my $cgi = new CGI;
		30
		31	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
		32	{
		33	template_name => 'clubs/clubs-add-modify.tt',
		34	query => $cgi,
		35	type => 'intranet',
		36	authnotrequired => 0,
		37	flagsrequired => { clubs => 'edit_clubs' },
		38	}
		39	);
		40
		41	my $schema = Koha::Database->new()->schema();
		42
		43	my $id = $cgi->param('id');
		44	my $club = $schema->resultset('Club')->find($id);
		45
		46	my $club_template_id =
		47	$club ? $club->club_template()->id() : $cgi->param('club_template_id');
		48	my $club_template = $schema->resultset('ClubTemplate')->find($club_template_id);
		49
		50	my $date_start = $cgi->param('date_start');
		51	$date_start = $date_start ? dt_from_string($date_start) : undef;
		52	my $date_end = $cgi->param('date_end');
		53	$date_end = $date_end ? dt_from_string($date_end) : undef;
		54
		55	if ( $cgi->param('name') ) { # Update or create club
		56	if ($club) {
		57	$club->update(
		58	{
		59	id => $id \|\| undef,
		60	club_template => $cgi->param('club_template_id') \|\| undef,
		61	name => $cgi->param('name') \|\| undef,
		62	description => $cgi->param('description') \|\| undef,
		63	branch => $cgi->param('branchcode') \|\| undef,
		64	date_start => $date_start,
65	date_end => $date_end,
66	date_updated => dt_from_string(),
67	}
68	);
69	}
70	else {
71	$club = $schema->resultset('Club')->create(
72	{
73	id => $id \|\| undef,
74	club_template => $cgi->param('club_template_id') \|\| undef,
75	name => $cgi->param('name') \|\| undef,
76	description => $cgi->param('description') \|\| undef,
77	branch => $cgi->param('branchcode') \|\| undef,
78	date_start => $date_start,
79	date_end => $date_end,
80	date_updated => dt_from_string(),
81	}
82	);
83
84	}
85
86	my @club_template_field_id = $cgi->param('club_template_field_id');
87	my @club_field_id = $cgi->param('club_field_id');
88	my @club_field = $cgi->param('club_field');
89
90	for ( my $i = 0 ; $i < @club_template_field_id ; $i++ ) {
91	my $club_template_field_id = $club_template_field_id[$i] \|\| undef;
92	my $club_field_id = $club_field_id[$i] \|\| undef;
93	my $club_field = $club_field[$i] \|\| undef;
94
95	if ($club_field_id) {
96	$schema->resultset('ClubField')->find($club_field_id)->update(
97	{
98	club => $club->id(),
99	club_template_field => $club_template_field_id,
100	value => $club_field,
101	}
102	);
103	}
104	else {
105	$schema->resultset('ClubField')->create(
106	{
107	club => $club->id(),
108	club_template_field => $club_template_field_id,
109	value => $club_field,
110	}
111	);
112	}
113	}
114
115	$id \|\|= $club->id();
116	}
117
118	$club = $schema->resultset('Club')->find($id);
119
120	$template->param(
121	club_template => $club_template,
122	club => $club,
123	);
124
125	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

(-)a/clubs/clubs.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::Database;
	27
	28	my $cgi = new CGI;
	29
	30	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
	31	{
	32	template_name => "clubs/clubs.tt",
	33	query => $cgi,
	34	type => "intranet",
	35	authnotrequired => 0,
	36	flagsrequired => { clubs => '*' },
	37	}
	38	);
	39
	40	my $schema = Koha::Database->new()->schema();
	41
	42	my @club_templates = $schema->resultset("ClubTemplate")->all();
	43	my @clubs = $schema->resultset("Club")->all();
	44
	45	$template->param(
	46	club_templates => \@club_templates,
	47	clubs => \@clubs
	48	);
	49
	50	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

(-)a/clubs/patron-clubs-tab.pl (+59 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
	28	my $cgi = new CGI;
	29
	30	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
	31	{
	32	template_name => "clubs/patron-clubs-tab.tt",
	33	query => $cgi,
	34	type => "intranet",
	35	authnotrequired => 0,
	36	flagsrequired => { clubs => '*' },
	37	}
	38	);
	39
	40	my $borrowernumber = $cgi->param('borrowernumber');
	41
	42	my $schema = Koha::Database->new()->schema();
	43
	44	my @enrollments =
	45	$schema->resultset("ClubEnrollment")
	46	->search( { borrower => $borrowernumber, date_canceled => undef } );
	47
	48	my @clubs =
	49	$schema->resultset("Club")
	50	->search(
	51	{ id => { -not_in => [ map { $_->club()->id() } @enrollments ] } } );
	52
	53	$template->param(
	54	enrollments => \@enrollments,
	55	clubs => \@clubs,
	56	borrowernumber => $borrowernumber
	57	);
	58
	59	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

(-)a/clubs/patron-enroll.pl (+52 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
	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 $schema = Koha::Database->new()->schema();
	44
	45	my $club = $schema->resultset("Club")->find($id);
	46
	47	$template->param(
	48	club => $club,
	49	borrowernumber => $borrowernumber,
	50	);
	51
	52	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

(-)a/clubs/templates-add-modify.pl (+139 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
		29	my $cgi = new CGI;
		30
		31	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
		32	{
		33	template_name => 'clubs/templates-add-modify.tt',
		34	query => $cgi,
		35	type => 'intranet',
		36	authnotrequired => 0,
		37	flagsrequired => { clubs => 'edit_templates' },
		38	}
		39	);
		40
		41	my $id = $cgi->param('id');
		42
		43	my $schema = Koha::Database->new()->schema();
		44
		45	my $club_template;
		46
		47	if ( $cgi->param('name') ) { # Update or create club
		48	$club_template = $schema->resultset('ClubTemplate')->update_or_create(
		49	{
		50	id => $id \|\| undef,
		51	name => $cgi->param('name') \|\| undef,
		52	description => $cgi->param('description') \|\| undef,
		53	branch => $cgi->param('branchcode') \|\| undef,
		54	date_updated => dt_from_string(),
		55	is_email_required => $cgi->param('is_email_required') ? 1 : 0,
		56	is_enrollable_from_opac => $cgi->param('is_enrollable_from_opac')
		57	? 1
		58	: 0,
		59	}
		60	);
		61
		62	$id \|\|= $club_template->id();
		63
		64	# Update club creation fields
65	my @field_id = $cgi->param('club_template_field_id');
66	my @field_name = $cgi->param('club_template_field_name');
67	my @field_description = $cgi->param('club_template_field_description');
68	my @field_authorised_value_category =
69	$cgi->param('club_template_field_authorised_value_category');
70
71	my @field_delete = $cgi->param('club_template_field_delete');
72
73	for ( my $i = 0 ; $i < @field_id ; $i++ ) {
74	my $field_id = $field_id[$i];
75	my $field_name = $field_name[$i];
76	my $field_description = $field_description[$i];
77	my $field_authorised_value_category =
78	$field_authorised_value_category[$i];
79
80	if ( grep( /^$field_id$/, @field_delete ) ) {
81	$schema->resultset('ClubTemplateField')->find($field_id)->delete();
82	}
83	else {
84	$club_template =
85	$schema->resultset('ClubTemplateField')->update_or_create(
86	{
87	id => $field_id,
88	club_template => $id,
89	name => $field_name,
90	description => $field_description,
91	authorised_value_category =>
92	$field_authorised_value_category,
93	}
94	);
95	}
96	}
97
98	# Update club enrollment fields
99	@field_id = $cgi->param('club_template_enrollment_field_id');
100	@field_name = $cgi->param('club_template_enrollment_field_name');
101	@field_description =
102	$cgi->param('club_template_enrollment_field_description');
103	@field_authorised_value_category =
104	$cgi->param('club_template_enrollment_field_authorised_value_category');
105
106	@field_delete = $cgi->param('club_template_enrollment_field_delete');
107
108	for ( my $i = 0 ; $i < @field_id ; $i++ ) {
109	my $field_id = $field_id[$i];
110	my $field_name = $field_name[$i];
111	my $field_description = $field_description[$i];
112	my $field_authorised_value_category =
113	$field_authorised_value_category[$i];
114
115	if ( grep( /^$field_id$/, @field_delete ) ) {
116	$schema->resultset('ClubTemplateEnrollmentField')->find($field_id)
117	->delete();
118	}
119	else {
120	$club_template =
121	$schema->resultset('ClubTemplateEnrollmentField')
122	->update_or_create(
123	{
124	id => $field_id,
125	club_template => $id,
126	name => $field_name,
127	description => $field_description,
128	authorised_value_category =>
129	$field_authorised_value_category,
130	}
131	);
132	}
133	}
134	}
135
136	$club_template = $schema->resultset('ClubTemplate')->find($id);
137	$template->param( club_template => $club_template );
138
139	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

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

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/clubs/clubs.tt (+206 lines)
		1	[% USE EncodeUTF8 %]
		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="[% themelang %]/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	"aoColumnDefs": [
		15	{ "aTargets": [ -1, -2 ], "bSortable": false, "bSearchable": false },
		16	]
		17	} ));
		18
		19	cTable = $('#clubs-table').dataTable($.extend(true, {}, dataTablesDefaults, {
		20	"aoColumnDefs": [
		21	{ "aTargets": [ -1, -2 ], "bSortable": false, "bSearchable": false },
		22	]
		23	} ));
		24	});
		25
		26	function ConfirmDeleteTemplate( id, name, a ) {
		27	if ( confirm( _("Are you sure you want to delete the club template") + name + "?" ) ) {
		28	$.ajax({
		29	type: "POST",
		30	url: '/cgi-bin/koha/svc/club/template/delete',
		31	data: { id: id },
		32	success: function( data ) {
		33	if ( data.success ) {
		34	tTable.fnDeleteRow(a.closest("tr")[0]);
		35	} else {
		36	alert(_("Unable to delete template!"));
		37	}
		38	},
		39	dataType: 'json'
		40	});
		41	}
		42	}
		43
		44	function ConfirmDeleteClub( id, name, a ) {
		45	if ( confirm( _("Are you sure you want to delete the club ") + name + "?" ) ) {
		46	$.ajax({
		47	type: "POST",
		48	url: '/cgi-bin/koha/svc/club/delete',
		49	data: { id: id },
		50	success: function( data ) {
		51	if ( data.success ) {
		52	cTable.fnDeleteRow(a.closest("tr")[0]);
		53	} else {
		54	alert(_("Unable to delete club!"));
		55	}
		56	},
		57	dataType: 'json'
		58	});
		59	}
		60	}
		61	//]]>
		62	</script>
		63
		64	</head>
65
66	<body>
67	[% INCLUDE 'header.inc' %]
68	[% INCLUDE 'cat-search.inc' %]
69	<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>
70
71	<div class="yui-t7">
72	<div class="yui-main">
73	<h1>Patron clubs</h1>
74
75
76	<h3>Club templates</h3>
77
78	[% IF CAN_user_clubs_edit_templates %]
79	<div class="btn-group">
80	<a class="btn btn-small" href="templates-add-modify.pl"><i class="icon-plus"></i> New club template</a>
81	</div>
82	[% END %]
83
84	<table id="club-templates-table">
85	<thead>
86	<tr>
87	<th>Name</th>
88	<th>Description</th>
89	<th>Public enrollment</th>
90	<th>Email required</th>
91	<th>Branch</th>
92	<th> </th>
93	<th> </th>
94	</tr>
95	</thead>
96
97	<tbody>
98	[% FOREACH t IN club_templates %]
99	<tr>
100	<td>[% t.name \| $EncodeUTF8 %]</td>
101	<td>[% t.description \| $EncodeUTF8 %]</td>
102	<td>
103	[% IF t.is_enrollable_from_opac %]
104	Yes
105	[% ELSE %]
106	No
107	[% END %]
108	</td>
109	<td>
110	[% IF t.is_email_required %]
111	Yes
112	[% ELSE %]
113	No
114	[% END %]
115	</td>
116	<td>[% t.branch.branchname \| $EncodeUTF8 %]</td>
117	<td>
118	[% IF CAN_user_clubs_edit_templates && t.is_deletable && ( CAN_user_superlibrarian \|\| t.branch.branchcode == Koha.UserEnv('branch') ) %]
119	<a class="btn btn-mini" href="templates-add-modify.pl?id=[% t.id %]">
120	<i class="icon-edit"></i> Edit
121	</a>
122	[% END %]
123	</td>
124	<td>
125	[% IF CAN_user_clubs_edit_templates && t.is_deletable && ( CAN_user_superlibrarian \|\| t.branch.branchcode == Koha.UserEnv('branch') ) %]
126	<a class="btn btn-mini" href="#" onclick='ConfirmDeleteTemplate([% t.id %], "[% t.name \| html %]", $(this) ); return false;'>
127	<i class="icon-trash"></i> Delete
128	</a>
129	[% END %]
130	</td>
131	</tr>
132	[% END %]
133	</tbody>
134	</table>
135
136	<h3>Clubs</h3>
137
138	[% IF CAN_user_clubs_edit_clubs %]
139	<div class="btn-group">
140	<div class="btn-group">
141	<button class="btn btn-small dropdown-toggle" data-toggle="dropdown"><i class="icon-plus"></i> New club <span class="caret"></span></button>
142	<ul class="dropdown-menu">
143	[% FOREACH t IN club_templates %]
144	<li><a href="/cgi-bin/koha/clubs/clubs-add-modify.pl?club_template_id=[% t.id %]">[% t.name %]</a></li>
145	[% END %]
146	</ul>
147	</div>
148	</div>
149	[% END %]
150
151	<table id="clubs-table">
152	<thead>
153	<tr>
154	<th>Name</th>
155	<th>Template</th>
156	<th>Description</th>
157	<th>Public enrollment</th>
158	<th>Email required</th>
159	<th>Branch</th>
160	<th> </th>
161	<th> </th>
162	</tr>
163	</thead>
164
165	<tbody>
166	[% FOREACH c IN clubs %]
167	<tr>
168	<td>[% c.name \| $EncodeUTF8 %]</td>
169	<td>[% c.club_template.name \| $EncodeUTF8 %]</td>
170	<td>[% c.description \| $EncodeUTF8 %]</td>
171	<td>
172	[% IF c.club_template.is_enrollable_from_opac %]
173	Yes
174	[% ELSE %]
175	No
176	[% END %]
177	</td>
178	<td>
179	[% IF c.club_template.is_email_required %]
180	Yes
181	[% ELSE %]
182	No
183	[% END %]
184	</td>
185	<td>[% c.branch.branchname \| $EncodeUTF8 %]</td>
186	<td>
187	[% IF CAN_user_clubs_edit_clubs && ( CAN_user_superlibrarian \|\| c.branch.branchcode == Koha.UserEnv('branch') ) %]
188	<a class="btn btn-mini" href="clubs-add-modify.pl?id=[% c.id %]">
189	<i class="icon-edit"></i> Edit
190	</a>
191	[% END %]
192	</td>
193	<td>
194	[% IF CAN_user_clubs_edit_clubs && ( CAN_user_superlibrarian \|\| c.branch.branchcode == Koha.UserEnv('branch') ) %]
195	<a class="btn btn-mini" href="#" onclick='ConfirmDeleteClub([% c.id %], "[% c.name \| html %]", $(this) ); return false;'>
196	<i class="icon-trash"></i> Delete
197	</a>
198	[% END %]
199	</td>
200	</tr>
201	[% END %]
202	</tbody>
203	</table>
204	</div>
205	</div>
206	[% INCLUDE 'intranet-bottom.inc' %]

Line 0 Link Here

(-)a/opac/clubs/clubs-tab.pl (+67 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
		28	my $cgi = new CGI;
		29
		30	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
		31	{
		32	template_name => "clubs/clubs-tab.tt",
		33	query => $cgi,
		34	type => "opac",
		35	authnotrequired => 0,
		36	}
		37	);
		38
		39	my $borrowernumber = $cgi->param('borrowernumber');
		40
		41	my $schema = Koha::Database->new()->schema();
		42
		43	my $borrower = $schema->resultset('Borrower')->find($borrowernumber);
		44
		45	my @enrollments = $schema->resultset("ClubEnrollment")->search(
		46	{
		47	borrower => $borrowernumber,
		48	date_canceled => undef,
		49	},
		50	{ prefetch => 'club' }
		51	);
		52
		53	my @clubs = $schema->resultset("Club")->search(
		54	{
		55	'me.id' => { -not_in => [ map { $_->club()->id() } @enrollments ] },
		56	'club_template.is_enrollable_from_opac' => 1,
		57	},
		58	{ prefetch => 'club_template' }
		59	);
		60
		61	$template->param(
		62	enrollments => \@enrollments,
		63	clubs => \@clubs,
		64	borrower => $borrower,
65	);
66
67	output_html_with_http_headers( $cgi, $cookie, $template->output );

Line 0 Link Here

(-)a/opac/clubs/enroll.pl (+51 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
	28	my $cgi = new CGI;
	29
	30	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
	31	{
	32	template_name => "clubs/enroll.tt",
	33	query => $cgi,
	34	type => "opac",
	35	authnotrequired => 0,
	36	}
	37	);
	38
	39	my $id = $cgi->param('id');
	40	my $borrowernumber = $cgi->param('borrowernumber');
	41
	42	my $schema = Koha::Database->new()->schema();
	43
	44	my $club = $schema->resultset("Club")->find($id);
	45
	46	$template->param(
	47	club => $club,
	48	borrowernumber => $borrowernumber,
	49	);
	50
	51	output_html_with_http_headers( $cgi, $cookie, $template->output );

Lines 35-40 use C4::Items; Link Here

(-)a/opac/opac-user.pl (-3 / +4 lines)
35	use C4::Letters;	35	use C4::Letters;
36	use C4::Branch; # GetBranches	36	use C4::Branch; # GetBranches
37	use Koha::DateUtils;	37	use Koha::DateUtils;
		38	use Koha::Database;
		39
		40	my $schema = Koha::Database->new()->schema();
38		41
39	use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE';	42	use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE';
40		43
Lines 383-394 $template->param( Link Here
383	patronupdate => $patronupdate,	386	patronupdate => $patronupdate,
384	OpacRenewalAllowed => C4::Context->preference("OpacRenewalAllowed"),	387	OpacRenewalAllowed => C4::Context->preference("OpacRenewalAllowed"),
385	userview => 1,	388	userview => 1,
386	);
387
388	$template->param(
389	SuspendHoldsOpac => C4::Context->preference('SuspendHoldsOpac'),	389	SuspendHoldsOpac => C4::Context->preference('SuspendHoldsOpac'),
390	AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),	390	AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),
391	OpacHoldNotes => C4::Context->preference('OpacHoldNotes'),	391	OpacHoldNotes => C4::Context->preference('OpacHoldNotes'),
		392	borrower => $schema->resultset('Borrower')->find($borrowernumber),
392	);	393	);
393		394
394	output_html_with_http_headers $query, $cookie, $template->output;	395	output_html_with_http_headers $query, $cookie, $template->output;

Line 0 Link Here

(-)a/opac/svc/club/cancel_enrollment (+52 lines)
	1	#!/usr/bin/perl
	2
	3	# Copyright 2014 ByWater Solutions
	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 2 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
	21	use Modern::Perl;
	22
	23	use CGI;
	24	use JSON qw(to_json);
	25
	26	use C4::Auth qw(check_cookie_auth);
	27	use Koha::Database;
	28
	29	my $cgi = new CGI;
	30
	31	my ( $auth_status, $sessionID ) =
	32	check_cookie_auth( $cgi->cookie('CGISESSID') );
	33	if ( $auth_status ne "ok" ) {
	34	exit 0;
	35	}
	36
	37	my $borrowernumber = C4::Context->userenv->{'number'};
	38
	39	my $id = $cgi->param('id');
	40
	41	my $schema = Koha::Database->new()->schema();
	42
	43	my $enrollment = $schema->resultset('ClubEnrollment')->find($id);
	44
	45	if ( $enrollment && $enrollment->get_column('borrower') == $borrowernumber ) {
	46	$enrollment->update( { date_canceled => \'NOW()' } );
	47	}
	48
	49	binmode STDOUT, ':encoding(UTF-8)';
	50	print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );
	51
	52	print to_json( { success => $enrollment ? 1 : 0 } );

Line 0 Link Here

(-)a/opac/svc/club/enroll (+79 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2014 ByWater Solutions
		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 2 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
		21	use Modern::Perl;
		22
		23	use CGI;
		24	use JSON qw(to_json);
		25
		26	use C4::Auth qw(check_cookie_auth);
		27	use Koha::Database;
		28
		29	my $cgi = new CGI;
		30
		31	my ( $auth_status, $sessionID ) =
		32	check_cookie_auth( $cgi->cookie('CGISESSID') );
		33	if ( $auth_status ne "ok" ) {
		34	exit 0;
		35	}
		36
		37	my $borrowernumber = C4::Context->userenv->{'number'};
		38
		39	my $id = $cgi->param('id');
		40
		41	my $enrollment;
		42	if ( $borrowernumber && $id ) {
		43	my $schema = Koha::Database->new()->schema();
		44
		45	my $club = $schema->resultset('Club')->find($id);
		46
		47	if ( $club->club_template()->is_enrollable_from_opac() ) {
		48	$enrollment = $schema->resultset('ClubEnrollment')->create(
		49	{
		50	club => $club->id(),
		51	borrower => $borrowernumber,
		52	date_enrolled => \'NOW()',
		53	date_created => \'NOW()',
		54	branch => C4::Context->userenv
		55	? C4::Context->userenv->{'branch'}
		56	: undef,
		57	}
		58	);
		59
		60	my @enrollment_fields =
		61	$club->club_template()->club_template_enrollment_fields();
		62
		63	foreach my $e (@enrollment_fields) {
		64	my $club_enrollment_field =
65	$schema->resultset('ClubEnrollmentField')->create(
66	{
67	club_enrollment => $enrollment->id(),
68	club_template_enrollment_field => $e->id(),
69	value => $cgi->param( $e->id() ),
70	}
71	);
72	}
73	}
74	}
75
76	binmode STDOUT, ':encoding(UTF-8)';
77	print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );
78
79	print to_json( { success => $enrollment ? 1 : 0 } );

Line 0 Link Here

(-)a/svc/club/cancel_enrollment (+48 lines)
	1	#!/usr/bin/perl
	2
	3	# Copyright 2014 ByWater Solutions
	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 2 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
	21	use Modern::Perl;
	22
	23	use CGI;
	24	use JSON qw(to_json);
	25
	26	use C4::Auth qw(check_cookie_auth);
	27	use Koha::Database;
	28
	29	my $cgi = new CGI;
	30
	31	my ( $auth_status, $sessionID ) =
	32	check_cookie_auth( $cgi->cookie('CGISESSID'), { clubs => 'enroll' } );
	33	if ( $auth_status ne "ok" ) {
	34	exit 0;
	35	}
	36
	37	my $id = $cgi->param('id');
	38
	39	my $schema = Koha::Database->new()->schema();
	40
	41	my $enrollment =
	42	$schema->resultset('ClubEnrollment')->find($id)
	43	->update( { date_canceled => \'NOW()' } );
	44
	45	binmode STDOUT, ':encoding(UTF-8)';
	46	print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );
	47
	48	print to_json( { success => $enrollment ? 1 : 0 } );

Line 0 Link Here

(-)a/svc/club/delete (+50 lines)
	1	#!/usr/bin/perl
	2
	3	# Copyright 2014 ByWater Solutions
	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 2 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
	21	use Modern::Perl;
	22
	23	use CGI;
	24	use JSON qw(to_json);
	25
	26	use C4::Auth qw(check_cookie_auth);
	27	use Koha::Database;
	28
	29	my $cgi = new CGI;
	30
	31	my ( $auth_status, $sessionID ) = check_cookie_auth( $cgi->cookie('CGISESSID'),
	32	{ clubs => 'edit_clubs' } );
	33	if ( $auth_status ne "ok" ) {
	34	exit 0;
	35	}
	36
	37	my $success = 0;
	38
	39	my $id = $cgi->param('id');
	40
	41	my $club =
	42	Koha::Database->new()->schema()->resultset('Club')->find($id);
	43	if ($club) {
	44	$success = $club->delete();
	45	}
	46
	47	binmode STDOUT, ':encoding(UTF-8)';
	48	print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );
	49
	50	print to_json( { success => $success ? 1 : 0 } );

Line 0 Link Here

(-)a/svc/club/enroll (+78 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2014 ByWater Solutions
		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 2 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
		21	use Modern::Perl;
		22
		23	use CGI;
		24	use JSON qw(to_json);
		25
		26	use C4::Auth qw(check_cookie_auth);
		27	use Koha::Database;
		28
		29	my $cgi = new CGI;
		30
		31	my ( $auth_status, $sessionID ) =
		32	check_cookie_auth( $cgi->cookie('CGISESSID'), { clubs => 'enroll' } );
		33	if ( $auth_status ne "ok" ) {
		34	exit 0;
		35	}
		36
		37	my $id = $cgi->param('id');
		38	my $borrowernumber = $cgi->param('borrowernumber');
		39
		40	my $schema = Koha::Database->new()->schema();
		41
		42	my $club = $schema->resultset('Club')->find($id);
		43
		44	my $enrollment;
		45	if ($club) {
		46	$enrollment = $schema->resultset('ClubEnrollment')->create(
		47	{
		48	club => $club->id(),
		49	borrower => $borrowernumber,
		50	date_enrolled => \'NOW()',
		51	date_created => \'NOW()',
		52	branch => C4::Context->userenv
		53	? C4::Context->userenv->{'branch'}
		54	: undef,
		55	}
		56	);
		57
		58	if ($enrollment) {
		59	my @enrollment_fields =
		60	$club->club_template()->club_template_enrollment_fields();
		61
		62	foreach my $e (@enrollment_fields) {
		63	my $club_enrollment_field =
		64	$schema->resultset('ClubEnrollmentField')->create(
65	{
66	club_enrollment => $enrollment->id(),
67	club_template_enrollment_field => $e->id(),
68	value => $cgi->param( $e->id() ),
69	}
70	);
71	}
72	}
73	}
74
75	binmode STDOUT, ':encoding(UTF-8)';
76	print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );
77
78	print to_json( { success => $enrollment ? 1 : 0 } );

Line 0 Link Here

(-)a/svc/club/template/delete (-1 / +50 lines)
0	-	1	#!/usr/bin/perl
		2
		3	# Copyright 2014 ByWater Solutions
		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 2 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
		21	use Modern::Perl;
		22
		23	use CGI;
		24	use JSON qw(to_json);
		25
		26	use C4::Auth qw(check_cookie_auth);
		27	use Koha::Database;
		28
		29	my $cgi = new CGI;
		30
		31	my ( $auth_status, $sessionID ) = check_cookie_auth( $cgi->cookie('CGISESSID'),
		32	{ clubs => 'edit_templates' } );
		33	if ( $auth_status ne "ok" ) {
		34	exit 0;
		35	}
		36
		37	my $success = 0;
		38
		39	my $id = $cgi->param('id');
		40
		41	my $club_template =
		42	Koha::Database->new()->schema()->resultset('ClubTemplate')->find($id);
		43	if ($club_template) {
		44	$success = $club_template->delete();
		45	}
		46
		47	binmode STDOUT, ':encoding(UTF-8)';
		48	print $cgi->header( -type => 'text/plain', -charset => 'UTF-8' );
		49
		50	print to_json( { success => $success ? 1 : 0 } );