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

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        07/01/12 18:02:52

Modified files:
        C4             : Log.pm 

Log message:
        modify logstatus to works with the news syspref.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Log.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.5.2.3&r2=1.5.2.4

Patches:
Index: Log.pm
===================================================================
RCS file: /sources/koha/koha/C4/Log.pm,v
retrieving revision 1.5.2.3
retrieving revision 1.5.2.4
diff -u -b -r1.5.2.3 -r1.5.2.4
--- Log.pm      11 Jan 2007 14:25:01 -0000      1.5.2.3
+++ Log.pm      12 Jan 2007 18:02:52 -0000      1.5.2.4
@@ -29,7 +29,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.5.2.3 $' =~ /\d+/g; shift(@v) . "." . 
join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.5.2.4 $' =~ /\d+/g; shift(@v) . "." . 
join( "_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -50,7 +50,7 @@
 =cut
 
 @ISA = qw(Exporter);
address@hidden = qw(&logaction &logstatus &displaylog &GetLogs);
address@hidden = qw(&logaction &GetLogStatus &displaylog &GetLogs);
 
 =item logaction
 
@@ -70,18 +70,31 @@
     $sth->finish;
 }
 
-=item logstatus
+=item GetLogStatus
 
-  &logstatus;
+  $status = GetLogStatus;
 
-returns True If Activate_Log variable is equal to On
-Activate_Log is a system preference Variable
+C<$status> is a hasref like this example:
+    $hash = {
+        BorrowersLog   => 1,
+        CataloguingLog => 0,
+        IssueLog       => 0,
+        ...
+    }
 
 =cut
 
 #'
-sub logstatus {
-    return C4::Context->preference("Activate_Log");
+sub GetLogStatus {
+    my %hash;
+    $hash{BorrowersLog}    = C4::Context->preference("BorrowersLog");
+    $hash{CataloguingLog}  = C4::Context->preference("CataloguingLog");
+    $hash{IssueLog}        = C4::Context->preference("IssueLog");
+    $hash{ReturnLog}       = C4::Context->preference("CataloguingLog");
+    $hash{SubscriptionLog} = C4::Context->preference("CataloguingLog");
+    $hash{LetterLog}       = C4::Context->preference("LetterLog");
+    
+    return \%hash;
 }
 
 =item displaylog