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

Diff for /loncom/xml/scripttag.pm between versions 1.163 and 1.164

version 1.163, 2011/12/23 18:34:11 version 1.164, 2011/12/23 19:38:01
Line 287  sub start_window { Line 287  sub start_window {
     if ($target eq 'web' || $target eq 'webgrade') {      if ($target eq 'web' || $target eq 'webgrade') {
  &Apache::lonxml::startredirection;   &Apache::lonxml::startredirection;
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $result = '\unskip\footnote{';          my $printtext=&Apache::lonxml::get_param('printtext',$parstack,$safeeval);
           if ($printtext=~/\w/) {
   # If printtext is given, do not output any intervening information
              &Apache::lonxml::startredirection;
           } else {
              $result = '\unskip\footnote{';
           }
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result.=&Apache::edit::tag_start($target,$token);   $result.=&Apache::edit::tag_start($target,$token);
  $result.=&Apache::edit::text_arg('Text of Link:','linktext',$token,70);   $result.=&Apache::edit::text_arg('Text of Link:','linktext',$token,70);
  $result.=&Apache::edit::text_arg('Height:','height',$token,5);   $result.=&Apache::edit::text_arg('Height:','height',$token,5);
  $result.=&Apache::edit::text_arg('Width:','width',$token,5);   $result.=&Apache::edit::text_arg('Width:','width',$token,5);
           $result.=&Apache::edit::text_arg('Printed text (optional):','printtext',$token,20);
  $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();   $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  my $constructtag=&Apache::edit::get_new_args($token,$parstack,   my $constructtag=&Apache::edit::get_new_args($token,$parstack,
Line 317  sub end_window { Line 324  sub end_window {
     $result=&Apache::loncommon::modal_adhoc_window      $result=&Apache::loncommon::modal_adhoc_window
            ("LONCAPA_newwindow_$Apache::lonxml::curdepth",$width,$height,$output,$linktext);             ("LONCAPA_newwindow_$Apache::lonxml::curdepth",$width,$height,$output,$linktext);
   } elsif ($target eq 'tex') {    } elsif ($target eq 'tex') {
       $result = '}';        my $printtext=&Apache::lonxml::get_param('printtext',$parstack,$safeeval);
         if ($printtext=~/\w/) {
   # If a "printtext" is given, proceed to retrieve all intervening information and trash it
            my $output=&Apache::lonxml::endredirection;
   # Use printtext instead
            $result=$printtext;
         } else {
            $result='}';
         }
   } else {    } else {
       $result = '';        $result = '';
   }    }
Removed from v.1.163  
changed lines
  Added in v.1.164

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