version 1.56, 2009/11/01 16:10:35
|
version 1.60, 2017/05/23 14:59:07
|
Line 33 package Apache::outputtags;
|
Line 33 package Apache::outputtags;
|
use strict; |
use strict; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use LONCAPA::LWPReq; |
use POSIX qw(strftime); |
use POSIX qw(strftime); |
|
|
BEGIN { |
BEGIN { |
Line 78 sub substitute_simple_tags_latex {
|
Line 79 sub substitute_simple_tags_latex {
|
|
|
# restore the <>'s: |
# restore the <>'s: |
|
|
$string =~ s/\\ensuremath{<}/</g; |
$string =~ s/\\ensuremath\{<}/</g; |
$string =~ s/\\ensuremath{>}/>/g; |
$string =~ s/\\ensuremath\{>}/>/g; |
|
|
|
|
# Substitute the tags: |
# Substitute the tags: |
Line 171 sub start_displayduedate {
|
Line 172 sub start_displayduedate {
|
# at the start of the line to ensure it won't overlap |
# at the start of the line to ensure it won't overlap |
# the 1 col boundary. |
# the 1 col boundary. |
|
|
$result = '\\\\ \framebox{' |
$result = '\vspace{1.0 ex} \framebox{' |
.&mt('Due').' '.$duetext.'}'; |
.&mt('Due').' '.$duetext.'}'; |
} else { |
} else { |
$result = &mt('Due') . ' '.$duetext; |
$result = &mt('Due') . ' '.$duetext; |
Line 316 sub start_displaystudentphoto {
|
Line 317 sub start_displaystudentphoto {
|
} |
} |
if ($target eq 'tex' && $env{'request.role'} =~ /^cc/) { |
if ($target eq 'tex' && $env{'request.role'} =~ /^cc/) { |
my $url=&Apache::lonnet::studentphoto($domain,$user,"eps"); |
my $url=&Apache::lonnet::studentphoto($domain,$user,"eps"); |
my $ua=new LWP::UserAgent; |
my $uhome=&Apache::lonnet::homeserver($user,$domain); |
my $request=new HTTP::Request('GET',$url); |
my $request=new HTTP::Request('GET',$url); |
my $response=$ua->request($request); |
my $response=&LONCAPA::LWPReq::makerequest($uhome,$request,'','','',1); |
if ($response->is_success) { |
if ($response->is_success) { |
my $file=$user."_".$domain."_studentphoto.eps"; |
my $file=$user."_".$domain."_studentphoto.eps"; |
open(FILE,">".$Apache::lonnet::perlvar{'lonPrtDir'}."/$file"); |
open(FILE,">".$Apache::lonnet::perlvar{'lonPrtDir'}."/$file"); |