Lines 27-33
use vars qw(@ISA @EXPORT);
Link Here
|
27 |
BEGIN { |
27 |
BEGIN { |
28 |
require Exporter; |
28 |
require Exporter; |
29 |
@ISA = qw(Exporter); |
29 |
@ISA = qw(Exporter); |
30 |
@EXPORT = qw(savereview updatereview numberofreviewsbybiblionumber); |
30 |
@EXPORT = qw(savereview numberofreviewsbybiblionumber); |
31 |
} |
31 |
} |
32 |
|
32 |
|
33 |
=head1 NAME |
33 |
=head1 NAME |
Lines 39-45
C4::Review - Perl Module containing routines for dealing with reviews of items
Link Here
|
39 |
use C4::Review; |
39 |
use C4::Review; |
40 |
|
40 |
|
41 |
savereview($biblionumber,$borrowernumber,$review); |
41 |
savereview($biblionumber,$borrowernumber,$review); |
42 |
updatereview($biblionumber,$borrowernumber,$review); |
|
|
43 |
my $count=numberofreviewsbybiblionumber($biblionumber); |
42 |
my $count=numberofreviewsbybiblionumber($biblionumber); |
44 |
|
43 |
|
45 |
=head1 DESCRIPTION |
44 |
=head1 DESCRIPTION |
Lines 66-87
sub savereview {
Link Here
|
66 |
$sth->execute( $borrowernumber, $biblionumber, $review ); |
65 |
$sth->execute( $borrowernumber, $biblionumber, $review ); |
67 |
} |
66 |
} |
68 |
|
67 |
|
69 |
=head2 updatereview |
|
|
70 |
|
71 |
updateview($biblionumber,$borrowernumber, $review); |
72 |
|
73 |
Update the review description in the 'reviews' database |
74 |
|
75 |
=cut |
76 |
|
77 |
sub updatereview { |
78 |
my ( $biblionumber, $borrowernumber, $review ) = @_; |
79 |
my $dbh = C4::Context->dbh; |
80 |
my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?"; |
81 |
my $sth = $dbh->prepare($query); |
82 |
$sth->execute( $review, $borrowernumber, $biblionumber ); |
83 |
} |
84 |
|
85 |
=head2 numberofreviewsbybiblionumber |
68 |
=head2 numberofreviewsbybiblionumber |
86 |
|
69 |
|
87 |
my $count=numberofreviewsbybiblionumber($biblionumber); |
70 |
my $count=numberofreviewsbybiblionumber($biblionumber); |