loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.644, 2005/06/29 11:57:17
+version 1.645, 2005/07/13 20:30:20
  Line 1387  sub extract_embedded_items {
  	    if (lc($tagname) eq 'img') {
  		&add_filetype($allfiles,$attr->{'src'},'src');
  	    }
+             if (lc($tagname) eq 'script') {
+                 if ($attr->{'archive'} =~ /\.jar$/i) {
+                     &add_filetype($allfiles,$attr->{'archive'},'archive');
+                 } else {
+                     &add_filetype($allfiles,$attr->{'src'},'src');
+                 }
+             }
+             if (lc($tagname) eq 'link') {
+                 if (lc($attr->{'rel'}) eq 'stylesheet') {
+                     &add_filetype($allfiles,$attr->{'href'},'href');
+                 }
+             }
  	    if (lc($tagname) eq 'object' ||
  		(lc($tagname) eq 'embed' && lc($state[-2]) ne 'object')) {
  		foreach my $item (keys(%javafiles)) {