@@ -, +, @@ --- C4/Auth.pm | 4 +- C4/CourseReserves.pm | 1116 ++++++++++++++++++++ C4/Koha.pm | 22 +- Koha/Template/Plugin/AuthorisedValues.pm | 34 + Koha/Template/Plugin/Branches.pm | 37 + Koha/Template/Plugin/ItemTypes.pm | 38 + Makefile.PL | 1 + admin/authorised_values.pl | 2 +- catalogue/detail.pl | 5 + course_reserves/add_items.pl | 97 ++ course_reserves/course-details.pl | 67 ++ course_reserves/course-reserves.pl | 54 + course_reserves/course.pl | 55 + course_reserves/mod_course.pl | 72 ++ installer/data/mysql/de-DE/mandatory/userflags.sql | 1 + .../data/mysql/de-DE/mandatory/userpermissions.sql | 5 +- installer/data/mysql/en/mandatory/userflags.sql | 1 + .../data/mysql/en/mandatory/userpermissions.sql | 5 +- installer/data/mysql/es-ES/mandatory/userflags.sql | 1 + .../data/mysql/es-ES/mandatory/userpermissions.sql | 5 +- .../data/mysql/fr-FR/1-Obligatoire/userflags.sql | 1 + .../mysql/fr-FR/1-Obligatoire/userpermissions.sql | 6 +- installer/data/mysql/it-IT/necessari/userflags.sql | 1 + .../data/mysql/it-IT/necessari/userpermissions.sql | 5 +- installer/data/mysql/kohastructure.sql | 102 ++ .../data/mysql/nb-NO/1-Obligatorisk/userflags.sql | 1 + .../mysql/nb-NO/1-Obligatorisk/userpermissions.sql | 5 +- installer/data/mysql/pl-PL/mandatory/userflags.sql | 1 + .../data/mysql/pl-PL/mandatory/userpermissions.sql | 5 +- .../ru-RU/mandatory/permissions_and_user_flags.sql | 8 +- installer/data/mysql/sysprefs.sql | 1 + .../uk-UA/mandatory/permissions_and_user_flags.sql | 8 +- installer/data/mysql/updatedatabase.pl | 92 ++- .../intranet-tmpl/prog/en/css/staff-global.css | 2 +- .../intranet-tmpl/prog/en/includes/header.inc | 3 + koha-tmpl/intranet-tmpl/prog/en/js/staff-global.js | 29 +- .../en/modules/admin/preferences/circulation.pref | 7 + .../prog/en/modules/catalogue/detail.tt | 34 + .../prog/en/modules/cataloguing/additem.tt | 2 +- .../en/modules/course_reserves/add_items-step1.tt | 63 ++ .../en/modules/course_reserves/add_items-step2.tt | 133 +++ .../en/modules/course_reserves/course-details.tt | 185 ++++ .../en/modules/course_reserves/course-reserves.tt | 119 +++ .../prog/en/modules/course_reserves/course.tt | 205 ++++ .../prog/en/modules/members/mancredit.tt | 2 +- .../prog/en/modules/members/maninvoice.tt | 2 +- .../prog/en/modules/members/memberentrygen.tt | 2 +- koha-tmpl/opac-tmpl/ccsr/en/includes/masthead.inc | 1 + koha-tmpl/opac-tmpl/prog/en/includes/masthead.inc | 1 + .../prog/en/modules/opac-course-details.tt | 63 ++ .../prog/en/modules/opac-course-reserves.tt | 62 ++ koha-tmpl/opac-tmpl/prog/en/modules/opac-detail.tt | 31 + opac/opac-course-details.pl | 60 ++ opac/opac-course-reserves.pl | 51 + opac/opac-detail.pl | 7 + 55 files changed, 2876 insertions(+), 46 deletions(-) create mode 100644 C4/CourseReserves.pm create mode 100644 Koha/Template/Plugin/AuthorisedValues.pm create mode 100644 Koha/Template/Plugin/Branches.pm create mode 100644 Koha/Template/Plugin/ItemTypes.pm create mode 100755 course_reserves/add_items.pl create mode 100755 course_reserves/course-details.pl create mode 100755 course_reserves/course-reserves.pl create mode 100755 course_reserves/course.pl create mode 100755 course_reserves/mod_course.pl create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/add_items-step1.tt create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/add_items-step2.tt create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/course-details.tt create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/course-reserves.tt create mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/course.tt create mode 100644 koha-tmpl/opac-tmpl/prog/en/modules/opac-course-details.tt create mode 100644 koha-tmpl/opac-tmpl/prog/en/modules/opac-course-reserves.tt create mode 100755 opac/opac-course-details.pl create mode 100755 opac/opac-course-reserves.pl --- a/C4/Auth.pm +++ a/C4/Auth.pm @@ -195,7 +195,7 @@ sub get_template_and_user { $template->param( CAN_user_reserveforothers => 1 ); $template->param( CAN_user_borrow => 1 ); $template->param( CAN_user_editcatalogue => 1 ); - $template->param( CAN_user_updatecharges => 1 ); + $template->param( CAN_user_updatecharges => 1 ); $template->param( CAN_user_acquisition => 1 ); $template->param( CAN_user_management => 1 ); $template->param( CAN_user_tools => 1 ); @@ -203,6 +203,7 @@ sub get_template_and_user { $template->param( CAN_user_serials => 1 ); $template->param( CAN_user_reports => 1 ); $template->param( CAN_user_staffaccess => 1 ); + $template->param( CAN_user_coursereserves => 1 ); foreach my $module (keys %$all_perms) { foreach my $subperm (keys %{ $all_perms->{$module} }) { $template->param( "CAN_user_${module}_${subperm}" => 1 ); @@ -333,6 +334,7 @@ sub get_template_and_user { using_https => $in->{'query'}->https() ? 1 : 0, noItemTypeImages => C4::Context->preference("noItemTypeImages"), marcflavour => C4::Context->preference("marcflavour"), + UseCourseReserves => C4::Context->preference("UseCourseReserves"), ); if ( $in->{'type'} eq "intranet" ) { --- a/C4/CourseReserves.pm +++ a/C4/CourseReserves.pm @@ -0,0 +1,1116 @@ +package C4::CourseReserves; + +# 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., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use Modern::Perl; + +require Exporter; + +use C4::Context; +use C4::Items qw(GetItem ModItem); +use C4::Biblio qw(GetBiblioFromItemNumber); +use C4::Circulation qw(GetOpenIssue); + +use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS); + +BEGIN { + @ISA = qw(Exporter); + @EXPORT = qw( + &GetCourse + &ModCourse + &GetCourses + &DelCourse + + &GetCourseInstructors + &ModCourseInstructors + + &GetCourseItem + &ModCourseItem + + &GetCourseReserve + &ModCourseReserve + &GetCourseReserves + &DelCourseReserve + + &SearchCourses + + &GetItemReservesInfo + ); + + $DEBUG = 0; + @FIELDS = ( 'itype', 'ccode', 'holdingbranch', 'location' ); +} + +=head1 NAME + +C4::CourseReserves - Koha course reserves module + +=head1 SYNOPSIS + +use C4::CourseReserves; + +=head1 DESCRIPTION + +This module deals with course reserves. + +=head1 FUNCTIONS + +=head2 GetCourse + + $course = GetCourse( $course_id ); + +=cut + +sub GetCourse { + my ($course_id) = @_; + warn whoami() . "( $course_id )" if $DEBUG; + + my $query = "SELECT * FROM courses WHERE course_id = ?"; + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare($query); + $sth->execute($course_id); + + my $course = $sth->fetchrow_hashref(); + + $query = " + SELECT b.* FROM course_instructors ci + LEFT JOIN borrowers b ON ( ci.borrowernumber = b.borrowernumber ) + WHERE course_id = ? + "; + $sth = $dbh->prepare($query); + $sth->execute($course_id); + $course->{'instructors'} = $sth->fetchall_arrayref( {} ); + + return $course; +} + +=head2 ModCourse + + ModCourse( [ course_id => $id ] [, course_name => $course_name ] [etc...] ); + +=cut + +sub ModCourse { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $dbh = C4::Context->dbh; + + my $course_id; + if ( defined $params{'course_id'} ) { + $course_id = $params{'course_id'}; + delete $params{'course_id'}; + } + + my @query_keys; + my @query_values; + + my $query; + + $query .= ($course_id) ? ' UPDATE ' : ' INSERT '; + $query .= ' courses SET '; + + foreach my $key ( keys %params ) { + push( @query_keys, "$key=?" ); + push( @query_values, $params{$key} ); + } + $query .= join( ',', @query_keys ); + + if ($course_id) { + $query .= " WHERE course_id = ?"; + push( @query_values, $course_id ); + } + + $dbh->do( $query, undef, @query_values ); + + $course_id = $course_id + || $dbh->last_insert_id( undef, undef, 'courses', 'course_id' ); + + EnableOrDisableCourseItems( + course_id => $course_id, + enabled => $params{'enabled'} + ); + + return $course_id; +} + +=head2 GetCourses + + @courses = GetCourses( [ fieldname => $value ] [, fieldname2 => $value2 ] [etc...] ); + +=cut + +sub GetCourses { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my @query_keys; + my @query_values; + + my $query = " + SELECT courses.* + FROM courses + LEFT JOIN course_reserves ON course_reserves.course_id = courses.course_id + LEFT JOIN course_items ON course_items.ci_id = course_reserves.ci_id + "; + + if ( keys %params ) { + + $query .= " WHERE "; + + foreach my $key ( keys %params ) { + push( @query_keys, " $key LIKE ? " ); + push( @query_values, $params{$key} ); + } + + $query .= join( ' AND ', @query_keys ); + } + + $query .= " GROUP BY courses.course_id "; + + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare($query); + $sth->execute(@query_values); + + my $courses = $sth->fetchall_arrayref( {} ); + + foreach my $c (@$courses) { + $c->{'instructors'} = GetCourseInstructors( $c->{'course_id'} ); + } + + return $courses; +} + +=head2 DelCourse + + DelCourse( $course_id ); + +=cut + +sub DelCourse { + my ($course_id) = @_; + + my $course_reserves = GetCourseReserves( course_id => $course_id ); + + foreach my $res (@$course_reserves) { + DelCourseReserve( cr_id => $res->{'cr_id'} ); + } + + my $query = " + DELETE FROM courses + WHERE course_id = ? + "; + C4::Context->dbh->do( $query, undef, $course_id ); +} + +=head2 EnableOrDisableCourseItems + + EnableOrDisableCourseItems( course_id => $course_id, enabled => $enabled ); + + For each item on reserve for this course, + if the course item has no active course reserves, + swap the fields for the item to make it 'normal' + again. + + enabled => 'yes' to enable course items + enabled => 'no' to disable course items + +=cut + +sub EnableOrDisableCourseItems { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $course_id = $params{'course_id'}; + my $enabled = $params{'enabled'}; + + my $lookfor = ( $enabled eq 'yes' ) ? 'no' : 'yes'; + + return unless ( $course_id && $enabled ); + return unless ( $enabled eq 'yes' || $enabled eq 'no' ); + + my $course_reserves = GetCourseReserves( course_id => $course_id ); + + if ( $enabled eq 'yes' ) { + foreach my $course_reserve (@$course_reserves) { + if ( + CountCourseReservesForItem( + ci_id => $course_reserve->{'ci_id'}, + enabled => 'yes' + ) + ) + { + EnableOrDisableCourseItem( + ci_id => $course_reserve->{'ci_id'}, + enabled => 'yes', + ); + } + } + } + if ( $enabled eq 'no' ) { + foreach my $course_reserve (@$course_reserves) { + unless ( + CountCourseReservesForItem( + ci_id => $course_reserve->{'ci_id'}, + enabled => 'yes' + ) + ) + { + EnableOrDisableCourseItem( + ci_id => $course_reserve->{'ci_id'}, + enabled => 'no', + ); + } + } + } +} + +=head2 EnableOrDisableCourseItem + + EnableOrDisableCourseItem( ci_id => $ci_id, enabled => $enabled ); + + enabled => 'yes' to enable course items + enabled => 'no' to disable course items + +=cut + +sub EnableOrDisableCourseItem { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $ci_id = $params{'ci_id'}; + my $enabled = $params{'enabled'}; + + return unless ( $ci_id && $enabled ); + return unless ( $enabled eq 'yes' || $enabled eq 'no' ); + + my $course_item = GetCourseItem( ci_id => $ci_id ); + + ## We don't want to 'enable' an already enabled item, + ## or disable and already disabled item, + ## as that would cause the fields to swap + if ( $course_item->{'enabled'} ne $enabled ) { + _SwapAllFields($ci_id); + + my $query = " + UPDATE course_items + SET enabled = ? + WHERE ci_id = ? + "; + + C4::Context->dbh->do( $query, undef, $enabled, $ci_id ); + + } + +} + +=head2 GetCourseInstructors + + @borrowernumbers = GetCourseInstructors( $course_id ); + +=cut + +sub GetCourseInstructors { + my ($course_id) = @_; + warn "C4::CourseReserves::GetCourseInstructors( $course_id )" + if $DEBUG; + + my $query = " + SELECT * FROM borrowers + RIGHT JOIN course_instructors ON ( course_instructors.borrowernumber = borrowers.borrowernumber ) + WHERE course_instructors.course_id = ? + "; + + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare($query); + $sth->execute($course_id); + + return $sth->fetchall_arrayref( {} ); +} + +=head2 ModCourseInstructors + + ModCourseInstructors( mode => $mode, course_id => $course_id, [ cardnumbers => $cardnumbers ] OR [ borrowernumbers => $borrowernumbers ); + + $mode can be 'replace', 'add', or 'delete' + + $cardnumbers and $borrowernumbers are both references to arrays + + Use either cardnumbers or borrowernumber, but not both. + +=cut + +sub ModCourseInstructors { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $course_id = $params{'course_id'}; + my $mode = $params{'mode'}; + my $cardnumbers = $params{'cardnumbers'}; + my $borrowernumbers = $params{'borrowernumbers'}; + + return unless ($course_id); + return + unless ( $mode eq 'replace' + || $mode eq 'add' + || $mode eq 'delete' ); + return unless ( $cardnumbers || $borrowernumbers ); + return if ( $cardnumbers && $borrowernumbers ); + + my @cardnumbers = @$cardnumbers if ( ref($cardnumbers) eq 'ARRAY' ); + my @borrowernumbers = @$borrowernumbers + if ( ref($borrowernumbers) eq 'ARRAY' ); + + my $field = (@cardnumbers) ? 'cardnumber' : 'borrowernumber'; + my @fields = (@cardnumbers) ? @cardnumbers : @borrowernumbers; + my $placeholders = join( ',', ('?') x scalar @fields ); + + my $dbh = C4::Context->dbh; + + $dbh->do( "DELETE FROM course_instructors WHERE course_id = ?", + undef, $course_id ) + if ( $mode eq 'replace' ); + + my $query; + + if ( $mode eq 'add' || $mode eq 'replace' ) { + $query = " + INSERT INTO course_instructors ( course_id, borrowernumber ) + SELECT ?, borrowernumber + FROM borrowers + WHERE $field IN ( $placeholders ) + "; + } + else { + $query = " + DELETE FROM course_instructors + WHERE course_id = ? + AND borrowernumber IN ( + SELECT borrowernumber FROM borrowers WHERE $field IN ( $placeholders ) + ) + "; + } + + my $sth = $dbh->prepare($query); + + $sth->execute( $course_id, @fields ) if (@fields); +} + +=head2 GetCourseItem { + + $course_item = GetCourseItem( itemnumber => $itemnumber [, ci_id => $ci_id ); + +=cut + +sub GetCourseItem { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $ci_id = $params{'ci_id'}; + my $itemnumber = $params{'itemnumber'}; + + return unless ( $itemnumber || $ci_id ); + + my $field = ($itemnumber) ? 'itemnumber' : 'ci_id'; + my $value = ($itemnumber) ? $itemnumber : $ci_id; + + my $query = "SELECT * FROM course_items WHERE $field = ?"; + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare($query); + $sth->execute($value); + + my $course_item = $sth->fetchrow_hashref(); + + if ($course_item) { + $query = "SELECT * FROM course_reserves WHERE ci_id = ?"; + $sth = $dbh->prepare($query); + $sth->execute( $course_item->{'ci_id'} ); + my $course_reserves = $sth->fetchall_arrayref( {} ); + + $course_item->{'course_reserves'} = $course_reserves + if ($course_reserves); + } + return $course_item; +} + +=head2 ModCourseItem { + + ModCourseItem( %params ); + + Creates or modifies an existing course item. + +=cut + +sub ModCourseItem { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $itemnumber = $params{'itemnumber'}; + my $itype = $params{'itype'}; + my $ccode = $params{'ccode'}; + my $holdingbranch = $params{'holdingbranch'}; + my $location = $params{'location'}; + + return unless ($itemnumber); + + my $course_item = GetCourseItem( itemnumber => $itemnumber ); + + my $ci_id; + + if ($course_item) { + $ci_id = $course_item->{'ci_id'}; + + _UpdateCourseItem( + ci_id => $ci_id, + course_item => $course_item, + %params + ); + } + else { + $ci_id = _AddCourseItem(%params); + } + + return $ci_id; + +} + +=head2 _AddCourseItem + + my $ci_id = _AddCourseItem( %params ); + +=cut + +sub _AddCourseItem { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my ( @fields, @values ); + + push( @fields, 'itemnumber = ?' ); + push( @values, $params{'itemnumber'} ); + + foreach (@FIELDS) { + if ( $params{$_} ) { + push( @fields, "$_ = ?" ); + push( @values, $params{$_} ); + } + } + + my $query = "INSERT INTO course_items SET " . join( ',', @fields ); + my $dbh = C4::Context->dbh; + $dbh->do( $query, undef, @values ); + + my $ci_id = $dbh->last_insert_id( undef, undef, 'course_items', 'ci_id' ); + + return $ci_id; +} + +=head2 _UpdateCourseItem + + _UpdateCourseItem( %params ); + +=cut + +sub _UpdateCourseItem { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $ci_id = $params{'ci_id'}; + my $course_item = $params{'course_item'}; + my $itype = $params{'itype'}; + my $ccode = $params{'ccode'}; + my $holdingbranch = $params{'holdingbranch'}; + my $location = $params{'location'}; + + return unless ( $ci_id || $course_item ); + + $course_item = GetCourseItem( ci_id => $ci_id ) + unless ($course_item); + $ci_id = $course_item->{'ci_id'} unless ($ci_id); + + ## Revert fields that had an 'original' value, but now don't + ## Update the item fields to the stored values from course_items + ## and then set those fields in course_items to NULL + my @fields_to_revert; + foreach (@FIELDS) { + if ( !$params{$_} && $course_item->{$_} ) { + push( @fields_to_revert, $_ ); + } + } + _RevertFields( + ci_id => $ci_id, + fields => \@fields_to_revert, + course_item => $course_item + ) if (@fields_to_revert); + + ## Update fields that still have an original value, but it has changed + ## This necessitates only changing the current item values, as we still + ## have the original values stored in course_items + my %mod_params; + foreach (@FIELDS) { + if ( $params{$_} + && $course_item->{$_} + && $params{$_} ne $course_item->{$_} ) + { + $mod_params{$_} = $params{$_}; + } + } + ModItem( \%mod_params, undef, $course_item->{'itemnumber'} ); + + ## Update fields that didn't have an original value, but now do + ## We must save the original value in course_items, and also + ## update the item fields to the new value + my $item = GetItem( $course_item->{'itemnumber'} ); + my %mod_params_new; + my %mod_params_old; + foreach (@FIELDS) { + if ( $params{$_} && !$course_item->{$_} ) { + $mod_params_new{$_} = $params{$_}; + $mod_params_old{$_} = $item->{$_}; + } + } + _ModStoredFields( 'ci_id' => $params{'ci_id'}, %mod_params_old ); + ModItem( \%mod_params_new, undef, $course_item->{'itemnumber'} ); + +} + +=head2 _ModStoredFields + + _ModStoredFields( %params ); + + Updates the values for the 'original' fields in course_items + for a given ci_id + +=cut + +sub _ModStoredFields { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + return unless ( $params{'ci_id'} ); + + my ( @fields_to_update, @values_to_update ); + + foreach (@FIELDS) { + if ( $params{$_} ) { + push( @fields_to_update, $_ ); + push( @values_to_update, $params{$_} ); + } + } + + my $query = + "UPDATE course_items SET " + . join( ',', map { "$_=?" } @fields_to_update ) + . " WHERE ci_id = ?"; + + C4::Context->dbh->do( $query, undef, @values_to_update, $params{'ci_id'} ) + if (@values_to_update); + +} + +=head2 _RevertFields + + _RevertFields( ci_id => $ci_id, fields => \@fields_to_revert ); + +=cut + +sub _RevertFields { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $ci_id = $params{'ci_id'}; + my $course_item = $params{'course_item'}; + my $fields = $params{'fields'}; + my @fields = @$fields; + + return unless ($ci_id); + + $course_item = GetCourseItem( ci_id => $params{'ci_id'} ) + unless ($course_item); + + my $mod_item_params; + my @fields_to_null; + foreach my $field (@fields) { + foreach (@FIELDS) { + if ( $field eq $_ && $course_item->{$_} ) { + $mod_item_params->{$_} = $course_item->{$_}; + push( @fields_to_null, $_ ); + } + } + } + ModItem( $mod_item_params, undef, $course_item->{'itemnumber'} ); + + my $query = + "UPDATE course_items SET " + . join( ',', map { "$_=NULL" } @fields_to_null ) + . " WHERE ci_id = ?"; + + C4::Context->dbh->do( $query, undef, $ci_id ) if (@fields_to_null); +} + +=head2 _SwapAllFields + + _SwapAllFields( $ci_id ); + +=cut + +sub _SwapAllFields { + my ($ci_id) = @_; + warn "C4::CourseReserves::_SwapFields( $ci_id )" if $DEBUG; + + my $course_item = GetCourseItem( ci_id => $ci_id ); + my $item = GetItem( $course_item->{'itemnumber'} ); + + my %course_item_fields; + my %item_fields; + foreach (@FIELDS) { + if ( $course_item->{$_} ) { + $course_item_fields{$_} = $course_item->{$_}; + $item_fields{$_} = $item->{$_}; + } + } + + ModItem( \%course_item_fields, undef, $course_item->{'itemnumber'} ); + _ModStoredFields( %item_fields, ci_id => $ci_id ); +} + +=head2 GetCourseItems { + + $course_items = GetCourseItems( + [course_id => $course_id] + [, itemnumber => $itemnumber ] + ); + +=cut + +sub GetCourseItems { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $course_id = $params{'course_id'}; + my $itemnumber = $params{'itemnumber'}; + + return unless ($course_id); + + my @query_keys; + my @query_values; + + my $query = "SELECT * FROM course_items"; + + if ( keys %params ) { + + $query .= " WHERE "; + + foreach my $key ( keys %params ) { + push( @query_keys, " $key LIKE ? " ); + push( @query_values, $params{$key} ); + } + + $query .= join( ' AND ', @query_keys ); + } + + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare($query); + $sth->execute(@query_values); + + return $sth->fetchall_arrayref( {} ); +} + +=head2 DelCourseItem { + + DelCourseItem( ci_id => $cr_id ); + +=cut + +sub DelCourseItem { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $ci_id = $params{'ci_id'}; + + return unless ($ci_id); + + _RevertFields( ci_id => $ci_id, fields => \@FIELDS ); + + my $query = " + DELETE FROM course_items + WHERE ci_id = ? + "; + C4::Context->dbh->do( $query, undef, $ci_id ); +} + +=head2 GetCourseReserve { + + $course_item = GetCourseReserve( %params ); + +=cut + +sub GetCourseReserve { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $cr_id = $params{'cr_id'}; + my $course_id = $params{'course_id'}; + my $ci_id = $params{'ci_id'}; + + return unless ( $cr_id || ( $course_id && $ci_id ) ); + + my $dbh = C4::Context->dbh; + my $sth; + + if ($cr_id) { + my $query = " + SELECT * FROM course_reserves + WHERE cr_id = ? + "; + $sth = $dbh->prepare($query); + $sth->execute($cr_id); + } + else { + my $query = " + SELECT * FROM course_reserves + WHERE course_id = ? AND ci_id = ? + "; + $sth = $dbh->prepare($query); + $sth->execute( $course_id, $ci_id ); + } + + my $course_reserve = $sth->fetchrow_hashref(); + return $course_reserve; +} + +=head2 ModCourseReserve + + $id = ModCourseReserve( %params ); + +=cut + +sub ModCourseReserve { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $course_id = $params{'course_id'}; + my $ci_id = $params{'ci_id'}; + my $staff_note = $params{'staff_note'}; + my $public_note = $params{'public_note'}; + + return unless ( $course_id && $ci_id ); + + my $course_reserve = + GetCourseReserve( course_id => $course_id, ci_id => $ci_id ); + my $cr_id; + + my $dbh = C4::Context->dbh; + + if ($course_reserve) { + $cr_id = $course_reserve->{'cr_id'}; + + my $query = " + UPDATE course_reserves + SET staff_note = ?, public_note = ? + WHERE cr_id = ? + "; + $dbh->do( $query, undef, $staff_note, $public_note, $cr_id ); + } + else { + my $query = " + INSERT INTO course_reserves SET + course_id = ?, + ci_id = ?, + staff_note = ?, + public_note = ? + "; + $dbh->do( $query, undef, $course_id, $ci_id, $staff_note, + $public_note ); + $cr_id = + $dbh->last_insert_id( undef, undef, 'course_reserves', 'cr_id' ); + } + + my $course = GetCourse($course_id); + EnableOrDisableCourseItem( + ci_id => $params{'ci_id'}, + enabled => $course->{'enabled'} + ); + + return $cr_id; +} + +=head2 GetCourseReserves { + + $course_reserves = GetCourseReserves( %params ); + + Required: + course_id OR ci_id + Optional: + include_items => 1, + include_count => 1, + include_courses => 1, + +=cut + +sub GetCourseReserves { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $course_id = $params{'course_id'}; + my $ci_id = $params{'ci_id'}; + my $include_items = $params{'include_items'}; + my $include_count = $params{'include_count'}; + my $include_courses = $params{'include_courses'}; + + return unless ( $course_id || $ci_id ); + + my $field = ($course_id) ? 'course_id' : 'ci_id'; + my $value = ($course_id) ? $course_id : $ci_id; + + my $query = " + SELECT cr.*, ci.itemnumber + FROM course_reserves cr, course_items ci + WHERE cr.$field = ? + AND cr.ci_id = ci.ci_id + "; + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare($query); + $sth->execute($value); + + my $course_reserves = $sth->fetchall_arrayref( {} ); + + if ($include_items) { + foreach my $cr (@$course_reserves) { + $cr->{'course_item'} = GetCourseItem( ci_id => $cr->{'ci_id'} ); + $cr->{'item'} = GetBiblioFromItemNumber( $cr->{'itemnumber'} ); + $cr->{'issue'} = GetOpenIssue( $cr->{'itemnumber'} ); + } + } + + if ($include_count) { + foreach my $cr (@$course_reserves) { + $cr->{'reserves_count'} = + CountCourseReservesForItem( ci_id => $cr->{'ci_id'} ); + } + } + + if ($include_courses) { + foreach my $cr (@$course_reserves) { + $cr->{'courses'} = + GetCourses( itemnumber => $cr->{'itemnumber'} ); + } + } + + return $course_reserves; +} + +=head2 DelCourseReserve { + + DelCourseReserve( cr_id => $cr_id ); + +=cut + +sub DelCourseReserve { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $cr_id = $params{'cr_id'}; + + return unless ($cr_id); + + my $dbh = C4::Context->dbh; + + my $course_reserve = GetCourseReserve( cr_id => $cr_id ); + + my $query = " + DELETE FROM course_reserves + WHERE cr_id = ? + "; + $dbh->do( $query, undef, $cr_id ); + + ## If there are no other course reserves for this item + ## delete the course_item as well + unless ( CountCourseReservesForItem( ci_id => $course_reserve->{'ci_id'} ) ) + { + DelCourseItem( ci_id => $course_reserve->{'ci_id'} ); + } + +} + +=head2 GetReservesInfo + + my $arrayref = GetItemReservesInfo( itemnumber => $itemnumber ); + + For a given item, returns an arrayref of reserves hashrefs, + with a course hashref under the key 'course' + +=cut + +sub GetItemReservesInfo { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $itemnumber = $params{'itemnumber'}; + + return unless ($itemnumber); + + my $course_item = GetCourseItem( itemnumber => $itemnumber ); + + return unless ( keys %$course_item ); + + my $course_reserves = GetCourseReserves( ci_id => $course_item->{'ci_id'} ); + + foreach my $cr (@$course_reserves) { + $cr->{'course'} = GetCourse( $cr->{'course_id'} ); + } + + return $course_reserves; +} + +=head2 CountCourseReservesForItem + + $bool = CountCourseReservesForItem( %params ); + + ci_id - course_item id + OR + itemnumber - course_item itemnumber + + enabled = 'yes' or 'no' + Optional, if not supplied, counts reserves + for both enabled and disabled courses + +=cut + +sub CountCourseReservesForItem { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $ci_id = $params{'ci_id'}; + my $itemnumber = $params{'itemnumber'}; + my $enabled = $params{'enabled'}; + + return unless ( $ci_id || $itemnumber ); + + my $course_item = + GetCourseItem( ci_id => $ci_id, itemnumber => $itemnumber ); + + my @params = ( $course_item->{'ci_id'} ); + push( @params, $enabled ) if ($enabled); + + my $query = " + SELECT COUNT(*) AS count + FROM course_reserves cr + LEFT JOIN courses c ON ( c.course_id = cr.course_id ) + WHERE ci_id = ? + "; + $query .= "AND c.enabled = ?" if ($enabled); + + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare($query); + $sth->execute(@params); + + my $row = $sth->fetchrow_hashref(); + + return $row->{'count'}; +} + +=head2 SearchCourses + + my $courses = SearchCourses( term => $search_term, enabled => 'yes' ); + +=cut + +sub SearchCourses { + my (%params) = @_; + warn identify_myself(%params) if $DEBUG; + + my $term = $params{'term'}; + + my $enabled = $params{'enabled'} || '%'; + + my @params; + my $query = "SELECT c.* FROM courses c"; + + $query .= " + LEFT JOIN course_instructors ci + ON ( c.course_id = ci.course_id ) + LEFT JOIN borrowers b + ON ( ci.borrowernumber = b.borrowernumber ) + LEFT JOIN authorised_values av + ON ( c.department = av.authorised_value ) + WHERE + ( av.category = 'DEPARTMENT' OR av.category = 'TERM' ) + AND + ( + department LIKE ? OR + course_number LIKE ? OR + section LIKE ? OR + course_name LIKE ? OR + term LIKE ? OR + public_note LIKE ? OR + CONCAT(surname,' ',firstname) LIKE ? OR + CONCAT(firstname,' ',surname) LIKE ? OR + lib LIKE ? OR + lib_opac LIKE ? + ) + AND + c.enabled LIKE ? + GROUP BY c.course_id + "; + + $term = "%$term%"; + @params = ($term) x 10; + + $query .= " ORDER BY department, course_number, section, term, course_name "; + + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare($query); + + $sth->execute(@params, $enabled); + + my $courses = $sth->fetchall_arrayref( {} ); + + foreach my $c (@$courses) { + $c->{'instructors'} = GetCourseInstructors( $c->{'course_id'} ); + } + + return $courses; +} + +sub whoami { ( caller(1) )[3] } +sub whowasi { ( caller(2) )[3] } + +sub stringify_params { + my (%params) = @_; + + my $string = "\n"; + + foreach my $key ( keys %params ) { + $string .= " $key => " . $params{$key} . "\n"; + } + + return "( $string )"; +} + +sub identify_myself { + my (%params) = @_; + + return whowasi() . stringify_params(%params); +} + +1; + +=head1 AUTHOR + +Kyle M Hall + +=cut --- a/C4/Koha.pm +++ a/C4/Koha.pm @@ -204,10 +204,15 @@ sub GetSupportList{ } =head2 GetItemTypes - $itemtypes = &GetItemTypes(); + $itemtypes = &GetItemTypes( style => $style ); Returns information about existing itemtypes. +Params: + style: either 'array' or 'hash', defaults to 'hash'. + 'array' returns an arrayref, + 'hash' return a hashref with the itemtype value as the key + build a HTML select with the following code : =head3 in PERL SCRIPT @@ -240,6 +245,8 @@ build a HTML select with the following code : =cut sub GetItemTypes { + my ( %params ) = @_; + my $style = defined( $params{'style'} ) ? $params{'style'} : 'hash'; # returns a reference to a hash of references to itemtypes... my %itemtypes; @@ -250,10 +257,15 @@ sub GetItemTypes { |; my $sth = $dbh->prepare($query); $sth->execute; - while ( my $IT = $sth->fetchrow_hashref ) { - $itemtypes{ $IT->{'itemtype'} } = $IT; + + if ( $style eq 'hash' ) { + while ( my $IT = $sth->fetchrow_hashref ) { + $itemtypes{ $IT->{'itemtype'} } = $IT; + } + return ( \%itemtypes ); + } else { + return $sth->fetchall_arrayref({}); } - return ( \%itemtypes ); } sub get_itemtypeinfos_of { @@ -1106,7 +1118,7 @@ sub GetAuthorisedValueCategories { =head2 GetAuthorisedValueByCode -$authhorised_value = GetAuthorisedValueByCode( $category, $authvalcode ); +$authorised_value = GetAuthorisedValueByCode( $category, $authvalcode, $opac ); Return the lib attribute from authorised_values from the row identified by the passed category and code --- a/Koha/Template/Plugin/AuthorisedValues.pm +++ a/Koha/Template/Plugin/AuthorisedValues.pm @@ -0,0 +1,34 @@ +package Koha::Template::Plugin::AuthorisedValues; + +# Copyright ByWater Solutions 2012 + +# 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 Template::Plugin; +use base qw( Template::Plugin ); + +use Encode qw{encode decode}; + +use C4::Koha; + +sub GetByCode { + my ( $self, $category, $code, $opac ) = @_; + return encode('UTF-8', GetAuthorisedValueByCode( $category, $code, $opac ) ); +} + +1; --- a/Koha/Template/Plugin/Branches.pm +++ a/Koha/Template/Plugin/Branches.pm @@ -0,0 +1,37 @@ +package Koha::Template::Plugin::Branches; + +# Copyright ByWater Solutions 2012 + +# 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 Template::Plugin; +use base qw( Template::Plugin ); + +use C4::Koha; + +sub GetName { + my ( $self, $branchcode ) = @_; + + my $query = "SELECT branchname FROM branches WHERE branchcode = ?"; + my $sth = C4::Context->dbh->prepare($query); + $sth->execute($branchcode); + my $b = $sth->fetchrow_hashref(); + return $b->{'branchname'}; +} + +1; --- a/Koha/Template/Plugin/ItemTypes.pm +++ a/Koha/Template/Plugin/ItemTypes.pm @@ -0,0 +1,38 @@ +package Koha::Template::Plugin::ItemTypes; + +# Copyright ByWater Solutions 2012 + +# 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 Template::Plugin; +use base qw( Template::Plugin ); + +use C4::Koha; + +sub GetDescription { + my ( $self, $itemtype ) = @_; + + my $query = "SELECT description FROM itemtypes WHERE itemtype = ?"; + my $sth = C4::Context->dbh->prepare($query); + $sth->execute($itemtype); + my $d = $sth->fetchrow_hashref(); + return $d->{'description'}; + +} + +1; --- a/Makefile.PL +++ a/Makefile.PL @@ -261,6 +261,7 @@ my $target_map = { './changelanguage.pl' => 'INTRANET_CGI_DIR', './check_sysprefs.pl' => 'NONE', './circ' => 'INTRANET_CGI_DIR', + './course_reserves' => 'INTRANET_CGI_DIR', './offline_circ' => 'INTRANET_CGI_DIR', './edithelp.pl' => 'INTRANET_CGI_DIR', './etc' => { target => 'KOHA_CONF_DIR', trimdir => -1 }, --- a/admin/authorised_values.pl +++ a/admin/authorised_values.pl @@ -247,7 +247,7 @@ sub default_form { } # push koha system categories - foreach (qw(Asort1 Asort2 Bsort1 Bsort2 SUGGEST DAMAGED LOST REPORT_GROUP REPORT_SUBGROUP)) { + foreach (qw(Asort1 Asort2 Bsort1 Bsort2 SUGGEST DAMAGED LOST REPORT_GROUP REPORT_SUBGROUP DEPARTMENT TERM)) { push @category_list, $_ unless $categories{$_}; } --- a/catalogue/detail.pl +++ a/catalogue/detail.pl @@ -41,6 +41,7 @@ use C4::XSLT; use C4::Images; use Koha::DateUtils; use C4::HTML5Media; +use C4::CourseReserves; # use Smart::Comments; @@ -269,6 +270,10 @@ foreach my $item (@items) { $materials_flag = 1; } + if ( C4::Context->preference('UseCourseReserves') ) { + $item->{'course_reserves'} = GetItemReservesInfo( itemnumber => $item->{'itemnumber'} ); + } + if ($currentbranch and $currentbranch ne "NO_LIBRARY_SET" and C4::Context->preference('SeparateHoldings')) { if ($itembranchcode and $itembranchcode eq $currentbranch) { --- a/course_reserves/add_items.pl +++ a/course_reserves/add_items.pl @@ -0,0 +1,97 @@ +#!/usr/bin/perl + +# +# Copyright 2012 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 C4::Auth; +use C4::Output; +use C4::Koha; +use C4::Biblio; +use C4::Branch; + +use C4::CourseReserves; + +my $cgi = new CGI; + +my $action = $cgi->param('action') || ''; +my $course_id = $cgi->param('course_id') || ''; +my $barcode = $cgi->param('barcode') || ''; + +die('No course_id provided') unless ($course_id); + +my $item = GetBiblioFromItemNumber( undef, $barcode ); + +my $step = ( $action eq 'lookup' && $item ) ? '2' : '1'; + +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "course_reserves/add_items-step$step.tmpl", + query => $cgi, + type => "intranet", + authnotrequired => 0, + flagsrequired => { coursereserves => 'add_reserves' }, + } +); +$template->param( ERROR_BARCODE_NOT_FOUND => $barcode ) + unless ( $barcode && $item && $action eq 'lookup' ); + +$template->param( course => GetCourse($course_id) ); + +if ( $action eq 'lookup' ) { + my $course_item = GetCourseItem( itemnumber => $item->{'itemnumber'} ); + my $course_reserve = ($course_item) + ? GetCourseReserve( + course_id => $course_id, + ci_id => $course_item->{'ci_id'} + ) + : undef; + + $template->param( + item => $item, + course_item => $course_item, + course_reserve => $course_reserve, + + ccodes => GetAuthorisedValues('CCODE'), + locations => GetAuthorisedValues('LOC'), + itypes => GetItemTypes( style => 'array' ), + branches => GetBranchesLoop(), + ); + +} +elsif ( $action eq 'add' ) { + my $ci_id = ModCourseItem( + itemnumber => $cgi->param('itemnumber'), + itype => $cgi->param('itype'), + ccode => $cgi->param('ccode'), + holdingbranch => $cgi->param('holdingbranch'), + location => $cgi->param('location'), + ); + + my $cr_id = ModCourseReserve( + course_id => $course_id, + ci_id => $ci_id, + staff_note => $cgi->param('staff_note'), + public_note => $cgi->param('public_note'), + ); +} + +output_html_with_http_headers $cgi, $cookie, $template->output; --- a/course_reserves/course-details.pl +++ a/course_reserves/course-details.pl @@ -0,0 +1,67 @@ +#!/usr/bin/perl + +# +# Copyright 2012 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 C4::Auth; +use C4::Output; +use C4::Koha; + +use C4::CourseReserves; + +my $cgi = new CGI; + +my $action = $cgi->param('action') || ''; +my $course_id = $cgi->param('course_id'); + +my $flagsrequired; +$flagsrequired->{coursereserves} = 'delete_reserves' if ( $action eq 'del_reserve' ); + +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "course_reserves/course-details.tmpl", + query => $cgi, + type => "intranet", + authnotrequired => 0, + flagsrequired => $flagsrequired, + } +); + +die("No course_id given") unless ($course_id); + +if ( $action eq 'del_reserve' ) { + DelCourseReserve( cr_id => $cgi->param('cr_id') ); +} + +my $course = GetCourse($course_id); +my $course_reserves = GetCourseReserves( + course_id => $course_id, + include_items => 1, + include_courses => 1 +); + +$template->param( + course => $course, + course_reserves => $course_reserves, +); + +output_html_with_http_headers $cgi, $cookie, $template->output; --- a/course_reserves/course-reserves.pl +++ a/course_reserves/course-reserves.pl @@ -0,0 +1,54 @@ +#!/usr/bin/perl + +# +# Copyright 2012 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 C4::Auth; +use C4::Output; + +use C4::CourseReserves; + +my $cgi = new CGI; + +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "course_reserves/course-reserves.tmpl", + query => $cgi, + type => "intranet", + authnotrequired => 0, + flagsrequired => {}, + } +); + +my $search_on = $cgi->param('search_on'); +my %params; +if ($search_on) { + $params{'course_name'} = "%$search_on%"; +} + +my $courses = GetCourses(%params); +if ( $search_on && @$courses == 1 ) { + print $cgi->redirect("/cgi-bin/koha/course_reserves/course-details.pl?course_id=" . $courses->[0]->{'course_id'}); +} else { + $template->param( courses => $courses ); + output_html_with_http_headers $cgi, $cookie, $template->output; +} --- a/course_reserves/course.pl +++ a/course_reserves/course.pl @@ -0,0 +1,55 @@ +#!/usr/bin/perl + +# +# Copyright 2012 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 C4::Auth; +use C4::Output; +use C4::Koha; + +use C4::CourseReserves; + +my $cgi = new CGI; + +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "course_reserves/course.tmpl", + query => $cgi, + type => "intranet", + authnotrequired => 0, + flagsrequired => { coursereserves => 'manage_courses' }, + } +); + +my $course_id = $cgi->param('course_id'); + +if ($course_id) { + my $course = GetCourse($course_id); + $template->param(%$course); +} + +$template->param( + departments => GetAuthorisedValues('DEPARTMENT'), + terms => GetAuthorisedValues('TERM'), +); + +output_html_with_http_headers $cgi, $cookie, $template->output; --- a/course_reserves/mod_course.pl +++ a/course_reserves/mod_course.pl @@ -0,0 +1,72 @@ +#!/usr/bin/perl + +# Copyright 2012 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 C4::Output; +use C4::Reserves; +use C4::Auth; + +use C4::CourseReserves; + +my $cgi = new CGI; +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "about.tmpl", + query => $cgi, + type => "intranet", + authnotrequired => 0, + flagsrequired => { coursereserves => 'manage_courses' }, + } +); + +my $action = $cgi->param('action'); + +if ( $action eq 'del' ) { + DelCourse( $cgi->param('course_id') ); + print $cgi->redirect("/cgi-bin/koha/course_reserves/course-reserves.pl"); +} +else { + my %params; + + $params{'course_id'} = $cgi->param('course_id') + if ( $cgi->param('course_id') ); + $params{'department'} = $cgi->param('department'); + $params{'course_number'} = $cgi->param('course_number'); + $params{'section'} = $cgi->param('section'); + $params{'course_name'} = $cgi->param('course_name'); + $params{'term'} = $cgi->param('term'); + $params{'staff_note'} = $cgi->param('staff_note'); + $params{'public_note'} = $cgi->param('public_note'); + $params{'students_count'} = $cgi->param('students_count'); + $params{'enabled'} = ( $cgi->param('enabled') eq 'on' ) ? 'yes' : 'no'; + + my $course_id = ModCourse(%params); + + my @instructors = $cgi->param('instructors'); + ModCourseInstructors( + mode => 'replace', + cardnumbers => \@instructors, + course_id => $course_id + ); + print $cgi->redirect( + "/cgi-bin/koha/course_reserves/course-details.pl?course_id=$course_id"); +} --- a/installer/data/mysql/de-DE/mandatory/userflags.sql +++ a/installer/data/mysql/de-DE/mandatory/userflags.sql @@ -15,3 +15,4 @@ INSERT INTO `userflags` VALUES(14,'editauthorities','Normdaten ändern',0); INSERT INTO `userflags` VALUES(15,'serials','Zugang auf Abonnementverwaltung/Zeitschriftenmodul',0); INSERT INTO `userflags` VALUES(16,'reports','Zugang auf Reportmodul',0); INSERT INTO `userflags` VALUES(17,'staffaccess','Berechtigungen für Bibliotheksmitarbeiter vergeben',0); +INSERT INTO `userflags` VALUES(18,'coursereserves','Course Reserves',0); --- a/installer/data/mysql/de-DE/mandatory/userpermissions.sql +++ a/installer/data/mysql/de-DE/mandatory/userpermissions.sql @@ -51,5 +51,8 @@ INSERT INTO permissions (module_bit, code, description) VALUES (15, 'renew_subscription', 'Abonnements verlängern'), (15, 'routing', 'Umlauflisten verwalten'), (16, 'execute_reports', 'SQL-Reports ausführen'), - (16, 'create_reports', 'SQL-Reports erstellen') + (16, 'create_reports', 'SQL-Reports erstellen'), + (18, 'manage_courses', 'Add, edit and delete courses'), + (18, 'add_reserves', 'Add course reserves'), + (18, 'delete_reserves', 'Remove course reserves') ; --- a/installer/data/mysql/en/mandatory/userflags.sql +++ a/installer/data/mysql/en/mandatory/userflags.sql @@ -15,3 +15,4 @@ INSERT INTO `userflags` VALUES(14,'editauthorities','Edit Authorities',0); INSERT INTO `userflags` VALUES(15,'serials','Manage serial subscriptions',0); INSERT INTO `userflags` VALUES(16,'reports','Allow access to the reports module',0); INSERT INTO `userflags` VALUES(17,'staffaccess','Allow staff members to modify permissions for other staff members',0); +INSERT INTO `userflags` VALUES(18,'coursereserves','Course Reserves',0); --- a/installer/data/mysql/en/mandatory/userpermissions.sql +++ a/installer/data/mysql/en/mandatory/userpermissions.sql @@ -51,5 +51,8 @@ INSERT INTO permissions (module_bit, code, description) VALUES (15, 'renew_subscription', 'Renew a subscription'), (15, 'routing', 'Routing'), (16, 'execute_reports', 'Execute SQL reports'), - (16, 'create_reports', 'Create SQL Reports') + (16, 'create_reports', 'Create SQL Reports'), + (18, 'manage_courses', 'Add, edit and delete courses'), + (18, 'add_reserves', 'Add course reserves'), + (18, 'delete_reserves', 'Remove course reserves') ; --- a/installer/data/mysql/es-ES/mandatory/userflags.sql +++ a/installer/data/mysql/es-ES/mandatory/userflags.sql @@ -15,3 +15,4 @@ INSERT INTO `userflags` VALUES(14,'editauthorities','Allow to edit authorities', INSERT INTO `userflags` VALUES(15,'serials','Allow to manage serials subscriptions',0); INSERT INTO `userflags` VALUES(16,'reports','Allow to access to the reports module',0); INSERT INTO `userflags` VALUES(17,'staffaccess','Modify login / permissions for staff users',0); +INSERT INTO `userflags` VALUES(18,'coursereserves','Course Reserves',0); --- a/installer/data/mysql/es-ES/mandatory/userpermissions.sql +++ a/installer/data/mysql/es-ES/mandatory/userpermissions.sql @@ -51,5 +51,8 @@ INSERT INTO permissions (module_bit, code, description) VALUES (15, 'renew_subscription', 'Renew a subscription'), (15, 'routing', 'Routing'), (16, 'execute_reports', 'Execute SQL reports'), - (16, 'create_reports', 'Create SQL Reports') + (16, 'create_reports', 'Create SQL Reports'), + (18, 'manage_courses', 'Add, edit and delete courses'), + (18, 'add_reserves', 'Add course reserves'), + (18, 'delete_reserves', 'Remove course reserves') ; --- a/installer/data/mysql/fr-FR/1-Obligatoire/userflags.sql +++ a/installer/data/mysql/fr-FR/1-Obligatoire/userflags.sql @@ -16,3 +16,4 @@ INSERT INTO `userflags` VALUES(13,'tools','Outils (export, import, impression de INSERT INTO `userflags` VALUES(14,'editauthorities','Gestion des autorités',0); INSERT INTO `userflags` VALUES(15,'serials','Gestion du module périodique',0); INSERT INTO `userflags` VALUES(16,'reports','Accès aux statistiques',0); +INSERT INTO `userflags` VALUES(18,'coursereserves','Course Reserves',0); --- a/installer/data/mysql/fr-FR/1-Obligatoire/userpermissions.sql +++ a/installer/data/mysql/fr-FR/1-Obligatoire/userpermissions.sql @@ -51,6 +51,8 @@ INSERT INTO permissions (module_bit, code, description) VALUES (15, 'renew_subscription', 'Renouveler les abonnements'), (15, 'routing', 'Mettre en circulation'), (16, 'execute_reports', 'Lancer les rapports SQL'), - (16, 'create_reports', 'Créer les rapports SQL Reports') - + (16, 'create_reports', 'Créer les rapports SQL Reports'), + (18, 'manage_courses', 'Add, edit and delete courses'), + (18, 'add_reserves', 'Add course reserves'), + (18, 'delete_reserves', 'Remove course reserves') ; --- a/installer/data/mysql/it-IT/necessari/userflags.sql +++ a/installer/data/mysql/it-IT/necessari/userflags.sql @@ -17,5 +17,6 @@ INSERT INTO `userflags` VALUES(14,'editauthorities','autorizza la modifica delle INSERT INTO `userflags` VALUES(15,'serials','autorizza la gestione degli abbonamenti ai periodici',0); INSERT INTO `userflags` VALUES(16,'reports','autorizza accesso al modulo dei reports',0); INSERT INTO `userflags` VALUES(17,'staffaccess','modifica la login o i permessi degli staff users',0); +INSERT INTO `userflags` VALUES(18,'coursereserves','Course Reserves',0); SET FOREIGN_KEY_CHECKS=1; --- a/installer/data/mysql/it-IT/necessari/userpermissions.sql +++ a/installer/data/mysql/it-IT/necessari/userpermissions.sql @@ -53,6 +53,9 @@ INSERT INTO permissions (module_bit, code, description) VALUES (15, 'renew_subscription', 'Rinnova un abbonamento'), (15, 'routing', 'Crea/Manipola liste di distribuzione dei fascicoli ( routing list)'), (16, 'execute_reports', 'Esegui reports SQL'), - (16, 'create_reports', 'Crea reports SQL') + (16, 'create_reports', 'Crea reports SQL'), + (18, 'manage_courses', 'Add, edit and delete courses'), + (18, 'add_reserves', 'Add course reserves'), + (18, 'delete_reserves', 'Remove course reserves') ; SET FOREIGN_KEY_CHECKS=1; --- a/installer/data/mysql/kohastructure.sql +++ a/installer/data/mysql/kohastructure.sql @@ -466,6 +466,108 @@ CREATE TABLE collections_tracking ( ) ENGINE=InnoDB DEFAULT CHARACTER SET utf8; -- +-- Table structure for table `courses` +-- + +-- The courses table stores the courses created for the +-- course reserves feature. + +DROP TABLE IF EXISTS courses; +CREATE TABLE `courses` ( + `course_id` int(11) NOT NULL AUTO_INCREMENT, + `department` varchar(20) DEFAULT NULL, -- Stores the authorised value DEPT + `course_number` varchar(255) DEFAULT NULL, -- An arbitrary field meant to store the "course number" assigned to a course + `section` varchar(255) DEFAULT NULL, -- Also arbitrary, but for the 'section' of a course. + `course_name` varchar(255) DEFAULT NULL, + `term` varchar(20) DEFAULT NULL, -- Stores the authorised value TERM + `staff_note` mediumtext, + `public_note` mediumtext, + `students_count` varchar(20) DEFAULT NULL, -- Meant to be just an estimate of how many students will be taking this course/section + `enabled` enum('yes','no') NOT NULL DEFAULT 'yes', -- Determines whether the course is active + `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP, + PRIMARY KEY (`course_id`) +) ENGINE=InnoDB DEFAULT CHARSET=utf8; + +-- +-- Table structure for table `course_instructors` +-- + +-- The course instructors table links Koha borrowers to the +-- courses they are teaching. Many instructors can teach many +-- courses. course_instructors is just a many-to-many join table. + +DROP TABLE IF EXISTS course_instructors; +CREATE TABLE `course_instructors` ( + `course_id` int(11) NOT NULL, + `borrowernumber` int(11) NOT NULL, + PRIMARY KEY (`course_id`,`borrowernumber`), + KEY `borrowernumber` (`borrowernumber`) +) ENGINE=InnoDB DEFAULT CHARSET=utf8; + +-- +-- Constraints for table `course_instructors` +-- +ALTER TABLE `course_instructors` + ADD CONSTRAINT `course_instructors_ibfk_2` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`), + ADD CONSTRAINT `course_instructors_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE; + +-- +-- Table structure for table `course_items` +-- + +-- If an item is placed on course reserve for one or more courses +-- it will have an entry in this table. No matter how many courses an item +-- is part of, it will only have one row in this table. + +DROP TABLE IF EXISTS course_items; +CREATE TABLE `course_items` ( + `ci_id` int(11) NOT NULL AUTO_INCREMENT, + `itemnumber` int(11) NOT NULL, -- items.itemnumber for the item on reserve + `itype` varchar(10) DEFAULT NULL, -- an optional new itemtype for the item to have while on reserve + `ccode` varchar(10) DEFAULT NULL, -- an optional new category code for the item to have while on reserve + `holdingbranch` varchar(10) DEFAULT NULL, -- an optional new holding branch for the item to have while on reserve + `location` varchar(80) DEFAULT NULL, -- an optional new shelving location for the item to have while on reseve + `enabled` enum('yes','no') NOT NULL DEFAULT 'no', -- If at least one enabled course has this item on reseve, this field will be 'yes', otherwise it will be 'no' + `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP, + PRIMARY KEY (`ci_id`), + UNIQUE KEY `itemnumber` (`itemnumber`), + KEY `holdingbranch` (`holdingbranch`) +) ENGINE=InnoDB DEFAULT CHARSET=utf8; + +-- +-- Constraints for table `course_items` +-- +ALTER TABLE `course_items` + ADD CONSTRAINT `course_items_ibfk_2` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE, + ADD CONSTRAINT `course_items_ibfk_1` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE; + +-- +-- Table structure for table `course_reserves` +-- + +-- This table connects an item placed on course reserve to a course it is on reserve for. +-- There will be a row in this table for each course an item is on reserve for. + +DROP TABLE IF EXISTS course_reserves; +CREATE TABLE `course_reserves` ( + `cr_id` int(11) NOT NULL AUTO_INCREMENT, + `course_id` int(11) NOT NULL, -- Foreign key to the courses table + `ci_id` int(11) NOT NULL, -- Foreign key to the course_items table + `staff_note` mediumtext, -- Staff only note + `public_note` mediumtext, -- Public, OPAC visible note + `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP, + PRIMARY KEY (`cr_id`), + UNIQUE KEY `pseudo_key` (`course_id`,`ci_id`), + KEY `course_id` (`course_id`) +) ENGINE=InnoDB DEFAULT CHARSET=utf8; + +-- +-- Constraints for table `course_reserves` +-- +ALTER TABLE `course_reserves` + ADD CONSTRAINT `course_reserves_ibfk_1` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`); + +-- -- Table structure for table `borrower_branch_circ_rules` -- --- a/installer/data/mysql/nb-NO/1-Obligatorisk/userflags.sql +++ a/installer/data/mysql/nb-NO/1-Obligatorisk/userflags.sql @@ -36,3 +36,4 @@ INSERT INTO `userflags` VALUES(14,'editauthorities','Tilgang til å endre autori INSERT INTO `userflags` VALUES(15,'serials','Tilgang til å endre abonnementer',0); INSERT INTO `userflags` VALUES(16,'reports','Tilgang til rapportmodulen',0); INSERT INTO `userflags` VALUES(17,'staffaccess','Endre innlogging og rettigheter for bibliotekansatte',0); +INSERT INTO `userflags` VALUES(18,'coursereserves','Course Reserves',0); --- a/installer/data/mysql/nb-NO/1-Obligatorisk/userpermissions.sql +++ a/installer/data/mysql/nb-NO/1-Obligatorisk/userpermissions.sql @@ -71,5 +71,8 @@ INSERT INTO permissions (module_bit, code, description) VALUES (15, 'renew_subscription', 'Fornye abonnementer'), (15, 'routing', 'Sirkulasjon'), (16, 'execute_reports', 'Kjøre SQL-rapporter'), - (16, 'create_reports', 'Opprette SQL-rapporter') + (16, 'create_reports', 'Opprette SQL-rapporter'), + (18, 'manage_courses', 'Add, edit and delete courses'), + (18, 'add_reserves', 'Add course reserves'), + (18, 'delete_reserves', 'Remove course reserves') ; --- a/installer/data/mysql/pl-PL/mandatory/userflags.sql +++ a/installer/data/mysql/pl-PL/mandatory/userflags.sql @@ -15,3 +15,4 @@ INSERT INTO `userflags` VALUES(14,'editauthorities','Allow to edit authorities', INSERT INTO `userflags` VALUES(15,'serials','Allow to manage serials subscriptions',0); INSERT INTO `userflags` VALUES(16,'reports','Allow to access to the reports module',0); INSERT INTO `userflags` VALUES(17,'staffaccess','Modify login / permissions for staff users',0); +INSERT INTO `userflags` VALUES(18,'coursereserves','Course Reserves',0); --- a/installer/data/mysql/pl-PL/mandatory/userpermissions.sql +++ a/installer/data/mysql/pl-PL/mandatory/userpermissions.sql @@ -52,5 +52,8 @@ INSERT INTO permissions (module_bit, code, description) VALUES (15, 'renew_subscription', 'Renew a subscription'), (15, 'routing', 'Routing'), (16, 'execute_reports', 'Execute SQL reports'), - (16, 'create_reports', 'Create SQL Reports') + (16, 'create_reports', 'Create SQL Reports'), + (18, 'manage_courses', 'Add, edit and delete courses'), + (18, 'add_reserves', 'Add course reserves'), + (18, 'delete_reserves', 'Remove course reserves') ; --- a/installer/data/mysql/ru-RU/mandatory/permissions_and_user_flags.sql +++ a/installer/data/mysql/ru-RU/mandatory/permissions_and_user_flags.sql @@ -17,7 +17,8 @@ INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES (14,'editauthorities', 'Разрешение на изменение авторитетных источников',0), (15,'serials', 'Разрешение на управление подпиской периодических изданий',0), (16,'reports', 'Разрешение на доступ к модулю отчетов',0), - (17,'staffaccess', 'Смена имени(логина)/привилегий для работников библиотеки',0) + (17,'staffaccess', 'Смена имени(логина)/привилегий для работников библиотеки',0), + (18,'coursereserves', 'Course Reserves',0); ; TRUNCATE permissions; @@ -75,6 +76,9 @@ INSERT INTO permissions (module_bit, code, description) VALUES (15, 'renew_subscription', 'Renew a subscription'), (15, 'routing', 'Routing'), (16, 'execute_reports', 'Execute SQL reports'), - (16, 'create_reports', 'Create SQL Reports') + (16, 'create_reports', 'Create SQL Reports'), + (18, 'manage_courses', 'Add, edit and delete courses'), + (18, 'add_reserves', 'Add course reserves'), + (18, 'delete_reserves', 'Remove course reserves') ; --- a/installer/data/mysql/sysprefs.sql +++ a/installer/data/mysql/sysprefs.sql @@ -411,3 +411,4 @@ INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ( INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReviews','0','Display book review snippets from IDreamBooks.com','','YesNo'); INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReadometer','0','Display Readometer from IDreamBooks.com','','YesNo'); INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksResults','0','Display IDreamBooks.com rating in search results','','YesNo'); +INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('UseCourseReserves', '0', 'Enable the course reserves feature.', NULL, 'YesNo'); --- a/installer/data/mysql/uk-UA/mandatory/permissions_and_user_flags.sql +++ a/installer/data/mysql/uk-UA/mandatory/permissions_and_user_flags.sql @@ -17,7 +17,8 @@ INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES (14,'editauthorities', 'Дозвіл на редагування авторитетних джерел',0), (15,'serials', 'Дозвіл на керування підпискою періодичних видань',0), (16,'reports', 'Дозвіл на доступ до модуля звітів',0), - (17,'staffaccess', 'Зміна імені(логіну)/привілеїв для працівників бібліотеки',0) + (17,'staffaccess', 'Зміна імені(логіну)/привілеїв для працівників бібліотеки',0), + (18,'coursereserves', 'Course Reserves',0); ; TRUNCATE permissions; @@ -75,6 +76,9 @@ INSERT INTO permissions (module_bit, code, description) VALUES (15, 'renew_subscription', 'Renew a subscription'), (15, 'routing', 'Routing'), (16, 'execute_reports', 'Execute SQL reports'), - (16, 'create_reports', 'Create SQL Reports') + (16, 'create_reports', 'Create SQL Reports'), + (18, 'manage_courses', 'Add, edit and delete courses'), + (18, 'add_reserves', 'Add course reserves'), + (18, 'delete_reserves', 'Remove course reserves') ; --- a/installer/data/mysql/updatedatabase.pl +++ a/installer/data/mysql/updatedatabase.pl @@ -5797,7 +5797,6 @@ if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { SetVersion($DBversion); } - $DBversion = "3.09.00.047"; if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { # to preserve default behaviour as best as possible, set this new preference differently depending on whether IndependantBranches is set or not @@ -5828,8 +5827,6 @@ if(C4::Context->preference("Version") < TransformToNum($DBversion) ) { SetVersion($DBversion); } - - $DBversion = "3.09.00.050"; if (C4::Context->preference("Version") < TransformToNum($DBversion)) { $dbh->do("ALTER TABLE authorised_values MODIFY category varchar(16) NOT NULL DEFAULT '';"); @@ -6399,6 +6396,95 @@ if ( CheckVersion($DBversion) ) { SetVersion($DBversion); } +$DBversion = "3.11.00.XXX"; +if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { + $dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('UseCourseReserves', '0', NULL, 'Enable the course reserves feature.', 'YesNo')"); + $dbh->do("INSERT INTO userflags (bit,flag,flagdesc,defaulton) VALUES ('18','coursereserves','Course Reserves','0')"); + $dbh->do(" +CREATE TABLE `courses` ( + `course_id` int(11) NOT NULL AUTO_INCREMENT, + `department` varchar(20) DEFAULT NULL, + `course_number` varchar(255) DEFAULT NULL, + `section` varchar(255) DEFAULT NULL, + `course_name` varchar(255) DEFAULT NULL, + `term` varchar(20) DEFAULT NULL, + `staff_note` mediumtext, + `public_note` mediumtext, + `students_count` varchar(20) DEFAULT NULL, + `enabled` enum('yes','no') NOT NULL DEFAULT 'yes', + `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP, + PRIMARY KEY (`course_id`) +) ENGINE=InnoDB DEFAULT CHARSET=utf8; + "); + + $dbh->do(" +CREATE TABLE `course_instructors` ( + `course_id` int(11) NOT NULL, + `borrowernumber` int(11) NOT NULL, + PRIMARY KEY (`course_id`,`borrowernumber`), + KEY `borrowernumber` (`borrowernumber`) +) ENGINE=InnoDB DEFAULT CHARSET=utf8; + "); + + $dbh->do(" +ALTER TABLE `course_instructors` + ADD CONSTRAINT `course_instructors_ibfk_2` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`), + ADD CONSTRAINT `course_instructors_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE; + "); + + $dbh->do(" +CREATE TABLE `course_items` ( + `ci_id` int(11) NOT NULL AUTO_INCREMENT, + `itemnumber` int(11) NOT NULL, + `itype` varchar(10) DEFAULT NULL, + `ccode` varchar(10) DEFAULT NULL, + `holdingbranch` varchar(10) DEFAULT NULL, + `location` varchar(80) DEFAULT NULL, + `enabled` enum('yes','no') NOT NULL DEFAULT 'no', + `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP, + PRIMARY KEY (`ci_id`), + UNIQUE KEY `itemnumber` (`itemnumber`), + KEY `holdingbranch` (`holdingbranch`) +) ENGINE=InnoDB DEFAULT CHARSET=utf8; + "); + +$dbh->do(" +ALTER TABLE `course_items` + ADD CONSTRAINT `course_items_ibfk_2` FOREIGN KEY (`holdingbranch`) REFERENCES `branches` (`branchcode`) ON DELETE CASCADE ON UPDATE CASCADE, + ADD CONSTRAINT `course_items_ibfk_1` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE CASCADE ON UPDATE CASCADE; +"); + +$dbh->do(" +CREATE TABLE `course_reserves` ( + `cr_id` int(11) NOT NULL AUTO_INCREMENT, + `course_id` int(11) NOT NULL, + `ci_id` int(11) NOT NULL, + `staff_note` mediumtext, + `public_note` mediumtext, + `timestamp` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP, + PRIMARY KEY (`cr_id`), + UNIQUE KEY `pseudo_key` (`course_id`,`ci_id`), + KEY `course_id` (`course_id`) +) ENGINE=InnoDB DEFAULT CHARSET=utf8; +"); + + $dbh->do(" +ALTER TABLE `course_reserves` + ADD CONSTRAINT `course_reserves_ibfk_1` FOREIGN KEY (`course_id`) REFERENCES `courses` (`course_id`); + "); + + $dbh->do(" +INSERT INTO permissions (module_bit, code, description) VALUES + (18, 'manage_courses', 'Add, edit and delete courses'), + (18, 'add_reserves', 'Add course reserves'), + (18, 'delete_reserves', 'Remove course reserves') +; + "); + + + print "Upgrade to $DBversion done (Add Course Reserves ( system preference UseCourseReserves ))\n"; + SetVersion($DBversion); +} =head1 FUNCTIONS --- a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css +++ a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css @@ -753,7 +753,7 @@ fieldset.rows .inputnote { visibility:visible; /* you propably don't need to change this one */ display:block; } -#newbiblio a, #addchild a, #newentry a, #newshelf a, #newmenuc .first-child, #newsupplier .first-child, #newlabel a, #newtemplate a, #newlabelbatch a, #newpatroncardbatch a, #newprofile a, #newsubscription a, #newdictionary a, #newbasket a, #newrootbudget-button, #budgets_menuc .first-child { +#new_course a, #newbiblio a, #addchild a, #newentry a, #newshelf a, #newmenuc .first-child, #newsupplier .first-child, #newlabel a, #newtemplate a, #newlabelbatch a, #newpatroncardbatch a, #newprofile a, #newsubscription a, #newdictionary a, #newbasket a, #newrootbudget-button, #budgets_menuc .first-child { padding-left : 34px; background-image: url("../../img/toolbar-new.gif"); background-position : center left; --- a/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc +++ a/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc @@ -28,6 +28,9 @@ [% IF ( CAN_user_serials ) %]
  • Serials
  • [% END %] + [% IF ( CAN_user_coursereserves ) %] +
  • Course Reserves
  • + [% END %] [% IF ( CAN_user_reports ) %]
  • Reports
  • [% END %] --- a/koha-tmpl/intranet-tmpl/prog/en/js/staff-global.js +++ a/koha-tmpl/intranet-tmpl/prog/en/js/staff-global.js @@ -5,11 +5,20 @@ function _(s) { return s } // dummy function for gettext $(document).ready(function() { $('#header_search').tabs().bind('tabsshow', function(e, ui) { $('#header_search > div:not(.ui-tabs-hide)').find('input').eq(0).focus(); }); - $(".close").click(function(){ window.close(); }); + + $(".close").click(function(){ window.close(); }); + if($("#header_search #checkin_search").length > 0){ $(document).bind('keydown','Alt+r',function (){ $("#header_search").tabs("select","#checkin_search"); $("#ret_barcode").focus(); }); } else { $(document).bind('keydown','Alt+r',function (){ location.href="/cgi-bin/koha/circ/returns.pl"; }); } if($("#header_search #circ_search").length > 0){ $(document).bind('keydown','Alt+u',function (){ $("#header_search").tabs("select","#circ_search"); $("#findborrower").focus(); }); } else { $(document).bind('keydown','Alt+u',function(){ location.href="/cgi-bin/koha/circ/circulation.pl"; }); } if($("#header_search #catalog_search").length > 0){ $(document).bind('keydown','Alt+q',function (){ $("#header_search").tabs("select","#catalog_search"); $("#search-form").focus(); }); } else { $(document).bind('keydown','Alt+q',function(){ location.href="/cgi-bin/koha/catalogue/search.pl"; }); } + $(".focus").focus(); + + $('.noEnterSubmit').keypress(function(e){ + if ( e.which == 13 ) return false; + //if ( e.which == 13 ) e.preventDefault(); + }); + }); @@ -73,24 +82,6 @@ YAHOO.util.Event.onContentReady("changelanguage", function () { }); }); -// http://jennifermadden.com/javascript/stringEnterKeyDetector.html -function checkEnter(e){ //e is event object passed from function invocation - var characterCode; // literal character code will be stored in this variable - if(e && e.which){ //if which property of event object is supported (NN4) - e = e; - characterCode = e.which; //character code is contained in NN4's which property - } else { - e = event; - characterCode = e.keyCode; //character code is contained in IE's keyCode property - } - - if(characterCode == 13){ //if generated character code is equal to ascii 13 (if enter key) - return false; - } else { - return true; - } -} - function clearHoldFor(){ $.cookie("holdfor",null, { path: "/", expires: 0 }); } --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref @@ -537,3 +537,10 @@ Circulation: - and this password - pref: AutoSelfCheckPass - . + Course Reserves: + - + - pref: UseCourseReserves + choices: + yes: Use + no: "Don't use" + - course reserves --- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt @@ -1,3 +1,18 @@ +[% USE AuthorisedValues %] + +[% ShowCourseReserves = 0 %] +[% IF UseCourseReserves %] + [% FOREACH item IN itemloop %] + [% IF item.course_reserves %] + [% FOREACH r IN item.course_reserves %] + [% IF r.course.enabled == 'yes' %] + [% ShowCourseReserves = 1 %] + [% END %] + [% END %] + [% END %] + [% END %] +[% END %] + [% INCLUDE 'doc-head-open.inc' %] [% INCLUDE 'greybox.inc' %] Koha › Catalog › @@ -370,6 +385,7 @@ function verify_images() { [% IF ( SpineLabelShowPrintOnBibDetails ) %]<th>Spine label</th>[% END %] [% IF ( hostrecords ) %]<th>Host records</th>[% END %] [% IF ( analyze ) %]<th>Used in</th><th></th>[% END %] + [% IF ( ShowCourseReserves ) %]<th>Course Reserves</th>[% END %] </tr> </thead> <tbody> @@ -522,6 +538,24 @@ function verify_images() { <td><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?hostbiblionumber=[% item.biblionumber %]&hostitemnumber=[% item.itemnumber %]">Create analytics</a></td> [% END %] + [% IF ShowCourseReserves %] + <td> + [% IF itemloo.course_reserves %] + [% FOREACH r IN itemloo.course_reserves %] + [% IF r.course.enabled == 'yes' %] + <p> + <a href="/cgi-bin/koha/course_reserves/course-details.pl?course_id=[% r.course.course_id %]"> + [% r.course.course_name %] + <!--[% IF r.course.course_number %] [% r.course.course_number %] [% END %]--> + [% IF r.course.section %] [% r.course.section %] [% END %] + [% IF r.course.term %] [% AuthorisedValues.GetByCode( 'TERM', r.course.term ) %] [% END %] + </a> + </p> + [% END %] + [% END %] + [% END %] + </td> + [% END %] </tr> [% END %] </tbody> --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/additem.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/additem.tt @@ -10,7 +10,7 @@ $(document).ready(function(){ window.close(); [% END %] [% END %] - $("fieldset.rows input").keydown(function(e){ return checkEnter(e); }); + $("fieldset.rows input").addClass("noEnterSubmit"); /* Inline edit/delete links */ var biblionumber = $("input[name='biblionumber']").attr("value"); $("td").click(function(event){ --- a/koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/add_items-step1.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/add_items-step1.tt @@ -0,0 +1,63 @@ +[% INCLUDE 'doc-head-open.inc' %] +<title>Koha › Course reserves › Add items +[% INCLUDE 'doc-head-close.inc' %] + + + + + + +[% INCLUDE 'header.inc' %] +[% INCLUDE 'cat-search.inc' %] + + + +
    +
    +
    +
    +
    +
    + [% IF ERROR_BARCODE_NOT_FOUND %] +
    No item found for barcode [% ERROR_BARCODE_NOT_FOUND %]
    + [% END %] + +
    + + + +
    + Add items: scan barcode + +

    + +

  • + + +
  • + +
    + +
    + + + Cancel +
    +
    +
    +
    +
    +
    +
    +
    + + +[% INCLUDE 'intranet-bottom.inc' %] --- a/koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/add_items-step2.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/add_items-step2.tt @@ -0,0 +1,133 @@ +[% INCLUDE 'doc-head-open.inc' %] +Koha › Course reserves › Add items +[% INCLUDE 'doc-head-close.inc' %] + + + + + + + +[% INCLUDE 'header.inc' %] +[% INCLUDE 'cat-search.inc' %] + + + +
    +
    +
    +
    +
    +
    + [% IF course_reserve %]
    This course already has this item on reserve.
    [% END %] + [% IF course_item %]
    Number of courses reserving this item: [% course_item.course_reserves.size %]
    [% END %] + +
    + + + +
    + Add [% item.title %] to [% course.course_name %] +
      +
    1. + + [% item.barcode %] + +
    2. + + [% IF item_level_itypes %] +
    3. + + +
    4. + [% END %] + +
    5. + + +
    6. + +
    7. + + +
    8. + +
    9. + + +
    10. + +
    11. + + +
    12. + +
    13. + + +
    14. + +
    +
    + +
    + + + Cancel +
    + +
    +
    +
    +
    +
    +
    + + +[% INCLUDE 'intranet-bottom.inc' %] --- a/koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/course-details.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/course-details.tt @@ -0,0 +1,185 @@ +[% USE AuthorisedValues %] +[% USE ItemTypes %] +[% USE Branches %] +[% INCLUDE 'doc-head-open.inc' %] +Koha › Course reserves › New course +[% INCLUDE 'doc-head-close.inc' %] + + + + + + + +[% INCLUDE 'header.inc' %] +[% INCLUDE 'cat-search.inc' %] + + + +
    +
    +
    +
    + +
      + [% IF CAN_user_coursereserves_add_reserves %]
    • Add reserves
    • [% END %] + [% IF ( CAN_user_coursereserves_manage_courses ) %]
    • Edit course
    • [% END %] + [% IF ( CAN_user_coursereserves_manage_courses ) %]
    • Delete course
    • [% END %] +
    +
    + + + + + + + + + + + + +
    Course name[% course.course_name %]
    Term[% AuthorisedValues.GetByCode( 'TERM', course.term ) %]
    Department_[% AuthorisedValues.GetByCode( 'DEPARTMENT', course.department ) %]
    Course number[% course.course_number %]
    Section[% course.section %]
    Instructors[% FOREACH i IN course.instructors %][% END %]
    Staff note[% course.staff_note %]
    Public note[% course.public_note %]
    Students count[% course.students_count %]
    Status[% IF course.enabled == 'yes' %]Active[% ELSE %]Inactive[% END %]
    + + + + + + + + [% IF item_level_itypes %][% END %] + + + + + + [% IF CAN_user_coursereserves_add_reserves %][% END %] + [% IF CAN_user_coursereserves_delete_reserves %][% END %] + + + + + + [% FOREACH cr IN course_reserves %] + + + + + [% IF item_level_itypes %] + + [% END %] + + + + + + + [% IF CAN_user_coursereserves_add_reserves %] + + [% END %] + + [% IF CAN_user_coursereserves_delete_reserves %] + + [% END %] + + + + [% END %] + +
    TitleBarcodeCall numberItem typeCollectionLocationLibraryStaff notePublic note  Other course reserves
    [% cr.item.title %][% cr.item.barcode %][% cr.item.itemcallnumber %] + [% IF cr.course_item.itype %] + [% IF cr.course_item.enabled == 'yes' %] + [% ItemTypes.GetDescription( cr.item.itype ) %] + [% ELSE %] + [% ItemTypes.GetDescription( cr.course_item.itype ) %] + [% END %] + [% ELSE %] + Unchanged + ([% ItemTypes.GetDescription( cr.item.itype ) %]) + [% END %] + + [% IF cr.course_item.ccode %] + [% IF cr.course_item.enabled == 'yes' %] + [% AuthorisedValues.GetByCode( 'CCODE', cr.item.ccode ) %] + [% ELSE %] + [% AuthorisedValues.GetByCode( 'CCODE', cr.course_item.ccode ) %] + [% END %] + [% ELSE %] + Unchanged + ([% AuthorisedValues.GetByCode( 'CCODE', cr.item.ccode ) %]) + [% END %] + + [% IF cr.course_item.location %] + [% IF cr.course_item.enabled == 'yes' %] + [% AuthorisedValues.GetByCode( 'LOC', cr.item.location ) %] + [% ELSE %] + [% AuthorisedValues.GetByCode( 'LOC', cr.course_item.location ) %] + [% END %] + [% ELSE %] + Unchanged + ([% AuthorisedValues.GetByCode( 'LOC', cr.item.location ) %]) + [% END %] + + [% IF cr.course_item.holdingbranch %] + [% IF cr.course_item.enabled == 'yes' %] + [% Branches.GetName( cr.item.holdingbranch ) %] + [% ELSE %] + [% Branches.GetName( cr.course_item.holdingbranch ) %] + [% END %] + [% ELSE %] + Unchanged + ([% Branches.GetName( cr.item.holdingbranch ) %]) + [% END %] + [% cr.staff_note %][% cr.public_note %]Edit + [% IF cr.item.onloan %] + On Loan + [% ELSIF cr.item.itemlost %] + Item Lost + [% ELSE %] + Remove + [% END %] + + + [% FOREACH course IN cr.courses %] + [% UNLESS cr.course_id == course.course_id %] +

    + + [% course.course_name %] + [% IF course.section %] [% course.section %] [% END %] + [% IF course.term %] [% AuthorisedValues.GetByCode( 'TERM', course.term ) %] [% END %] + +

    + [% END %] + [% END %] +
    +
    +
    +
    + + +[% INCLUDE 'intranet-bottom.inc' %] --- a/koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/course-reserves.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/course-reserves.tt @@ -0,0 +1,119 @@ +[% USE AuthorisedValues %] +[% INCLUDE 'doc-head-open.inc' %] +Koha › Course reserves +[% INCLUDE 'doc-head-close.inc' %] + + + +[% INCLUDE 'datatables-strings.inc' %] + + + + + + +[% INCLUDE 'header.inc' %] +[% INCLUDE 'cat-search.inc' %] + + + +
    +
    +
    +
    +
    + +
    + +
      + [% IF ( CAN_user_coursereserves_manage_courses ) %] +
    • New course
    • + [% END %] +
    +
    + + + +

    Courses

    + + + + + + + + + + + + + + + + + + [% FOREACH c IN courses %] + + + + + + + + + + + + [% END %] + +
    NameDept.Course #SectionTermInstructorsStaff notePublic note# of StudentsEnabled
    [% c.course_name %][% AuthorisedValues.GetByCode( 'DEPARTMENT', c.department ) %][% c.course_number %][% c.section %][% AuthorisedValues.GetByCode( 'TERM' c.term ) %] + [% FOREACH i IN c.instructors %] + + [% END %] + [% c.staff_note %][% c.public_note %][% c.students_count %] + [% IF c.enabled == 'yes' %] + + [% ELSE %] + + [% END %] +
    +
    +
    +
    +
    +
    + + +[% INCLUDE 'intranet-bottom.inc' %] --- a/koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/course.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/course_reserves/course.tt @@ -0,0 +1,205 @@ +[% INCLUDE 'doc-head-open.inc' %] +Koha › Course reserves › [% IF course_name %] Edit [% course_name %] [% ELSE %] New course [% END %] +[% INCLUDE 'doc-head-close.inc' %] + + + + + + + + + +[% INCLUDE 'header.inc' %] +[% INCLUDE 'cat-search.inc' %] + + + +
    +
    +
    +
    +
    +
    + + [% IF course_id %][% END %] +
    + [% IF course_id %] Edit [% ELSE %] Create [% END %] course +
      +
    1. + + [% IF departments %] + + [% ELSE %] + No DEPARTMENT authorised values found! Please create one or more authorised values with the category DEPARTMENT. + [% END %] +
    2. + +
    3. + + +
    4. + +
    5. + + +
    6. + +
    7. + + +
    8. + +
    9. + + [% IF terms %] + + [% ELSE %] + No TERM authorised values found! Please create one or more authorised values with the category TERM. + [% END %] +
    10. + + +
    11. + + +
      +
      + [% FOREACH i IN instructors %] +
      + [% i.surname %], [% i.firstname %] ( Remove ) + +
      + [% END %] +
      + +
      + +
      + + +
      +
      +
    12. + + +
    13. + +
    14. + + +
    15. + +
    16. + + +
    17. + +
    18. + + [% IF enabled == 'no' %] + + [% ELSE %] + + [% END %] +
    19. +
    +
    + +
    + + + Cancel +
    + +
    +
    +
    +
    +
    +
    + + +[% INCLUDE 'intranet-bottom.inc' %] --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/mancredit.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/mancredit.tt @@ -4,7 +4,7 @@ --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/maninvoice.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/maninvoice.tt @@ -4,7 +4,7 @@ --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt @@ -6,7 +6,7 @@ @@ -1276,6 +1290,7 @@ YAHOO.util.Event.onContentReady("furtherm", function () { [% ELSIF show_priority %] Item hold queue priority [% END %] + [% IF ( ShowCourseReservesHeader ) %]Course Reserves[% END %] [% FOREACH ITEM_RESULT IN items %] [% IF ( item_level_itypes ) %][% UNLESS ( noItemTypeImages ) %][% IF ( ITEM_RESULT.imageurl ) %][% ITEM_RESULT.description %][% END %][% END %] [% ITEM_RESULT.description %][% END %] @@ -1313,6 +1328,22 @@ YAHOO.util.Event.onContentReady("furtherm", function () { [% END %] [% END %] + [% IF ShowCourseReservesHeader %] + + [% IF ITEM_RESULT.course_reserves %] + [% FOREACH r IN ITEM_RESULT.course_reserves %] +

    + + [% r.course.course_name %] + + [% IF r.course.section %] [% r.course.section %] [% END %] + [% IF r.course.term %] [% AuthorisedValues.GetByCode( 'TERM', r.course.term ) %] [% END %] + +

    + [% END %] + [% END %] + + [% END %] [% END %] --- a/opac/opac-course-details.pl +++ a/opac/opac-course-details.pl @@ -0,0 +1,60 @@ +#!/usr/bin/perl + +# +# Copyright 2012 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 C4::Auth; +use C4::Output; +use C4::Koha; + +use C4::CourseReserves; + +my $cgi = new CGI; + +my ( $template, $borrowernumber, $cookie ) = get_template_and_user( + { + template_name => "opac-course-details.tmpl", + query => $cgi, + type => "opac", + authnotrequired => 1, + debug => 1, + } +); + +my $action = $cgi->param('action') || ''; +my $course_id = $cgi->param('course_id'); + +die( "No course_id given" ) unless ( $course_id ); + +if ( $action eq 'del_reserve' ) { + DelCourseReserve( cr_id => $cgi->param('cr_id') ); +} + +my $course = GetCourse( $course_id ); +my $course_reserves = GetCourseReserves( course_id => $course_id, include_items => 1, include_count => 1 ); + +$template->param( + course => $course, + course_reserves => $course_reserves, +); + +output_html_with_http_headers $cgi, $cookie, $template->output; --- a/opac/opac-course-reserves.pl +++ a/opac/opac-course-reserves.pl @@ -0,0 +1,51 @@ +#!/usr/bin/perl + +# +# Copyright 2012 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 C4::Auth; +use C4::Output; + +use C4::CourseReserves; + +my $cgi = new CGI; + +my ( $template, $borrowernumber, $cookie ) = get_template_and_user( + { + template_name => "opac-course-reserves.tmpl", + query => $cgi, + type => "opac", + authnotrequired => 1, + debug => 1, + } +); + +my $search_on = $cgi->param('search_on'); + +my $courses = SearchCourses( term => $search_on, enabled => 'yes' ); + +if ( @$courses == 1 ) { + print $cgi->redirect("/cgi-bin/koha/opac-course-details.pl?course_id=" . $courses->[0]->{'course_id'}); +} else { + $template->param( courses => $courses ); + output_html_with_http_headers $cgi, $cookie, $template->output; +} --- a/opac/opac-detail.pl +++ a/opac/opac-detail.pl @@ -50,6 +50,7 @@ use List::MoreUtils qw/any none/; use C4::Images; use Koha::DateUtils; use C4::HTML5Media; +use C4::CourseReserves; BEGIN { if (C4::Context->preference('BakerTaylorEnabled')) { @@ -1006,4 +1007,10 @@ if (C4::Context->preference('OpacHighlightedWords')) { $template->{VARS}->{query_desc} = $query->param('query_desc'); } +if ( C4::Context->preference('UseCourseReserves') ) { + foreach my $i ( @items ) { + $i->{'course_reserves'} = GetItemReservesInfo( itemnumber => $i->{'itemnumber'} ); + } +} + output_html_with_http_headers $query, $cookie, $template->output; --