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

(-)a/C4/Auth.pm (-4 / +4 lines)
Lines 703-709 sub checkauth { Link Here
703
            $session->flush;
703
            $session->flush;
704
            $session->delete();
704
            $session->delete();
705
            C4::Context->_unset_userenv($sessionID);
705
            C4::Context->_unset_userenv($sessionID);
706
            _session_log(sprintf "%20s from %16s logged out at %30s (manually).\n", $userid,$ip,(strftime "%c",localtime));
706
            #_session_log(sprintf "%20s from %16s logged out at %30s (manually).\n", $userid,$ip,(strftime "%c",localtime));
707
            $sessionID = undef;
707
            $sessionID = undef;
708
            $userid    = undef;
708
            $userid    = undef;
709
709
Lines 716-722 sub checkauth { Link Here
716
            $info{'timed_out'} = 1;
716
            $info{'timed_out'} = 1;
717
            $session->delete();
717
            $session->delete();
718
            C4::Context->_unset_userenv($sessionID);
718
            C4::Context->_unset_userenv($sessionID);
719
            _session_log(sprintf "%20s from %16s logged out at %30s (inactivity).\n", $userid,$ip,(strftime "%c",localtime));
719
            #_session_log(sprintf "%20s from %16s logged out at %30s (inactivity).\n", $userid,$ip,(strftime "%c",localtime));
720
            $userid    = undef;
720
            $userid    = undef;
721
            $sessionID = undef;
721
            $sessionID = undef;
722
        }
722
        }
Lines 727-733 sub checkauth { Link Here
727
            $info{'different_ip'} = 1;
727
            $info{'different_ip'} = 1;
728
            $session->delete();
728
            $session->delete();
729
            C4::Context->_unset_userenv($sessionID);
729
            C4::Context->_unset_userenv($sessionID);
730
            _session_log(sprintf "%20s from %16s logged out at %30s (ip changed to %16s).\n", $userid,$ip,(strftime "%c",localtime), $info{'newip'});
730
            #_session_log(sprintf "%20s from %16s logged out at %30s (ip changed to %16s).\n", $userid,$ip,(strftime "%c",localtime), $info{'newip'});
731
            $sessionID = undef;
731
            $sessionID = undef;
732
            $userid    = undef;
732
            $userid    = undef;
733
        }
733
        }
Lines 765-771 sub checkauth { Link Here
765
		    $userid = $retuserid if ($retuserid ne '');
765
		    $userid = $retuserid if ($retuserid ne '');
766
		}
766
		}
767
		if ($return) {
767
		if ($return) {
768
               _session_log(sprintf "%20s from %16s logged in  at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime '%c', localtime));
768
               #_session_log(sprintf "%20s from %16s logged in  at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime '%c', localtime));
769
            	if ( $flags = haspermission(  $userid, $flagsrequired ) ) {
769
            	if ( $flags = haspermission(  $userid, $flagsrequired ) ) {
770
					$loggedin = 1;
770
					$loggedin = 1;
771
            	}
771
            	}
(-)a/C4/Print.pm (-1 / +9 lines)
Lines 79-85 sub remoteprint ($$) { Link Here
79
    # to have spaces in them). Or perhaps if $queue eq "" and
79
    # to have spaces in them). Or perhaps if $queue eq "" and
80
    # $env->{file} ne "", then that should mean "print to $env->{file}".
80
    # $env->{file} ne "", then that should mean "print to $env->{file}".
81
    if ( $queue eq "" || $queue eq 'nulllp' ) {
81
    if ( $queue eq "" || $queue eq 'nulllp' ) {
82
        open( PRINTER, ">/tmp/kohaiss" );
82
        return;
83
	#open( PRINTER, ">/tmp/kohaiss" );
83
    }
84
    }
84
    else {
85
    else {
85
86
Lines 125-130 sub remoteprint ($$) { Link Here
125
}
126
}
126
127
127
sub printreserve {
128
sub printreserve {
129
130
    # FIXME - make useful
131
    return;
132
128
    my ( $branchname, $bordata, $itemdata ) = @_;
133
    my ( $branchname, $bordata, $itemdata ) = @_;
129
    my $printer = '';
134
    my $printer = '';
130
    (return) unless ( C4::Context->boolean_preference('printreserveslips') );
135
    (return) unless ( C4::Context->boolean_preference('printreserveslips') );
Lines 175-180 print a slip for the given $borrowernumber Link Here
175
180
176
#'
181
#'
177
sub printslip ($) {
182
sub printslip ($) {
183
184
    #FIXME - make useful
185
178
    my $borrowernumber = shift;
186
    my $borrowernumber = shift;
179
    my $borrower   = GetMemberDetails($borrowernumber);
187
    my $borrower   = GetMemberDetails($borrowernumber);
180
	my $issueslist = GetPendingIssues($borrowernumber); 
188
	my $issueslist = GetPendingIssues($borrowernumber); 
(-)a/installer/InstallAuth.pm (-2 / +2 lines)
Lines 274-280 sub checkauth { Link Here
274
            C4::Context->_unset_userenv($sessionID);
274
            C4::Context->_unset_userenv($sessionID);
275
            $sessionID = undef;
275
            $sessionID = undef;
276
            $userid    = undef;
276
            $userid    = undef;
277
            open L, ">>/tmp/sessionlog";
277
	   # Commented out due to its lack of usefulness
278
           # open L, ">>/tmp/sessionlog";
278
            my $time = localtime( time() );
279
            my $time = localtime( time() );
279
            printf L "%20s from %16s logged out at %30s (manually).\n", $userid,
280
            printf L "%20s from %16s logged out at %30s (manually).\n", $userid,
280
              $ip, $time;
281
              $ip, $time;
281
- 

Return to bug 6627