version 1.48, 2001/10/16 08:53:19
|
version 1.54, 2001/12/04 15:34:57
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Publication Handler |
# Publication Handler |
|
# |
|
# $Id$ |
|
# |
|
# Copyright Michigan State University Board of Trustees |
|
# |
|
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
|
# |
|
# LON-CAPA is free software; you can redistribute it and/or modify |
|
# it under the terms of the GNU General Public License as published by |
|
# the Free Software Foundation; either version 2 of the License, or |
|
# (at your option) any later version. |
|
# |
|
# LON-CAPA is distributed in the hope that it will be useful, |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
# GNU General Public License for more details. |
|
# |
|
# You should have received a copy of the GNU General Public License |
|
# along with LON-CAPA; if not, write to the Free Software |
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
# |
|
# /home/httpd/html/adm/gpl.txt |
|
# |
|
# http://www.lon-capa.org/ |
|
# |
# |
# |
# (TeX Content Handler |
# (TeX Content Handler |
# |
# |
Line 56 sub metaeval {
|
Line 81 sub metaeval {
|
$unikey.='_'.$token->[2]->{'part'}; |
$unikey.='_'.$token->[2]->{'part'}; |
} |
} |
if (defined($token->[2]->{'id'})) { |
if (defined($token->[2]->{'id'})) { |
$unikey.='.'.$token->[2]->{'id'}; |
$unikey.='_'.$token->[2]->{'id'}; |
} |
} |
if (defined($token->[2]->{'name'})) { |
if (defined($token->[2]->{'name'})) { |
$unikey.='_'.$token->[2]->{'name'}; |
$unikey.='_'.$token->[2]->{'name'}; |
Line 225 sub publish {
|
Line 250 sub publish {
|
} |
} |
my $outstring=''; |
my $outstring=''; |
my $parser=HTML::TokeParser->new(\$content); |
my $parser=HTML::TokeParser->new(\$content); |
|
$parser->xml_mode(1); |
my $token; |
my $token; |
while ($token=$parser->get_token) { |
while ($token=$parser->get_token) { |
if ($token->[0] eq 'S') { |
if ($token->[0] eq 'S') { |
my $counter; |
my $counter; |
my $tag=$token->[1]; |
my $tag=$token->[1]; |
unless ($tag eq 'allow') { |
my $lctag=$tag;$lctag=~/[A-Z]/[a-z]/g; |
|
unless ($lctag eq 'allow') { |
my %parms=%{$token->[2]}; |
my %parms=%{$token->[2]}; |
if ($counter=$addid{$tag}) { |
$counter=$addid{$tag}; |
|
if (!$counter) { $counter=$addid{$lctag}; } |
|
if ($counter) { |
if ($counter eq 'id') { |
if ($counter eq 'id') { |
unless (defined($parms{'id'})) { |
unless (defined($parms{'id'})) { |
$maxid++; |
$maxid++; |
Line 261 sub publish {
|
Line 290 sub publish {
|
} |
} |
} ('src','href','background'); |
} ('src','href','background'); |
|
|
if ($tag eq 'applet') { |
if ($lctag eq 'applet') { |
my $codebase=''; |
my $codebase=''; |
if (defined($parms{'codebase'})) { |
if (defined($parms{'codebase'})) { |
my $oldcodebase=$parms{'codebase'}; |
my $oldcodebase=$parms{'codebase'}; |
Line 502 sub publish {
|
Line 531 sub publish {
|
} |
} |
$colcount++; |
$colcount++; |
} sort keys %keywords; |
} sort keys %keywords; |
|
|
} else { |
} else { |
$keywordout.='<td>File too large, scan omitted</td>'; |
$keywordout.='<td>File too long for keyword analysis</td>'; |
} |
} |
|
|
$keywordout.='</tr></table>'; |
|
|
|
$scrout.=$keywordout; |
$keywordout.='</tr></table>'; |
|
|
|
$scrout.=$keywordout; |
|
|
$scrout.=&textfield('Additional Keywords','addkey',''); |
$scrout.=&textfield('Additional Keywords','addkey',''); |
|
|