loncom/xml/londefdef.pm - view

File: [LON-CAPA] / loncom / xml / londefdef.pm
Revision 1.298: download - view: text, annotated - select for diffs
Tue Nov 29 00:08:10 2005 UTC (18 years, 5 months ago) by foxr
Branches: MAIN
CVS tags: HEAD

Progress on nested table... needed to remove some of the post table
scaffolding to get multiple nested tables to look reasonable..still
need to remove some vertical spaceing.

1: # The LearningOnline Network with CAPA 2: # Tags Default Definition Module 3: # 4: # $Id: londefdef.pm,v 1.298 2005/11/29 00:08:10 foxr Exp $ 5: # 6: # 7: # Copyright Michigan State University Board of Trustees 8: # 9: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 10: # 11: # LON-CAPA is free software; you can redistribute it and/or modify 12: # it under the terms of the GNU General Public License as published by 13: # the Free Software Foundation; either version 2 of the License, or 14: # (at your option) any later version. 15: # 16: # LON-CAPA is distributed in the hope that it will be useful, 17: # but WITHOUT ANY WARRANTY; without even the implied warranty of 18: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19: # GNU General Public License for more details. 20: # 21: # You should have received a copy of the GNU General Public License 22: # along with LON-CAPA; if not, write to the Free Software 23: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 24: # 25: # /home/httpd/html/adm/gpl.txt 26: # 27: # http://www.lon-capa.org/ 28: ## Copyright for TtHfunc and TtMfunc by Ian Hutchinson. 29: # TtHfunc and TtMfunc (the "Code") may be compiled and linked into 30: # binary executable programs or libraries distributed by the 31: # Michigan State University (the "Licensee"), but any binaries so 32: # distributed are hereby licensed only for use in the context 33: # of a program or computational system for which the Licensee is the 34: # primary author or distributor, and which performs substantial 35: # additional tasks beyond the translation of (La)TeX into HTML. 36: # The C source of the Code may not be distributed by the Licensee 37: # to any other parties under any circumstances. 38: # 39: 40: package Apache::londefdef; 41: 42: use Apache::lonnet; 43: use strict; 44: use Apache::lonxml; 45: use Apache::File(); 46: use Image::Magick; 47: use Apache::lonmenu(); 48: use Apache::lonmeta(); 49: use Apache::Constants qw(:common); 50: use File::Basename; 51: #use Data::Dumper; 52: 53: BEGIN { 54: 55: &Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','accessrule','address','allow','applet','area','b','base','basefont','bgo','bgsound','big','blink','blockquote','blankspace','body','br','button','caption','center','cite','code','col','colgroup','dd','del','dfn','dir','div','dl','dt','em','embed','externallink','fieldset','font','form','frame','frameset','h1','h2','h3','h4','h5','h6','head','hr','html','i','iframe','img','input','ins','insert','isindex','kbd','keygen','label','layer','legend','li','link','m','map','marquee','menu','meta','multicol','nobr','noembed','noframes','nolayer','noscript','object','ol','optgroup','option','output','p','param','pre','q','s','samp','select','server','small','spacer','span','strike','strong','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','tthoption','u','ul','var','wbr','hideweboutput')); 56: 57: } 58: 59: # 60: # Dumps all elements of the table structure. 61: # Need this 'cause evidently when given an array, Data::Dumper only seems 62: # to dump element 0. 63: # 64: #sub debug_dump_table { 65: # my $lastrow = $#Apache::londefdef::table; 66: # &Apache::lonnet::logthis("Dumping table: Last row index: $lastrow"); 67: # my $row; 68: # for ($row =0; $row <= $lastrow; $row++ ) { 69: # my $text = Dumper($Apache::londefdef::table[$row]); 70: # &Apache::lonnet::logthis("table [ $row ]".$text); 71: # 72: # } 73: #} 74: 75: sub initialize_londefdef { 76: $Apache::londefdef::TD_redirection=0; 77: @Apache::londefdef::table = (); 78: $Apache::londefdef::select=0; 79: undef(@Apache::londefdef::description); 80: @Apache::londefdef::DD=(0); 81: @Apache::londefdef::DT=(0); 82: @Apache::londefdef::seenDT=(0); 83: $Apache::londefdef::list_index=0; 84: } 85: 86: #======================= TAG SUBROUTINES ===================== 87: #-- <output> 88: sub start_output { 89: my ($target) = @_; 90: if ($target eq 'meta') { $Apache::lonxml::metamode--; } 91: return ''; 92: } 93: sub end_output { 94: my ($target) = @_; 95: if ($target eq 'meta') { $Apache::lonxml::metamode++; } 96: return ''; 97: } 98: #-- <m> tag 99: sub start_m { 100: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; 101: my $currentstring = ''; 102: my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser); 103: if ($target eq 'web' || $target eq 'analyze') { 104: &Apache::lonxml::debug("M is starting with:$inside:"); 105: my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval); 106: if ($eval eq 'on') { 107: $inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); 108: #&Apache::lonxml::debug("M is evaulated to:$inside:"); 109: } 110: my $display=&Apache::lonxml::get_param('display',$parstack,$safeeval); 111: $currentstring = &Apache::lontexconvert::converted(\$inside,$display); 112: if ($Apache::lontexconvert::errorstring) { 113: &Apache::lonxml::warning("tth error: ". 114: $Apache::lontexconvert::errorstring); 115: $Apache::lontexconvert::errorstring=''; 116: } 117: #&Apache::lonxml::debug("M is ends with:$currentstring:"); 118: $Apache::lonxml::post_evaluate=0; 119: } elsif ($target eq 'tex') { 120: $currentstring = $inside; 121: my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval); 122: if ($eval eq 'on') { 123: $currentstring=&Apache::run::evaluate($currentstring,$safeeval,$$parstack[-1]); 124: } 125: if ($currentstring=~/^(\s*\\\\\s*)*$/) {$currentstring = ' \vskip 0 mm ';} 126: # detect simple math mode entry exits, and convert them 127: # to use \ensuremath 128: if ($currentstring=~/^\s*\$[^\$].*[^\$]\$\s*$/) { 129: $currentstring=~s/^(\s*)\$/$1/; 130: $currentstring=~s/\$(\s*)$/$1/; 131: $currentstring='\ensuremath{'.$currentstring.'}'; 132: } 133: $Apache::lonxml::post_evaluate=0; 134: } 135: return $currentstring; 136: } 137: 138: sub end_m { 139: my ($target,$token) = @_; 140: my $currentstring = ''; 141: if ($target eq 'tex') { 142: $currentstring = ""; 143: } 144: return $currentstring; 145: } 146: 147: sub start_tthoption { 148: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 149: my $result; 150: if ($target eq 'web') { 151: my $inside = &Apache::lonxml::get_all_text("/tthoption",$parser); 152: $inside=~s/^\s*//; 153: if ($env{'browser.mathml'}) { 154: &tth::ttmoptions($inside); 155: } else { 156: &tth::tthoptions($inside); 157: } 158: } 159: return $result; 160: } 161: 162: sub end_tthoption { 163: my ($target,$token) = @_; 164: my $result; 165: return $result; 166: } 167: 168: #-- <html> tag (end tag optional) 169: sub start_html { 170: my ($target,$token) = @_; 171: my $currentstring = ''; 172: my $options=$env{'course.'.$env{'request.course.id'}.'.tthoptions'}; 173: &Apache::lontexconvert::init_tth(); 174: if ($target eq 'web' || $target eq 'edit' || $target eq 'webgrade' ) { 175: $currentstring = &Apache::lonxml::xmlbegin(); 176: } elsif ($target eq 'tex') { 177: $currentstring .= '\documentclass[letterpaper]{article}'; 178: if (($env{'form.latex_type'}=~'batchmode') || 179: (!$env{'request.role.adv'})) {$currentstring .='\batchmode';} 180: $currentstring .= '\newcommand{\keephidden}[1]{}'. 181: '\renewcommand{\deg}{$^{\circ}$}'. 182: '\usepackage{longtable}'. 183: '\usepackage{textcomp}'. 184: '\usepackage{makeidx}'. 185: '\usepackage[dvips]{graphicx}'. 186: '\usepackage{wrapfig}'. 187: '\usepackage{picins}'. 188: '\usepackage{epsfig}'. 189: '\usepackage{calc}'. 190: '\usepackage{amsmath}'. 191: '\usepackage{amssymb}'. 192: '\usepackage{amsfonts}'. 193: '\usepackage{amsthm}'. 194: '\usepackage{amscd}'. 195: '\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}\setlength{\abovedisplayshortskip}{-0.04in}\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'. 196: '\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large\textbf{Index}} \newline \setlength{\rightmargin}{0in}\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}\setlength{\abovedisplayshortskip}{-0.04in}\setlength{\belowdisplayshortskip}{0.01in}}}{\end{list}}'; 197: } 198: return $currentstring; 199: } 200: 201: sub end_html { 202: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 203: my $currentstring = ''; 204: if ($target eq 'web') { 205: $currentstring = '</html>'; 206: } 207: return $currentstring; 208: } 209: 210: #-- <head> tag (end tag optional) 211: sub start_head { 212: my ($target,$token) = @_; 213: my $currentstring = ''; 214: if ($target eq 'web') { 215: $currentstring = $token->[4].&Apache::lonxml::fontsettings(); 216: } 217: return $currentstring; 218: } 219: 220: sub end_head { 221: my ($target,$token) = @_; 222: my $currentstring = ''; 223: if ($target eq 'web' && $env{'request.state'} eq 'published') { 224: $currentstring = &Apache::lonmenu::registerurl(undef,$target). 225: $token->[2]; 226: } 227: return $currentstring; 228: } 229: 230: #-- <map> tag (end tag required) 231: sub start_map { 232: my ($target,$token) = @_; 233: my $currentstring = ''; 234: if ($target eq 'web') { 235: $currentstring = $token->[4]; 236: } 237: return $currentstring; 238: } 239: 240: sub end_map { 241: my ($target,$token) = @_; 242: my $currentstring = ''; 243: if ($target eq 'web') { 244: $currentstring = $token->[2]; 245: } 246: return $currentstring; 247: } 248: 249: #-- <select> tag (end tag required) 250: sub start_select { 251: my ($target,$token) = @_; 252: my $currentstring = ''; 253: if ($target eq 'web') { 254: $currentstring = $token->[4]; 255: } elsif ($target eq 'tex') { 256: $Apache::londefdef::select=0; 257: } 258: return $currentstring; 259: } 260: 261: sub end_select { 262: my ($target,$token) = @_; 263: my $currentstring = ''; 264: if ($target eq 'web') { 265: $currentstring = $token->[2]; 266: } 267: return $currentstring; 268: } 269: 270: #-- <option> tag (end tag optional) 271: sub start_option { 272: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 273: my $currentstring = ''; 274: if ($target eq 'web') { 275: $currentstring = $token->[4]; 276: } elsif ($target eq 'tex') { 277: $Apache::londefdef::select++; 278: if ($Apache::londefdef::select == 1) { 279: $currentstring='\noindent\fbox{'.&Apache::lonxml::get_param('value',$parstack,$safeeval).'}\keephidden{'; 280: } else { 281: $currentstring='\keephidden{'; 282: } 283: } 284: return $currentstring; 285: } 286: 287: sub end_option { 288: my ($target,$token) = @_; 289: my $currentstring = ''; 290: if ($target eq 'web') { 291: $currentstring = $token->[2]; 292: } elsif ($target eq 'tex') { 293: $currentstring='}'; 294: } 295: return $currentstring; 296: } 297: 298: #-- <input> tag (end tag forbidden) 299: sub start_input { 300: my ($target,$token) = @_; 301: my $currentstring = ''; 302: if ($target eq 'web') { 303: $currentstring = $token->[4]; 304: } 305: return $currentstring; 306: } 307: 308: sub end_input { 309: my ($target,$token) = @_; 310: my $currentstring = ''; 311: if ($target eq 'web') { 312: $currentstring = $token->[2]; 313: } 314: return $currentstring; 315: } 316: 317: #-- <textarea> tag (end tag required) 318: sub start_textarea { 319: my ($target,$token) = @_; 320: my $currentstring = ''; 321: if ($target eq 'web') { 322: $currentstring = $token->[4]; 323: } 324: return $currentstring; 325: } 326: 327: sub end_textarea { 328: my ($target,$token) = @_; 329: my $currentstring = ''; 330: if ($target eq 'web') { 331: $currentstring = $token->[2]; 332: } 333: return $currentstring; 334: } 335: 336: #-- <form> tag (end tag required) 337: sub start_form { 338: my ($target,$token) = @_; 339: my $currentstring = ''; 340: if ($target eq 'web') { 341: $currentstring = $token->[4]; 342: } 343: return $currentstring; 344: } 345: 346: sub end_form { 347: my ($target,$token) = @_; 348: my $currentstring = ''; 349: if ($target eq 'web') { 350: $currentstring = $token->[2]; 351: } 352: return $currentstring; 353: } 354: 355: #-- <title> tag (end tag required) 356: sub start_title { 357: my ($target,$token) = @_; 358: my $currentstring = ''; 359: if ($target eq 'web') { 360: $currentstring = $token->[4]; 361: } elsif ($target eq 'tex') { 362: $currentstring .= '\keephidden{Title of the document: ' 363: } 364: if ($target eq 'meta') { 365: $currentstring='<title>'; 366: &start_output($target); 367: } 368: return $currentstring; 369: } 370: 371: sub end_title { 372: my ($target,$token) = @_; 373: my $currentstring = ''; 374: if ($target eq 'web') { 375: $currentstring = $token->[2]; 376: } elsif ($target eq 'tex') { 377: $currentstring .= '}'; 378: } 379: if ($target eq 'meta') { 380: &end_output($target); 381: $currentstring='</title>'; 382: } 383: return $currentstring; 384: } 385: 386: #-- <meta> tag (end tag forbidden) 387: sub start_meta { 388: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 389: my $currentstring = ''; 390: if ($target eq 'web') { 391: my $args=''; 392: if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } 393: if ($args eq '') { 394: &Apache::lonxml::get_all_text("/meta",$parser); 395: } else { 396: $currentstring = $token->[4]; 397: } 398: } elsif ($target eq 'meta') { 399: unless (&Apache::lonxml::get_param 400: ('http-equiv',$parstack,$safeeval,undef,1)) { 401: my $name=$token->[2]->{'name'}; 402: $name=~tr/A-Z/a-z/; 403: $name=~s/\s/\_/gs; 404: $name=~s/\W//gs; 405: if ($name) { 406: $currentstring='<'.$name; 407: my $display=&Apache::lonxml::get_param 408: ('display',$parstack,$safeeval,undef,1); 409: if ($display) { 410: $display=~s/\"/\'/g; 411: $currentstring.=' display="'.$display.'"'; 412: } 413: $currentstring.='>'. 414: &Apache::lonxml::get_param 415: ('content',$parstack,$safeeval,undef,1). 416: '</'.$name.'>'; 417: } 418: my $display=&Apache::lonxml::get_param 419: ('display',$parstack,$safeeval,undef,1); 420: if ($display) { 421: $display=&HTML::Entities::encode($display,'<>&"'); 422: $currentstring.='<'.$name.'.display>'.$display. 423: '</'.$name.'.display>'; 424: } 425: } 426: } elsif ($target eq 'tex') { 427: my $content=&Apache::lonxml::get_param('content',$parstack,$safeeval); 428: my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval); 429: if ((not defined $content) && (not defined $name)) { 430: &Apache::lonxml::startredirection(); 431: } 432: } 433: return $currentstring; 434: } 435: 436: sub end_meta { 437: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 438: my $currentstring = ''; 439: if ($target eq 'web') { 440: my $args=''; 441: if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } 442: if ($args ne '') { 443: $currentstring = $token->[4]; 444: } 445: } elsif ($target eq 'tex') { 446: my $content=&Apache::lonxml::get_param('content',$parstack,$safeeval); 447: my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval); 448: if ((not defined $content) && (not defined $name)) { 449: &Apache::lonxml::endredirection(); 450: } 451: } 452: return $currentstring; 453: } 454: 455: # accessrule 456: sub start_accessrule { 457: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 458: my $currentstring = ''; 459: my $eff=&Apache::lonxml::get_param 460: ('effect',$parstack,$safeeval,undef,1); 461: my $realm=&Apache::lonxml::get_param 462: ('realm',$parstack,$safeeval,undef,1); 463: my $role=&Apache::lonxml::get_param 464: ('role',$parstack,$safeeval,undef,1); 465: $realm=~s/\s+//g; 466: $realm=~s/\//\_/g; 467: $realm=~s/^\_//; 468: $realm=~s/\W/\;/g; 469: $role=~s/\s+//g; 470: $role=~s/\//\_/g; 471: $role=~s/\W/\;/g; 472: if ($target eq 'web') { 473: my $args=''; 474: if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } 475: if ($args eq '') { 476: &Apache::lonxml::get_all_text("/accessrule",$parser); 477: } else { 478: $currentstring = $token->[4]; 479: } 480: } 481: if ($target eq 'meta') { 482: $currentstring='<rule>'.$eff.':'.$realm.':'.$role.'</rule>'; 483: } 484: return $currentstring; 485: } 486: 487: sub end_accessrule { 488: my ($target,$token,$tagstack,$parstack,$parser) = @_; 489: my $currentstring = ''; 490: if ($target eq 'web') { 491: my $args=''; 492: if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } 493: if ($args ne '') { 494: $currentstring = $token->[4]; 495: } 496: } 497: return $currentstring; 498: } 499: 500: #-- <body> tag (end tag required) 501: sub start_body { 502: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 503: my $currentstring = ''; 504: 505: if ($target eq 'web') { 506: if ($Apache::lonhomework::parsing_a_problem) { 507: &Apache::lonxml::warning("<body> tag found inside of <problem> tag this can cause problems."); 508: return ''; 509: } 510: if (!$Apache::lonxml::registered && 511: $env{'request.state'} eq 'published') { 512: $currentstring.='<head>'. 513: &Apache::lonmenu::registerurl(undef,$target).'</head>'; 514: } 515: # Accessibility 516: if ($env{'browser.imagesuppress'} eq 'on') { 517: delete($token->[2]->{'background'}); 518: } 519: if ($env{'browser.fontenhance'} eq 'on') { 520: my $style=''; 521: foreach my $key (keys(%{$token->[2]})) { 522: if ($key =~ /^style$/i) { 523: $style.=$token->[2]->{$key}.';'; 524: delete($token->[2]->{$key}); 525: } 526: } 527: $token->[2]->{'style'}=$style.'; font-size: x-large;'; 528: } 529: if ($env{'browser.blackwhite'} eq 'on') { 530: delete($token->[2]->{'font'}); 531: delete($token->[2]->{'link'}); 532: delete($token->[2]->{'alink'}); 533: delete($token->[2]->{'vlink'}); 534: delete($token->[2]->{'bgcolor'}); 535: delete($token->[2]->{'background'}); 536: } 537: # Overload loads 538: my $onLoad=''; 539: foreach my $key (keys(%{$token->[2]})) { 540: if ($key =~ /^onload$/i) { 541: $onLoad.=$token->[2]->{$key}.';'; 542: delete($token->[2]->{$key}); 543: } 544: } 545: $token->[2]->{'onload'}=&Apache::lonmenu::loadevents().';'.$onLoad; 546: my $onUnload=''; 547: foreach my $key (keys(%{$token->[2]})) { 548: if ($key =~ /^onunload$/i) { 549: $onUnload.=$token->[2]->{$key}.';'; 550: delete($token->[2]->{$key}); 551: } 552: } 553: $token->[2]->{'onunload'}=&Apache::lonmenu::unloadevents(). 554: ';'.$onUnload; 555: 556: $currentstring .= '<'.$token->[1]; 557: foreach (keys %{$token->[2]}) { 558: $currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"'; 559: } 560: $currentstring.='>'; 561: &Apache::lontexconvert::jsMath_reset(); 562: if ($env{'environment.texengine'} eq 'jsMath') { 563: $currentstring.=&Apache::lontexconvert::jsMath_header(); 564: } 565: if ($env{'request.state'} ne 'published') { 566: if ($env{'environment.remote'} eq 'off') { 567: $currentstring.= 568: &Apache::lonmenu::constspaceform(). 569: &Apache::lonmenu::menubuttons(1,'web',1); 570: } 571: $currentstring.=(<<EDITBUTTON); 572: <form method="post"> 573: <input type="submit" name="editmode" accesskey="e" value="Edit" /> 574: </form> 575: EDITBUTTON 576: } else { 577: $currentstring.=&Apache::lonmenu::menubuttons(undef,$target,1); 578: } 579: $currentstring.=&Apache::lonxml::message_location(); 580: } elsif ($target eq 'tex') { 581: $currentstring = '\begin{document}'; 582: } 583: return $currentstring; 584: } 585: 586: sub end_body { 587: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 588: my $currentstring = &end_p(); # Close off unclosed <p> 589: if ($target eq 'web') { 590: $currentstring .= &Apache::lonxml::xmlend($target,$parser); 591: } elsif ($target eq 'tex') { 592: $currentstring .= '\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent \end{document}'; 593: } 594: return $currentstring; 595: } 596: 597: #-- <center> tag (end tag required) 598: sub start_center { 599: my ($target,$token) = @_; 600: my $currentstring = &end_p(); # Close off any prior para. 601: if ($target eq 'web') { 602: $currentstring .= $token->[4]; 603: } elsif ($target eq 'tex') { 604: $currentstring .= '\begin{center}'; 605: } 606: return $currentstring; 607: } 608: 609: sub end_center { 610: my ($target,$token) = @_; 611: my $currentstring = ''; 612: if ($target eq 'web') { 613: $currentstring = $token->[2]; 614: } elsif ($target eq 'tex') { 615: $currentstring = '\end{center}'; 616: } 617: return $currentstring; 618: } 619: 620: #-- <b> tag (end tag required) 621: # NOTE: In TeX mode disables internal <p> 622: sub start_b { 623: my ($target,$token) = @_; 624: my $currentstring = ''; 625: if ($target eq 'web') { 626: $currentstring = $token->[4]; 627: } elsif ($target eq 'tex') { 628: &disable_para(); 629: $currentstring .= '\textbf{'; 630: } 631: return $currentstring; 632: } 633: 634: sub end_b { 635: my ($target,$token) = @_; 636: my $currentstring = ''; 637: if ($target eq 'web') { 638: $currentstring = $token->[2]; 639: } elsif ($target eq 'tex') { 640: &enable_para(); 641: $currentstring = '}'; 642: } 643: return $currentstring; 644: } 645: 646: #-- <strong> tag (end tag required) 647: # NOTE: in TeX mode disables internal <p> 648: sub start_strong { 649: my ($target,$token) = @_; 650: my $currentstring = ''; 651: if ($target eq 'web') { 652: $currentstring = $token->[4]; 653: } elsif ($target eq 'tex') { 654: &disable_para(); 655: $currentstring = '\textbf{'; 656: } 657: return $currentstring; 658: } 659: 660: sub end_strong { 661: my ($target,$token) = @_; 662: my $currentstring = ''; 663: if ($target eq 'web') { 664: $currentstring = $token->[2]; 665: } elsif ($target eq 'tex') { 666: &enable_para(); 667: $currentstring = '}'; 668: } 669: return $currentstring; 670: } 671: 672: #-- <h1> tag (end tag required) 673: sub start_h1 { 674: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 675: my $currentstring = &end_p(); # Close off any prior para. 676: if ($target eq 'web') { 677: $currentstring .= $token->[4]; 678: } elsif ($target eq 'tex') { 679: my $pre; 680: my $align=lc(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1)); 681: if ($align eq 'center') { 682: $pre='\begin{center}'; 683: } elsif ($align eq 'left') { 684: $pre='\rlap{'; 685: } elsif ($align eq 'right') { 686: $pre=' \hfill \llap{'; 687: } 688: my $TeXsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval,undef,0); 689: if (not defined $TeXsize) {$TeXsize="large";} 690: $currentstring .= '\strut\newline '.$pre.'{\\'.$TeXsize.' \textbf{'; 691: } elsif ($target eq 'meta') { 692: $currentstring.='<subject>'; 693: &start_output($target); 694: } 695: return $currentstring; 696: } 697: 698: sub end_h1 { 699: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 700: my $currentstring = ''; 701: if ($target eq 'web') { 702: $currentstring .= $token->[2]; 703: } elsif ($target eq 'tex') { 704: my $post='\vskip 0 mm '; 705: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 706: if ($align eq 'center') { 707: $post='\end{center}'; 708: } elsif ($align eq 'left') { 709: $post='} \hfill'.'\vskip 0 mm '; 710: } elsif ($align eq 'right') { 711: $post='}'.'\vskip 0 mm '; 712: } 713: $currentstring .= '}}'.$post; 714: } elsif ($target eq 'meta') { 715: &end_output($target); 716: $currentstring='</subject>'; 717: } 718: return $currentstring; 719: } 720: 721: #-- <h2> tag 722: sub start_h2 { 723: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 724: my $currentstring = &end_p(); # Close off any prior para. 725: if ($target eq 'web') { 726: $currentstring .= $token->[4]; 727: } elsif ($target eq 'tex') { 728: my $pre; 729: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 730: if ($align eq 'center') { 731: $pre='\begin{center}'; 732: } elsif ($align eq 'left') { 733: $pre='\rlap{'; 734: } elsif ($align eq 'right') { 735: $pre=' \hfill \llap{'; 736: } 737: my $TeXsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval,undef,0); 738: if (not defined $TeXsize) {$TeXsize="large";} 739: $currentstring .= '\strut\newline '.$pre.'{\\'.$TeXsize.' \textbf{'; 740: } 741: return $currentstring; 742: } 743: 744: sub end_h2 { 745: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 746: my $currentstring = ''; 747: if ($target eq 'web') { 748: $currentstring .= $token->[2]; 749: } elsif ($target eq 'tex') { 750: my $post='\vskip 0 mm '; 751: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 752: if ($align eq 'center') { 753: $post='\end{center}'; 754: } elsif ($align eq 'left') { 755: $post='} \hfill'.'\vskip 0 mm '; 756: } elsif ($align eq 'right') { 757: $post='}'.'\vskip 0 mm '; 758: } 759: $currentstring .= '}}'.$post; 760: } 761: return $currentstring; 762: } 763: 764: #-- <h3> tag 765: sub start_h3 { 766: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 767: my $currentstring = &end_p(); # Close off any prior para. 768: if ($target eq 'web') { 769: $currentstring .= $token->[4]; 770: } elsif ($target eq 'tex') { 771: my $pre; 772: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 773: if ($align eq 'center') { 774: $pre='\begin{center}'; 775: } elsif ($align eq 'left') { 776: $pre='\rlap{'; 777: } elsif ($align eq 'right') { 778: $pre=' \hfill \llap{'; 779: } 780: my $TeXsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval,undef,0); 781: if (not defined $TeXsize) {$TeXsize="large";} 782: $currentstring .= '\strut\newline '.$pre.'{\\'.$TeXsize.' \textbf{'; 783: } 784: return $currentstring; 785: } 786: 787: sub end_h3 { 788: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 789: my $currentstring = ''; 790: if ($target eq 'web') { 791: $currentstring .= $token->[2]; 792: } elsif ($target eq 'tex') { 793: my $post='\vskip 0 mm '; 794: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 795: if ($align eq 'center') { 796: $post='\end{center}'; 797: } elsif ($align eq 'left') { 798: $post='} \hfill'.'\vskip 0 mm '; 799: } elsif ($align eq 'right') { 800: $post='}'.'\vskip 0 mm '; 801: } 802: $currentstring .= '}}'.$post; 803: } 804: return $currentstring; 805: } 806: 807: #-- <h4> tag 808: sub start_h4 { 809: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 810: my $currentstring = &end_p(); # Close off any prior para. 811: if ($target eq 'web') { 812: $currentstring .= $token->[4]; 813: } elsif ($target eq 'tex') { 814: my $pre; 815: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 816: if ($align eq 'center') { 817: $pre='\begin{center}'; 818: } elsif ($align eq 'left') { 819: $pre='\rlap{'; 820: } elsif ($align eq 'right') { 821: $pre=' \hfill \llap{'; 822: } 823: my $TeXsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval,undef,0); 824: if (not defined $TeXsize) {$TeXsize="large";} 825: $currentstring .= '\strut\newline '.$pre.'{\\'.$TeXsize.' \textbf{'; 826: } 827: return $currentstring; 828: } 829: 830: sub end_h4 { 831: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 832: my $currentstring = ''; 833: if ($target eq 'web') { 834: $currentstring .= $token->[2]; 835: } elsif ($target eq 'tex') { 836: my $post='\vskip 0 mm '; 837: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 838: if ($align eq 'center') { 839: $post='\end{center}'; 840: } elsif ($align eq 'left') { 841: $post='} \hfill'.'\vskip 0 mm '; 842: } elsif ($align eq 'right') { 843: $post='}'.'\vskip 0 mm '; 844: } 845: $currentstring .= '}}'.$post; 846: } 847: return $currentstring; 848: } 849: 850: #-- <h5> tag 851: sub start_h5 { 852: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 853: my $currentstring = &end_p(); # Close off any prior paras. 854: if ($target eq 'web') { 855: $currentstring .= $token->[4]; 856: } elsif ($target eq 'tex') { 857: my $pre; 858: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 859: if ($align eq 'center') { 860: $pre='\begin{center}'; 861: } elsif ($align eq 'left') { 862: $pre='\rlap{'; 863: } elsif ($align eq 'right') { 864: $pre=' \hfill \llap{'; 865: } 866: my $TeXsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval,undef,0); 867: if (not defined $TeXsize) {$TeXsize="large";} 868: $currentstring .= '\strut\newline '.$pre.'{\\'.$TeXsize.' \textbf{'; 869: } 870: return $currentstring; 871: } 872: 873: sub end_h5 { 874: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 875: my $currentstring = ''; 876: if ($target eq 'web') { 877: $currentstring .= $token->[2]; 878: } elsif ($target eq 'tex') { 879: my $post='\vskip 0 mm '; 880: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 881: if ($align eq 'center') { 882: $post='\end{center}'; 883: } elsif ($align eq 'left') { 884: $post='} \hfill'.'\vskip 0 mm '; 885: } elsif ($align eq 'right') { 886: $post='}'.'\vskip 0 mm '; 887: } 888: $currentstring .= '}}'.$post; 889: } 890: return $currentstring; 891: } 892: 893: #-- <h6> tag 894: sub start_h6 { 895: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 896: my $currentstring = &end_p(); # Close off any prior paras. 897: if ($target eq 'web') { 898: $currentstring .= $token->[4]; 899: } elsif ($target eq 'tex') { 900: my $pre; 901: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 902: if ($align eq 'center') { 903: $pre='\begin{center}'; 904: } elsif ($align eq 'left') { 905: $pre='\rlap{'; 906: } elsif ($align eq 'right') { 907: $pre=' \hfill \llap{'; 908: } 909: my $TeXsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval,undef,0); 910: if (not defined $TeXsize) {$TeXsize="large";} 911: $currentstring .= '\strut\newline '.$pre.'{\\'.$TeXsize.' \textbf{'; 912: } 913: return $currentstring; 914: } 915: 916: sub end_h6 { 917: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 918: my $currentstring = ''; 919: if ($target eq 'web') { 920: $currentstring .= $token->[2]; 921: } elsif ($target eq 'tex') { 922: my $post='\vskip 0 mm '; 923: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 924: if ($align eq 'center') { 925: $post='\end{center}'; 926: } elsif ($align eq 'left') { 927: $post='} \hfill'.'\vskip 0 mm '; 928: } elsif ($align eq 'right') { 929: $post='}'.'\vskip 0 mm '; 930: } 931: $currentstring .= '}}'.$post; 932: } 933: return $currentstring; 934: } 935: 936: #--- <cite> tag (end tag required) 937: sub start_cite { 938: my ($target,$token) = @_; 939: my $currentstring = ''; 940: if ($target eq 'web') { 941: $currentstring .= $token->[4]; 942: } elsif ($target eq 'tex') { 943: $currentstring .= '\textit{'; 944: } 945: return $currentstring; 946: } 947: 948: sub end_cite { 949: my ($target,$token) = @_; 950: my $currentstring = ''; 951: if ($target eq 'web') { 952: $currentstring .= $token->[2]; 953: } elsif ($target eq 'tex') { 954: $currentstring .= '}'; 955: } 956: return $currentstring; 957: } 958: 959: #-- <i> tag (end tag required) 960: sub start_i { 961: my ($target,$token) = @_; 962: my $currentstring = ''; 963: if ($target eq 'web') { 964: $currentstring .= $token->[4]; 965: } elsif ($target eq 'tex') { 966: $currentstring .= '\textit{'; 967: } 968: return $currentstring; 969: } 970: 971: sub end_i { 972: my ($target,$token) = @_; 973: my $currentstring = ''; 974: if ($target eq 'web') { 975: $currentstring .= $token->[2]; 976: } elsif ($target eq 'tex') { 977: $currentstring .= '}'; 978: } 979: return $currentstring; 980: } 981: 982: #-- <address> tag (end tag required) 983: sub start_address { 984: my ($target,$token) = @_; 985: my $currentstring = ''; 986: if ($target eq 'web') { 987: $currentstring .= $token->[4]; 988: } elsif ($target eq 'tex') { 989: $currentstring .= '\textit{'; 990: } 991: return $currentstring; 992: } 993: 994: sub end_address { 995: my ($target,$token) = @_; 996: my $currentstring = ''; 997: if ($target eq 'web') { 998: $currentstring .= $token->[2]; 999: } elsif ($target eq 'tex') { 1000: $currentstring .= '}'; 1001: } 1002: return $currentstring; 1003: } 1004: 1005: #-- <dfn> tag (end tag required) 1006: sub start_dfn { 1007: my ($target,$token) = @_; 1008: my $currentstring = ''; 1009: if ($target eq 'web') { 1010: $currentstring .= $token->[4]; 1011: } elsif ($target eq 'tex') { 1012: $currentstring .= '\textit{'; 1013: } 1014: return $currentstring; 1015: } 1016: 1017: sub end_dfn { 1018: my ($target,$token) = @_; 1019: my $currentstring = ''; 1020: if ($target eq 'web') { 1021: $currentstring .= $token->[2]; 1022: } elsif ($target eq 'tex') { 1023: $currentstring .= '}'; 1024: } 1025: return $currentstring; 1026: } 1027: 1028: #-- <tt> tag (end tag required) 1029: sub start_tt { 1030: my ($target,$token) = @_; 1031: my $currentstring = ''; 1032: if ($target eq 'web') { 1033: $currentstring .= $token->[4]; 1034: } elsif ($target eq 'tex') { 1035: $currentstring .= '\texttt{'; 1036: } 1037: return $currentstring; 1038: } 1039: 1040: sub end_tt { 1041: my ($target,$token) = @_; 1042: my $currentstring = ''; 1043: if ($target eq 'web') { 1044: $currentstring .= $token->[2]; 1045: } elsif ($target eq 'tex') { 1046: $currentstring .= '}'; 1047: } 1048: return $currentstring; 1049: } 1050: 1051: #-- <kbd> tag (end tag required) 1052: sub start_kbd { 1053: my ($target,$token) = @_; 1054: my $currentstring = ''; 1055: if ($target eq 'web') { 1056: $currentstring .= $token->[4]; 1057: } elsif ($target eq 'tex') { 1058: $currentstring .= '\texttt{'; 1059: } 1060: return $currentstring; 1061: } 1062: 1063: sub end_kbd { 1064: my ($target,$token) = @_; 1065: my $currentstring = ''; 1066: if ($target eq 'web') { 1067: $currentstring .= $token->[2]; 1068: } elsif ($target eq 'tex') { 1069: $currentstring .= '}'; 1070: } 1071: return $currentstring; 1072: } 1073: 1074: #-- <code> tag (end tag required) 1075: sub start_code { 1076: my ($target,$token) = @_; 1077: my $currentstring = ''; 1078: if ($target eq 'web') { 1079: $currentstring .= $token->[4]; 1080: } elsif ($target eq 'tex') { 1081: $currentstring .= '\texttt{'; 1082: } 1083: return $currentstring; 1084: } 1085: 1086: sub end_code { 1087: my ($target,$token) = @_; 1088: my $currentstring = ''; 1089: if ($target eq 'web') { 1090: $currentstring .= $token->[2]; 1091: } elsif ($target eq 'tex') { 1092: $currentstring .= '}'; 1093: } 1094: return $currentstring; 1095: } 1096: 1097: #-- <em> tag (end tag required) 1098: sub start_em { 1099: my ($target,$token) = @_; 1100: my $currentstring = ''; 1101: if ($target eq 'web') { 1102: $currentstring .= $token->[4]; 1103: } elsif ($target eq 'tex') { 1104: $currentstring .= '\emph{'; 1105: } 1106: return $currentstring; 1107: } 1108: 1109: sub end_em { 1110: my ($target,$token) = @_; 1111: my $currentstring = ''; 1112: if ($target eq 'web') { 1113: $currentstring .= $token->[2]; 1114: } elsif ($target eq 'tex') { 1115: $currentstring .= '}'; 1116: } 1117: return $currentstring; 1118: } 1119: 1120: #-- <q> tag (end tag required) 1121: sub start_q { 1122: my ($target,$token) = @_; 1123: my $currentstring = ''; 1124: if ($target eq 'web') { 1125: $currentstring .= $token->[4]; 1126: } elsif ($target eq 'tex') { 1127: $currentstring .= '\emph{'; 1128: } 1129: return $currentstring; 1130: } 1131: 1132: sub end_q { 1133: my ($target,$token) = @_; 1134: my $currentstring = ''; 1135: if ($target eq 'web') { 1136: $currentstring .= $token->[2]; 1137: } elsif ($target eq 'tex') { 1138: $currentstring .= '}'; 1139: } 1140: return $currentstring; 1141: } 1142: 1143: # <p> is a bit strange since it does not require a closing </p> 1144: # However in latex, we must often output closing stuff to end 1145: # environments and {}'s etc. Therefore we do all the work 1146: # of figuring out the ending strings in the start tag processing, 1147: # and provide a mechanism to output the stop text external 1148: # to tag processing. 1149: # 1150: { 1151: 1152: my $closing_string = ''; # String required to close <p> 1153: 1154: # Some tags are <p> fragile meaning that <p> inside of them 1155: # does not work within TeX mode. This is managed via the 1156: # counter below: 1157: # 1158: 1159: my $para_disabled = 0; 1160: 1161: sub disable_para { 1162: $para_disabled++; 1163: } 1164: sub enable_para { 1165: $para_disabled--; 1166: } 1167: 1168: 1169: #-- <p> tag (end tag optional) 1170: #optional attribute - align="center|left|right" 1171: sub start_p { 1172: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1173: my $currentstring = ''; 1174: if ($target eq 'web') { 1175: $currentstring .= &end_p(); # close off prior para if in progress. 1176: $currentstring .= $token->[4]; 1177: if (! ($currentstring =~ /\//)) { 1178: $closing_string = '</p>'; # Deal correctly with <p /> e.g. 1179: } 1180: } elsif ($target eq 'tex' && !$para_disabled) { 1181: $currentstring .= &end_p(); # close off prior para if in progress. 1182: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 1183: if ($align eq 'center') { 1184: $currentstring .='\begin{center}\par'; 1185: $closing_string = '\end{center}'; 1186: } elsif ($align eq 'right') { 1187: $currentstring.='\makebox['.$env{'form.textwidth'}.']{\hfill\llap{'; 1188: $closing_string= '}}'; 1189: } elsif ($align eq 'left') { 1190: $currentstring.='\noindent\makebox['.$env{'form.textwidth'}.']{\rlap{'; 1191: $closing_string = '}\hfill}'; 1192: } else { 1193: $currentstring.='\par '; 1194: $closing_string = '\strut\\\\\strut '; 1195: } 1196: 1197: } 1198: return $currentstring; 1199: } 1200: # 1201: # End paragraph processing just requires that we output the 1202: # closing string that was saved and blank it. 1203: sub end_p { 1204: # Note only 'tex' mode uses disable_para and enable_para 1205: # so we don't need to know the target in the check below: 1206: 1207: if (!$para_disabled) { 1208: my $current_string = $closing_string; 1209: $closing_string = ''; # Not in a para anymore. 1210: return $current_string; 1211: } else { 1212: return ''; 1213: } 1214: 1215: } 1216: } 1217: #-- <br> tag (end tag forbidden) 1218: sub start_br { 1219: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 1220: my $currentstring = ''; 1221: if ($target eq 'web') { 1222: $currentstring .= $token->[4]; 1223: } elsif ($target eq 'tex') { 1224: my @tempo=@$tagstack; 1225: my $signal=0; 1226: # Not going to factor this to is_inside_of since that would require 1227: # multiple stack traversals. 1228: # 1229: for (my $i=$#tempo;$i>=0;$i--) { 1230: if (($tempo[$i] eq 'b') || ($tempo[$i] eq 'strong') || 1231: ($tempo[$i] eq 'ol') || ($tempo[$i] eq 'ul') || 1232: ($tempo[$i] eq 'td') || ($tempo[$i] eq 'th')) { 1233: $signal=1; 1234: last; 1235: } 1236: } 1237: if ($signal) { 1238: $currentstring .= ' \vskip 0 mm '; 1239: } elsif ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') { 1240: $currentstring .= '\strut \\\\ \strut '; 1241: } 1242: } 1243: return $currentstring; 1244: } 1245: 1246: sub end_br { 1247: my ($target,$token) = @_; 1248: my $currentstring = ''; 1249: if ($target eq 'web') { 1250: $currentstring .= $token->[2]; 1251: } 1252: return $currentstring; 1253: } 1254: 1255: #-- <big> tag (end tag required) 1256: sub start_big { 1257: my ($target,$token) = @_; 1258: my $currentstring = ''; 1259: if ($target eq 'web') { 1260: $currentstring .= $token->[4]; 1261: } elsif ($target eq 'tex') { 1262: $currentstring .= '{\large '; 1263: } 1264: return $currentstring; 1265: } 1266: 1267: sub end_big { 1268: my ($target,$token) = @_; 1269: my $currentstring = ''; 1270: if ($target eq 'web') { 1271: $currentstring .= $token->[2]; 1272: } elsif ($target eq 'tex') { 1273: $currentstring .= '}'; 1274: } 1275: return $currentstring; 1276: } 1277: 1278: #-- <small> tag (end tag required) 1279: sub start_small { 1280: my ($target,$token) = @_; 1281: my $currentstring = ''; 1282: if ($target eq 'web') { 1283: $currentstring .= $token->[4]; 1284: } elsif ($target eq 'tex') { 1285: $currentstring .= '{\footnotesize '; 1286: } 1287: return $currentstring; 1288: } 1289: 1290: sub end_small { 1291: my ($target,$token) = @_; 1292: my $currentstring = ''; 1293: if ($target eq 'web') { 1294: $currentstring .= $token->[2]; 1295: } elsif ($target eq 'tex') { 1296: $currentstring .= '}'; 1297: } 1298: return $currentstring; 1299: } 1300: 1301: #-- <basefont> tag (end tag forbidden) 1302: sub start_basefont { 1303: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 1304: my $currentstring = ''; 1305: if ($target eq 'web') { 1306: $currentstring = $token->[4]; 1307: } elsif ($target eq 'tex') { 1308: my $basesize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval); 1309: if (defined $basesize) { 1310: $currentstring = '{\\'.$basesize.' '; 1311: } 1312: } 1313: return $currentstring; 1314: } 1315: 1316: sub end_basefont { 1317: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1318: my $currentstring = ''; 1319: if ($target eq 'web') { 1320: $currentstring = $token->[4]; 1321: } elsif ($target eq 'tex') { 1322: my $basesize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval); 1323: if (defined $basesize) { 1324: $currentstring = '}'; 1325: } 1326: } 1327: return $currentstring; 1328: } 1329: 1330: #-- <font> tag (end tag required) 1331: sub start_font { 1332: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 1333: my $currentstring = ''; 1334: if ($target eq 'web') { 1335: my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval); 1336: if ($face!~/symbol/i) { 1337: if (($env{'browser.fontenhance'} eq 'on') || 1338: ($env{'browser.blackwhite'} eq 'on')) { return ''; } 1339: } 1340: $currentstring = $token->[4]; 1341: } elsif ($target eq 'tex') { 1342: my $fontsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval); 1343: if (defined $fontsize) { 1344: $currentstring = '{\\'.$fontsize.' '; 1345: } 1346: } 1347: return $currentstring; 1348: } 1349: 1350: sub end_font { 1351: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 1352: my $currentstring = ''; 1353: if ($target eq 'web') { 1354: $currentstring = $token->[2]; 1355: } elsif ($target eq 'tex') { 1356: my $fontsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval); 1357: if (defined $fontsize) { 1358: $currentstring = '}'; 1359: } 1360: } 1361: return $currentstring; 1362: } 1363: 1364: #-- <strike> tag (end tag required) 1365: sub start_strike { 1366: my ($target,$token) = @_; 1367: my $currentstring = ''; 1368: if ($target eq 'web') { 1369: $currentstring .= $token->[4]; 1370: } elsif ($target eq 'tex') { 1371: &Apache::lonxml::startredirection(); 1372: } 1373: return $currentstring; 1374: } 1375: 1376: sub end_strike { 1377: my ($target,$token) = @_; 1378: my $currentstring = ''; 1379: if ($target eq 'web') { 1380: $currentstring .= $token->[2]; 1381: } elsif ($target eq 'tex') { 1382: $currentstring=&Apache::lonxml::endredirection(); 1383: $currentstring=~s/(\S)(\s+)(\S)/$1\}$2\\underline\{$3/g; 1384: $currentstring=~s/^\s*(\S)/\\underline\{$1/; 1385: $currentstring=~s/(\S)\s*$/$1\}/; 1386: } 1387: return $currentstring; 1388: } 1389: 1390: #-- <s> tag (end tag required) 1391: sub start_s { 1392: my ($target,$token) = @_; 1393: my $currentstring = ''; 1394: if ($target eq 'web') { 1395: $currentstring .= $token->[4]; 1396: } elsif ($target eq 'tex') { 1397: &Apache::lonxml::startredirection(); 1398: } 1399: return $currentstring; 1400: } 1401: 1402: sub end_s { 1403: my ($target,$token) = @_; 1404: my $currentstring = ''; 1405: if ($target eq 'web') { 1406: $currentstring .= $token->[2]; 1407: } elsif ($target eq 'tex') { 1408: $currentstring=&Apache::lonxml::endredirection(); 1409: $currentstring=~s/(\S)(\s+)(\S)/$1\}$2\\underline\{$3/g; 1410: $currentstring=~s/^\s*(\S)/\\underline\{$1/; 1411: $currentstring=~s/(\S)\s*$/$1\}/; 1412: } 1413: return $currentstring; 1414: } 1415: 1416: #-- <sub> tag (end tag required) 1417: sub start_sub { 1418: my ($target,$token) = @_; 1419: my $currentstring = ''; 1420: if ($target eq 'web') { 1421: $currentstring .= $token->[4]; 1422: } elsif ($target eq 'tex') { 1423: $currentstring .= '\ensuremath{_{'; 1424: } 1425: return $currentstring; 1426: } 1427: 1428: sub end_sub { 1429: my ($target,$token) = @_; 1430: my $currentstring = ''; 1431: if ($target eq 'web') { 1432: $currentstring .= $token->[2]; 1433: } elsif ($target eq 'tex') { 1434: $currentstring .= '}}'; 1435: } 1436: return $currentstring; 1437: } 1438: 1439: #-- <sup> tag (end tag required) 1440: sub start_sup { 1441: my ($target,$token) = @_; 1442: my $currentstring = ''; 1443: if ($target eq 'web') { 1444: $currentstring .= $token->[4]; 1445: } elsif ($target eq 'tex') { 1446: $currentstring .= '\ensuremath{^{'; 1447: } 1448: return $currentstring; 1449: } 1450: 1451: sub end_sup { 1452: my ($target,$token) = @_; 1453: my $currentstring = ''; 1454: if ($target eq 'web') { 1455: $currentstring .= $token->[2]; 1456: } elsif ($target eq 'tex') { 1457: $currentstring .= '}}'; 1458: } 1459: return $currentstring; 1460: } 1461: 1462: #-- <hr> tag (end tag forbidden) 1463: sub start_hr { 1464: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1465: my $currentstring = &end_p(); # End enclosing para. 1466: if ($target eq 'web') { 1467: $currentstring .= $token->[4]; 1468: } elsif ($target eq 'tex') { 1469: my $LaTeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); 1470: if (defined $LaTeXwidth) { 1471: if ($LaTeXwidth=~/^%/) { 1472: substr($LaTeXwidth,0,1)=''; 1473: $LaTeXwidth=($LaTeXwidth/100).'\textwidth'; 1474: } 1475: } else { 1476: $LaTeXwidth ='0.9\textwidth'; 1477: } 1478: my ($pre,$post); 1479: my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 1480: if (($align eq 'center') || (not defined $align)) { 1481: $pre=''; $post=''; 1482: } elsif ($align eq 'left') { 1483: $pre='\rlap{'; $post='} \hfill'; 1484: } elsif ($align eq 'right') { 1485: $pre=' \hfill \llap{'; $post='}'; 1486: } 1487: $currentstring .= ' \vskip 0 mm \noindent\makebox['.$LaTeXwidth.']{'.$pre.'\makebox['. 1488: $LaTeXwidth.'][b]{\hrulefill}'.$post.'}\vskip 0 mm '; 1489: } 1490: return $currentstring; 1491: } 1492: 1493: sub end_hr { 1494: my ($target,$token) = @_; 1495: my $currentstring = ''; 1496: if ($target eq 'web') { 1497: $currentstring .= $token->[2]; 1498: } 1499: return $currentstring; 1500: } 1501: 1502: #-- <div> tag (end tag required) 1503: { 1504: 1505: # Since div can be nested, the stack below is used 1506: # in 'tex' mode to store the ending strings 1507: # for the div stack. 1508: 1509: my @div_end_stack; 1510: 1511: sub start_div { 1512: my ($target,$token, $tagstack, $parstack, $parser, $safeeval) = @_; 1513: my $currentstring = &end_p(); # Close enclosing para. 1514: if ($target eq 'web') { 1515: $currentstring .= $token->[4]; 1516: } 1517: if ($target eq 'tex') { 1518: # 4 possible alignments: left, right, center, and -missing-. 1519: 1520: my $endstring = ''; 1521: 1522: my $align = lc(&Apache::lonxml::get_param('align', $parstack, 1523: $safeeval, undef, 1)); 1524: if ($align eq 'center') { 1525: $currentstring .= '\begin{center}'; 1526: $endstring = '\end{center}'; 1527: } 1528: elsif ($align eq 'right') { 1529: $currentstring .= '\begin{flushright}'; 1530: $endstring .= '\end{flushright}'; 1531: } elsif ($align eq 'left') { 1532: $currentstring .= '\begin{flushleft}'; 1533: $endstring = '\end{flushleft}'; 1534: } else { 1535: 1536: } 1537: $currentstring .= "\n"; # For human readability. 1538: $endstring = "\n$endstring\n"; # For human readability 1539: push(@div_end_stack, $endstring); 1540: } 1541: return $currentstring; 1542: } 1543: 1544: sub end_div { 1545: my ($target,$token) = @_; 1546: my $currentstring = ''; 1547: if ($target eq 'web') { 1548: $currentstring .= $token->[2]; 1549: } 1550: if ($target eq 'tex') { 1551: my $endstring = pop @div_end_stack; 1552: $currentstring .= $endstring; 1553: } 1554: return $currentstring; 1555: } 1556: } 1557: 1558: #-- <a> tag (end tag required) 1559: sub start_a { 1560: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1561: my $currentstring = ''; 1562: if ($target eq 'web') { 1563: my $href=&Apache::lonxml::get_param('href',$parstack,$safeeval, 1564: undef,1); 1565: $currentstring=&Apache::lonenc::encrypt_ref($token,{'href'=>$href}); 1566: } elsif ($target eq 'tex') { 1567: my $a=&Apache::lonxml::get_param('href',$parstack,$safeeval,undef,1); 1568: my $b=&Apache::lonxml::get_param('name',$parstack,$safeeval,undef,1); 1569: if ($a=~/\S/) { 1570: $a=~s/([^\\])%/$1\\\%/g; 1571: $currentstring .= '\ref{URI: '.$a.'}'; 1572: } elsif ($b=~/\S/) { 1573: $currentstring .= '\ref{Anchor: '.$b.'}'; 1574: } else { 1575: $currentstring.=''; 1576: } 1577: } 1578: return $currentstring; 1579: } 1580: 1581: sub end_a { 1582: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1583: my $currentstring = ''; 1584: if ($target eq 'web') { 1585: $currentstring .= $token->[2]; 1586: } 1587: return $currentstring; 1588: } 1589: 1590: #-- <li> tag (end tag optional) 1591: sub start_li { 1592: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1593: my $currentstring = ''; 1594: if ($target eq 'web') { 1595: $currentstring = $token->[4]; 1596: } elsif ($target eq 'tex') { 1597: my $type=&Apache::lonxml::get_param('type',$parstack,$safeeval,undef,0); 1598: my $value=&Apache::lonxml::get_param('value',$parstack,$safeeval,undef,0); 1599: #FIXME need to support types i and I 1600: if ($type=~/disc/) { 1601: $currentstring .= ' \item[$\bullet$] '; 1602: } elsif ($type=~/circle/) { 1603: $currentstring .= ' \item[$\circ$] '; 1604: } elsif ($type=~/square/) { 1605: $currentstring .= ' \item[$\diamond$] '; 1606: } elsif ($type eq '1') { 1607: $currentstring .= ' \item['.($Apache::londefdef::list_index+1).'.]'; 1608: } elsif ($type eq 'A') { 1609: $currentstring .= ' \item['.('A'..'Z')[$Apache::londefdef::list_index].'.]'; 1610: } elsif ($type eq 'a') { 1611: $currentstring .= ' \item['.('a'..'z')[$Apache::londefdef::list_index].'.]'; 1612: } elsif ($value ne '') { 1613: $currentstring .= ' \item['.$value.'] '; 1614: } else { 1615: $currentstring .= ' \item '; 1616: } 1617: $Apache::londefdef::list_index++; 1618: } 1619: return $currentstring; 1620: } 1621: 1622: sub end_li { 1623: my ($target,$token) = @_; 1624: my $currentstring = &end_p(); # In case there's a <p> in the <li> 1625: if ($target eq 'web') { 1626: $currentstring .= $token->[2]; 1627: } 1628: return $currentstring; 1629: } 1630: 1631: #-- <u> tag (end tag required) 1632: sub start_u { 1633: my ($target,$token) = @_; 1634: my $currentstring = ''; 1635: if ($target eq 'web') { 1636: $currentstring .= $token->[4]; 1637: } elsif ($target eq 'tex') { 1638: &Apache::lonxml::startredirection(); 1639: } 1640: return $currentstring; 1641: } 1642: 1643: sub end_u { 1644: my ($target,$token) = @_; 1645: my $currentstring = ''; 1646: if ($target eq 'web') { 1647: $currentstring .= $token->[2]; 1648: } elsif ($target eq 'tex') { 1649: $currentstring=&Apache::lonxml::endredirection(); 1650: $currentstring=~s/(\S)(\s+)(\S)/$1\}$2\\underline\{$3/g; 1651: $currentstring=~s/^\s*(\S)/\\underline\{$1/; 1652: $currentstring=~s/(\S)\s*$/$1\}/; 1653: } 1654: return $currentstring; 1655: } 1656: 1657: #-- <ul> tag (end tag required) 1658: sub start_ul { 1659: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1660: my $currentstring = &end_p(); # Close off enclosing list. 1661: if ($target eq 'web') { 1662: $currentstring .= $token->[4]; 1663: } elsif ($target eq 'tex') { 1664: my $TeXtype=&Apache::lonxml::get_param('type',$parstack,$safeeval,undef,0); 1665: $Apache::londefdef::list_index=0; 1666: if ($TeXtype eq 'disc') { 1667: $currentstring .= '\renewcommand{\labelitemi}{$\bullet$}'. 1668: '\renewcommand{\labelitemii}{$\bullet$}'. 1669: '\renewcommand{\labelitemiii}{$\bullet$}'. 1670: '\renewcommand{\labelitemiv}{$\bullet$}'; 1671: } elsif ($TeXtype eq 'circle') { 1672: $currentstring .= '\renewcommand{\labelitemi}{$\circ$}'. 1673: '\renewcommand{\labelitemii}{$\circ$}'. 1674: '\renewcommand{\labelitemiii}{$\circ$}'. 1675: '\renewcommand{\labelitemiv}{$\circ$}'; 1676: } elsif ($TeXtype eq 'square') { 1677: $currentstring .= '\renewcommand{\labelitemi}{$\diamond$}'. 1678: '\renewcommand{\labelitemii}{$\diamond$}'. 1679: '\renewcommand{\labelitemiii}{$\diamond$}'. 1680: '\renewcommand{\labelitemiv}{$\diamond$}'; 1681: } 1682: $currentstring .= '\strut \begin{itemize}'; 1683: } 1684: return $currentstring; 1685: } 1686: 1687: sub end_ul { 1688: my ($target,$token) = @_; 1689: my $currentstring = ''; 1690: if ($target eq 'web') { 1691: $currentstring = $token->[2]; 1692: } elsif ($target eq 'tex') { 1693: $currentstring = '\end{itemize} \renewcommand{\labelitemi}{$\bullet$}'. 1694: '\renewcommand{\labelitemii}{$\bullet$}'. 1695: '\renewcommand{\labelitemiii}{$\bullet$}'. 1696: '\renewcommand{\labelitemiv}{$\bullet$}\strut '; 1697: } 1698: return $currentstring; 1699: } 1700: 1701: #-- <menu> tag (end tag required) 1702: sub start_menu { 1703: my ($target,$token) = @_; 1704: my $currentstring = ''; 1705: if ($target eq 'web') { 1706: $currentstring = $token->[4]; 1707: } elsif ($target eq 'tex') { 1708: $currentstring = " \\begin{itemize} "; 1709: } 1710: return $currentstring; 1711: } 1712: 1713: sub end_menu { 1714: my ($target,$token) = @_; 1715: my $currentstring = ''; 1716: if ($target eq 'web') { 1717: $currentstring = $token->[2]; 1718: } elsif ($target eq 'tex') { 1719: $currentstring = " \\end{itemize}"; 1720: } 1721: return $currentstring; 1722: } 1723: 1724: #-- <dir> tag (end tag required) 1725: sub start_dir { 1726: my ($target,$token) = @_; 1727: my $currentstring = &end_p(); # In case there's a <p> prior to the list. 1728: if ($target eq 'web') { 1729: $currentstring .= $token->[4]; 1730: } elsif ($target eq 'tex') { 1731: $currentstring .= " \\begin{itemize} "; 1732: } 1733: return $currentstring; 1734: } 1735: 1736: sub end_dir { 1737: my ($target,$token) = @_; 1738: my $currentstring = ''; 1739: if ($target eq 'web') { 1740: $currentstring = $token->[2]; 1741: } elsif ($target eq 'tex') { 1742: $currentstring = " \\end{itemize}"; 1743: } 1744: return $currentstring; 1745: } 1746: 1747: #-- <ol> tag (end tag required) 1748: sub start_ol { 1749: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1750: my $currentstring = &end_p(); # In case there's a <p> prior to the list. 1751: if ($target eq 'web') { 1752: $currentstring .= $token->[4]; 1753: } elsif ($target eq 'tex') { 1754: $Apache::londefdef::list_index=0; 1755: my $type=&Apache::lonxml::get_param('type',$parstack,$safeeval,undef,0); 1756: if ($type eq '1') { 1757: $currentstring .= '\renewcommand{\labelenumi}{\arabic{enumi}.}'. 1758: '\renewcommand{\labelenumii}{\arabic{enumii}.}'. 1759: '\renewcommand{\labelenumiii}{\arabic{enumiii}.}'. 1760: '\renewcommand{\labelenumiv}{\arabic{enumiv}.}'; 1761: } elsif ($type eq 'A') { 1762: $currentstring .= '\renewcommand{\labelenumi}{\Alph{enumi}.}'. 1763: '\renewcommand{\labelenumii}{\Alph{enumii}.}'. 1764: '\renewcommand{\labelenumiii}{\Alph{enumiii}.}'. 1765: '\renewcommand{\labelenumiv}{\Alph{enumiv}.}'; 1766: } elsif ($type eq 'a') { 1767: $currentstring .= '\renewcommand{\labelenumi}{\alph{enumi}.}'. 1768: '\renewcommand{\labelenumii}{\alph{enumii}.}'. 1769: '\renewcommand{\labelenumiii}{\alph{enumiii}.}'. 1770: '\renewcommand{\labelenumiv}{\alph{enumiv}.}'; 1771: } elsif ($type eq 'i') { 1772: $currentstring .= '\renewcommand{\labelenumi}{\roman{enumi}.}'. 1773: '\renewcommand{\labelenumii}{\roman{enumii}.}'. 1774: '\renewcommand{\labelenumiii}{\roman{enumiii}.}'. 1775: '\renewcommand{\labelenumiv}{\roman{enumiv}.}'; 1776: } elsif ($type eq 'I') { 1777: $currentstring .= '\renewcommand{\labelenumi}{\Roman{enumi}.}'. 1778: '\renewcommand{\labelenumii}{\Roman{enumii}.}'. 1779: '\renewcommand{\labelenumiii}{\Roman{enumiii}.}'. 1780: '\renewcommand{\labelenumiv}{\Roman{enumiv}.}'; 1781: } 1782: $currentstring .= '\strut \begin{enumerate}'; 1783: } 1784: return $currentstring; 1785: } 1786: 1787: sub end_ol { 1788: my ($target,$token) = @_; 1789: my $currentstring = ''; 1790: if ($target eq 'web') { 1791: $currentstring = $token->[2]; 1792: } elsif ($target eq 'tex') { 1793: $currentstring = '\end{enumerate}\renewcommand{\labelenumi}{\arabic{enumi}.}'. 1794: '\renewcommand{\labelenumii}{\arabic{enumii}.}'. 1795: '\renewcommand{\labelenumiii}{\arabic{enumiii}.}'. 1796: '\renewcommand{\labelenumiv}{\arabic{enumiv}.}\strut '; 1797: } 1798: return $currentstring; 1799: } 1800: 1801: #-- <dl> tag (end tag required) 1802: sub start_dl { 1803: my ($target,$token) = @_; 1804: my $currentstring = &end_p(); # In case there's a <p> unclosed prior to the list. 1805: if ($target eq 'web') { 1806: $currentstring .= $token->[4]; 1807: } elsif ($target eq 'tex') { 1808: $currentstring .= '\begin{description}'; 1809: $Apache::londefdef::DL++; 1810: push(@Apache::londefdef::description,[]); 1811: $Apache::londefdef::DD[$Apache::londefdef::DL]=0; 1812: $Apache::londefdef::DT[$Apache::londefdef::DL]=0; 1813: $Apache::londefdef::seenDT[$Apache::londefdef::DL]=0; 1814: } 1815: return $currentstring; 1816: } 1817: 1818: sub end_dl { 1819: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1820: my $currentstring = ''; 1821: if ($target eq 'web') { 1822: $currentstring = $token->[2]; 1823: } elsif ($target eq 'tex') { 1824: if ($Apache::londefdef::DT[-1]) { &end_dt(@_); } 1825: if ($Apache::londefdef::DD[-1]) { &end_dd(@_); } 1826: foreach my $element (@{$Apache::londefdef::description[-1]}) { 1827: $currentstring.=' '.$element.' '; 1828: } 1829: pop(@Apache::londefdef::description); 1830: $currentstring.='\end{description}'; 1831: delete($Apache::londefdef::DD[$Apache::londefdef::DL]); 1832: delete($Apache::londefdef::DT[$Apache::londefdef::DL]); 1833: delete($Apache::londefdef::seenDT[$Apache::londefdef::DL]); 1834: $Apache::londefdef::DL--; 1835: } 1836: return $currentstring; 1837: } 1838: 1839: #-- <dt> tag (end tag optional) 1840: sub start_dt { 1841: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1842: my $currentstring=''; 1843: if ($target eq 'web') { 1844: $currentstring = $token->[4]; 1845: } elsif ($target eq 'tex') { 1846: if ($Apache::londefdef::DT[-1]) { &end_dt(@_); } 1847: if ($Apache::londefdef::DD[-1]) { &end_dd(@_); } 1848: &Apache::lonxml::startredirection(); 1849: $Apache::londefdef::DT[-1]++; 1850: $Apache::londefdef::seenDT[-1]=1; 1851: } 1852: return $currentstring; 1853: } 1854: 1855: sub end_dt { 1856: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1857: my $currentstring = ''; 1858: if ($target eq 'web') { 1859: $currentstring = $token->[2]; 1860: } elsif ($target eq 'tex') { 1861: if ($Apache::londefdef::DT[-1]) { 1862: my $data=&item_cleanup(); 1863: push(@{$Apache::londefdef::description[-1]},'\item['.$data.'] \strut \vskip 0mm'); 1864: $Apache::londefdef::DT[-1]--; 1865: } 1866: } 1867: return $currentstring; 1868: } 1869: 1870: sub item_cleanup { 1871: my $item=&Apache::lonxml::endredirection(); 1872: $item=~s/\\begin{center}//g; 1873: $item=~s/\\end{center}//g; 1874: return $item; 1875: } 1876: 1877: #-- <dd> tag (end tag optional) 1878: sub start_dd { 1879: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1880: my $currentstring = ''; 1881: if ($target eq 'web') { 1882: $currentstring = $token->[4]; 1883: } elsif ($target eq 'tex') { 1884: if ($Apache::londefdef::DT[-1]) { &end_dt(@_); } 1885: if ($Apache::londefdef::DD[-1]) { &end_dd(@_);} 1886: if (!$Apache::londefdef::seenDT[-1]) { 1887: push(@{$Apache::londefdef::description[-1]},'\item[\strut] \strut \vskip 0mm '); 1888: } 1889: push(@{$Apache::londefdef::description[-1]},''); 1890: $Apache::londefdef::description[-1]->[-1].=' \strut '; 1891: $Apache::londefdef::DD[-1]++; 1892: &Apache::lonxml::startredirection(); 1893: } 1894: return $currentstring; 1895: } 1896: 1897: sub end_dd { 1898: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1899: my $currentstring = ''; 1900: if ($target eq 'web') { 1901: $currentstring = $token->[2]; 1902: } elsif ($target eq 'tex') { 1903: $Apache::londefdef::description[-1]->[-1].= 1904: &Apache::lonxml::endredirection().' \vskip 0mm '; 1905: $Apache::londefdef::DD[-1]--; 1906: } 1907: return $currentstring; 1908: } 1909: 1910: #-- <table> tag (end tag required) 1911: # <table> also ends any prior <p> that is not closed. 1912: # but, unless I allow <p>'s to nest, that's the 1913: # only way I could think of to allow <p> in 1914: # <tr> <th> bodies 1915: # 1916: #list of supported attributes: border,width,TeXwidth 1917: sub start_table { 1918: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1919: my $textwidth = ''; 1920: my $currentstring = &end_p(); 1921: if ($target eq 'web') { 1922: $currentstring .= $token->[4]; 1923: } elsif ($target eq 'tex') { 1924: my $aa = {}; 1925: push @Apache::londefdef::table, $aa; 1926: $Apache::londefdef::table[-1]{'row_number'} = -1; 1927: #maximum table's width (default coincides with text line length) 1928: if ($#Apache::londefdef::table==0) { 1929: $textwidth=&recalc($env{'form.textwidth'}); #result is always in mm 1930: $textwidth=~/(\d+\.?\d*)/; 1931: $textwidth=0.95*$1; #accounts "internal" LaTeX space for table frame 1932: } else { 1933: if ($Apache::londefdef::table[-2]{'TeXlen'}[$Apache::londefdef::table[-2]{'row_number'}][$Apache::londefdef::table[-2]{'counter_columns'}]=~/\d/) { 1934: #the maximum width of nested table is determined by LATeX width of parent cell 1935: $textwidth=$Apache::londefdef::table[-2]{'TeXlen'}[$Apache::londefdef::table[-2]{'row_number'}][$Apache::londefdef::table[-2]{'counter_columns'}]; 1936: } else { 1937: #try to use all space not used before (minus 5% for LaTeX table internal) - rather silly 1938: $textwidth=$Apache::londefdef::table[-2]{'width'}; 1939: for (my $i=0;$i<$Apache::londefdef::table[-2]{'counter_columns'};$i++) { 1940: $textwidth=$textwidth-$Apache::londefdef::table[-2]{'TeXlen'}[0][$i]; 1941: } 1942: } 1943: } 1944: 1945: # width either comes forced from the TeXwidth or the width parameters. 1946: # in either case it can be a percentage or absolute width. 1947: 1948: my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); 1949: if (not defined $TeXwidth) { 1950: $TeXwidth = &Apache::lonxml::get_param('width',$parstack,$safeeval,undef,1); 1951: 1952: } else { 1953: $Apache::londefdef::table[-1]{'forcedtablewidth'} = 1; 1954: } 1955: if ($TeXwidth=~/%/) { 1956: $Apache::londefdef::table[-1]{'percent'}=1; 1957: $TeXwidth=~/(\d+)/; 1958: $Apache::londefdef::table[-1]{'width'}=$1*$textwidth/100; 1959: } else { 1960: $Apache::londefdef::table[-1]{'width'}=$TeXwidth; 1961: } 1962: 1963: #table's border 1964: my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval); 1965: my $permission=&Apache::lonxml::get_param('TeXDropEmptyColumns',$parstack,$safeeval,undef,0); 1966: unless (defined $border) { $border = 0; } 1967: if ($border) { 1968: $Apache::londefdef::table[-1]{'hinc'} = '\hline '; 1969: $Apache::londefdef::table[-1]{'vinc'} = '&'; 1970: $Apache::londefdef::table[-1]{'vvinc'} = '|'; 1971: } else { 1972: $Apache::londefdef::table[-1]{'hinc'} = ''; 1973: $Apache::londefdef::table[-1]{'vinc'} = '&'; 1974: $Apache::londefdef::table[-1]{'vvinc'} = ''; 1975: } 1976: if ($#Apache::londefdef::table==0) { 1977: # Note that \newline seems to destroy the alignment envs. 1978: # $Apache::londefdef::table[-1]{'output'}='\strut\newline\strut\setlength{\tabcolsep}{1 mm}'; 1979: $Apache::londefdef::table[-1]{'output'}='\strut'.'\\\\'."\n".'\strut\setlength{\tabcolsep}{1 mm}'; 1980: } 1981: $Apache::londefdef::table[-1]{'output'}.=' \noindent \begin{tabular} '; 1982: $Apache::londefdef::table[-1]{'TeXlen'}=[]; 1983: $Apache::londefdef::table[-1]{'objectlen'}=[]; 1984: $Apache::londefdef::table[-1]{'objectsignal'}=[]; 1985: $Apache::londefdef::table[-1]{'maxlen'}=[]; 1986: $Apache::londefdef::table[-1]{'minlen'}=[]; 1987: $Apache::londefdef::table[-1]{'content'}=[]; 1988: $Apache::londefdef::table[-1]{'align'}=[]; 1989: $currentstring.='\keephidden{NEW TABLE ENTRY}'; 1990: 1991: 1992: } 1993: return $currentstring; 1994: } 1995: 1996: sub end_table { 1997: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 1998: my $currentstring = ''; 1999: if ($target eq 'web') { 2000: $currentstring = $token->[2]; 2001: } elsif ($target eq 'tex') { 2002: my $inmemory = ''; 2003: my $output = ''; 2004: my $WARNING=''; 2005: #width of columns from TeXwidth attributes 2006: 2007: for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) { 2008: for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) { 2009: if ($Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]<$Apache::londefdef::table[-1]{'TeXlen'}[$in][$jn]) { 2010: $Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]=$Apache::londefdef::table[-1]{'TeXlen'}[$in][$jn]; 2011: } 2012: } 2013: } 2014: #free space and number of empty columns 2015: my ($available_space,$empty_columns)=($Apache::londefdef::table[-1]{'width'},0); 2016: if ($#Apache::londefdef::table ne 0) {$available_space=0.9*$available_space;} 2017: for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) { 2018: if ($Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]==0) { 2019: $empty_columns++; 2020: } else { 2021: $available_space=$available_space-$Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]; 2022: } 2023: } 2024: #boundaries for contents columns 2025: my @min_len=();#columns can not be narrower 2026: my @max_len=();#maximum length of column 2027: for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) { 2028: my ($localmin,$localmax)=(0,0); 2029: for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) { 2030: if ($localmin<$Apache::londefdef::table[-1]{'minlen'}[$in][$jn]) { 2031: $localmin=$Apache::londefdef::table[-1]{'minlen'}[$in][$jn]; 2032: } 2033: if ($localmax<$Apache::londefdef::table[-1]{'maxlen'}[$in][$jn]) { 2034: $localmax=$Apache::londefdef::table[-1]{'maxlen'}[$in][$jn]; 2035: } 2036: } 2037: push @min_len, $localmin; 2038: push @max_len, $localmax; 2039: } 2040: for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) { 2041: my $localmin=0,; 2042: for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) { 2043: if ($localmin<$Apache::londefdef::table[-1]{'objectlen'}[$in][$jn]) { 2044: $localmin=$Apache::londefdef::table[-1]{'objectlen'}[$in][$jn]; 2045: } 2046: } 2047: if ($max_len[$jn]<$localmin) { 2048: $max_len[$jn]=$localmin; 2049: $Apache::londefdef::table[-1]{'objectsignal'}[$jn]=1; 2050: }#object size is bigger 2051: if ($min_len[$jn]<$localmin) { 2052: $min_len[$jn]=$localmin; 2053: $Apache::londefdef::table[-1]{'objectsignal'}[$jn]=1; 2054: }#object size is bigger 2055: if ($Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]!=0) { 2056: $min_len[$jn]=0; 2057: $max_len[$jn]=0; 2058: } 2059: } 2060: #final adjustment of column width 2061: my @fwidth=@{$Apache::londefdef::table[-1]{'TeXlen'}[0]};#final width array 2062: my @adjust=(); 2063: #step 1. adjustment by maximum value 2064: my $space_neeeded=0; 2065: for (my $jn=0;$jn<=$#max_len;$jn++) { 2066: $space_neeeded=$space_neeeded+$max_len[$jn]; 2067: } 2068: if ($space_neeeded<=$available_space) { 2069: for (my $jn=0;$jn<=$#max_len;$jn++) { 2070: if ($fwidth[$jn]==0) { 2071: $fwidth[$jn]=$max_len[$jn]; 2072: } 2073: } 2074: } else { 2075: #step 2. adjustment by minimum value (estimation) 2076: $space_neeeded=0; 2077: for (my $jn=0;$jn<=$#min_len;$jn++) { 2078: $space_neeeded+=$min_len[$jn]; 2079: } 2080: if ($space_neeeded>$available_space) { 2081: $WARNING=' \textbf{NOT ENOUGH SPACE FOR TABLE} '; 2082: for (my $jn=0;$jn<=$#max_len;$jn++) { 2083: if ($fwidth[$jn]==0) { 2084: $fwidth[$jn]=$min_len[$jn]; 2085: } 2086: } 2087: #check if we have objects which can be scaled 2088: my $how_many_to_scale=0; 2089: my @to_scale=(); 2090: for (my $jn=0;$jn<=$#max_len;$jn++) { 2091: if ($Apache::londefdef::table[-1]{'objectsignal'}[$jn] eq '1') { 2092: $how_many_to_scale++; 2093: push @to_scale, $jn; 2094: } 2095: } 2096: if ($how_many_to_scale>0) { 2097: my $space_to_adjust=($space_neeeded-$available_space)/$how_many_to_scale; 2098: foreach my $jn (@to_scale) { 2099: for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) { 2100: $Apache::londefdef::table[-1]{'content'}[$in][$jn]=~m/width\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)/; 2101: if ($1 ne '') { 2102: my $current_length=&recalc($1); 2103: $current_length=~/(\d+\.?\d*)/; 2104: $current_length=$current_length-$space_to_adjust; 2105: $Apache::londefdef::table[-1]{'content'}[$in][$jn]=~s/width\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)/width=$current_length mm/; 2106: } 2107: $Apache::londefdef::table[-1]{'content'}[$in][$jn]=~m/\[(\d+\.?\d*)\s*mm\]/; 2108: if ($1 ne '') { 2109: my $current_length=$1; 2110: $current_length=$current_length-$space_to_adjust; 2111: $Apache::londefdef::table[-1]{'content'}[$in][$jn]=~s/\[(\d+\.?\d*)\s*mm\]/\[$current_length mm\]/; 2112: } 2113: } 2114: $fwidth[$jn]=$fwidth[$jn]-$space_to_adjust; 2115: } 2116: } 2117: } else { 2118: #step 3. adjustment over minimal + corrections 2119: my $enlarge_coef=$available_space/$space_neeeded; 2120: my $acsessive=0; 2121: for (my $jn=0;$jn<=$#min_len;$jn++) { 2122: $adjust[$jn]=$min_len[$jn]*$enlarge_coef; 2123: if ($adjust[$jn]>$max_len[$jn]) { 2124: $fwidth[$jn]=$max_len[$jn]; 2125: $acsessive=$acsessive+$adjust[$jn]-$max_len[$jn]; 2126: $adjust[$jn]=0; 2127: } 2128: } 2129: if ($acsessive>0) { 2130: #we have an excess of space and can redistribute it 2131: my $notempty_columns=0; 2132: for (my $jn=0;$jn<=$#min_len;$jn++) { 2133: if ($adjust[$jn]!=0) { 2134: $notempty_columns++; 2135: } 2136: } 2137: my $per_column=$acsessive/$notempty_columns; 2138: for (my $jn=0;$jn<=$#min_len;$jn++) { 2139: if ($adjust[$jn]!=0) { 2140: $adjust[$jn]+=$per_column; 2141: $fwidth[$jn]=$adjust[$jn]; 2142: } 2143: } 2144: } else { 2145: for (my $jn=0;$jn<=$#min_len;$jn++) { 2146: $fwidth[$jn]=$adjust[$jn]; 2147: } 2148: } 2149: } 2150: } 2151: #use all available width if it is defined in % or as TeXwidth 2152: if (($Apache::londefdef::table[-1]{'percent'}==1) || ($Apache::londefdef::table[-1]{'forcetablewidth'}==1)) { 2153: my $current=0; 2154: for (my $i=0;$i<=$#fwidth;$i++) { 2155: $current+=$fwidth[$i]; 2156: } 2157: my $coef=$Apache::londefdef::table[-1]{'width'}/$current; 2158: for (my $i=0;$i<=$#fwidth;$i++) { 2159: $fwidth[$i]*=$coef; 2160: } 2161: } 2162: #removing of empty columns if allowed 2163: my $permission=&Apache::lonxml::get_param('TeXDropEmptyColumns',$parstack,$safeeval,undef,0); 2164: if ($permission eq 'yes') { 2165: my @cleaned_table=(); 2166: my @cleaned_header=(); 2167: my $colind=0; 2168: for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) { 2169: if ($fwidth[$jn]!=0) { 2170: #we need to copy column 2171: for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) { 2172: $cleaned_table[$in][$colind]=$Apache::londefdef::table[-1]{'content'}[$in][$jn]; 2173: $cleaned_header[$colind]=$fwidth[$jn]; 2174: } 2175: $colind++; 2176: } 2177: } 2178: $Apache::londefdef::table[-1]{'content'}=\@cleaned_table; 2179: @fwidth=@cleaned_header; 2180: } 2181: #construct header of the table 2182: my $header_of_table = '{'.$Apache::londefdef::table[-1]{'vvinc'}; 2183: for (my $in=0;$in<=$#fwidth;$in++) { 2184: $header_of_table.='p{'.$fwidth[$in].' mm}'.$Apache::londefdef::table[-1]{'vvinc'}; 2185: } 2186: $header_of_table .= '}'; 2187: #fill the table 2188: for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) { 2189: for (my $jn=0;$jn<=$#fwidth;$jn++) { 2190: if ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'c') { 2191: # $output.='\vspace*{-6 mm}\begin{center}'; 2192: $output.='\begin{center}'; 2193: } elsif ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'r') { 2194: $output.=' \hfill \llap{' 2195: } 2196: $output.=$Apache::londefdef::table[-1]{'content'}[$in][$jn]; 2197: if ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'c') { 2198: # $output.='\end{center}\vspace*{-6 mm}'; 2199: $output.='\end{center}'; 2200: } elsif ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'r') { 2201: $output.='} '; 2202: } 2203: if ($jn!=$#fwidth) {$output.=' '.$Apache::londefdef::table[-1]{'vinc'};} 2204: } 2205: $output.=' \\\\ '.$Apache::londefdef::table[-1]{'hinc'}.' '; 2206: } 2207: # Note that \newline destroys alignment env's produced by e.g. <div> 2208: # $Apache::londefdef::table[-1]{'output'} .= $header_of_table.$Apache::londefdef::table[-1]{'hinc'}.$output.'\end{tabular}\strut\newline\strut '; 2209: $Apache::londefdef::table[-1]{'output'} .= $header_of_table.$Apache::londefdef::table[-1]{'hinc'}.$output.'\end{tabular}\strut'.'\\\\'."\n".'\strut '; 2210: if ($#Apache::londefdef::table > 0) { 2211: my $inmemory = $Apache::londefdef::table[-1]{'output'}; 2212: # Figure out max/and min width by summing us and then 2213: # apply that to the current column of the table we nest in 2214: # if it's larger than the current width or the current width 2215: # is undefined. 2216: # 2217: my $min_nested_width = 0; 2218: my $max_nested_width = 0; 2219: for (my $col = 0; $col <= $Apache::londefdef::table[-1]{'counter_columns'}; $col++) { 2220: 2221: $min_nested_width += $min_len[$col]; 2222: $max_nested_width += $max_len[$col]; 2223: } 2224: # Fudge in an extra 5 mm for borders etc: 2225: 2226: $min_nested_width += 5; 2227: $max_nested_width += 5; 2228: 2229: my $outer_column = $Apache::londefdef::table[-2]{'counter_columns'}; 2230: my $outer_row = $Apache::londefdef::table[-2]{'row_number'}; 2231: if ($min_nested_width > $Apache::londefdef::table[-2]{'minlen'}[$outer_row][$outer_column]) { 2232: $Apache::londefdef::table[-2]{'minlen'}[$outer_row][$outer_column] = $min_nested_width; 2233: } 2234: if ($max_nested_width > $Apache::londefdef::table[-2]{'maxlen'}[$outer_row][$outer_column]) { 2235: $Apache::londefdef::table[-2]{'maxlen'}[$outer_row][$outer_column] = $max_nested_width; 2236: } 2237: 2238: pop @Apache::londefdef::table; 2239: push @{$Apache::londefdef::table[-1]{'include'}}, $inmemory; 2240: } else { 2241: $currentstring .= $Apache::londefdef::table[-1]{'output'}; 2242: pop @Apache::londefdef::table; 2243: undef @Apache::londefdef::table; 2244: } 2245: } 2246: return $currentstring; 2247: } 2248: 2249: #-- <tr> tag (end tag optional) 2250: sub start_tr { 2251: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2252: my $currentstring = ''; 2253: if ($target eq 'web') { 2254: $currentstring = $token->[4]; 2255: } elsif ($target eq 'tex') { 2256: $Apache::londefdef::table[-1]{'row_number'}++; 2257: my $alignchar=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); 2258: if ($alignchar ne '') { 2259: push @ {$Apache::londefdef::table[-1]{'rows'} },substr($alignchar,0,1); 2260: } else { 2261: push @ {$Apache::londefdef::table[-1]{'rows'} }, 'l'; 2262: } 2263: push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'}); 2264: $Apache::londefdef::table[-1]{'counter_columns'} = -1; 2265: push @ {$Apache::londefdef::table[-1]{'TeXlen'}}, []; 2266: push @ {$Apache::londefdef::table[-1]{'objectlen'}}, []; 2267: push @ {$Apache::londefdef::table[-1]{'minlen'}}, []; 2268: push @ {$Apache::londefdef::table[-1]{'maxlen'}}, []; 2269: push @ {$Apache::londefdef::table[-1]{'content'}}, []; 2270: } 2271: return $currentstring; 2272: } 2273: 2274: sub end_tr { 2275: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2276: my $currentstring = &end_p(); # Close any pending <p> in the row. 2277: if ($target eq 'web') { 2278: $currentstring .= $token->[2]; 2279: } elsif ($target eq 'tex') { 2280: if ($Apache::londefdef::TD_redirection) { 2281: &end_td_tex($parstack,$parser,$safeeval); 2282: } 2283: 2284: 2285: 2286: } 2287: return $currentstring; 2288: } 2289: 2290: #-- <td> tag (end tag optional) 2291: sub start_td { 2292: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2293: my $currentstring = ''; 2294: if ($target eq 'web') { 2295: $currentstring = $token->[4]; 2296: } elsif ($target eq 'tex') { 2297: $Apache::londefdef::TD_redirection = 1; 2298: &tag_check('tr','td',$tagstack,$parstack,$parser,$safeeval); 2299: } 2300: return $currentstring; 2301: } 2302: 2303: sub tag_check { 2304: my ($good_tag,$bad_tag,$tagstack,$parstack,$parser,$safeeval) = @_; 2305: my @ar=@$parstack; 2306: for (my $i=$#ar-1;$i>=0;$i--) { 2307: if (lc($$tagstack[$i]) eq $good_tag) { 2308: &start_td_tex($parstack,$parser,$safeeval); 2309: last; 2310: } elsif (lc($$tagstack[$i]) eq $bad_tag) { 2311: splice @ar, $i+1; 2312: &end_td_tex(\@ar,$parser,$safeeval); 2313: &start_td_tex($parstack,$parser,$safeeval); 2314: last; 2315: } 2316: } 2317: return ''; 2318: } 2319: 2320: sub start_td_tex { 2321: my ($parstack,$parser,$safeeval) = @_; 2322: my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1); 2323: if ($alignchar eq '') { 2324: $alignchar = $Apache::londefdef::table[-1]{'rows'}[-1]; 2325: } 2326: push @{ $Apache::londefdef::table[-1]{'align'}[$Apache::londefdef::table[-1]{'row_number'}] }, $alignchar; 2327: $Apache::londefdef::table[-1]{'counter_columns'}++; 2328: my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); 2329: if (defined $TeXwidth) { 2330: my $current_length=&recalc($TeXwidth); 2331: $current_length=~/(\d+\.?\d*)/; 2332: push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$1; 2333: } 2334: &Apache::lonxml::startredirection(); 2335: return ''; 2336: } 2337: 2338: sub end_td_tex { 2339: my ($parstack,$parser,$safeeval) = @_; 2340: my $current_row = $Apache::londefdef::table[-1]{'row_number'}; 2341: my $data=&Apache::lonxml::endredirection(); 2342: my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); 2343: if (defined $TeXwidth) { 2344: push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2345: push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2346: push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2347: } else { 2348: if (($data=~m/width\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)/) or ($data=~m/\[(\d+\.?\d*)\s*mm\]/)) { 2349: my $garbage_data=$data; 2350: my $fwidth=0; 2351: while ($garbage_data=~m/width\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)/) { 2352: my $current_length=&recalc($1); 2353: $current_length=~/(\d+\.?\d*)/; 2354: if ($fwidth<$1) {$fwidth=$1;} 2355: $garbage_data=~s/width\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)//; 2356: } 2357: while ($garbage_data=~m/\[(\d+\.?\d*)\s*mm\]/) { 2358: my $current_length=$1; 2359: if ($fwidth<$current_length) {$fwidth=$current_length;} 2360: $garbage_data=~s/\[(\d+\.?\d*)\s*mm\]//; 2361: } 2362: push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2363: push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$fwidth; 2364: push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2365: push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2366: } elsif ($data=~/\\parbox\{\s*\d+\.?\d*\s*(mm|cm|in|pc|pt)*\s*\}/ or $data=~/\\epsfxsize\s*=\s*\d+\.?\d*\s*(mm|cm|in|pc|pt)*/) { 2367: my $garbage_data=$data; 2368: my $fwidth=0; 2369: while ($garbage_data=~/\\parbox\{\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)\s*\}/) { 2370: my $current_length=&recalc($1); 2371: $current_length=~/(\d+\.?\d*)/; 2372: if ($fwidth<$1) {$fwidth=$1;} 2373: $garbage_data=~s/\\parbox\{\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)//; 2374: } 2375: while ($garbage_data=~/\\epsfxsize\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)/) { 2376: my $current_length=&recalc($1); 2377: $current_length=~/(\d+\.?\d*)/; 2378: if ($fwidth<$1) {$fwidth=$1;} 2379: $garbage_data=~s/\\epsfxsize\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)//; 2380: } 2381: push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2382: push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$fwidth; 2383: push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2384: push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2385: $data=~s/\\\\\s*$//; 2386: } else { 2387: $data=~s/^\s+(\S.*)/$1/; 2388: $data=~s/(.*\S)\s+$/$1/; 2389: $data=~s/(\s)+/$1/; 2390: my ($current_length,$min_length)=(0,0); 2391: if ($data=~/\\vskip/) { 2392: my $newdata=$data; 2393: $newdata=~s/\\vskip \d*\.?\d*\s*mm/THISISJUSTTEMPORARYSEPARATOR/g; 2394: my @newdata=split(/THISISJUSTTEMPORARYSEPARATOR/,$newdata); 2395: foreach my $elementdata (@newdata) { 2396: my $lengthnewdata=2.5*&LATEX_length($elementdata); 2397: if ($lengthnewdata>$current_length) {$current_length=$lengthnewdata;} 2398: my @words=split(/ /,$elementdata); 2399: foreach my $word (@words) { 2400: my $lengthword=2.5*&LATEX_length($word); 2401: if ($min_length<$lengthword) {$min_length=$lengthword;} 2402: } 2403: } 2404: } else { 2405: $current_length=2.5*&LATEX_length($data); 2406: my @words=split(/ /,$data); 2407: foreach my $word (@words) { 2408: my $lengthword=2*&LATEX_length($word); 2409: if ($min_length<$lengthword) {$min_length=$lengthword;} 2410: } 2411: } 2412: push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2413: push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2414: push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$current_length; 2415: push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$min_length; 2416: } 2417: } 2418: for (my $in=0; $in<=$#{$Apache::londefdef::table[-1]{'include'}};$in++) { 2419: my $nested = $Apache::londefdef::table[-1]{'include'}[$in]; 2420: &Apache::lonnet::logthis("Nested: $nested"); 2421: $nested =~ s/\\end\{tabular\}\\strut\\\\/\\end\{tabular\}/; 2422: &Apache::lonnet::logthis("After sub: $nested"); 2423: # $data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}[$in]/; 2424: $data =~ s/\\keephidden\{NEW TABLE ENTRY\}/$nested/; 2425: } 2426: push @ {$Apache::londefdef::table[-1]{'content'}[-1] },$data; 2427: return''; 2428: } 2429: 2430: sub end_td { 2431: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2432: my $currentstring = ''; 2433: if ($target eq 'web') { 2434: $currentstring = $token->[2]; 2435: } elsif ($target eq 'tex') { 2436: $Apache::londefdef::TD_redirection =0; 2437: &end_td_tex($parstack,$parser,$safeeval); 2438: } 2439: return $currentstring; 2440: } 2441: 2442: #-- <th> tag (end tag optional) 2443: sub start_th { 2444: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2445: my $currentstring = ''; 2446: if ($target eq 'web') { 2447: $currentstring = $token->[4]; 2448: } elsif ($target eq 'tex') { 2449: $Apache::londefdef::TD_redirection = 1; 2450: &tagg_check('tr','th',$tagstack,$parstack,$parser,$safeeval); 2451: } 2452: return $currentstring; 2453: } 2454: 2455: sub tagg_check { 2456: my ($good_tag,$bad_tag,$tagstack,$parstack,$parser,$safeeval) = @_; 2457: my @ar=@$parstack; 2458: for (my $i=$#ar-1;$i>=0;$i--) { 2459: if (lc($$tagstack[$i]) eq $good_tag) { 2460: &start_th_tex($parstack,$parser,$safeeval); 2461: last; 2462: } elsif (lc($$tagstack[$i]) eq $bad_tag) { 2463: splice @ar, $i+1; 2464: &end_th_tex(\@ar,$parser,$safeeval); 2465: &start_th_tex($parstack,$parser,$safeeval); 2466: last; 2467: } 2468: } 2469: return ''; 2470: } 2471: 2472: sub start_th_tex { 2473: my ($parstack,$parser,$safeeval) = @_; 2474: my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1); 2475: if ($alignchar eq '') { 2476: $alignchar = $Apache::londefdef::table[-1]{'rows'}[-1]; 2477: } 2478: push @{ $Apache::londefdef::table[-1]{'align'}[$Apache::londefdef::table[-1]{'row_number'}] }, $alignchar; 2479: $Apache::londefdef::table[-1]{'counter_columns'}++; 2480: my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); 2481: if (defined $TeXwidth) { 2482: my $current_length=&recalc($TeXwidth); 2483: $current_length=~/(\d+\.?\d*)/; 2484: push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$1; 2485: } 2486: &Apache::lonxml::startredirection(); 2487: return ''; 2488: } 2489: 2490: sub end_th_tex { 2491: my ($parstack,$parser,$safeeval) = @_; 2492: my $current_row = $Apache::londefdef::table[-1]{'row_number'}; 2493: my $data=&Apache::lonxml::endredirection(); 2494: my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); 2495: if (defined $TeXwidth) { 2496: push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2497: push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2498: push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2499: } else { 2500: if (($data=~m/width\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)/) or ($data=~m/\[(\d+\.?\d*)\s*mm\]/)) { 2501: my $garbage_data=$data; 2502: my $fwidth=0; 2503: while ($garbage_data=~m/width\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)/) { 2504: my $current_length=&recalc($1); 2505: $current_length=~/(\d+\.?\d*)/; 2506: if ($fwidth<$1) {$fwidth=$1;} 2507: $garbage_data=~s/width\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt)*)//; 2508: } 2509: while ($garbage_data=~m/\[(\d+\.?\d*)\s*mm\]/) { 2510: my $current_length=$1; 2511: if ($fwidth<$current_length) {$fwidth=$current_length;} 2512: $garbage_data=~s/\[(\d+\.?\d*)\s*mm\]//; 2513: } 2514: push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2515: push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$fwidth; 2516: push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2517: push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2518: } else { 2519: $data=~s/^\s+(\S.*)/$1/; 2520: $data=~s/(.*\S)\s+$/$1/; 2521: $data=~s/(\s)+/$1/; 2522: my ($current_length,$min_length)=(0,0); 2523: if ($data=~/\\vskip/) { 2524: my $newdata=$data; 2525: $newdata=~s/\\vskip \d*\.?\d*\s*mm/THISISJUSTTEMPORARYSEPARATOR/g; 2526: my @newdata=split(/THISISJUSTTEMPORARYSEPARATOR/,$newdata); 2527: foreach my $elementdata (@newdata) { 2528: my $lengthnewdata=2.5*&LATEX_length($elementdata); 2529: if ($lengthnewdata>$current_length) {$current_length=$lengthnewdata;} 2530: my @words=split(/ /,$elementdata); 2531: foreach my $word (@words) { 2532: my $lengthword=2.5*&LATEX_length($word); 2533: if ($min_length<$lengthword) {$min_length=$lengthword;} 2534: } 2535: } 2536: } else { 2537: $current_length=2.5*&LATEX_length($data); 2538: my @words=split(/ /,$data); 2539: foreach my $word (@words) { 2540: my $lengthword=2*&LATEX_length($word); 2541: if ($min_length<$lengthword) {$min_length=$lengthword;} 2542: } 2543: } 2544: push @ {$Apache::londefdef::table[-1]{'TeXlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2545: push @ {$Apache::londefdef::table[-1]{'objectlen'}[$Apache::londefdef::table[-1]{'row_number'}] },'0'; 2546: push @ {$Apache::londefdef::table[-1]{'maxlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$current_length; 2547: push @ {$Apache::londefdef::table[-1]{'minlen'}[$Apache::londefdef::table[-1]{'row_number'}] },$min_length; 2548: } 2549: } 2550: for (my $in=0; $in<=$#{$Apache::londefdef::table[-1]{'include'}};$in++) { 2551: $data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}[$in]/; 2552: } 2553: #make data bold 2554: $data='\textbf{'.$data.'}'; 2555: push @ {$Apache::londefdef::table[-1]{'content'}[-1] },$data; 2556: return''; 2557: } 2558: 2559: sub end_th { 2560: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2561: my $currentstring = &end_p(); # Close any open <p> in the row. 2562: if ($target eq 'web') { 2563: $currentstring .= $token->[2]; 2564: } elsif ($target eq 'tex') { 2565: $Apache::londefdef::TD_redirection =0; 2566: &end_th_tex($parstack,$parser,$safeeval); 2567: } 2568: return $currentstring; 2569: } 2570: 2571: #-- <img> tag (end tag forbidden) 2572: # 2573: # Render the <IMG> tag. 2574: # <IMG> has the following attributes (in addition to the 2575: # standard HTML ones: 2576: # TeXwrap - Governs how the tex target will try to wrap text around 2577: # horizontally aligned images. 2578: # TeXwidth - The width of the image when rendered for print (mm). 2579: # TeXheight - The height of the image when rendered for print (mm) 2580: # (Note there seems to also be support for this as a % of page size) 2581: # 2582: sub start_img { 2583: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2584: my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval, 2585: undef,1); 2586: if (not $src and ($target eq 'web' or $target eq 'tex')) { 2587: my $inside = &Apache::lonxml::get_all_text("/img",$parser); 2588: return ''; 2589: } 2590: &Apache::lonxml::extlink($src); 2591: my $currentstring = ''; 2592: my $scaling = .3; 2593: 2594: # Render unto browsers that which are the browser's... 2595: 2596: if ($target eq 'web') { 2597: if ($env{'browser.imagesuppress'} ne 'on') { 2598: $currentstring.=&Apache::lonenc::encrypt_ref($token,{'src'=>$src}); 2599: } else { 2600: my $alttag= &Apache::lonxml::get_param 2601: ('alt',$parstack,$safeeval,undef,1); 2602: unless ($alttag) { 2603: $alttag=&Apache::lonmeta::alttag 2604: ($Apache::lonxml::pwd[-1],$src); 2605: } 2606: $currentstring.='[IMAGE: '.$alttag.']'; 2607: } 2608: 2609: # and render unto TeX that which is LaTeX 2610: 2611: } elsif ($target eq 'tex') { 2612: # 2613: # The alignment will require some superstructure to be put around 2614: # the \includegraphics stuff. At present we can only partially 2615: # simulate the alignments offered by html. 2616: # 2617: # 2618: my $align = lc(&Apache::lonxml::get_param('align', 2619: $parstack, 2620: $safeeval, 2621: undef,1)); 2622: if(!$align) { 2623: if (&is_inside_of($tagstack, "table")) { 2624: $align = "right"; # Force wraptext use. 2625: } else { 2626: $align = "bottom"; # This is html's default so it's ours too. 2627: } 2628: } 2629: # 2630: &Apache::lonxml::debug("Alignemnt = $align"); 2631: # LaTeX's image/text wrapping is really bad since it wants to 2632: # make figures float. 2633: # The user has the optional parameter (applicable only to l/r 2634: # alignment to use the picins/parpic directive to get wrapped text 2635: # this is also imperfect.. that's why we give them a choice... 2636: # so they can't yell at us for our choice. 2637: # 2638: my $latex_rendering = &Apache::lonxml::get_param('TeXwrap', 2639: $parstack, 2640: $safeeval, 2641: undef,0); 2642: &Apache::lonxml::debug("LaTeX rendering = $latex_rendering"); 2643: if(!$latex_rendering) { 2644: $latex_rendering = "texwrap"; 2645: } 2646: &Apache::lonxml::debug("LaTeX rendering = $latex_rendering image file: $src"); 2647: 2648: #if original gif/jpg/png file exist do following: 2649: my $origsrc=$src; 2650: my ($path,$file) = &get_eps_image($src); 2651: $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); 2652: &Apache::lonxml::debug("path = $path file = $file src = $src"); 2653: if (-e $src) { 2654: &Apache::lonxml::debug("$src exists"); 2655: my ($height_param,$width_param)= 2656: &image_size($origsrc,0.3,$parstack,$safeeval); 2657: my $destpath = $path; 2658: $destpath =~ s/ /\_/g; # Spaces in path cause LaTex to vomit. 2659: my $destfile = $file; 2660: $destfile =~ s/ /\_/g; 2661: my $size; 2662: if ($width_param) { $size.='width='.$width_param.' mm,'; } 2663: if ($height_param) { $size.='height='.$height_param.' mm]'; } 2664: $size='['.$size; 2665: $size=~s/,$/]/; 2666: $currentstring .= '\graphicspath{{'.$destpath.'}}' 2667: .'\includegraphics'.$size.'{'.$destfile.'} '; 2668: 2669: # If there's an alignment specification we need to honor it here. 2670: # For the horizontal alignments, we will also honor the 2671: # value of the latex specfication. The default is parbox, 2672: # and that's used for illegal values too. 2673: # 2674: # Even though we set a default alignment value, the user 2675: # could have given us an illegal value. In that case we 2676: # just use the default alignment of bottom.. 2677: if ($align eq "top") { 2678: $currentstring = '\raisebox{-'.$height_param.'mm}{'.$currentstring.'}'; 2679: } elsif (($align eq "center") || ($align eq "middle")) { # Being kind 2680: my $offset = $height_param/2; 2681: $currentstring = '\raisebox{-'.$offset.'mm}{'.$currentstring.'}'; 2682: } elsif ($align eq "left") { 2683: if ($latex_rendering eq "parpic") { 2684: $currentstring = '\parpic[l]{'.$currentstring.'}'; 2685: } else { # wrapfig render 2686: $currentstring = '\begin{wrapfigure}{l}{'.$width_param.'mm}' 2687: .'\scalebox{1.0}{'.$currentstring.'}\end{wrapfigure}'; 2688: } 2689: } elsif ($align eq "right") { 2690: if ($latex_rendering eq "parpic") { 2691: $currentstring = '\parpic[r]{'.$currentstring.'}'; 2692: } else { # wrapfig rendering 2693: $currentstring = '\begin{wrapfigure}{r}{'.$width_param.'mm}' 2694: .'\scalebox{1.0}{'.$currentstring.'}\end{wrapfigure}'; 2695: 2696: } 2697: } else { # Bottom is also default. 2698: # $currentstring = '\raisebox{'.$height_param.'mm}{'.$currentstring.'}'; 2699: } 2700: } else { 2701: &Apache::lonxml::debug("$src does not exist"); 2702: #original image file doesn't exist so check the alt attribute 2703: my $alt = 2704: &Apache::lonxml::get_param('alt',$parstack,$safeeval,undef,1); 2705: unless ($alt) { 2706: $alt=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1],$src); 2707: } 2708: 2709: if ($alt) { $currentstring .= ' '.$alt.' '; } 2710: } 2711: 2712: # And here's where the semi-quote breaks down: allow the user 2713: # to edit the beast as well by rendering the problem for edit: 2714: } elsif ($target eq 'edit') { 2715: $currentstring .=&Apache::edit::tag_start($target,$token); 2716: $currentstring .=&Apache::edit::text_arg('Image Url:','src',$token,70). 2717: &Apache::edit::browse('src',undef,'alt').' '. 2718: &Apache::edit::search('src',undef,'alt').'<br />'; 2719: $currentstring .=&Apache::edit::text_arg('Description:','alt',$token,70).'<br />'; 2720: $currentstring .=&Apache::edit::text_arg('width (pixel):','width',$token,5); 2721: $currentstring .=&Apache::edit::text_arg('height (pixel):','height',$token,5).'<br />'; 2722: $currentstring .=&Apache::edit::text_arg('TeXwidth (mm):','TeXwidth',$token,5); 2723: $currentstring .=&Apache::edit::text_arg('TeXheight (mm):','TeXheight',$token,5); 2724: $currentstring .=&Apache::edit::select_arg('Alignment:','align', 2725: ['','bottom','middle','top','left','right'],$token,5); 2726: $currentstring .=&Apache::edit::select_arg('TeXwrap:', 'TeXwrap', 2727: ['', 'parbox', 'parpic'], $token, 2); 2728: $currentstring .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); 2729: my $src= &Apache::lonxml::get_param('src',$parstack,$safeeval); 2730: my $alt= &Apache::lonxml::get_param('alt',$parstack,$safeeval); 2731: my $width= &Apache::lonxml::get_param('width',$parstack,$safeeval); 2732: my $height= &Apache::lonxml::get_param('height',$parstack,$safeeval); 2733: 2734: 2735: $currentstring .= '<img src="'.$src.'" alt="'.$alt.'" '; 2736: if ($width) { $currentstring.=' width="'.$width.'" '; } 2737: if ($height) { $currentstring.=' height="'.$height.'" '; } 2738: $currentstring .= ' />'; 2739: } elsif ($target eq 'modified') { 2740: my ($osrc,$owidth,$oheight)= 2741: ($token->[2]{'src'},$token->[2]{'width'},$token->[2]{'height'}); 2742: my $ctag=&Apache::edit::get_new_args($token,$parstack, 2743: $safeeval,'src','alt','align', 2744: 'TeXwidth','TeXheight', 'TeXwrap', 2745: 'width','height'); 2746: my ($nsrc,$nwidth,$nheight)= 2747: ($token->[2]{'src'},$token->[2]{'width'},$token->[2]{'height'}); 2748: my $loc=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$nsrc); 2749: &image_replication($loc); 2750: my ($iwidth,$iheight); 2751: if (-e $loc) { 2752: my $image = Image::Magick->new; 2753: $image->Read($loc); 2754: ($iwidth, $iheight) = ($image->Get('width'), 2755: $image->Get('height')); 2756: } 2757: if ($osrc ne $nsrc || (!$nwidth && !$nheight)) { 2758: # changed image or no size specified, 2759: # if they didn't explicitly change the 2760: # width or height use the ones from the image 2761: if ($iwidth && $iheight) { 2762: if ($owidth == $nwidth || (!$nwidth && !$nheight)) { 2763: $token->[2]{'width'} = $iwidth;$ctag=1; 2764: } 2765: if ($oheight == $nheight || (!$nwidth && !$nheight)) { 2766: $token->[2]{'height'}=$iheight;$ctag=1; 2767: } 2768: } 2769: } 2770: my ($cwidth,$cheight)=($token->[2]{'width'},$token->[2]{'height'}); 2771: # if we don't have a width or height 2772: if ($iwidth && $cwidth && !$cheight) { 2773: $token->[2]{'height'}=int(($cwidth/$iwidth)*$iheight);$ctag=1; 2774: } 2775: if ($iheight && $cheight && !$cwidth) { 2776: $token->[2]{'width'}=int(($cheight/$iheight)*$iwidth);$ctag=1; 2777: } 2778: if ($ctag) {$currentstring=&Apache::edit::rebuild_tag($token);} 2779: } 2780: 2781: return $currentstring; 2782: } 2783: 2784: sub end_img { 2785: my ($target,$token) = @_; 2786: my $currentstring = ''; 2787: if ($target eq 'web') { 2788: $currentstring = $token->[2]; 2789: } elsif ($target eq 'tex') { 2790: $currentstring = ''; 2791: } 2792: return $currentstring; 2793: } 2794: 2795: #-- <applet> tag (end tag required) 2796: sub start_applet { 2797: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2798: 2799: my $code=&Apache::lonxml::get_param('code',$parstack,$safeeval,undef,1); 2800: &Apache::lonxml::extlink($code); 2801: my $archive=&Apache::lonxml::get_param('archive',$parstack,$safeeval, 2802: undef,1); 2803: &Apache::lonxml::extlink($archive); 2804: my $currentstring = ''; 2805: if ($target eq 'web') { 2806: if ($env{'browser.appletsuppress'} ne 'on') { 2807: $currentstring = &Apache::lonenc::encrypt_ref($token, 2808: {'code'=>$code, 2809: 'archive'=>$archive} 2810: ); 2811: } else { 2812: my $alttag= &Apache::lonxml::get_param('alt',$parstack, 2813: $safeeval,undef,1); 2814: unless ($alttag) { 2815: $alttag=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1], 2816: $code); 2817: } 2818: $currentstring='[APPLET: '.$alttag.']'; 2819: } 2820: } elsif ($target eq 'tex') { 2821: my $alttag= &Apache::lonxml::get_param('alt',$parstack, 2822: $safeeval,undef,1); 2823: unless ($alttag) { 2824: my $code=&Apache::lonxml::get_param('code',$parstack,$safeeval, 2825: undef,1); 2826: $alttag=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1], 2827: $code); 2828: } 2829: $currentstring.='\begin{center} \fbox{Java Applet: '.$alttag. 2830: '.}\end{center}'; 2831: } 2832: return $currentstring; 2833: } 2834: 2835: sub end_applet { 2836: my ($target,$token) = @_; 2837: my $currentstring = ''; 2838: if ($target eq 'web') { 2839: $currentstring = $token->[2]; 2840: } elsif ($target eq 'tex') { 2841: } 2842: return $currentstring; 2843: } 2844: 2845: #-- <embed> tag (end tag optional/required) 2846: sub start_embed { 2847: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2848: my $src=&Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); 2849: &Apache::lonxml::extlink($src); 2850: my $currentstring = ''; 2851: if ($target eq 'web') { 2852: if ($env{'browser.embedsuppress'} ne 'on') { 2853: $currentstring=&Apache::lonenc::encrypt_ref($token,{'src'=>$src}); 2854: } else { 2855: my $alttag=&Apache::lonxml::get_param 2856: ('alt',$parstack,$safeeval,undef,1); 2857: unless ($alttag) { 2858: $alttag=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1],$src); 2859: } 2860: $currentstring='[EMBED: '.$alttag.']'; 2861: } 2862: } elsif ($target eq 'tex') { 2863: } 2864: return $currentstring; 2865: } 2866: 2867: sub end_embed { 2868: my ($target,$token) = @_; 2869: my $currentstring = ''; 2870: if ($target eq 'web') { 2871: $currentstring = $token->[2]; 2872: } elsif ($target eq 'tex') { 2873: } 2874: return $currentstring; 2875: } 2876: 2877: #-- <param> tag (end tag forbidden) 2878: sub start_param { 2879: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2880: if (&Apache::lonxml::get_param('name',$parstack, 2881: $safeeval,undef,1)=~/^cabbase$/i) { 2882: my $value=&Apache::lonxml::get_param('value',$parstack, 2883: $safeeval,undef,1); 2884: &Apache::lonxml::extlink($value); 2885: } 2886: 2887: my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); 2888: &Apache::lonxml::extlink($src); 2889: my $currentstring = ''; 2890: if ($target eq 'web') { 2891: my %toconvert; 2892: my $src=&Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); 2893: if ($src) { $toconvert{'src'}= $src; } 2894: my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval, 2895: undef,1); 2896: if ($name=~/^cabbase$/i) { 2897: $toconvert{'value'}=&Apache::lonxml::get_param('value',$parstack, 2898: $safeeval,undef,1); 2899: } 2900: $currentstring = &Apache::lonenc::encrypt_ref($token,\%toconvert); 2901: } elsif ($target eq 'tex') { 2902: } 2903: return $currentstring; 2904: } 2905: 2906: sub end_param { 2907: my ($target,$token) = @_; 2908: my $currentstring = ''; 2909: if ($target eq 'web') { 2910: $currentstring = $token->[2]; 2911: } elsif ($target eq 'tex') { 2912: } 2913: return $currentstring; 2914: } 2915: 2916: #-- <allow> tag 2917: sub start_allow { 2918: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2919: my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); 2920: &Apache::lonxml::extlink($src); 2921: 2922: if ($target eq 'tex') { &image_replication($src); } 2923: my $result; 2924: if ($target eq 'edit') { 2925: $result .=&Apache::edit::tag_start($target,$token); 2926: $result .=&Apache::edit::text_arg('File Spec:','src',$token,70); 2927: $result .=&Apache::edit::end_row();#.&Apache::edit::start_spanning_row(); 2928: } elsif ($target eq 'modified') { 2929: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 2930: $safeeval,'src'); 2931: if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } 2932: } 2933: return $result; 2934: } 2935: 2936: sub end_allow { 2937: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2938: if ( $target eq 'edit') { return (&Apache::edit::end_table()); } 2939: return ''; 2940: } 2941: 2942: #-- Frames (end tag required) 2943: #-- <frameset> 2944: sub start_frameset { 2945: my ($target,$token) = @_; 2946: my $currentstring = ''; # Close any pending para. 2947: if ($target eq 'web') { 2948: if (!$Apache::lonxml::registered && 2949: $env{'request.state'} eq 'published') { 2950: $currentstring.='<head>'. 2951: &Apache::lonmenu::registerurl(undef,$target).'</head>'; 2952: } 2953: my $onLoad=''; 2954: foreach my $key (keys(%{$token->[2]})) { 2955: if ($key =~ /^onload$/i) { 2956: $onLoad.=$token->[2]->{$key}.';'; 2957: delete($token->[2]->{$key}); 2958: } 2959: } 2960: $token->[2]->{'onload'}=&Apache::lonmenu::loadevents().';'.$onLoad; 2961: my $onUnload=''; 2962: foreach my $key (keys(%{$token->[2]})) { 2963: if ($key =~ /^onunload$/i) { 2964: $onUnload.=$token->[2]->{$key}.';'; 2965: delete($token->[2]->{$key}); 2966: } 2967: } 2968: $token->[2]->{'onunload'}=&Apache::lonmenu::unloadevents(). 2969: ';'.$onUnload; 2970: 2971: $currentstring .= '<'.$token->[1]; 2972: foreach (keys %{$token->[2]}) { 2973: $currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"'; 2974: } 2975: $currentstring.='>'; 2976: } 2977: return $currentstring; 2978: } 2979: 2980: sub end_frameset { 2981: my ($target,$token) = @_; 2982: my $currentstring = ''; 2983: if ($target eq 'web') { 2984: $currentstring = $token->[2]; 2985: } 2986: return $currentstring; 2987: } 2988: 2989: #-- <xmp> (end tag required) 2990: sub start_xmp { 2991: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 2992: my $currentstring = ''; 2993: if ($target eq 'web') { 2994: $currentstring .= $token->[4]; 2995: } elsif ($target eq 'tex') { 2996: $currentstring .= '\begin{verbatim}'; 2997: } 2998: return $currentstring; 2999: } 3000: 3001: sub end_xmp { 3002: my ($target,$token) = @_; 3003: my $currentstring = ''; 3004: if ($target eq 'web') { 3005: $currentstring .= $token->[2]; 3006: } elsif ($target eq 'tex') { 3007: $currentstring .= '\end{verbatim}'; 3008: } 3009: return $currentstring; 3010: } 3011: 3012: #-- <pre> (end tag required) 3013: sub start_pre { 3014: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 3015: my $currentstring = &end_p(); # close off pending <p> 3016: if ($target eq 'web') { 3017: $currentstring .= $token->[4]; 3018: } elsif ($target eq 'tex') { 3019: $currentstring .= '\begin{verbatim}'; 3020: } 3021: return $currentstring; 3022: } 3023: 3024: sub end_pre { 3025: my ($target,$token) = @_; 3026: my $currentstring = ''; 3027: if ($target eq 'web') { 3028: $currentstring .= $token->[2]; 3029: } elsif ($target eq 'tex') { 3030: $currentstring .= '\end{verbatim}'; 3031: } 3032: return $currentstring; 3033: } 3034: 3035: #-- <insert> 3036: sub start_insert { 3037: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 3038: my $currentstring = ''; 3039: if ($target eq 'web') { 3040: my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval,undef,1); 3041: $currentstring .= '<b>'.$display.'</b>';; 3042: } 3043: return $currentstring; 3044: } 3045: 3046: sub end_insert { 3047: my ($target,$token) = @_; 3048: my $currentstring = ''; 3049: if ($target eq 'web') { 3050: $currentstring .= ''; 3051: } 3052: return $currentstring; 3053: } 3054: 3055: #-- <externallink> 3056: sub start_externallink { 3057: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 3058: my $currentstring = ''; 3059: if ($target eq 'web') { 3060: my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval,undef,1); 3061: $currentstring .= '<b>'.$display.'</b>';; 3062: } 3063: return $currentstring; 3064: } 3065: 3066: sub end_externallink { 3067: my ($target,$token) = @_; 3068: my $currentstring = ''; 3069: if ($target eq 'web') { 3070: $currentstring .= ''; 3071: } 3072: return $currentstring; 3073: } 3074: 3075: #-- <blankspace heigth=""> 3076: sub start_blankspace { 3077: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 3078: my $currentstring = &end_p(); # closes off any unclosed <p> 3079: if ($target eq 'tex') { 3080: my $howmuch = &Apache::lonxml::get_param('heigth',$parstack,$safeeval,undef,1); 3081: $currentstring .= '\vskip '.$howmuch.' '; 3082: } 3083: return $currentstring; 3084: } 3085: 3086: sub end_blankspace { 3087: my ($target,$token) = @_; 3088: my $currentstring = ''; 3089: if ($target eq 'tex') { 3090: $currentstring .= ''; 3091: } 3092: return $currentstring; 3093: } 3094: 3095: #-- <abbr> tag (end tag required) 3096: sub start_abbr { 3097: my ($target,$token) = @_; 3098: my $currentstring = ''; 3099: if ($target eq 'web') { 3100: $currentstring = $token->[4]; 3101: } 3102: return $currentstring; 3103: } 3104: 3105: sub end_abbr { 3106: my ($target,$token) = @_; 3107: my $currentstring = ''; 3108: if ($target eq 'web') { 3109: $currentstring = $token->[2]; 3110: } 3111: return $currentstring; 3112: } 3113: 3114: #-- <acronym> tag (end tag required) 3115: sub start_acronym { 3116: my ($target,$token) = @_; 3117: my $currentstring = ''; 3118: if ($target eq 'web') { 3119: $currentstring = $token->[4]; 3120: } 3121: return $currentstring; 3122: } 3123: 3124: sub end_acronym { 3125: my ($target,$token) = @_; 3126: my $currentstring = ''; 3127: if ($target eq 'web') { 3128: $currentstring = $token->[2]; 3129: } 3130: return $currentstring; 3131: } 3132: 3133: #-- <area> tag (end tag forbidden) 3134: sub start_area { 3135: my ($target,$token) = @_; 3136: my $currentstring = ''; 3137: if ($target eq 'web') { 3138: $currentstring = $token->[4]; 3139: } 3140: return $currentstring; 3141: } 3142: 3143: sub end_area { 3144: my ($target,$token) = @_; 3145: my $currentstring = ''; 3146: if ($target eq 'web') { 3147: $currentstring = $token->[2]; 3148: } 3149: return $currentstring; 3150: } 3151: 3152: #-- <base> tag (end tag forbidden) 3153: sub start_base { 3154: my ($target,$token) = @_; 3155: my $currentstring = ''; 3156: if ($target eq 'web') { 3157: $currentstring = $token->[4]; 3158: } 3159: return $currentstring; 3160: } 3161: 3162: sub end_base { 3163: my ($target,$token) = @_; 3164: my $currentstring = ''; 3165: if ($target eq 'web') { 3166: $currentstring = $token->[2]; 3167: } 3168: return $currentstring; 3169: } 3170: 3171: #-- <bdo> tag (end tag required) 3172: sub start_bdo { 3173: my ($target,$token) = @_; 3174: my $currentstring = ''; 3175: if ($target eq 'web') { 3176: $currentstring = $token->[4]; 3177: } 3178: return $currentstring; 3179: } 3180: 3181: sub end_bdo { 3182: my ($target,$token) = @_; 3183: my $currentstring = ''; 3184: if ($target eq 'web') { 3185: $currentstring = $token->[2]; 3186: } 3187: return $currentstring; 3188: } 3189: 3190: #-- <bgsound> tag (end tag optional) 3191: sub start_bgsound { 3192: my ($target,$token) = @_; 3193: my $currentstring = ''; 3194: if ($target eq 'web') { 3195: $currentstring = $token->[4]; 3196: } 3197: return $currentstring; 3198: } 3199: 3200: sub end_bgsound { 3201: my ($target,$token) = @_; 3202: my $currentstring = ''; 3203: if ($target eq 'web') { 3204: $currentstring = $token->[2]; 3205: } 3206: return $currentstring; 3207: } 3208: 3209: #-- <blink> tag (end tag required) 3210: sub start_blink { 3211: my ($target,$token) = @_; 3212: my $currentstring = ''; 3213: if ($target eq 'web') { 3214: $currentstring = $token->[4]; 3215: } 3216: return $currentstring; 3217: } 3218: 3219: sub end_blink { 3220: my ($target,$token) = @_; 3221: my $currentstring = ''; 3222: if ($target eq 'web') { 3223: $currentstring = $token->[2]; 3224: } 3225: return $currentstring; 3226: } 3227: 3228: #-- <blockquote> tag (end tag required) 3229: sub start_blockquote { 3230: my ($target,$token) = @_; 3231: my $currentstring = &end_p(); # Close any unclosed <p> 3232: if ($target eq 'web') { 3233: $currentstring .= $token->[4]; 3234: } 3235: return $currentstring; 3236: } 3237: 3238: sub end_blockquote { 3239: my ($target,$token) = @_; 3240: my $currentstring = ''; 3241: if ($target eq 'web') { 3242: $currentstring = $token->[2]; 3243: } 3244: return $currentstring; 3245: } 3246: 3247: #-- <button> tag (end tag required) 3248: sub start_button { 3249: my ($target,$token) = @_; 3250: my $currentstring = ''; 3251: if ($target eq 'web') { 3252: $currentstring = $token->[4]; 3253: } 3254: return $currentstring; 3255: } 3256: 3257: sub end_button { 3258: my ($target,$token) = @_; 3259: my $currentstring = ''; 3260: if ($target eq 'web') { 3261: $currentstring = $token->[2]; 3262: } 3263: return $currentstring; 3264: } 3265: 3266: #-- <caption> tag (end tag required) 3267: sub start_caption { 3268: my ($target,$token) = @_; 3269: my $currentstring = ''; 3270: if ($target eq 'web') { 3271: $currentstring = $token->[4]; 3272: } 3273: return $currentstring; 3274: } 3275: 3276: sub end_caption { 3277: my ($target,$token) = @_; 3278: my $currentstring = ''; 3279: if ($target eq 'web') { 3280: $currentstring = $token->[2]; 3281: } 3282: return $currentstring; 3283: } 3284: 3285: #-- <col> tag (end tag forbdden) 3286: sub start_col { 3287: my ($target,$token) = @_; 3288: my $currentstring = ''; 3289: if ($target eq 'web') { 3290: $currentstring = $token->[4]; 3291: } 3292: return $currentstring; 3293: } 3294: 3295: sub end_col { 3296: my ($target,$token) = @_; 3297: my $currentstring = ''; 3298: if ($target eq 'web') { 3299: $currentstring = $token->[2]; 3300: } 3301: return $currentstring; 3302: } 3303: 3304: #-- <colgroup> tag (end tag optional) 3305: sub start_colgroup { 3306: my ($target,$token) = @_; 3307: my $currentstring = ''; 3308: if ($target eq 'web') { 3309: $currentstring = $token->[4]; 3310: } 3311: return $currentstring; 3312: } 3313: 3314: sub end_colgroup { 3315: my ($target,$token) = @_; 3316: my $currentstring = ''; 3317: if ($target eq 'web') { 3318: $currentstring = $token->[2]; 3319: } 3320: return $currentstring; 3321: } 3322: 3323: #-- <del> tag (end tag required) 3324: sub start_del { 3325: my ($target,$token) = @_; 3326: my $currentstring = ''; 3327: if ($target eq 'web') { 3328: $currentstring = $token->[4]; 3329: } 3330: return $currentstring; 3331: } 3332: 3333: sub end_del { 3334: my ($target,$token) = @_; 3335: my $currentstring = ''; 3336: if ($target eq 'web') { 3337: $currentstring = $token->[2]; 3338: } 3339: return $currentstring; 3340: } 3341: 3342: #-- <fieldset> tag (end tag required) 3343: sub start_fieldset { 3344: my ($target,$token) = @_; 3345: my $currentstring = ''; 3346: if ($target eq 'web') { 3347: $currentstring = $token->[4]; 3348: } 3349: return $currentstring; 3350: } 3351: 3352: sub end_fieldset { 3353: my ($target,$token) = @_; 3354: my $currentstring = ''; 3355: if ($target eq 'web') { 3356: $currentstring = $token->[2]; 3357: } 3358: return $currentstring; 3359: } 3360: 3361: #-- <frame> tag (end tag forbidden) 3362: sub start_frame { 3363: my ($target,$token) = @_; 3364: my $currentstring = ''; 3365: if ($target eq 'web') { 3366: $currentstring = $token->[4]; 3367: } 3368: return $currentstring; 3369: } 3370: 3371: sub end_frame { 3372: my ($target,$token) = @_; 3373: my $currentstring = ''; 3374: if ($target eq 'web') { 3375: $currentstring = $token->[2]; 3376: } 3377: return $currentstring; 3378: } 3379: 3380: #-- <iframe> tag (end tag required) 3381: sub start_iframe { 3382: my ($target,$token) = @_; 3383: my $currentstring = ''; 3384: if ($target eq 'web') { 3385: $currentstring = $token->[4]; 3386: } 3387: return $currentstring; 3388: } 3389: 3390: sub end_iframe { 3391: my ($target,$token) = @_; 3392: my $currentstring = ''; 3393: if ($target eq 'web') { 3394: $currentstring = $token->[2]; 3395: } 3396: return $currentstring; 3397: } 3398: 3399: #-- <ins> tag (end tag required) 3400: sub start_ins { 3401: my ($target,$token) = @_; 3402: my $currentstring = ''; 3403: if ($target eq 'web') { 3404: $currentstring = $token->[4]; 3405: } 3406: return $currentstring; 3407: } 3408: 3409: sub end_ins { 3410: my ($target,$token) = @_; 3411: my $currentstring = ''; 3412: if ($target eq 'web') { 3413: $currentstring = $token->[2]; 3414: } 3415: return $currentstring; 3416: } 3417: 3418: #-- <isindex> tag (end tag forbidden) 3419: sub start_isindex { 3420: my ($target,$token) = @_; 3421: my $currentstring = ''; 3422: if ($target eq 'web') { 3423: $currentstring = $token->[4]; 3424: } 3425: return $currentstring; 3426: } 3427: 3428: sub end_isindex { 3429: my ($target,$token) = @_; 3430: my $currentstring = ''; 3431: if ($target eq 'web') { 3432: $currentstring = $token->[2]; 3433: } 3434: return $currentstring; 3435: } 3436: 3437: #-- <keygen> tag (end tag forbidden) 3438: sub start_keygen { 3439: my ($target,$token) = @_; 3440: my $currentstring = ''; 3441: if ($target eq 'web') { 3442: $currentstring = $token->[4]; 3443: } 3444: return $currentstring; 3445: } 3446: 3447: sub end_keygen { 3448: my ($target,$token) = @_; 3449: my $currentstring = ''; 3450: if ($target eq 'web') { 3451: $currentstring = $token->[2]; 3452: } 3453: return $currentstring; 3454: } 3455: 3456: #-- <label> tag 3457: sub start_label { 3458: my ($target,$token) = @_; 3459: my $currentstring = ''; 3460: if ($target eq 'web') { 3461: $currentstring = $token->[4]; 3462: } 3463: return $currentstring; 3464: } 3465: 3466: sub end_label { 3467: my ($target,$token) = @_; 3468: my $currentstring = ''; 3469: if ($target eq 'web') { 3470: $currentstring = $token->[2]; 3471: } 3472: return $currentstring; 3473: } 3474: 3475: #-- <layer> tag (end tag required) 3476: sub start_layer { 3477: my ($target,$token) = @_; 3478: my $currentstring = ''; 3479: if ($target eq 'web') { 3480: $currentstring = $token->[4]; 3481: } 3482: return $currentstring; 3483: } 3484: 3485: sub end_layer { 3486: my ($target,$token) = @_; 3487: my $currentstring = ''; 3488: if ($target eq 'web') { 3489: $currentstring = $token->[2]; 3490: } 3491: return $currentstring; 3492: } 3493: 3494: #-- <legend> tag (end tag required) 3495: sub start_legend { 3496: my ($target,$token) = @_; 3497: my $currentstring = ''; 3498: if ($target eq 'web') { 3499: $currentstring = $token->[4]; 3500: } 3501: return $currentstring; 3502: } 3503: 3504: sub end_legend { 3505: my ($target,$token) = @_; 3506: my $currentstring = ''; 3507: if ($target eq 'web') { 3508: $currentstring = $token->[2]; 3509: } 3510: return $currentstring; 3511: } 3512: 3513: #-- <link> tag (end tag forbidden) 3514: sub start_link { 3515: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; 3516: my $currentstring = ''; 3517: if ($target eq 'web') { 3518: my $href=&Apache::lonxml::get_param('href',$parstack,$safeeval, 3519: undef,1); 3520: &Apache::lonxml::extlink($href); 3521: $currentstring = $token->[4]; 3522: } 3523: return $currentstring; 3524: } 3525: 3526: sub end_link { 3527: my ($target,$token) = @_; 3528: my $currentstring = ''; 3529: if ($target eq 'web') { 3530: $currentstring = $token->[2]; 3531: } 3532: return $currentstring; 3533: } 3534: 3535: #-- <marquee> tag (end tag optional) 3536: sub start_marquee { 3537: my ($target,$token) = @_; 3538: my $currentstring = ''; 3539: if ($target eq 'web') { 3540: $currentstring = $token->[4]; 3541: } 3542: return $currentstring; 3543: } 3544: 3545: sub end_marquee { 3546: my ($target,$token) = @_; 3547: my $currentstring = ''; 3548: if ($target eq 'web') { 3549: $currentstring = $token->[2]; 3550: } 3551: return $currentstring; 3552: } 3553: 3554: #-- <multicol> tag (end tag required) 3555: sub start_multicol { 3556: my ($target,$token) = @_; 3557: my $currentstring = &end_p(); # Close any pending <p> 3558: if ($target eq 'web') { 3559: $currentstring .= $token->[4]; 3560: } 3561: return $currentstring; 3562: } 3563: 3564: sub end_multicol { 3565: my ($target,$token) = @_; 3566: my $currentstring = ''; 3567: if ($target eq 'web') { 3568: $currentstring = $token->[2]; 3569: } 3570: return $currentstring; 3571: } 3572: 3573: #-- <nobr> tag (end tag required) 3574: sub start_nobr { 3575: my ($target,$token) = @_; 3576: my $currentstring = ''; 3577: if ($target eq 'web') { 3578: $currentstring = $token->[4]; 3579: } elsif ($target eq 'tex') { 3580: $currentstring='\mbox{'; 3581: } 3582: return $currentstring; 3583: } 3584: 3585: sub end_nobr { 3586: my ($target,$token) = @_; 3587: my $currentstring = ''; 3588: if ($target eq 'web') { 3589: $currentstring = $token->[2]; 3590: } elsif ($target eq 'tex') { 3591: $currentstring='}'; 3592: } 3593: return $currentstring; 3594: } 3595: 3596: #-- <noembed> tag (end tag required) 3597: sub start_noembed { 3598: my ($target,$token) = @_; 3599: my $currentstring = ''; 3600: if ($target eq 'web') { 3601: $currentstring = $token->[4]; 3602: } 3603: return $currentstring; 3604: } 3605: 3606: sub end_noembed { 3607: my ($target,$token) = @_; 3608: my $currentstring = ''; 3609: if ($target eq 'web') { 3610: $currentstring = $token->[2]; 3611: } 3612: return $currentstring; 3613: } 3614: 3615: #-- <noframes> tag (end tag required) 3616: sub start_noframes { 3617: my ($target,$token) = @_; 3618: my $currentstring = ''; 3619: if ($target eq 'web') { 3620: $currentstring = $token->[4]; 3621: } 3622: return $currentstring; 3623: } 3624: 3625: sub end_noframes { 3626: my ($target,$token) = @_; 3627: my $currentstring = ''; 3628: if ($target eq 'web') { 3629: $currentstring = $token->[2]; 3630: } 3631: return $currentstring; 3632: } 3633: 3634: #-- <nolayer> tag (end tag required) 3635: sub start_nolayer { 3636: my ($target,$token) = @_; 3637: my $currentstring = ''; 3638: if ($target eq 'web') { 3639: $currentstring = $token->[4]; 3640: } 3641: return $currentstring; 3642: } 3643: 3644: sub end_nolayer { 3645: my ($target,$token) = @_; 3646: my $currentstring = ''; 3647: if ($target eq 'web') { 3648: $currentstring = $token->[2]; 3649: } 3650: return $currentstring; 3651: } 3652: 3653: #-- <noscript> tag (end tag required) 3654: sub start_noscript { 3655: my ($target,$token) = @_; 3656: my $currentstring = ''; 3657: if ($target eq 'web') { 3658: $currentstring = $token->[4]; 3659: } 3660: return $currentstring; 3661: } 3662: 3663: sub end_noscript { 3664: my ($target,$token) = @_; 3665: my $currentstring = ''; 3666: if ($target eq 'web') { 3667: $currentstring = $token->[2]; 3668: } 3669: return $currentstring; 3670: } 3671: 3672: #-- <object> tag (end tag required) 3673: sub start_object { 3674: my ($target,$token) = @_; 3675: my $currentstring = ''; 3676: if ($target eq 'web') { 3677: $currentstring = $token->[4]; 3678: } 3679: return $currentstring; 3680: } 3681: 3682: sub end_object { 3683: my ($target,$token) = @_; 3684: my $currentstring = ''; 3685: if ($target eq 'web') { 3686: $currentstring = $token->[2]; 3687: } 3688: return $currentstring; 3689: } 3690: 3691: #-- <optgroup> tag (end tag required) 3692: sub start_optgroup { 3693: my ($target,$token) = @_; 3694: my $currentstring = ''; 3695: if ($target eq 'web') { 3696: $currentstring = $token->[4]; 3697: } 3698: return $currentstring; 3699: } 3700: 3701: sub end_optgroup { 3702: my ($target,$token) = @_; 3703: my $currentstring = ''; 3704: if ($target eq 'web') { 3705: $currentstring = $token->[2]; 3706: } 3707: return $currentstring; 3708: } 3709: 3710: #-- <samp> tag (end tag required) 3711: sub start_samp { 3712: my ($target,$token) = @_; 3713: my $currentstring = ''; 3714: if ($target eq 'web') { 3715: $currentstring = $token->[4]; 3716: } elsif ($target eq 'tex') { 3717: $currentstring='\texttt{'; 3718: } 3719: return $currentstring; 3720: } 3721: 3722: sub end_samp { 3723: my ($target,$token) = @_; 3724: my $currentstring = ''; 3725: if ($target eq 'web') { 3726: $currentstring = $token->[2]; 3727: } elsif ($target eq 'tex') { 3728: $currentstring='}'; 3729: } 3730: return $currentstring; 3731: } 3732: 3733: #-- <server> tag 3734: sub start_server { 3735: my ($target,$token) = @_; 3736: my $currentstring = ''; 3737: if ($target eq 'web') { 3738: $currentstring = $token->[4]; 3739: } 3740: return $currentstring; 3741: } 3742: 3743: sub end_server { 3744: my ($target,$token) = @_; 3745: my $currentstring = ''; 3746: if ($target eq 'web') { 3747: $currentstring = $token->[2]; 3748: } 3749: return $currentstring; 3750: } 3751: 3752: #-- <spacer> tag (end tag forbidden) 3753: sub start_spacer { 3754: my ($target,$token) = @_; 3755: my $currentstring = &end_p(); # Close off any open <p> tag. 3756: if ($target eq 'web') { 3757: $currentstring .= $token->[4]; 3758: } 3759: return $currentstring; 3760: } 3761: 3762: sub end_spacer { 3763: my ($target,$token) = @_; 3764: my $currentstring = ''; 3765: if ($target eq 'web') { 3766: $currentstring = $token->[2]; 3767: } 3768: return $currentstring; 3769: } 3770: 3771: #-- <span> tag (end tag required) 3772: sub start_span { 3773: my ($target,$token) = @_; 3774: my $currentstring = ''; 3775: if ($target eq 'web') { 3776: $currentstring = $token->[4]; 3777: } 3778: return $currentstring; 3779: } 3780: 3781: sub end_span { 3782: my ($target,$token) = @_; 3783: my $currentstring = ''; 3784: if ($target eq 'web') { 3785: $currentstring = $token->[2]; 3786: } 3787: return $currentstring; 3788: } 3789: 3790: #-- <tbody> tag (end tag optional) 3791: sub start_tbody { 3792: my ($target,$token) = @_; 3793: my $currentstring = ''; 3794: if ($target eq 'web') { 3795: $currentstring = $token->[4]; 3796: } 3797: return $currentstring; 3798: } 3799: 3800: sub end_tbody { 3801: my ($target,$token) = @_; 3802: my $currentstring = ''; 3803: if ($target eq 'web') { 3804: $currentstring = $token->[2]; 3805: } 3806: return $currentstring; 3807: } 3808: 3809: #-- <tfoot> tag (end tag optional) 3810: sub start_tfoot { 3811: my ($target,$token) = @_; 3812: my $currentstring = ''; 3813: if ($target eq 'web') { 3814: $currentstring = $token->[4]; 3815: } 3816: return $currentstring; 3817: } 3818: 3819: sub end_tfoot { 3820: my ($target,$token) = @_; 3821: my $currentstring = ''; 3822: if ($target eq 'web') { 3823: $currentstring = $token->[2]; 3824: } 3825: return $currentstring; 3826: } 3827: 3828: #-- <thead> tag (end tag optional) 3829: sub start_thead { 3830: my ($target,$token) = @_; 3831: my $currentstring = ''; 3832: if ($target eq 'web') { 3833: $currentstring = $token->[4]; 3834: } 3835: return $currentstring; 3836: } 3837: 3838: sub end_thead { 3839: my ($target,$token) = @_; 3840: my $currentstring = ''; 3841: if ($target eq 'web') { 3842: $currentstring = $token->[2]; 3843: } 3844: return $currentstring; 3845: } 3846: 3847: #-- <var> tag 3848: sub start_var { 3849: my ($target,$token) = @_; 3850: my $currentstring = ''; 3851: if ($target eq 'web') { 3852: $currentstring = $token->[4]; 3853: } elsif ($target eq 'tex') { 3854: $currentstring = '\textit{'; 3855: } 3856: return $currentstring; 3857: } 3858: 3859: sub end_var { 3860: my ($target,$token) = @_; 3861: my $currentstring = ''; 3862: if ($target eq 'web') { 3863: $currentstring = $token->[2]; 3864: } elsif ($target eq 'tex') { 3865: $currentstring = '}'; 3866: } 3867: return $currentstring; 3868: } 3869: 3870: #-- <wbr> tag (end tag forbidden) 3871: sub start_wbr { 3872: my ($target,$token) = @_; 3873: my $currentstring = ''; 3874: if ($target eq 'web') { 3875: $currentstring = $token->[4]; 3876: } 3877: return $currentstring; 3878: } 3879: 3880: sub end_wbr { 3881: my ($target,$token) = @_; 3882: my $currentstring = ''; 3883: if ($target eq 'web') { 3884: $currentstring = $token->[2]; 3885: } 3886: return $currentstring; 3887: } 3888: 3889: #-- <hideweboutput> tag 3890: sub start_hideweboutput { 3891: my ($target,$token) = @_; 3892: if ($target eq 'web') { 3893: &Apache::lonxml::startredirection(); 3894: } 3895: return ''; 3896: } 3897: 3898: sub end_hideweboutput { 3899: my ($target,$token) = @_; 3900: my $currentstring = ''; 3901: if ($target eq 'web') { 3902: $currentstring = &Apache::lonxml::endredirection(); 3903: } 3904: return ''; 3905: } 3906: 3907: 3908: sub image_replication { 3909: my $src = shift; 3910: if (not -e $src) { &Apache::lonnet::repcopy($src); } 3911: #replicates eps or ps 3912: my $epssrc = my $pssrc = $src; 3913: $epssrc =~ s/\.(gif|jpg|jpeg|png)$/.eps/i; 3914: $pssrc =~ s/\.(gif|jpg|jpeg|png)$/.ps/i; 3915: if (not -e $epssrc && not -e $pssrc) { 3916: my $result=&Apache::lonnet::repcopy($epssrc); 3917: if ($result ne 'ok') { &Apache::lonnet::repcopy($pssrc); } 3918: } 3919: return ''; 3920: } 3921: # 3922: # Get correct sizing parameter for an image given 3923: # it's initial ht. and wid. This allows sizing of 3924: # images that are generated on-the-fly (e.g. gnuplot) 3925: # as well as serving as a utility for image_size. 3926: # 3927: # Parameter: 3928: # height_param 3929: # width_param - Initial picture dimensions. 3930: # scaling - A scale factor. 3931: # parstack, - the current stack of tag attributes 3932: # from the xml parser 3933: # safeeval, - pointer to the safespace 3934: # depth, - from what level in the stack to look for attributes 3935: # (assumes -1 if unspecified) 3936: # cis - look for attrubutes case insensitively 3937: # (assumes false) 3938: # 3939: # Returns: 3940: # height, width - new dimensions. 3941: # 3942: sub resize_image { 3943: my ($height_param, $width_param, $scaling, 3944: $parstack, $safeeval, $depth, $cis) = @_; 3945: 3946: # First apply the scaling... 3947: 3948: $height_param = $height_param * $scaling; 3949: $width_param = $width_param * $scaling; 3950: 3951: #do we have any specified LaTeX size of the picture? 3952: my $toget='TeXwidth'; 3953: if ($cis) { 3954: $toget=lc($toget); 3955: } 3956: my $TeXwidth = &Apache::lonxml::get_param($toget,$parstack, 3957: $safeeval,$depth,$cis); 3958: $toget='TeXheight'; if ($cis) { $toget=lc($toget); } 3959: my $TeXheight = &Apache::lonxml::get_param($toget,$parstack, 3960: $safeeval,$depth,$cis); 3961: #do we have any specified web size of the picture? 3962: my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval, 3963: $depth,1); 3964: if ($TeXwidth) { 3965: my $old_width_param=$width_param; 3966: if ($TeXwidth=~/(\d+)\s*\%/) { 3967: $width_param = $1*$env{'form.textwidth'}/100; 3968: } else { 3969: $width_param = $TeXwidth; 3970: } 3971: if ($TeXheight) { 3972: $height_param = $TeXheight; 3973: } elsif ($old_width_param) { 3974: $height_param=$TeXwidth/$old_width_param*$height_param; 3975: } 3976: } elsif ($TeXheight) { 3977: $height_param = $TeXheight; 3978: if ($height_param) { 3979: $width_param = $TeXheight/$height_param*$width_param; 3980: } 3981: } elsif ($width) { 3982: my $old_width_param=$width_param; 3983: $width_param = $width*$scaling; 3984: if ($old_width_param) { 3985: $height_param=$width_param/$old_width_param*$height_param; 3986: } 3987: } 3988: if ($width_param > $env{'form.textwidth'}) { 3989: my $old_width_param=$width_param; 3990: $width_param =0.95*$env{'form.textwidth'}; 3991: if ($old_width_param) { 3992: $height_param=$width_param/$old_width_param*$height_param; 3993: } 3994: } 3995: 3996: return ($height_param, $width_param); 3997: } 3998: 3999: sub image_size { 4000: my ($src,$scaling,$parstack,$safeeval,$depth,$cis)=@_; 4001: 4002: #size of image from gif/jpg/jpeg/png 4003: my $ressrc=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); 4004: if (-e $ressrc) { 4005: $src = $ressrc; 4006: } 4007: my $image = Image::Magick->new; 4008: my $current_figure = $image->Read($src); 4009: my $width_param = $image->Get('width'); 4010: my $height_param = $image->Get('height'); 4011: &Apache::lonxml::debug("Image magick says: $src : Height = $height_param width = $width_param"); 4012: undef($image); 4013: 4014: ($height_param, $width_param) = &resize_image($height_param, $width_param, 4015: $scaling, $parstack, $safeeval, 4016: $depth, $cis); 4017: 4018: return ($height_param, $width_param); 4019: } 4020: 4021: sub image_width { 4022: my ($height, $width) = &image_size(@_); 4023: return $width; 4024: } 4025: # Not yet 100% sure this is correct in all circumstances.. 4026: # due to my uncertainty about mods to image_size. 4027: # 4028: sub image_height { 4029: my ($height, $width) = &image_size(@_); 4030: return $height; 4031: } 4032: 4033: sub get_eps_image { 4034: my ($src)=@_; 4035: my $orig_src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1], $src); 4036: 4037: # In order to prevent the substitution of the alt text, we need to 4038: # be sure the orig_src file is on system now so: 4039: 4040: if (! -e $orig_src) { 4041: &Apache::lonnet::repcopy($orig_src); # Failure is not completely fatal. 4042: } 4043: &Apache::lonxml::debug("get_eps_image: Original image: $orig_src"); 4044: my ($spath, $sname, $sext) = fileparse($src, qr/\.(gif|png|jpg|jpeg)/i); 4045: $src=~s/\.(gif|png|jpg|jpeg)$/\.eps/i; 4046: $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); 4047: &Apache::lonxml::debug("Filelocation gives: $src"); 4048: if (! -e $src) { 4049: &Apache::lonxml::debug("$src does not exist"); 4050: if (&Apache::lonnet::repcopy($src) ne 'ok' ) { 4051: &Apache::lonxml::debug("Repcopy of $src failed (1)"); 4052: #if replication failed try to find ps file 4053: $src=~s/\.eps$/\.ps/; 4054: &Apache::lonxml::debug("Now looking for $src"); 4055: #if no ps file try to replicate it. 4056: my $didrepcopy = &Apache::lonnet::repcopy($src); 4057: &Apache::lonxml::debug("repcopy of $src ... $didrepcopy"); 4058: if ( (not -e $src) || 4059: ($didrepcopy ne 'ok')) { 4060: &Apache::lonxml::debug("Failed to find or replicate $src"); 4061: 4062: #if replication failed try to produce eps file dynamically 4063: $src=~s/\.ps$/\.eps/; 4064: my $temp_file; 4065: open(FILE,">>/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat"); 4066: my $newsrc=$orig_src; 4067: $newsrc =~ s|(.*)/res/|/home/httpd/html/res/|; 4068: &Apache::lonxml::debug("queueing $newsrc for dynamic eps production."); 4069: print FILE "$newsrc\n"; 4070: close FILE; 4071: $src=~s|/home/httpd/html/res|/home/httpd/prtspool|; 4072: $src=~s|/home/([^/]*)/public_html/|/home/httpd/prtspool/$1/|; 4073: if ($sext ne "") { # Put the ext. back in to uniquify. 4074: $src =~ s/\.eps$/$sext.eps/; 4075: } 4076: } 4077: } 4078: } 4079: my ($path,$file)=($src=~m|(.*)/([^/]*)$|); 4080: &Apache::lonxml::debug("get_eps_image returning: $path / $file<BR />"); 4081: return ($path.'/',$file); 4082: } 4083: 4084: sub eps_generation { 4085: my ($src,$file,$width_param) = @_; 4086: my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat"; 4087: my $temp_file = Apache::File->new('>>'.$filename); 4088: print $temp_file "$src\n"; 4089: my $newsrc = $src; 4090: $newsrc =~ s/(\.gif|\.jpg|\.jpeg)$/\.eps/i; 4091: $newsrc=~s/\/home\/httpd\/html\/res//; 4092: $newsrc=~s/\/home\/([^\/]*)\/public_html\//\/$1\//; 4093: $newsrc=~s/\/\.\//\//; 4094: $newsrc=~s/\/([^\/]+)\.(ps|eps)/\//; 4095: if ($newsrc=~/\/home\/httpd\/lonUsers\//) { 4096: $newsrc=~s/\/home\/httpd\/lonUsers//; 4097: $newsrc=~s/\/([^\/]+)\/(\w)\/(\w)\/(\w)\//\/$1\//; 4098: } 4099: if ($newsrc=~/\/userfiles\//) { 4100: return ' \graphicspath{{'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} '; 4101: } else { 4102: return ' \graphicspath{{/home/httpd/prtspool'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} '; 4103: } 4104: } 4105: 4106: sub file_path { 4107: my $src=shift; 4108: my ($file,$path); 4109: if ($src =~ m!(.*)/([^/]*)$!) { 4110: $file = $2; 4111: $path = $1.'/'; 4112: } 4113: return $file,$path; 4114: } 4115: # Converts a measurement in to mm from any of 4116: # the other valid LaTeX units of measure. 4117: # If the units of measure are missing from the 4118: # parameter, it is assumed to be in and returned 4119: # with mm units of measure 4120: sub recalc { 4121: my $argument = shift; 4122: if (not $argument=~/(mm|cm|in|pc|pt)/) {return $argument.' mm';} 4123: $argument=~/\s*(\d+\.?\d*)\s*(mm|cm|in|pc|pt)/; 4124: my $value=$1; 4125: my $units=$2; 4126: if ($units eq 'cm') { 4127: $value*=10; 4128: } elsif ($units eq 'in') { 4129: $value*=25.4; 4130: } elsif ($units eq 'pc') { 4131: $value*=(25.4*12/72.27); 4132: } elsif ($units eq 'pt') { 4133: $value*=(25.4/72.27); 4134: } 4135: return $value.' mm'; 4136: } 4137: 4138: sub LATEX_length { 4139: my $garbage=shift; 4140: $garbage=~s/^\s+$//; 4141: $garbage=~s/^\s+(\S.*)/$1/;#space before 4142: $garbage=~s/(.*\S)\s+$/$1/;#space after 4143: $garbage=~s/(\s)+/$1/;#only one space 4144: $garbage=~s/(\\begin{([^\}]+)}|\\end{([^\}]+)})//g;#remove LaTeX \begin{...} and \end{...} 4145: $garbage=~s/(\$\_\{|\$\_|\$\^{|\$\^|\}\$)//g;#remove $_{,$_,$^{,$^,}$ 4146: $garbage=~s/([^\\])\$/$1/g;#$ 4147: $garbage=~s/(\\ensuremath\{\_\{|\\ensuremath\{\_|\\ensuremath\{\^{|\\ensuremath\{\^|\})//g;#remove \ensuremath{...} 4148: $garbage=~s/(\\alpha|\\beta|\\gamma|\\delta|\\epsilon|\\verepsilon|\\zeta|\\eta|\\theta|\\vartheta|\\iota|\\kappa|\\lambda|\\mu|\\nu|\\xi|\\pi|\\varpi|\\rho|\\varrho|\\sigma|\\varsigma|\\tau|\\upsilon|\\phi|\\varphi|\\chi|\\psi|\\omega|\\Gamma|\\Delta|\\Theta|\\Lambda|\\Xi|\\Pi|\\Sigma|\\Upsilon|\\Phi|\\Psi|\\Omega)/1/g; 4149: $garbage=~s/(\\pm|\\mp|\\times|\\div|\\cdot|\\ast|\\star|\\dagger|\\ddagger|\\amalg|\\cap|\\cup|\\uplus|\\sqcap|\\sqcup|\\vee|\\wedge|\\oplus|\\ominus|\\otimes|\\circ|\\bullet|\\diamond|\\lhd|\\rhd|\\unlhd|\\unrhd|\\oslash|\\odot|\\bigcirc|\\Box|\\Diamond|\\bigtriangleup|\\bigtriangledown|\\triangleleft|\\triangleright|\\setminus|\\wr)/1/g; 4150: $garbage=~s/(\\le|\\ll|\\leq|\\ge|\\geq|\\gg|\\neq|\\doreq|\\sim|\\simeq|\\subset|\\subseteq|\\sqsubset|\\sqsubseteq|\\in|\\vdash|\\models|\\supset|\\supseteq|\\sqsupset|\\sqsupseteq|\\ni|\\dash|\\perp|\\approx|\\cong|\\equiv|\\propto|\\prec|\\preceq|\\parallel|\\asymp|\\smile|\\frown|\\bowtie|\\succ|\\succeq|\\mid)/1/g; 4151: $garbage=~s/(\\not<|\\\\not\\le|\\not\\prec|\\not\\preceq|\\not\\subset|\\not\\subseteq|\\not\\sqsubseteq|\\not\\in|\\not>|\\not\\ge|\\not\\succ|\\notsucceq|\\not\\supset|\\notsupseteq|\\not\\sqsupseteq|\\notin|\\not=|\\not\\equiv|\\not\\sim|\\not\\simeq|\\not\\approx|\\not\\cong|\\not\\asymp)/1/g; 4152: $garbage=~s/(\\leftarrow|\\gets|\\Leftarrow|\\rightarrow|\\to|\\Rightarrow|\\leftrightarrow|\\Leftrightarrow|\\mapsto|\\hookleftarrow|\\leftharpoonup|\\leftkarpoondown|\\rightleftharpoons|\\longleftarrow|\\Longleftarrow|\\longrightarrow|\\Longrightarrow|\\longleftrightarrow|\\Longleftrightarrow|\\longmapsto|\\hookrightarrow|\\rightharpoonup|\\rightharpoondown|\\uparrow|\\Uparrow|\\downarrow|\\Downarrow|\\updownarrow|\\Updownarrow|\\nearrow|\\searrow|\\swarrow|\\nwarrow)/11/g; 4153: $garbage=~s/(\\aleph|\\hbar|\\imath|\\jmath|\\ell|\\wp|\\Re|\\Im|\\mho|\\prime|\\emptyset|\\nabla|\\surd|\\partial|\\top|\\bot|\\vdash|\\dashv|\\forall|\\exists|\\neg|\\flat|\\natural|\\sharp|\\\||\\angle|\\backslash|\\Box|\\Diamond|\\triangle|\\clubsuit|\\diamondsuit|\\heartsuit|\\spadesuit|\\Join|\\infty)/11/g; 4154: $garbage=~s/(\\hat{([^}]+)}|\\check{([^}]+)}|\\dot{([^}]+)}|\\breve{([^}]+)}|\\acute{([^}]+)}|\\ddot{([^}]+)}|\\grave{([^}]+)}|\\tilde{([^}]+)}|\\mathring{([^}]+)}|\\bar{([^}]+)}|\\vec{([^}]+)})/$1/g; 4155: #remove some other LaTeX command 4156: $garbage=~s|\\(\w+)\\|\\|g; 4157: $garbage=~s|\\(\w+)(\s*)|$2|g; 4158: $garbage=~s|\+|11|g; 4159: my $value=length($garbage); 4160: return $value; 4161: } 4162: 4163: 4164: # is_inside_of $tagstack $tag 4165: # This sub returns true if the current state of Xml processing 4166: # is inside of the tag. 4167: # Parameters: 4168: # tagstack - The tagstack from the parser. 4169: # tag - The tag (without the <>'s.). 4170: # Sample usage: 4171: # if (is_inside_of($tagstack "table")) { 4172: # # I'm in a table.... 4173: # } 4174: sub is_inside_of { 4175: my ($tagstack, $tag) = @_; 4176: my @stack = @$tagstack; 4177: for (my $i = ($#stack - 1); $i >= 0; $i--) { 4178: if ($stack[$i] eq $tag) { 4179: return 1; 4180: } 4181: } 4182: return 0; 4183: } 4184: 4185: 4186: 1; 4187: __END__