[BACK]Return to outputtags.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/outputtags.pm between versions 1.56 and 1.59

version 1.56, 2009/11/01 16:10:35 version 1.59, 2017/05/23 03:07:34
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=&LONCAPA::LWPReq::makerequest($uhome,$request,'','','',1);
  my $response=$ua->request($request);   my $response=$ua->request($request);
  if ($response->is_success) {   if ($response->is_success) {
     my $file=$user."_".$domain."_studentphoto.eps";      my $file=$user."_".$domain."_studentphoto.eps";
Removed from v.1.56  
changed lines
  Added in v.1.59

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>