[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.58.4.1.2.1

version 1.56, 2009/11/01 16:10:35 version 1.58.4.1.2.1, 2023/07/10 02:26:50
Line 78  sub substitute_simple_tags_latex { Line 78  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 171  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 308  sub start_displaystudentphoto { Line 308  sub start_displaystudentphoto {
  my $args;   my $args;
  my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval);   my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval);
  if ($width) { $args.=" width=\"$width\" "; }   if ($width) { $args.=" width=\"$width\" "; }
  my $height=&Apache::lonxml::get_param('heigth',$parstack,$safeeval);   my $height=&Apache::lonxml::get_param('height',$parstack,$safeeval);
  if ($height) { $args.=" height=\"$height\" "; }   if ($height) { $args.=" height=\"$height\" "; }
  my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval);   my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval);
  if ($align) { $args.=" align=\"$align\" "; }   if ($align) { $args.=" align=\"$align\" "; }
Line 321  sub start_displaystudentphoto { Line 321  sub start_displaystudentphoto {
  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";
     open(FILE,">".$Apache::lonnet::perlvar{'lonPrtDir'}."/$file");      open(FILE,">",$Apache::lonnet::perlvar{'lonPrtDir'}."/$file");
     print FILE $response->content;      print FILE $response->content;
     close(FILE);      close(FILE);
     my $width_param=&Apache::londefdef::image_size($Apache::lonnet::perlvar{'lonPrtDir'}."/$file",'0.3',$parstack,$safeeval);      my $width_param=&Apache::londefdef::image_size($Apache::lonnet::perlvar{'lonPrtDir'}."/$file",'0.3',$parstack,$safeeval);
Removed from v.1.56  
changed lines
  Added in v.1.58.4.1.2.1

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