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

(-)a/C4/Review.pm (-18 lines)
Lines 49-72 Review.pm provides many routines for manipulating reviews. Link Here
49
49
50
=head1 FUNCTIONS
50
=head1 FUNCTIONS
51
51
52
=head2 savereview
53
54
  savereview($biblionumber,$borrowernumber, $review);
55
56
Save a review in the 'reviews' database
57
58
=cut
59
60
sub savereview {
61
    my ( $biblionumber, $borrowernumber, $review ) = @_;
62
    my $dbh   = C4::Context->dbh;
63
    my $query = "INSERT INTO reviews (borrowernumber,biblionumber,
64
  review,approved,datereviewed) VALUES
65
  (?,?,?,0,now())";
66
    my $sth = $dbh->prepare($query);
67
    $sth->execute( $borrowernumber, $biblionumber, $review );
68
}
69
70
=head2 numberofreviewsbybiblionumber
52
=head2 numberofreviewsbybiblionumber
71
53
72
  my $count=numberofreviewsbybiblionumber($biblionumber);
54
  my $count=numberofreviewsbybiblionumber($biblionumber);
(-)a/opac/opac-review.pl (-5 / +9 lines)
Lines 22-32 use CGI qw ( -utf8 ); Link Here
22
use C4::Auth;
22
use C4::Auth;
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Output;
24
use C4::Output;
25
use C4::Review;
26
use C4::Biblio;
25
use C4::Biblio;
27
use C4::Scrubber;
26
use C4::Scrubber;
28
use C4::Debug;
27
use C4::Debug;
29
use Koha::DateUtils;
28
use Koha::DateUtils;
29
use Koha::Review;
30
use Koha::Reviews;
30
use Koha::Reviews;
31
31
32
my $query        = new CGI;
32
my $query        = new CGI;
Lines 69-77 if (defined $review) { Link Here
69
                        datereviewed  => dt_from_string
69
                        datereviewed  => dt_from_string
70
                    }
70
                    }
71
                )->store;
71
                )->store;
72
			} else {
72
            } else {
73
    			savereview($biblionumber, $borrowernumber, $clean);
73
                Koha::Review->new(
74
			}
74
                    {   biblionumber   => $biblionumber,
75
                        borrowernumber => $borrowernumber,
76
                        review         => $clean,
77
                    }
78
                )->store;
79
            }
75
			unless (@errors){ $template->param(WINDOW_CLOSE=>1); }
80
			unless (@errors){ $template->param(WINDOW_CLOSE=>1); }
76
		}
81
		}
77
	}
82
	}
78
- 

Return to bug 15839