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

(-)a/C4/Log.pm (-5 / +3 lines)
Lines 90-99 sub logaction { Link Here
90
        }
90
        }
91
    }
91
    }
92
92
93
    my $script =
93
    my $script = ( $interface eq 'cron' or $interface eq 'commandline' )
94
        $interface eq 'cron'        ? basename($0)
94
        ? basename($0)
95
      : $interface eq 'commandline' ? basename($0)
95
        : undef;
96
      :                               undef;
97
96
98
    my $dbh = C4::Context->dbh;
97
    my $dbh = C4::Context->dbh;
99
    my $sth=$dbh->prepare("Insert into action_logs (timestamp,user,module,action,object,info,interface,script) values (now(),?,?,?,?,?,?,?)");
98
    my $sth=$dbh->prepare("Insert into action_logs (timestamp,user,module,action,object,info,interface,script) values (now(),?,?,?,?,?,?,?)");
100
- 

Return to bug 30984