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

Diff for /loncom/xml/londefdef.pm between versions 1.44 and 1.47

version 1.44, 2002/02/26 21:44:45 version 1.47, 2002/03/06 20:27:00
Line 150  sub end_m { Line 150  sub end_m {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = &Apache::lonxml::registerurl().                $currentstring = &Apache::lonxml::registerurl(undef,$target).
                                $token->[2];                                     $token->[2];    
             }               } 
    return $currentstring;     return $currentstring;
Line 332  sub end_m { Line 332  sub end_m {
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
       if (!$Apache::lonxml::registered) {        if (!$Apache::lonxml::registered) {
  $currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>';   $currentstring.='<head>'.
       &Apache::lonxml::registerurl(undef,$target).'</head>';
       }        }
       my $onLoad='';        my $onLoad='';
       foreach my $key (keys(%{$token->[2]})) {        foreach my $key (keys(%{$token->[2]})) {
Line 1337  EDITBUTTON Line 1338  EDITBUTTON
     if ($target eq 'web') {      if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
 #<<<<<<< londefdef.pm  
 #                my $durty = $token->[2]->{'src'};  
 #                $durty =~ s!(^.*)/(.*)$!$1/!;  
 #                my $durtytwo = $2;  
 # $currentstring = '\graphicspath{{/home/httpd/html'.$durty.'}}\fbox{\includegraphics{'.$durtytwo.'}}';  
 #    }  
 #   return $currentstring;  
 #=======  
       my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);        my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
       my $file;        my $file;
       my $path;        my $path;
Line 1371  EDITBUTTON Line 1364  EDITBUTTON
       }        }
     }      }
     return $currentstring;      return $currentstring;
 #>>>>>>> 1.43  
  }   }
         sub end_img {          sub end_img {
     my ($target,$token) = @_;      my ($target,$token) = @_;
Line 1412  sub end_applet { Line 1404  sub end_applet {
   
 #-- <embed> tag  #-- <embed> tag
   
 sub start_embed {  sub start_embed {    
       
     my ($target,$token) = @_;      my ($target,$token) = @_;
     $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=      $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
  $token->[2]->{'src'};   $token->[2]->{'src'};
Line 1484  sub start_embed { Line 1475  sub start_embed {
   my $currentstring = '';    my $currentstring = '';
   if ($target eq 'web') {     if ($target eq 'web') { 
     if (!$Apache::lonxml::registered) {      if (!$Apache::lonxml::registered) {
       $currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>';        $currentstring.='<head>'.
     &Apache::lonxml::registerurl(undef,$target).'</head>';
     }      }
     $currentstring .= $token->[4];      $currentstring .= $token->[4];
   }    }
Line 1521  sub start_embed { Line 1513  sub start_embed {
  }   }
 #-- <insert>  #-- <insert>
  sub start_insert {   sub start_insert {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= '<b>'.$token->[2]->{'display'}.'</b>';;   my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval);
          $currentstring .= '<b>'.$display.'</b>';;
     }      }
            return $currentstring;             return $currentstring;
  }   }
Removed from v.1.44  
changed lines
  Added in v.1.47

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