[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Letters.pm [rel_3_0]
From: |
paul poulain |
Subject: |
[Koha-cvs] koha/C4 Letters.pm [rel_3_0] |
Date: |
Mon, 30 Oct 2006 09:51:17 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: paul poulain <tipaul> 06/10/30 09:51:17
Modified files:
C4 : Letters.pm
Log message:
code cleaning
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Letters.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.4.2.3&r2=1.4.2.4
Patches:
Index: Letters.pm
===================================================================
RCS file: /sources/koha/koha/C4/Letters.pm,v
retrieving revision 1.4.2.3
retrieving revision 1.4.2.4
diff -u -b -r1.4.2.3 -r1.4.2.4
--- Letters.pm 20 Oct 2006 14:59:17 -0000 1.4.2.3
+++ Letters.pm 30 Oct 2006 09:51:17 -0000 1.4.2.4
@@ -49,7 +49,7 @@
=cut
@ISA = qw(Exporter);
address@hidden = qw(&GetLetters &getletter &addalert &getalert &delalert
&findrelatedto &sendalerts);
address@hidden = qw(&GetLetters &getletter &addalert &getalert &delalert
&findrelatedto &SendAlerts);
=head2 GetLetters
@@ -90,20 +90,11 @@
$dbh->quote($cat);
my $sth;
if ($cat ne ""){
- my $query = qq/
- SELECT *
- FROM letter
- WHERE module = ?
- ORDER BY name
- /;
+ my $query = "SELECT * FROM letter WHERE module = ? ORDER BY name";
$sth = $dbh->prepare($query);
$sth->execute($cat);
} else {
- my $query = qq/
- SELECT *
- FROM letter
- ORDER BY name
- /;
+ my $query = " SELECT * FROM letter ORDER BY name";
$sth = $dbh->prepare($query);
$sth->execute;
}