loncom/xml/scripttag.pm - view

File: [LON-CAPA] / loncom / xml / scripttag.pm
Revision 1.170: download - view: text, annotated - select for diffs
Sun Jul 27 11:39:29 2014 UTC (9 years, 10 months ago) by raeburn
Branches: MAIN
CVS tags: HEAD

- Bug 6671
 - Support changes in packaging of mp4 files between Camtasia 8.1
   and Camtasia 8.4.

1: # The LearningOnline Network with CAPA 2: # <script> definiton 3: # 4: # $Id: scripttag.pm,v 1.170 2014/07/27 11:39:29 raeburn Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: 29: package Apache::scripttag; 30: 31: use strict; 32: use Apache::lonnet; 33: use Apache::lonlocal; 34: use Apache::lonxml(); 35: use Apache::londefdef(); 36: use Apache::style(); 37: 38: #Globals 39: # this used to pass around the standard callsub arguments to a tag func 40: # so xmlparse can reenter the inner_xmlparse loop. 41: 42: @Apache::scripttag::parser_env = (); 43: BEGIN { 44: &Apache::lonxml::register('Apache::scripttag', 45: ('script','scriptlib','parserlib','import', 46: 'window','windowlink','togglebox','display','storetc','physnet', 47: 'standalone','comment','num','parse','algebra', 48: 'LONCAPA_INTERNAL_TURN_STYLE_ON', 49: 'LONCAPA_INTERNAL_TURN_STYLE_OFF')); 50: } 51: 52: sub start_LONCAPA_INTERNAL_TURN_STYLE_ON { 53: $Apache::lonxml::usestyle=1; 54: $Apache::lonxml::style_values=''; 55: return ('','no'); 56: } 57: 58: sub end_LONCAPA_INTERNAL_TURN_STYLE_ON { 59: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 60: my $end=&Apache::lonxml::get_param('end',$parstack,$safeeval); 61: if (defined($end)) { 62: &Apache::lonxml::end_tag($tagstack,$parstack,$token); 63: } 64: return ('','no'); 65: } 66: 67: sub start_LONCAPA_INTERNAL_TURN_STYLE_OFF { 68: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 69: $Apache::lonxml::usestyle=0; 70: my $end=&Apache::lonxml::get_param('end',$parstack,$safeeval); 71: if (!$end) { 72: $Apache::lonxml::style_values=$$parstack[-1]; 73: $Apache::lonxml::style_end_values=$$parstack[-1]; 74: } else { 75: $Apache::lonxml::style_values=$Apache::lonxml::style_end_values; 76: $Apache::lonxml::style_end_values=''; 77: } 78: return ('','no'); 79: } 80: 81: sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF { 82: return ('','no'); 83: } 84: 85: sub start_script { 86: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 87: @Apache::scripttag::parser_env = @_; 88: my $result=''; 89: my $type= &Apache::lonxml::get_param('type',$parstack,$safeeval); 90: &Apache::lonxml::debug("found type of $type"); 91: if ($type eq "loncapa/perl") { 92: if ( $target eq "modified" ) { 93: $result=$token->[4].&Apache::edit::modifiedfield('/script',$parser); 94: } elsif ( $target eq 'web' || $target eq 'tex' || 95: $target eq 'grade' || $target eq 'webgrade' || 96: $target eq 'answer' || $target eq 'analyze' ) { 97: my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); 98: if (!$Apache::lonxml::default_homework_loaded) { 99: &Apache::lonxml::default_homework_load($safeeval); 100: } 101: &Apache::run::run($bodytext,$safeeval); 102: if (($target eq 'answer') && 103: ($env{'form.answer_output_mode'} ne 'tex') && 104: ($Apache::lonhomework::viewgrades == 'F')) { 105: $Apache::lonxml::evaluate--; 106: my (undef,undef,$udom,$uname)=&Apache::lonnet::whichuser(); 107: $uname =~s/\W//g; 108: $udom =~s/\W//g; 109: my $function_name = 110: join('_','LONCAPA_scriptvars',$uname,$udom, 111: $env{'form.counter'},$Apache::lonxml::curdepth); 112: &Apache::lonxml::add_script_result( 113: &Apache::loncommon::modal_adhoc_window($function_name,500,500, 114: '<pre style="background-color:#ffffff;">'. 115: &Apache::run::dump($target,$safeeval).'</pre>', 116: &mt('Script Vars'))."<br />"); 117: } 118: } elsif ($target eq "edit" ) { 119: #&Apache::run::run($bodytext,$safeeval); 120: #$result="<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; 121: my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); 122: $result=&Apache::edit::tag_start($target,$token,'Script'); 123: $result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4); 124: } elsif ($target eq 'meta') { 125: my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); 126: } 127: } else { 128: my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); 129: if ($target ne "meta" && $target ne 'tex' && $target ne 'answer') { 130: $result = $token->[4]; 131: $result.=$bodytext; 132: my $src=&Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); 133: my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'}); 134: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; 135: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; 136: if ($src ne '') { 137: if ($src !~ m{^(/|https?://)}) { 138: my $cleanhref = &Apache::londefdef::clean_docs_httpref($src,$url,$cdom,$cnum); 139: if ($cleanhref) { 140: &Apache::lonxml::extlink($cleanhref); 141: } 142: } 143: } elsif (($type eq 'text/javascript') && ($bodytext ne '')) { 144: if ($url =~ m{^\Q/uploaded/$cdom/$cnum/docs/\E}) { 145: if ($bodytext =~ m{\.addMediaSrc$(["'])(?:(?!\1).)+\1$}) { 146: my $quote = $1; 147: if ($bodytext =~ m{\Q.addMediaSrc($quote\E([^$quote]+)\Q$quote)\E}) { 148: my $fname = $1; 149: my $cleanhref = 150: &Apache::londefdef::clean_docs_httpref($fname,$url,$cdom,$cnum); 151: if ($cleanhref) { 152: &Apache::lonxml::extlink($cleanhref); 153: } 154: } 155: } 156: if ($bodytext =~ m{\.set\w+(Src|Swf)$["']}i) { 157: my @srcs = split(/\.set/,$bodytext); 158: if (scalar(@srcs) > 1) { 159: foreach my $item (@srcs) { 160: if ($item =~ m{^(FlashPlayerSwf|MediaSrc|XMPSrc|ConfigurationSrc|PosterImageSrc)\((['"])(?:(?!\2).)+\2$}is) { 161: my $srctype = $1; 162: my $quote = $2; 163: my ($fname) = ($item =~ m{^\Q$srctype($quote\E([^$quote]+)\Q$quote)\E}); 164: my $cleanhref = 165: &Apache::londefdef::clean_docs_httpref($fname,$url,$cdom,$cnum); 166: if ($cleanhref) { 167: &Apache::lonxml::extlink($cleanhref); 168: if ($srctype eq 'ConfigurationSrc') { 169: if ($cleanhref =~ m{^(.+/)configuration_express\.xml$}) { 170: # 171: # Camtasia 8.1: express_show/spritesheet.png needed, and included in zip archive. 172: # Not referenced directly in <main>.html or <main>_player.html files, 173: # so call lonxml::extlink() here to include httpref for the uploaded file. 174: # (where <main> is name user gave to file/archive). 175: # 176: 177: my $spritesheet = $1.'express_show/spritesheet.png'; 178: if (&Apache::lonnet::repcopy_userfile($spritesheet) eq 'ok') { 179: &Apache::lonxml::extlink($spritesheet); 180: } 181: } 182: # 183: # Camtasia 8.4: express_show/spritesheet.min.css needed, and included in zip archive. 184: # Not referenced directly in <main>.html or <main>_player.html files, 185: # so call lonxml::extlink() here to include httpref for the uploaded file. 186: # (where <main> is name user gave to file/archive). 187: # 188: my $spritesheet_css = $1.'express_show/spritesheet.min.css'; 189: if (&Apache::lonnet::repcopy_userfile($spritesheet_css) eq 'ok') { 190: &Apache::lonxml::extlink($spritesheet_css); 191: } 192: } elsif ($srctype eq 'PosterImageSrc') { 193: if ($fname =~ m{^(.+)_First_Frame\.png$}) { 194: my $prefix = $1; 195: my ($path) = ($cleanhref =~ m{^(.+/)\Q$fname\E}); 196: # 197: # Camtasia 8.1: <main>_Thumbnails.png needed, and included in zip archive. 198: # Not referenced directly in <main>.html or <main>_player.html files, 199: # so call lonxml::extlink() here to include httpref for the uploaded file 200: # (where <main> is name user gave to file/archive). 201: # 202: my $thumbnail = $path.$prefix.'_Thumbnails.png'; 203: if (&Apache::lonnet::repcopy_userfile($thumbnail) eq 'ok') { 204: &Apache::lonxml::extlink($thumbnail); 205: } 206: } 207: } 208: } 209: } 210: } 211: } 212: } 213: if ($bodytext =~ /$document,\s*(['"])script\1,\s*\[([^\]]+)\]$;/s) { 214: my $scriptslist = $2; 215: my @srcs = split(/\s*,\s*/,$scriptslist); 216: foreach my $src (@srcs) { 217: if ($src =~ /(["'])(?:(?!\1).)+\.js\1/) { 218: my $quote = $1; 219: my ($fname) = ($src =~ m/\Q$quote\E([^$quote]+)\Q$quote\E/); 220: my $cleanhref = 221: &Apache::londefdef::clean_docs_httpref($fname,$url,$cdom,$cnum); 222: if ($cleanhref) { 223: &Apache::lonxml::extlink($cleanhref); 224: } 225: } 226: } 227: } 228: } 229: } 230: } 231: } 232: return $result; 233: } 234: 235: sub end_script { 236: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 237: if ( $target eq "meta" ) { return ''; } 238: my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval); 239: my $result=''; 240: #other script blocks need to survive 241: if ($type ne "loncapa/perl" && $target ne 'tex') { 242: return $token->[2]; 243: } elsif ($target eq 'edit' ) { 244: return &Apache::edit::end_table(); 245: } elsif ($target eq 'answer') { 246: $Apache::lonxml::evaluate++; 247: } 248: return ''; 249: } 250: 251: sub start_display { 252: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 253: @Apache::scripttag::parser_env = @_; 254: my $result; 255: 256: if ( $target eq "modified" ) { 257: $result=$token->[4].&Apache::edit::modifiedfield("/display",$parser); 258: } elsif ( $target eq 'web' || $target eq 'tex' || 259: $target eq 'grade' || $target eq 'webgrade' || 260: $target eq 'answer' || $target eq 'analyze') { 261: my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/display",$parser); 262: if (!$Apache::lonxml::default_homework_loaded) { 263: &Apache::lonxml::default_homework_load($safeeval); 264: } 265: $result=&Apache::run::run($bodytext,$safeeval); 266: if ($target eq 'grade' || $target eq 'answer' || 267: $target eq 'analyze') { 268: # grade/answer/analyxe should produce no output but if we 269: # are redirecting, the redirecter should know what to do 270: # with the output 271: if (!$Apache::lonxml::redirection) { $result=''; } 272: } 273: $Apache::lonxml::post_evaluate=0; 274: } elsif ($target eq "edit" ) { 275: my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/display",$parser); 276: #$result = 277: # "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; 278: #$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1); 279: $result=&Apache::edit::tag_start($target,$token,'Script With Display'); 280: $result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,1) 281: } elsif ($target eq 'meta') { 282: my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/display",$parser); 283: } 284: return $result; 285: } 286: 287: sub end_display { 288: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 289: if ($target eq 'edit' ) { return &Apache::edit::end_table(); } 290: return ''; 291: } 292: 293: sub start_scriptlib { 294: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 295: my $bodytext; 296: my $result =''; 297: my $error=''; 298: 299: if ($target eq 'web' || $target eq 'tex' || $target eq 'grade' || 300: $target eq 'meta' || $target eq 'edit' || $target eq 'answer' || 301: $target eq 'analyze' || $target eq 'webgrade') { 302: $bodytext=$$parser[$#$parser]->get_text("/scriptlib"); 303: $bodytext=&Apache::run::evaluate($bodytext,$safeeval, 304: $$parstack[$#$parstack]); 305: my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'], 306: $bodytext); 307: my $script=&Apache::lonnet::getfile($location); 308: if ($script == -1) { 309: if ($target eq 'edit') { 310: $error='</tr><tr><td>'.&mt('Errors').'</td><td colspan="2"><b>'.&mt(' Unable to find [_1]','<span class="LC_filename">'.$location.'</span>').'</b></td>'."\n"; 311: } else { 312: &Apache::lonxml::error("<b> Unable to find <i>$location</i> for scriptlib</b>"); 313: return ""; 314: } 315: } 316: &Apache::run::run($script,$safeeval); 317: #&Apache::lonxml::debug("ran $bodytext:<br />".&Apache::lonnet::getfile($bodytext)."<br />"); 318: } 319: if ($target eq "edit" ) { 320: $result= 321: &Apache::edit::tag_start($target,$token,'New Script Functions'). 322: &Apache::edit::editline($token->[1],$bodytext,'scriptlib',40). 323: &Apache::edit::browse(undef,'textnode'). 324: $error.'</td></tr>'. 325: &Apache::edit::end_table(); 326: } 327: if ($target eq "modified" ) { 328: $result=$token->[4].&Apache::edit::modifiedfield("/scriptlib",$parser); 329: } 330: return $result; 331: } 332: 333: sub end_scriptlib { 334: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 335: my @result; 336: if ($target eq "edit" ) { $result[1]='no'; } 337: return @result; 338: } 339: 340: sub start_parserlib { 341: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 342: my $bodytext; 343: my $result =""; 344: my $error=''; 345: if ($target eq 'web' || $target eq 'tex' || $target eq 'grade' || 346: $target eq 'meta' || $target eq 'edit' || $target eq 'answer' || 347: $target eq 'analyze' || $target eq 'webgrade') { 348: $bodytext=$$parser[$#$parser]->get_text("/parserlib"); 349: $bodytext=&Apache::run::evaluate($bodytext,$safeeval, 350: $$parstack[$#$parstack]); 351: my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'], 352: $bodytext); 353: my $styletext=&Apache::lonnet::getfile($location); 354: #&Apache::lonxml::debug("found :$bodytext: in :$location: with :$styletext:"); 355: if ($styletext == -1) { 356: if ($target eq 'edit') { 357: $error='</tr><tr><td>Errors</td><td colspan="2"><b> Unable to find <i>'.$location.'</i></b></td>'."\n"; 358: } else { 359: &Apache::lonxml::error("<b> Unable to find <i>$location</i> for parserlib</b>"); 360: return ""; 361: } 362: } 363: %$style = ( %$style , &Apache::style::styleparser($target,$styletext)); 364: } 365: if ($target eq "edit" ) { 366: $result= 367: &Apache::edit::tag_start($target,$token,'New Tag Definitions'). 368: &Apache::edit::editline($token->[1],$bodytext,'',40). 369: $error.'</td></tr>'. 370: &Apache::edit::end_table(); 371: } 372: if ($target eq "modified" ) { 373: $result=$token->[4].&Apache::edit::modifiedfield("/parserlib",$parser); 374: } 375: return $result; 376: } 377: 378: sub end_parserlib { 379: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 380: my @result; 381: if ($target eq "edit" ) { $result[1]='no'; } 382: return @result; 383: } 384: 385: sub start_window { 386: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 387: my $result = ''; 388: if ($target eq 'web' || $target eq 'webgrade') { 389: &Apache::lonxml::startredirection; 390: } elsif ($target eq 'tex') { 391: my $printtext=&Apache::lonxml::get_param('printtext',$parstack,$safeeval); 392: if ($printtext=~/\w/) { 393: # If printtext is given, do not output any intervening information 394: &Apache::lonxml::startredirection; 395: } else { 396: $result = '\unskip\footnote{'; 397: } 398: } elsif ($target eq 'edit') { 399: $result.=&Apache::edit::tag_start($target,$token); 400: $result.=&Apache::edit::text_arg('Text of Link:','linktext',$token,70); 401: $result.=&Apache::edit::text_arg('Height:','height',$token,5); 402: $result.=&Apache::edit::text_arg('Width:','width',$token,5); 403: $result.=&Apache::edit::text_arg('Printed text (optional):','printtext',$token,20); 404: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); 405: } elsif ($target eq 'modified') { 406: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 407: $safeeval,'linktext', 408: 'width','height'); 409: if ($constructtag) { $result=&Apache::edit::rebuild_tag($token); } 410: } 411: return $result; 412: } 413: 414: sub end_window { 415: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 416: my $result; 417: if ($target eq 'web' || $target eq 'webgrade') { 418: my $output=&Apache::lonxml::endredirection; 419: my $linktext= &Apache::lonxml::get_param('linktext',$parstack,$safeeval); 420: if (!$linktext) { $linktext='<sup>*</sup>'; } 421: my $width= &Apache::lonxml::get_param('width',$parstack,$safeeval); 422: if (!$width) { $width='500'; } 423: my $height= &Apache::lonxml::get_param('height',$parstack,$safeeval); 424: if (!$height) { $height='200'; } 425: $result=&Apache::loncommon::modal_adhoc_window 426: ("LONCAPA_newwindow_$Apache::lonxml::curdepth",$width,$height,$output,$linktext); 427: } elsif ($target eq 'tex') { 428: my $printtext=&Apache::lonxml::get_param('printtext',$parstack,$safeeval); 429: if ($printtext=~/\w/) { 430: # If a "printtext" is given, proceed to retrieve all intervening information and trash it 431: my $output=&Apache::lonxml::endredirection; 432: # Use printtext instead 433: $result=$printtext; 434: } else { 435: $result='}'; 436: } 437: } else { 438: $result = ''; 439: } 440: return $result; 441: } 442: 443: 444: sub start_windowlink { 445: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 446: my $result = ''; 447: if ($target eq 'web' || $target eq 'webgrade') { 448: &Apache::lonxml::startredirection; 449: } elsif ($target eq 'edit') { 450: $result.=&Apache::edit::tag_start($target,$token); 451: $result.=&Apache::edit::text_arg('Link:','href',$token,70); 452: $result.=&Apache::edit::text_arg('Height:','height',$token,5); 453: $result.=&Apache::edit::text_arg('Width:','width',$token,5); 454: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); 455: } elsif ($target eq 'modified') { 456: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 457: $safeeval,'href', 458: 'width','height'); 459: if ($constructtag) { $result=&Apache::edit::rebuild_tag($token); } 460: } 461: return $result; 462: } 463: 464: sub end_windowlink { 465: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 466: my $result; 467: if ($target eq 'web' || $target eq 'webgrade') { 468: my $output=&Apache::lonxml::endredirection; 469: my $href= &Apache::lonxml::get_param('href',$parstack,$safeeval); 470: if (!$href) { $href='/adm/rat/empty.html'; } 471: my $width= &Apache::lonxml::get_param('width',$parstack,$safeeval); 472: if (!$width) { $width='500'; } 473: my $height= &Apache::lonxml::get_param('height',$parstack,$safeeval); 474: if (!$height) { $height='200'; } 475: $result=&Apache::loncommon::modal_link($href,$output,$width,$height); 476: } else { 477: $result = ''; 478: } 479: return $result; 480: } 481: 482: 483: sub start_togglebox { 484: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 485: my $result = ''; 486: if ($target eq 'web' || $target eq 'webgrade') { 487: my $id="LONCAPA_togglebox_$Apache::lonxml::curdepth"; 488: my $heading=&Apache::lonxml::get_param('heading',$parstack,$safeeval); 489: unless ($heading) { $heading=''; } else { $heading.=' '; } 490: my $showtext=&Apache::lonxml::get_param('showtext',$parstack,$safeeval); 491: my $hidetext=&Apache::lonxml::get_param('hidetext',$parstack,$safeeval); 492: my $headerbg=&Apache::lonxml::get_param('headerbg',$parstack,$safeeval); 493: $result=&Apache::loncommon::start_togglebox($id,$heading,$headerbg,$hidetext,$showtext); 494: } elsif ($target eq 'tex') { 495: my $heading=&Apache::lonxml::get_param('heading',$parstack,$safeeval); 496: unless ($heading) { $heading=''; } else { $heading.=' '; } 497: $result = "\n\n".'\fbox{{\bf '.$heading.'} \qquad '."\n"; 498: } elsif ($target eq 'edit') { 499: $result.=&Apache::edit::tag_start($target,$token); 500: $result.=&Apache::edit::text_arg('Heading:','heading',$token,70); 501: $result.=&Apache::edit::text_arg('Header Background:','headerbg',$token,7); 502: $result.=&Apache::edit::text_arg('Show text:','showtext',$token,10); 503: $result.=&Apache::edit::text_arg('Hide text:','hidetext',$token,10); 504: $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); 505: } elsif ($target eq 'modified') { 506: my $constructtag=&Apache::edit::get_new_args($token,$parstack, 507: $safeeval,'heading', 508: 'showtext','hidetext', 509: 'headerbg','textbg'); 510: if ($constructtag) { $result=&Apache::edit::rebuild_tag($token); } 511: } 512: return $result; 513: } 514: 515: sub end_togglebox { 516: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 517: my $result; 518: if ($target eq 'web' || $target eq 'webgrade') { 519: $result=&Apache::loncommon::end_togglebox(); 520: } elsif ($target eq 'tex') { 521: $result = "}\n\n"; 522: } else { 523: $result = ''; 524: } 525: return $result; 526: } 527: 528: 529: 530: sub start_import { 531: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 532: my $bodytext=$$parser[$#$parser]->get_text("/import"); 533: my $result =""; 534: 535: $bodytext=&Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]); 536: 537: if ($target eq 'web' || $target eq 'webgrade' || $target eq 'grade' 538: || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze' ) { 539: # FIXME this probably needs to be smart about construction vs. 540: # non construction space. 541: my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext); 542: my $file=&Apache::lonnet::getfile($location); 543: if ($file == -1) { 544: &Apache::lonxml::error("<b> Unable to find <i>$bodytext as $location</i> for import</b>"); 545: return ""; 546: } 547: my $importmode=&Apache::lonxml::get_param('importmode',$parstack,$safeeval); 548: if (($importmode eq 'problem') || ($importmode eq 'part')) { 549: # We are using import to import published problems 550: if (($importmode eq 'problem') || ($file=~/<part[^<]*>/s)) { 551: # We explicitly don't want this to be a separate part or the problem already has parts 552: $file=~s/^\s*<problem>/<library>/s; 553: $file=~s/<\/problem>\s*$/<\/library>/s; 554: } else { 555: # We want this to be a separate part, but it currently is not 556: $file=~s/^\s*<problem>/<library><part>/s; 557: $file=~s/<\/problem>\s*$/<\/part><\/library>/s; 558: } 559: } 560: my $dir=$location; 561: $dir=~s:/[^/]*$::; 562: # &Apache::lonxml::debug("directory $dir $location file $file \n<b>END</b>\n"); 563: my $id= &Apache::lonxml::get_id($parstack,$safeeval); 564: if (!$id) { $id=$Apache::lonxml::curdepth; } 565: push(@Apache::inputtags::import,$id); 566: push(@Apache::inputtags::importlist,$id); 567: 568: &Apache::lonxml::newparser($parser,\$file,$dir); 569: 570: } elsif ($target eq "edit" ) { 571: $result.=&Apache::edit::tag_start($target,$token); 572: my $location=$token->[1]; 573: $location=~s/^\s*//s; 574: $location=~s/\s*$//s; 575: $result.=&Apache::edit::editline($location,$bodytext,'',40); 576: $result.=&Apache::edit::browse(undef,'textnode'); 577: $result.= ' <label>'.&mt('Import as:'). 578: '<select name="importmode_'.$Apache::lonxml::curdepth.'">'; 579: my %options=&Apache::lonlocal::texthash('' => 'as standard library', 580: 'problem' => 'as problem', 581: 'part' => 'as problem part(s)'); 582: foreach my $option (sort(keys(%options))) { 583: $result.='<option value="'.$option.'"'; 584: if ($option eq &Apache::lonxml::get_param('importmode',$parstack,$safeeval)) { 585: $result.=' selected="selected"'; 586: } 587: $result.='>'.$options{$option}.'</option>'; 588: } 589: $result.='</select></label>'; 590: #FIXME this need to convert $bodytext to be a contruction space reference 591: #my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext); 592: #$result.="Click<a href=\"$location\">here</a> to edit<br />" 593: } elsif ($target eq 'modified') { 594: &Apache::edit::get_new_args($token,$parstack,$safeeval,'importmode'); 595: $result='<import id="'.$token->[2]{'id'}.'" importmode="'.$token->[2]{'importmode'}.'">'; 596: $result.=&Apache::edit::modifiedfield("/import",$parser); 597: } elsif ($target eq 'meta') { 598: my $id= &Apache::lonxml::get_id($parstack,$safeeval); 599: $result.='<import part="'.$Apache::inputtags::part; 600: if ($id) { 601: $result.='" id="'.$id; 602: } 603: $result.='" importmode="'.$token->[2]{'importmode'}.'">'; 604: $result.=$bodytext; 605: $result.='</import>'; 606: } 607: return $result; 608: } 609: 610: sub end_import { 611: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 612: pop(@Apache::inputtags::import); 613: my $result; 614: if ($target eq 'edit' ) { $result=&Apache::edit::end_row. 615: &Apache::edit::end_table(); } 616: return $result; 617: } 618: 619: sub start_storetc { 620: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 621: my $result = ''; 622: &Apache::lonxml::startredirection; 623: return $result; 624: } 625: 626: sub end_storetc { 627: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 628: my $result; 629: my $output=&Apache::lonxml::endredirection; 630: $output =~ s/\"/\&quot\;/g; 631: $result = '{\bf '.$output.'.}}\write\tcfile{\protect\tcpc{ '.$output.'.}{\the\value{relpage}}}'; 632: return $result; 633: } 634: 635: 636: sub start_physnet { 637: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 638: my $bodytext = '/adm/includes/physnet.sty'; 639: my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext); 640: my $cbistyletext=&Apache::lonnet::getfile($location); 641: 642: %$style = (%$style,&Apache::style::styleparser($target,$cbistyletext)); 643: $$parser['-1']->unget_token($token); 644: # if ( defined($$style{'physnet'}) ) { 645: # &Apache::lonxml::newparser($parser,\$$style{'physnet'}); 646: # } 647: return ""; 648: } 649: 650: sub end_physnet { 651: return ''; 652: } 653: 654: sub start_standalone { 655: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 656: my $result=''; 657: if ($target eq 'web' || $target eq 'webgrade') { 658: if ( $env{'request.course.id'} ) { 659: my $inside = &Apache::lonxml::get_all_text("/standalone",$parser,$style); 660: } else { 661: $result='<table bgcolor="#E1E1E1" border="2"><tr><td>'; 662: } 663: } 664: return $result; 665: } 666: 667: sub end_standalone { 668: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 669: my $result=''; 670: if ($target eq 'web' || $target eq 'webgrade' ) { 671: if ( $env{'request.course.id'} ) { 672: } else { 673: $result='</td></tr></table>'; 674: } 675: } 676: return $result; 677: } 678: 679: sub start_comment { 680: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 681: my $result=''; 682: if ($target eq 'edit') { 683: $result=&Apache::edit::tag_start($target,$token); 684: my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser,$style); 685: $result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4) 686: } elsif ( $target eq 'modified') { 687: $result=$token->[4].&Apache::edit::modifiedfield("/comment",$parser); 688: } elsif ( $target eq 'web' || $target eq 'tex' || $target eq 'grade' || 689: $target eq 'answer' || $target eq 'meta' || $target eq 'analyze' || 690: $target eq 'webgrade') { 691: #normally throw away comments 692: my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser,$style); 693: } 694: return $result; 695: } 696: 697: sub end_comment { 698: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; 699: if ($target eq 'edit' ) { return &Apache::edit::end_table(); } 700: return ''; 701: } 702: 703: 704: sub xmlparse { 705: my ($string) = @_; 706: &Apache::lonxml::debug("xmlparse recursion starting with $string"); 707: # Apache::run::evaluate does an 'eval' on the name of the subroutine 708: # if it detects something that looks like a subroutine, this ends up calling 709: # things without any arguments and since perl is nice enough to pass 710: # along the default arguments when you don't explicitly say no arguments 711: # if you call &xmlparse, it gets &xmlparse passed as it argument. 712: # Same thing soccurs with &chemparse. 713: if ($string eq '&xmlparse') { return '&xmlparse'; } 714: if ($string eq '&chemparse') { return '&chemparse'; } 715: my ($target,$token,$tagstack,$parstack,$oldparser,$safeeval,$style)= 716: @Apache::scripttag::parser_env; 717: my @parser; 718: &Apache::lonxml::newparser(\@parser,\$string); 719: &Apache::lonxml::startredirection(); 720: my $result=&Apache::lonxml::inner_xmlparse($target,$tagstack, 721: $parstack,\@parser, 722: $safeeval,$style); 723: $result.=&Apache::lonxml::endredirection(); 724: &Apache::lonxml::debug("target is $target xmlparse recursion ending with $result"); 725: return $result; 726: } 727: 728: sub start_num { 729: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; 730: my $result = ''; 731: my $inside = &Apache::lonxml::get_all_text_unbalanced("/num",$parser); 732: if ($target eq 'tex' || $target eq 'web' || $target eq 'webgrade') { 733: $inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); 734: if (!$Apache::lonxml::default_homework_loaded) { 735: &Apache::lonxml::default_homework_load($safeeval); 736: } 737: @Apache::scripttag::parser_env = @_; 738: my $format=&Apache::lonxml::get_param('format',$parstack,$safeeval); 739: $result=&Apache::run::run("return &prettyprint(q\0$inside\0,q\0$format\0);",$safeeval); 740: } 741: return $result; 742: } 743: 744: sub end_num { 745: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; 746: my $result = ''; 747: return $result; 748: } 749: 750: sub start_parse { 751: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; 752: my $result = ''; 753: if ( $target eq 'web' || $target eq 'tex' || 754: $target eq 'grade' || $target eq 'answer' || 755: $target eq 'analyze'|| $target eq 'webgrade') { 756: my $inside = &Apache::lonxml::get_all_text_unbalanced("/parse",$parser); 757: $inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); 758: if (!$Apache::lonxml::default_homework_loaded) { 759: &Apache::lonxml::default_homework_load($safeeval); 760: } 761: @Apache::scripttag::parser_env = @_; 762: $result=&Apache::run::run("return &xmlparse(q\0$inside\0);",$safeeval); 763: if ($target eq 'grade' || $target eq 'answer' || 764: $target eq 'analyze') { 765: # grade/answer/analyxe should produce no output but if we 766: # are redirecting, the redirecter should know what to do 767: # with the output 768: if (!$Apache::lonxml::redirection) { $result=''; } 769: } 770: } 771: return $result; 772: } 773: 774: sub end_parse { 775: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; 776: my $result = ''; 777: return $result; 778: } 779: 780: sub start_algebra { 781: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; 782: my $result = ''; 783: if ( $target eq 'web' || $target eq 'tex' || 784: $target eq 'grade' || $target eq 'answer' || 785: $target eq 'analyze' || $target eq 'webgrade') { 786: my $inside = &Apache::lonxml::get_all_text_unbalanced("/algebra",$parser); 787: $inside = &Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); 788: if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { 789: my $style=&Apache::lonxml::get_param('style',$parstack,$safeeval); 790: $result=&Apache::lontexconvert::algebra($inside,$target,$style,$parstack,$safeeval); 791: } 792: $Apache::lonxml::post_evaluate=0; 793: } 794: return $result; 795: } 796: 797: sub end_algebra { 798: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; 799: my $result = ''; 800: return $result; 801: } 802: 803: 1; 804: __END__ 805: 806: =pod 807: 808: =head1 NAME 809: 810: Apache::scripttag.pm 811: 812: =head1 SYNOPSIS 813: 814: implements <script>, <scriptlib>, <parserlib>, 815: and <import> 816: 817: This is part of the LearningOnline Network with CAPA project 818: described at http://www.lon-capa.org. 819: 820: =cut 821: