[LON-CAPA-cvs] cvs: loncom(version_2_1_X) /homework structuretags.pm

[albertel]

albertel		Tue Mar 28 13:31:38 2006 EDT

  Modified files:              (Branch: version_2_1_X)
    /loncom/homework	structuretags.pm 
  Log:
  - backport 1.335 1.336
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.332 loncom/homework/structuretags.pm:1.332.2.1
--- loncom/homework/structuretags.pm:1.332	Fri Jan 27 18:36:48 2006
+++ loncom/homework/structuretags.pm	Tue Mar 28 13:31:37 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.332 2006/01/27 23:36:48 albertel Exp $
+# $Id: structuretags.pm,v 1.332.2.1 2006/03/28 18:31:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -113,6 +113,12 @@
 	    &Apache::lonhtmlcommon::htmlareaheaders().
 	    &Apache::lonhtmlcommon::spellheader().
 	    &Apache::lonxml::fontsettings();     
+	my $css_href = &Apache::lonnet::EXT('resource.0.cssfile');
+	if ($css_href =~ /\S/) {
+	    &Apache::lonxml::extlink($css_href);
+	    $head_tag_start = 
+		'<link rel="stylesheet" type="text/css" href="'.$css_href.'" />';
+	}
 	if ($target eq 'edit') {
 	    $head_tag_start.=&Apache::edit::js_change_detection();
 	}