View | Details | Raw Unified | Return to bug 16829
Collapse All | Expand All

(-)a/C4/Log.pm (-4 / +10 lines)
Lines 64-70 number is set to 0, which is the same as the superlibrarian's number. Link Here
64
64
65
#'
65
#'
66
sub logaction {
66
sub logaction {
67
    my ($modulename, $actionname, $objectnumber, $infos)=@_;
67
    my ($modulename, $actionname, $objectnumber, $infos, $interface)=@_;
68
68
69
    # Get ID of logged in user.  if called from a batch job,
69
    # Get ID of logged in user.  if called from a batch job,
70
    # no user session exists and C4::Context->userenv() returns
70
    # no user session exists and C4::Context->userenv() returns
Lines 72-81 sub logaction { Link Here
72
    my $userenv = C4::Context->userenv();
72
    my $userenv = C4::Context->userenv();
73
    my $usernumber = (ref($userenv) eq 'HASH') ? $userenv->{'number'} : 0;
73
    my $usernumber = (ref($userenv) eq 'HASH') ? $userenv->{'number'} : 0;
74
    $usernumber ||= 0;
74
    $usernumber ||= 0;
75
    $interface //= C4::Context->interface;
75
76
76
    my $dbh = C4::Context->dbh;
77
    my $dbh = C4::Context->dbh;
77
    my $sth=$dbh->prepare("Insert into action_logs (timestamp,user,module,action,object,info) values (now(),?,?,?,?,?)");
78
    my $sth=$dbh->prepare("Insert into action_logs (timestamp,user,module,action,object,info,interface) values (now(),?,?,?,?,?,?)");
78
    $sth->execute($usernumber,$modulename,$actionname,$objectnumber,$infos);
79
    $sth->execute($usernumber,$modulename,$actionname,$objectnumber,$infos,$interface);
79
    $sth->finish;
80
    $sth->finish;
80
}
81
}
81
82
Lines 217-222 sub GetLogs { Link Here
217
    my $action   = shift;
218
    my $action   = shift;
218
    my $object   = shift;
219
    my $object   = shift;
219
    my $info     = shift;
220
    my $info     = shift;
221
    my $interfaces = shift;
220
222
221
    my $iso_datefrom = $datefrom ? output_pref({ dt => dt_from_string( $datefrom ), dateformat => 'iso', dateonly => 1 }) : undef;
223
    my $iso_datefrom = $datefrom ? output_pref({ dt => dt_from_string( $datefrom ), dateformat => 'iso', dateonly => 1 }) : undef;
222
    my $iso_dateto = $dateto ? output_pref({ dt => dt_from_string( $dateto ), dateformat => 'iso', dateonly => 1 }) : undef;
224
    my $iso_dateto = $dateto ? output_pref({ dt => dt_from_string( $dateto ), dateformat => 'iso', dateonly => 1 }) : undef;
Lines 258-263 sub GetLogs { Link Here
258
        $query .= " AND info LIKE ? ";
260
        $query .= " AND info LIKE ? ";
259
        push( @parameters, "%" . $info . "%" );
261
        push( @parameters, "%" . $info . "%" );
260
    }
262
    }
263
    if ( $interfaces && scalar(@$interfaces) ) {
264
        $query .=
265
          " AND interface IN (" . join( ",", map { "?" } @$interfaces ) . ") ";
266
        push( @parameters, @$interfaces );
267
    }
261
268
262
    my $sth = $dbh->prepare($query);
269
    my $sth = $dbh->prepare($query);
263
    $sth->execute(@parameters);
270
    $sth->execute(@parameters);
264
- 

Return to bug 16829