Return to londefdef.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.437, 2012/02/05 22:53:42 | version 1.443, 2013/05/05 00:10:16 |
---|---|
Line 55 use LONCAPA(); | Line 55 use LONCAPA(); |
BEGIN { | BEGIN { |
&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')); | &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','style','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','tthoption','u','ul','var','wbr','hideweboutput')); |
} | } |
Line 458 sub insert_meta { | Line 458 sub insert_meta { |
<meta />'; | <meta />'; |
} | } |
#-- <start> tag | |
sub start_style { | |
my ($target, $token, $tagstack, $parstack, $parser, $safeeval, $style) = @_; | |
my $currentstring = ''; | |
if ($target eq 'tex') { | |
Apache::lonxml::startredirection(); | |
} else { | |
$currentstring = $token->[4]; | |
} | |
return $currentstring; | |
} | |
sub end_style { | |
my ($target, $token, $tagstack, $parstack, $parser, $safeeval) = @_; | |
my $currentstring = ''; | |
if ($target eq 'tex') { | |
Apache::lonxml::endredirection(); | |
} else { | |
$currentstring = $token->[2]; | |
} | |
return $currentstring; | |
} | |
# accessrule | # accessrule |
sub start_accessrule { | sub start_accessrule { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; | my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
Line 573 sub start_body { | Line 599 sub start_body { |
$header=&Apache::lonmenu::constspaceform(); | $header=&Apache::lonmenu::constspaceform(); |
} | } |
if ($env{'request.state'} ne 'published') { | if ($env{'request.state'} ne 'published') { |
$header.=&Apache::londefdef::edit_controls(); | $header.=&edit_controls(); |
} | } |
if ($env{'request.state'} eq 'construct') { | if ($env{'request.state'} eq 'construct') { |
$currentstring.=&Apache::loncommon::head_subbox( | $currentstring.=&Apache::loncommon::head_subbox( |
Line 605 sub edit_controls { | Line 631 sub edit_controls { |
$result .= ' | $result .= ' |
<div><input type="submit" name="editmode" accesskey="e" value="'.&mt('Edit').'" />'; | <div><input type="submit" name="editmode" accesskey="e" value="'.&mt('Edit').'" />'; |
if (($env{'request.course.id'}) && ($env{'form.forceedit'})) { | if (($env{'request.course.id'}) && ($env{'form.forceedit'})) { |
my $viewtext = &mt('Course View'); | my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'}); |
if (&Apache::loncommon::course_type() eq 'Community') { | if ($url =~ /\.html?$/i) { |
$viewtext = &mt('Community View'); | my ($cdom,$cnum); |
if ($env{'request.course.id'}) { | |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; | |
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; | |
if ($env{'request.filename'} =~ m{/userfiles/supplemental/default|\d+/}) { | |
if (&Apache::lonnet::is_course_upload($env{'request.filename'}, | |
$cnum,$cdom)) { | |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, | |
['folderpath','title']); | |
} | |
} | |
} | |
my ($symb,$itemtitle,$displayfile,$caller); | |
if ($url =~ m{^/uploaded/$cdom/$cnum/portfolio/syllabus/}) { | |
$itemtitle = &mt('Syllabus'); | |
$caller = "/public/$cdom/$cnum/syllabus"; | |
} else { | |
$caller = $url; | |
($symb,$itemtitle,$displayfile) = | |
&Apache::lonxml::get_courseupload_hierarchy($url, | |
$env{'form.folderpath'}, | |
$env{'form.title'}); | |
} | |
if (($symb ne '') || ($env{'httpref.'.$url} ne '') || | |
($url =~ m{^/uploaded/$cdom/$cnum/portfolio/syllabus/})) { | |
$result .= (' ' x 3). | |
&Apache::lonhtmlcommon::dependencies_button()."\n". | |
&Apache::lonhtmlcommon::dependencycheck_js($symb, | |
$itemtitle,$url,$env{'form.folderpath'},$caller)."\n"; | |
} | |
} | } |
$result .= (' ' x 3).'<input type="button" value="'. | |
$viewtext.'" onclick="javascript:location.href=currentURL" />'; | |
} | } |
$result .= '</div> | $result .= '</div> |
</div> | </div> |
Line 4440 sub latex_header { | Line 4493 sub latex_header { |
"\\usepackage{xcolor}\n". | "\\usepackage{xcolor}\n". |
'\usepackage{calc}'. | '\usepackage{calc}'. |
'\usepackage{amsmath}'. | '\usepackage{amsmath}'. |
'\usepackage{soul}', | '\usepackage{soul}'. |
'\usepackage{amssymb}'. | '\usepackage{amssymb}'. |
'\usepackage{amsfonts}'. | '\usepackage{amsfonts}'. |
'\usepackage{amsthm}'. | '\usepackage{amsthm}'. |