Attachment #50454 for bug #16306

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




    return ($userenv->{flags}//0) % 2;
}

=head2 setCommandlineEnvironment

Sets the Koha environment for command line scripts.

=cut

sub setCommandlineEnvironment {
	my ($class) = @_;

	C4::Context->interface('commandline'); #Set interface for logger and friends
	C4::Context->_new_userenv('commandline');
	C4::Context::set_userenv(1,0,0,'commandline',$0, '', '', {}, '', '', '');
}

=head2 interface

Sets the current interface for later retrieval in any Perl module
- 

Return to bug 16306

Lines 1293-1298 sub IsSuperLibrarian { Link Here

(-)a/C4/Context.pm (-1 / +14 lines)
1293	return ($userenv->{flags}//0) % 2;	1293	return ($userenv->{flags}//0) % 2;
1294	}	1294	}
1295		1295
		1296	=head2 setCommandlineEnvironment
		1297
		1298	Sets the Koha environment for command line scripts.
		1299
		1300	=cut
		1301
		1302	sub setCommandlineEnvironment {
		1303	my ($class) = @_;
		1304
		1305	C4::Context->interface('commandline'); #Set interface for logger and friends
		1306	C4::Context->_new_userenv('commandline');
		1307	C4::Context::set_userenv(1,0,0,'commandline',$0, '', '', {}, '', '', '');
		1308	}
		1309
1296	=head2 interface	1310	=head2 interface
1297		1311
1298	Sets the current interface for later retrieval in any Perl module	1312	Sets the current interface for later retrieval in any Perl module
1299	-