Attachment #30456 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",
  { 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-07-11 09:26:55
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:TIft8zTHaGV8X/T6uhW8uw

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 572-577 $template->param( picture => 1 ) if $picture; Link Here

(-)a/circ/circulation.pl (+3 lines)
572		572
573	my $canned_notes = GetAuthorisedValues("BOR_NOTES");	573	my $canned_notes = GetAuthorisedValues("BOR_NOTES");
574		574
		575	my $schema = Koha::Database->new()->schema();
		576
575	$template->param(	577	$template->param(
576	debt_confirmed => $debt_confirmed,	578	debt_confirmed => $debt_confirmed,
577	SpecifyDueDate => $duedatespec_allow,	579	SpecifyDueDate => $duedatespec_allow,
Lines 581-586 $template->param( Link Here
581	export_with_csv_profile => C4::Context->preference("ExportWithCsvProfile"),	583	export_with_csv_profile => C4::Context->preference("ExportWithCsvProfile"),
582	canned_bor_notes_loop => $canned_notes,	584	canned_bor_notes_loop => $canned_notes,
583	debarments => GetDebarments({ borrowernumber => $borrowernumber }),	585	debarments => GetDebarments({ borrowernumber => $borrowernumber }),
		586	borrower => $schema->resultset('Borrower')->find( $borrowernumber ),
584	);	587	);
585		588
586	output_html_with_http_headers $query, $cookie, $template->output;	589	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	;




  KEY `record_id` (`record_id`)
) 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 662-667 No patron matched <span class="ex">[% message %]</span> Link Here
662	[% END %]	667	[% END %]
663	</li>	668	</li>
664		669
		670	[% IF CAN_user_clubs && ( borrower.ClubsEnrolledCount \|\| borrower.ClubsEnrollableCount ) %]
		671	<li>
		672	<a id="clubs-tab-link" href="#clubs-tab">
		673	Clubs ([% borrower.ClubsEnrolledCount %]/[% borrower.ClubsEnrollableCount %])
		674	</a>
		675	</li>
		676	[% END %]
		677
665	[% IF relatives_issues_count %]	678	[% IF relatives_issues_count %]
666	<li><a id="relatives-issues-tab" href="#relatives-issues">Relatives' checkouts</a></li>	679	<li><a id="relatives-issues-tab" href="#relatives-issues">Relatives' checkouts</a></li>
667	[% END %]	680	[% END %]
Lines 737-742 No patron matched <span class="ex">[% message %]</span> Link Here
737	</div>	750	</div>
738	[% END %]	751	[% END %]
739		752
		753	[% IF CAN_user_clubs %]
		754	<div id="clubs-tab">
		755	Loading...
		756	</div>
		757	[% END %]
		758
740	[% INCLUDE borrower_debarments.inc %]	759	[% INCLUDE borrower_debarments.inc %]
741		760
742	<div id="reserves">	761	<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 1473-1492 addresses. Link Here

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

Lines 3422-3427 CREATE TABLE IF NOT EXISTS `misc_files` ( -- miscellaneous files attached to rec Link Here

(-)a/installer/data/mysql/kohastructure.sql (+173 lines)
3422	KEY `record_id` (`record_id`)	3422	KEY `record_id` (`record_id`)
3423	) ENGINE=InnoDB DEFAULT CHARSET=utf8;	3423	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3424		3424
		3425	--
		3426	-- Table structure for table 'clubs'
		3427	--
		3428
		3429	CREATE TABLE clubs (
		3430	id int(11) NOT NULL AUTO_INCREMENT,
		3431	club_template int(11) NOT NULL,
		3432	`name` tinytext NOT NULL,
		3433	description text,
		3434	date_start date DEFAULT NULL,
		3435	date_end date DEFAULT NULL,
		3436	branch varchar(11) DEFAULT NULL,
		3437	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		3438	date_updated timestamp NULL DEFAULT NULL,
		3439	PRIMARY KEY (id),
		3440	KEY club_template (club_template),
		3441	KEY branch (branch)
		3442	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		3443
		3444	-- --------------------------------------------------------
		3445
		3446	--
		3447	-- Table structure for table 'club_enrollments'
		3448	--
		3449
		3450	CREATE TABLE club_enrollments (
		3451	id int(11) NOT NULL AUTO_INCREMENT,
		3452	club int(11) NOT NULL,
		3453	borrower int(11) NOT NULL,
		3454	date_enrolled timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		3455	date_canceled timestamp NULL DEFAULT NULL,
		3456	date_created timestamp NOT NULL DEFAULT '0000-00-00 00:00:00',
		3457	date_updated timestamp NULL DEFAULT NULL,
		3458	branch varchar(11) DEFAULT NULL,
		3459	PRIMARY KEY (id),
		3460	KEY club (club),
		3461	KEY borrower (borrower),
		3462	KEY branch (branch)
		3463	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		3464
		3465	-- --------------------------------------------------------
		3466
		3467	--
		3468	-- Table structure for table 'club_enrollment_fields'
		3469	--
		3470
		3471	CREATE TABLE club_enrollment_fields (
		3472	id int(11) NOT NULL AUTO_INCREMENT,
		3473	club_enrollment int(11) NOT NULL,
		3474	club_template_enrollment_field int(11) NOT NULL,
		3475	`value` text NOT NULL,
		3476	PRIMARY KEY (id),
		3477	KEY club_enrollment (club_enrollment),
		3478	KEY club_template_enrollment_field (club_template_enrollment_field),
		3479	KEY club_template_enrollment_field_2 (club_template_enrollment_field)
		3480	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		3481
		3482	-- --------------------------------------------------------
		3483
		3484	--
		3485	-- Table structure for table 'club_fields'
		3486	--
		3487
		3488	CREATE TABLE club_fields (
3489	id int(11) NOT NULL AUTO_INCREMENT,
3490	club_template_field int(11) NOT NULL,
3491	club int(11) NOT NULL,
3492	`value` text,
3493	PRIMARY KEY (id),
3494	KEY club_template_field (club_template_field,club),
3495	KEY club (club)
3496	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3497
3498	-- --------------------------------------------------------
3499
3500	--
3501	-- Table structure for table 'club_templates'
3502	--
3503
3504	CREATE TABLE club_templates (
3505	id int(11) NOT NULL AUTO_INCREMENT,
3506	`name` tinytext NOT NULL,
3507	description text,
3508	is_enrollable_from_opac tinyint(1) NOT NULL DEFAULT '0',
3509	is_email_required tinyint(1) NOT NULL DEFAULT '0',
3510	branch varchar(10) CHARACTER SET utf8 DEFAULT NULL,
3511	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
3512	date_updated timestamp NULL DEFAULT NULL,
3513	is_deletable tinyint(1) NOT NULL DEFAULT '1',
3514	PRIMARY KEY (id),
3515	KEY branch (branch)
3516	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3517
3518	-- --------------------------------------------------------
3519
3520	--
3521	-- Table structure for table 'club_template_enrollment_fields'
3522	--
3523
3524	CREATE TABLE club_template_enrollment_fields (
3525	id int(11) NOT NULL AUTO_INCREMENT,
3526	club_template int(11) NOT NULL,
3527	`name` tinytext NOT NULL,
3528	description text,
3529	authorised_value_category varchar(16) DEFAULT NULL,
3530	PRIMARY KEY (id),
3531	KEY club_template (club_template),
3532	KEY club_template_2 (club_template)
3533	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3534
3535	-- --------------------------------------------------------
3536
3537	--
3538	-- Table structure for table 'club_template_fields'
3539	--
3540
3541	CREATE TABLE club_template_fields (
3542	id int(11) NOT NULL AUTO_INCREMENT,
3543	club_template int(11) NOT NULL,
3544	`name` tinytext NOT NULL,
3545	description text,
3546	authorised_value_category varchar(16) DEFAULT NULL,
3547	PRIMARY KEY (id),
3548	KEY club_template (club_template)
3549	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
3550
3551	--
3552	-- Constraints for table `clubs`
3553	--
3554	ALTER TABLE `clubs`
3555	ADD CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
3556	ADD CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branch) REFERENCES branches (branchcode);
3557
3558	--
3559	-- Constraints for table `club_enrollments`
3560	--
3561	ALTER TABLE `club_enrollments`
3562	ADD CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
3563	ADD CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrower) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
3564	ADD CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;
3565
3566	--
3567	-- Constraints for table `club_enrollment_fields`
3568	--
3569	ALTER TABLE `club_enrollment_fields`
3570	ADD CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
3571	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;
3572
3573	--
3574	-- Constraints for table `club_fields`
3575	--
3576	ALTER TABLE `club_fields`
3577	ADD CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
3578	ADD CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE;
3579
3580	--
3581	-- Constraints for table `club_templates`
3582	--
3583	ALTER TABLE `club_templates`
3584	ADD CONSTRAINT club_templates_ibfk_1 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;
3585
3586	--
3587	-- Constraints for table `club_template_enrollment_fields`
3588	--
3589	ALTER TABLE `club_template_enrollment_fields`
3590	ADD CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;
3591
3592	--
3593	-- Constraints for table `club_template_fields`
3594	--
3595	ALTER TABLE `club_template_fields`
3596	ADD CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;
3597
3425	/!40103 SET TIME_ZONE=@OLD_TIME_ZONE /;	3598	/!40103 SET TIME_ZONE=@OLD_TIME_ZONE /;
3426	/!40101 SET SQL_MODE=@OLD_SQL_MODE /;	3599	/!40101 SET SQL_MODE=@OLD_SQL_MODE /;
3427	/!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS /;	3600	/!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS /;

Lines 8589-8594 if ( CheckVersion($DBversion) ) { Link Here

(-)a/installer/data/mysql/updatedatabase.pl (+148 lines)
8589	SetVersion ($DBversion);	8589	SetVersion ($DBversion);
8590	}	8590	}
8591		8591
		8592	$DBversion = "3.17.00.XXX";
		8593	if ( CheckVersion($DBversion) ) {
		8594	$dbh->do("INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES ('20', 'clubs', 'Patron clubs', '0')");
		8595
		8596	$dbh->do("
		8597	CREATE TABLE clubs (
		8598	id int(11) NOT NULL AUTO_INCREMENT,
		8599	club_template int(11) NOT NULL,
		8600	`name` tinytext NOT NULL,
		8601	description text,
		8602	date_start date DEFAULT NULL,
		8603	date_end date DEFAULT NULL,
		8604	branch varchar(11) DEFAULT NULL,
		8605	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		8606	date_updated timestamp NULL DEFAULT NULL,
		8607	PRIMARY KEY (id),
		8608	KEY club_template (club_template),
		8609	KEY branch (branch)
		8610	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		8611	");
		8612
		8613	$dbh->do("
		8614	CREATE TABLE club_enrollments (
		8615	id int(11) NOT NULL AUTO_INCREMENT,
		8616	club int(11) NOT NULL,
		8617	borrower int(11) NOT NULL,
		8618	date_enrolled timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		8619	date_canceled timestamp NULL DEFAULT NULL,
		8620	date_created timestamp NOT NULL DEFAULT '0000-00-00 00:00:00',
		8621	date_updated timestamp NULL DEFAULT NULL,
		8622	branch varchar(11) DEFAULT NULL,
		8623	PRIMARY KEY (id),
		8624	KEY club (club),
		8625	KEY borrower (borrower),
		8626	KEY branch (branch)
		8627	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		8628	");
		8629
		8630	$dbh->do("
		8631	CREATE TABLE club_enrollment_fields (
		8632	id int(11) NOT NULL AUTO_INCREMENT,
		8633	club_enrollment int(11) NOT NULL,
		8634	club_template_enrollment_field int(11) NOT NULL,
		8635	`value` text NOT NULL,
		8636	PRIMARY KEY (id),
		8637	KEY club_enrollment (club_enrollment),
		8638	KEY club_template_enrollment_field (club_template_enrollment_field),
		8639	KEY club_template_enrollment_field_2 (club_template_enrollment_field)
		8640	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		8641	");
		8642
		8643	$dbh->do("
		8644	CREATE TABLE club_fields (
		8645	id int(11) NOT NULL AUTO_INCREMENT,
		8646	club_template_field int(11) NOT NULL,
		8647	club int(11) NOT NULL,
		8648	`value` text,
		8649	PRIMARY KEY (id),
		8650	KEY club_template_field (club_template_field,club),
		8651	KEY club (club)
		8652	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		8653	");
		8654
		8655	$dbh->do("
8656	CREATE TABLE club_templates (
8657	id int(11) NOT NULL AUTO_INCREMENT,
8658	`name` tinytext NOT NULL,
8659	description text,
8660	is_enrollable_from_opac tinyint(1) NOT NULL DEFAULT '0',
8661	is_email_required tinyint(1) NOT NULL DEFAULT '0',
8662	branch varchar(10) CHARACTER SET utf8 DEFAULT NULL,
8663	date_created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
8664	date_updated timestamp NULL DEFAULT NULL,
8665	is_deletable tinyint(1) NOT NULL DEFAULT '1',
8666	PRIMARY KEY (id),
8667	KEY branch (branch)
8668	) ENGINE=InnoDB DEFAULT CHARSET=utf8 DEFAULT;
8669	");
8670
8671	$dbh->do("
8672	CREATE TABLE club_template_enrollment_fields (
8673	id int(11) NOT NULL AUTO_INCREMENT,
8674	club_template int(11) NOT NULL,
8675	`name` tinytext NOT NULL,
8676	description text,
8677	authorised_value_category varchar(16) DEFAULT NULL,
8678	PRIMARY KEY (id),
8679	KEY club_template (club_template),
8680	KEY club_template_2 (club_template)
8681	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8682	");
8683
8684	$dbh->do("
8685	CREATE TABLE club_template_fields (
8686	id int(11) NOT NULL AUTO_INCREMENT,
8687	club_template int(11) NOT NULL,
8688	`name` tinytext NOT NULL,
8689	description text,
8690	authorised_value_category varchar(16) DEFAULT NULL,
8691	PRIMARY KEY (id),
8692	KEY club_template (club_template)
8693	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
8694	");
8695
8696	$dbh->do("
8697	ALTER TABLE `clubs`
8698	ADD CONSTRAINT clubs_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE,
8699	ADD CONSTRAINT clubs_ibfk_2 FOREIGN KEY (branch) REFERENCES branches (branchcode);
8700	");
8701
8702	$dbh->do("
8703	ALTER TABLE `club_enrollments`
8704	ADD CONSTRAINT club_enrollments_ibfk_1 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE,
8705	ADD CONSTRAINT club_enrollments_ibfk_2 FOREIGN KEY (borrower) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE,
8706	ADD CONSTRAINT club_enrollments_ibfk_3 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;
8707	");
8708
8709	$dbh->do("
8710	ALTER TABLE `club_enrollment_fields`
8711	ADD CONSTRAINT club_enrollment_fields_ibfk_1 FOREIGN KEY (club_enrollment) REFERENCES club_enrollments (id) ON DELETE CASCADE ON UPDATE CASCADE,
8712	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;
8713	");
8714
8715	$dbh->do("
8716	ALTER TABLE `club_fields`
8717	ADD CONSTRAINT club_fields_ibfk_3 FOREIGN KEY (club_template_field) REFERENCES club_template_fields (id) ON DELETE CASCADE ON UPDATE CASCADE,
8718	ADD CONSTRAINT club_fields_ibfk_4 FOREIGN KEY (club) REFERENCES clubs (id) ON DELETE CASCADE ON UPDATE CASCADE;
8719	");
8720
8721	$dbh->do("
8722	ALTER TABLE `club_templates`
8723	ADD CONSTRAINT club_templates_ibfk_1 FOREIGN KEY (branch) REFERENCES branches (branchcode) ON DELETE SET NULL ON UPDATE CASCADE;
8724	");
8725
8726	$dbh->do("
8727	ALTER TABLE `club_template_enrollment_fields`
8728	ADD CONSTRAINT club_template_enrollment_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;
8729	");
8730
8731	$dbh->do("
8732	ALTER TABLE `club_template_fields`
8733	ADD CONSTRAINT club_template_fields_ibfk_1 FOREIGN KEY (club_template) REFERENCES club_templates (id) ON DELETE CASCADE ON UPDATE CASCADE;
8734	");
8735
8736	print "Upgrade to $DBversion done (Bug 12461 - Add patron clubs feature)\n";
8737	SetVersion ($DBversion);
8738	}
8739
8592	=head1 FUNCTIONS	8740	=head1 FUNCTIONS
8593		8741
8594	=head2 TableExists($table)	8742	=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 } );