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

Diff for /loncom/xml/londefdef.pm between versions 1.321 and 1.323

version 1.321, 2006/02/21 10:27:43 version 1.323, 2006/03/23 22:34:53
Line 1204  sub start_p { Line 1204  sub start_p {
  $currentstring = &center_correction().$currentstring;   $currentstring = &center_correction().$currentstring;
     }      }
  } elsif ($align eq 'right') {   } elsif ($align eq 'right') {
     $currentstring.='\makebox['.$env{'form.textwidth'}.']{\hfill\llap{';      $currentstring.="\n".'{\flushright ';
     $closing_string= '}}';  #    $currentstring.='\makebox['.$env{'form.textwidth'}.']{\hfill\llap{';
       $closing_string= "}\n";
  } elsif ($align eq 'left') {   } elsif ($align eq 'left') {
     $currentstring.='\noindent\makebox['.$env{'form.textwidth'}.']{\rlap{';      $currentstring.= "\n".'{\flushleft ';
     $closing_string = '}\hfill}';  #    $currentstring.='\noindent\makebox['.$env{'form.textwidth'}.']{{';
       $closing_string = "}\n";
  } else {   } else {
             $currentstring.='\par ';              $currentstring.='\par ';
     if (&is_inside_of($tagstack, 'table')) {      if (&is_inside_of($tagstack, 'table')) {
Line 2770  sub start_img { Line 2772  sub start_img {
   
     if ($target eq 'web') {      if ($target eq 'web') {
  if ($env{'browser.imagesuppress'} ne 'on') {   if ($env{'browser.imagesuppress'} ne 'on') {
     $currentstring.=&Apache::lonenc::encrypt_ref($token,{'src'=>$src});      my $enc = ('yes' eq 
          lc(&Apache::lonxml::get_param('encrypturl',$parstack,
        $safeeval)));
       $currentstring.=&Apache::lonenc::encrypt_ref($token,{'src'=>$src},
    $enc);
  } else {   } else {
     my $alttag= &Apache::lonxml::get_param      my $alttag = &Apache::lonxml::get_param('alt',$parstack,$safeeval,
  ('alt',$parstack,$safeeval,undef,1);      undef,1);
     unless ($alttag) {      if (!$alttag) {
  $alttag=&Apache::lonmeta::alttag   $alttag = &Apache::lonmeta::alttag($Apache::lonxml::pwd[-1],
     ($Apache::lonxml::pwd[-1],$src);     $src);
     }      }
     $currentstring.='[IMAGE: '.$alttag.']';      $currentstring.='[IMAGE: '.$alttag.']';
  }   }
Line 2820  sub start_img { Line 2826  sub start_img {
  if (($latex_rendering eq 'texwrap') && &is_inside_of($tagstack, "table")) {   if (($latex_rendering eq 'texwrap') && &is_inside_of($tagstack, "table")) {
     $latex_rendering = 'parpic';      $latex_rendering = 'parpic';
  }   }
   
  # &Apache::lonxml::debug("LaTeX rendering = $latex_rendering image file: $src");   # &Apache::lonxml::debug("LaTeX rendering = $latex_rendering image file: $src");
   
  #if original gif/jpg/png file exist do following:   #if original gif/jpg/png file exist do following:
Line 2902  sub start_img { Line 2909  sub start_img {
    ['','bottom','middle','top','left','right'],$token,5);     ['','bottom','middle','top','left','right'],$token,5);
  $currentstring .=&Apache::edit::select_arg('TeXwrap:', 'TeXwrap',   $currentstring .=&Apache::edit::select_arg('TeXwrap:', 'TeXwrap',
    ['', 'parbox', 'parpic'], $token, 2);     ['', 'parbox', 'parpic'], $token, 2);
    $currentstring .=&Apache::edit::select_arg('Encyrpt URL:','encrypturl',
      ['no','yes'], $token, 2);
  $currentstring .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();   $currentstring .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
  my $src=    &Apache::lonxml::get_param('src',$parstack,$safeeval);   my $src=    &Apache::lonxml::get_param('src',$parstack,$safeeval);
  my $alt=    &Apache::lonxml::get_param('alt',$parstack,$safeeval);   my $alt=    &Apache::lonxml::get_param('alt',$parstack,$safeeval);
Line 2919  sub start_img { Line 2928  sub start_img {
  my $ctag=&Apache::edit::get_new_args($token,$parstack,   my $ctag=&Apache::edit::get_new_args($token,$parstack,
      $safeeval,'src','alt','align',       $safeeval,'src','alt','align',
      'TeXwidth','TeXheight', 'TeXwrap',       'TeXwidth','TeXheight', 'TeXwrap',
      'width','height');       'width','height','encrypturl');
  my ($nsrc,$nwidth,$nheight)=   my ($nsrc,$nwidth,$nheight)=
     ($token->[2]{'src'},$token->[2]{'width'},$token->[2]{'height'});      ($token->[2]{'src'},$token->[2]{'width'},$token->[2]{'height'});
  my $loc=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$nsrc);   my $loc=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$nsrc);
Removed from v.1.321  
changed lines
  Added in v.1.323

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