version 1.596.2.12.2.41.2.2, 2018/04/29 15:29:05
|
version 1.596.2.12.2.44, 2018/10/08 19:12:29
|
Line 44 use Apache::Constants qw(:common :http);
|
Line 44 use Apache::Constants qw(:common :http);
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonenc; |
use Apache::lonenc; |
use Apache::bridgetask(); |
use Apache::bridgetask(); |
|
use Apache::lontexconvert(); |
use String::Similarity; |
use String::Similarity; |
use LONCAPA; |
use LONCAPA; |
|
|
Line 472 sub cleanRecord {
|
Line 473 sub cleanRecord {
|
$env{'form.kwstyle'} = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : ''; |
$env{'form.kwstyle'} = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : ''; |
$env{'form.'.$symb} = 1; # so that we don't have to read it from disk for multiple sub of the same prob. |
$env{'form.'.$symb} = 1; # so that we don't have to read it from disk for multiple sub of the same prob. |
} |
} |
|
$answer = &Apache::lontexconvert::msgtexconverted($answer); |
return '<br /><br /><blockquote><tt>'.&keywords_highlight($answer).'</tt></blockquote>'; |
return '<br /><br /><blockquote><tt>'.&keywords_highlight($answer).'</tt></blockquote>'; |
} elsif ( $response eq 'organic') { |
} elsif ( $response eq 'organic') { |
my $result=&mt('Smile representation: [_1]', |
my $result=&mt('Smile representation: [_1]', |
Line 4214 sub editgrades {
|
Line 4216 sub editgrades {
|
my ($uname,$udom)=split(/:/,$user); |
my ($uname,$udom)=split(/:/,$user); |
my %newrecord; |
my %newrecord; |
my $updateflag = 0; |
my $updateflag = 0; |
my $usec=$classlist->{"$uname:$udom"}[5]; |
my $usec=$classlist->{"$uname:$udom"}[5]; |
my $canmodify = &canmodify($usec); |
my $canmodify = &canmodify($usec); |
my $line = '<td'.($canmodify?'':' colspan="2"').'>'. |
my $line = '<td'.($canmodify?'':' colspan="2"').'>'. |
&nameUserString(undef,$$fullname{$user},$uname,$udom).'</td>'; |
&nameUserString(undef,$$fullname{$user},$uname,$udom).'</td>'; |
Line 4607 sub csvuploadmap {
|
Line 4609 sub csvuploadmap {
|
$datatoken=&Apache::loncommon::upfile_store($request); |
$datatoken=&Apache::loncommon::upfile_store($request); |
} else { |
} else { |
$datatoken=&Apache::loncommon::valid_datatoken($env{'form.datatoken'}); |
$datatoken=&Apache::loncommon::valid_datatoken($env{'form.datatoken'}); |
if ($datatoken ne '') { |
if ($datatoken ne '') { |
&Apache::loncommon::load_tmp_file($request,$datatoken); |
&Apache::loncommon::load_tmp_file($request,$datatoken); |
} |
} |
} |
} |
my @records=&Apache::loncommon::upfile_record_sep(); |
my @records=&Apache::loncommon::upfile_record_sep(); |