Bug 22031: Add SQL::Abstract like syntax to haspermission

[koha.git] / C4 / Log.pm

diff --git a/C4/Log.pm b/C4/Log.pm
index 0a14dfe..3a1e93e 100644 (file)
--- a/C4/Log.pm
+++ b/C4/Log.pm
@@ -35,7 +35,7 @@ use vars qw(@ISA @EXPORT);
 BEGIN {
         require Exporter;
         @ISA = qw(Exporter);
-        @EXPORT = qw(&logaction &cronlogaction &GetLogStatus &displaylog &GetLogs);
+        @EXPORT = qw(&logaction &cronlogaction &GetLogs);
 }
 
 =head1 NAME
@@ -120,111 +120,6 @@ sub cronlogaction {
     logaction( 'CRONJOBS', 'Run', undef, $loginfo ) if C4::Context->preference('CronjobLog');
 }
 
-
-=item GetLogStatus
-
-  $status = GetLogStatus;
-
-C<$status> is a hasref like this example:
-    $hash = {
-        BorrowersLog   => 1,
-        CataloguingLog => 0,
-        IssueLog       => 0,
-        ...
-    }
-
-=cut
-
-#'
-sub GetLogStatus {
-    my %hash;
-    $hash{BorrowersLog}    = C4::Context->preference("BorrowersLog");
-    $hash{CataloguingLog}  = C4::Context->preference("CataloguingLog");
-    $hash{HoldsLog}        = C4::Context->preference("HoldsLog");
-    $hash{IssueLog}        = C4::Context->preference("IssueLog");
-    $hash{ReturnLog}       = C4::Context->preference("ReturnLog");
-    $hash{SubscriptionLog} = C4::Context->preference("SubscriptionLog");
-    $hash{LetterLog}       = C4::Context->preference("LetterLog");
-    $hash{FinesLog}        = C4::Context->preference("FinesLog");
-    return \%hash;
-}
-
-=item displaylog
-
-  &displaylog($modulename, @filters);
-  $modulename is the name of the module on which the user wants to display logs
-  @filters is an optional table of hash containing :
-      - name : the name of the variable to filter
-    - value : the value of the filter.... May be with * joker
-
-returns a table of hash containing who did what on which object at what time
-
-=cut
-
-#'
-sub displaylog {
-  my ($modulename, @filters) = @_;
-    my $dbh = C4::Context->dbh;
-    my $strsth=qq|
-               SELECT action_logs.timestamp, action_logs.action, action_logs.info,
-                               borrowers.cardnumber, borrowers.surname, borrowers.firstname, borrowers.userid,
-                       biblio.biblionumber, biblio.title, biblio.author
-        FROM action_logs
-               LEFT JOIN borrowers ON borrowers.borrowernumber=action_logs.user
-        LEFT JOIN  biblio   ON action_logs.object=biblio.biblionumber
-        WHERE action_logs.module = 'cataloguing'
-       |;
-       my %filtermap = ();
-    if ($modulename eq "catalogue" or $modulename eq "acqui") {
-               %filtermap = (
-                         user => 'borrowers.surname',
-                        title => 'biblio.title',
-                       author => 'biblio.author',
-               );
-    } elsif ($modulename eq "members") {
-        $strsth=qq|
-               SELECT action_logs.timestamp, action_logs.action, action_logs.info,
-                       borrowers.cardnumber, borrowers.surname, borrowers.firstname, borrowers.userid,
-                       bor2.cardnumber, bor2.surname, bor2.firstname, bor2.userid
-        FROM action_logs
-               LEFT JOIN borrowers ON borrowers.borrowernumber=action_logs.user
-               LEFT JOIN borrowers as bor2 ON action_logs.object=bor2.borrowernumber
-        WHERE action_logs.module = 'members'
-               |;
-               %filtermap = (
-                      user => 'borrowers.surname',
-                   surname => 'bor2.surname',
-                 firstname => 'bor2.firstname',
-                cardnumber => 'bor2.cardnumber',
-               );
-    } else {
-               return 0;
-       }
-
-    if (@filters) {
-               foreach my $filter (@filters) {
-                       my $tempname = $filter->{name}         or next;
-                       (grep {/^$tempname$/} keys %filtermap) or next;
-                       $filter->{value} =~ s/\*/%/g;
-                       $strsth .= " AND " . $filtermap{$tempname} . " LIKE " . $filter->{value};
-               }
-       }
-    my $sth=$dbh->prepare($strsth);
-    $sth->execute;
-    my @results;
-    my $count;
-    my $hilighted=1;
-    while (my $data = $sth->fetchrow_hashref){
-       $data->{hilighted} = ($hilighted>0);
-        $data->{info} =~ s/\n/<br\/>/g;
-        $data->{day} = output_pref({ str => $data->{timestamp} });
-        push @results, $data;
-        $count++;
-        $hilighted = -$hilighted;
-    }
-    return ($count, \@results);
-}
-
 =item GetLogs
 
 $logs = GetLogs($datefrom,$dateto,$user,\@modules,$action,$object,$info);