[Koha-cvs] koha/C4 Letters.pm [rel_3_0]

[paul poulain]

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;
     }