loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.160.6.84.2.1, 2017/06/22 02:11:25	version 1.160.6.84.2.3, 2017/09/16 00:26:17
Line 6208 sub print_scantronformat {	Line 6208 sub print_scantronformat {
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
if ($settings->{'scantronformat'} eq "/res/$dom/$confname/scantron/custom.tab") {	if ($settings->{'scantronformat'} eq "/res/$dom/$confname/scantron/custom.tab") {
my @info = &Apache::lonnet::stat_file($settings->{'scantronformat'});	my @info = &Apache::lonnet::stat_file($settings->{'scantronformat'});
if (0 && ((!@info) \|\| ($info[0] eq 'no_such_dir'))) {	if ((!@info) \|\| ($info[0] eq 'no_such_dir')) {
$scantronurl = '';	$scantronurl = '';
} else {	} else {
$scantronurl = $settings->{'scantronformat'};	$scantronurl = $settings->{'scantronformat'};
Line 9207 sub modify_ltitools {	Line 9207 sub modify_ltitools {
}	}
if ($env{'form.ltitools_add_image.filename'} ne '') {	if ($env{'form.ltitools_add_image.filename'} ne '') {
my ($imageurl,$error) =	my ($imageurl,$error) =
&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$dom,	&process_ltitools_image($r,$dom,$confname,'ltitools_add_image',$newid,
$configuserok,$switchserver,$author_ok);	$configuserok,$switchserver,$author_ok);
if ($imageurl) {	if ($imageurl) {
$confhash{$newid}{'image'} = $imageurl;	$confhash{$newid}{'image'} = $imageurl;