version 1.206, 2013/09/10 01:51:32
|
version 1.208, 2013/09/21 13:49:31
|
Line 1963 sub print_quotas {
|
Line 1963 sub print_quotas {
|
|
|
sub print_requestmail { |
sub print_requestmail { |
my ($dom,$action,$settings,$rowtotal) = @_; |
my ($dom,$action,$settings,$rowtotal) = @_; |
my ($now,$datatable,%currapp,$rows); |
my ($now,$datatable,%currapp); |
$now = time; |
$now = time; |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
if (ref($settings->{'notify'}) eq 'HASH') { |
if (ref($settings->{'notify'}) eq 'HASH') { |
Line 5551 sub publishlogo {
|
Line 5551 sub publishlogo {
|
if ($file=~/\.(\w+)$/ && |
if ($file=~/\.(\w+)$/ && |
(&Apache::loncommon::fileembstyle($1) eq 'hdn')) { |
(&Apache::loncommon::fileembstyle($1) eq 'hdn')) { |
$output = |
$output = |
&mt('Invalid file extension ([_1]) - reserved for LONCAPA use.',$1); |
&mt('Invalid file extension ([_1]) - reserved for internal use.',$1); |
} elsif ($file=~/\.(\w+)$/ && |
} elsif ($file=~/\.(\w+)$/ && |
!defined(&Apache::loncommon::fileembstyle($1))) { |
!defined(&Apache::loncommon::fileembstyle($1))) { |
$output = &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1); |
$output = &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1); |
Line 8074 sub modify_coursedefaults {
|
Line 8074 sub modify_coursedefaults {
|
} |
} |
foreach my $item (@numbers) { |
foreach my $item (@numbers) { |
my ($currdef,$newdef); |
my ($currdef,$newdef); |
my $newdef = $env{'form.'.$item}; |
$newdef = $env{'form.'.$item}; |
if ($item eq 'anonsurvey_threshold') { |
if ($item eq 'anonsurvey_threshold') { |
$currdef = $domconfig{'coursedefaults'}{$item}; |
$currdef = $domconfig{'coursedefaults'}{$item}; |
$newdef =~ s/\D//g; |
$newdef =~ s/\D//g; |