version 1.5, 2000/11/30 11:22:58
|
version 1.6, 2000/11/30 16:22:13
|
Line 14 use Apache::File;
|
Line 14 use Apache::File;
|
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use HTML::TokeParser; |
use HTML::TokeParser; |
use Apache::lonxml; |
use Apache::lonxml; |
|
use Apache::lonhomework; |
|
|
my %addid; |
my %addid; |
my %nokey; |
my %nokey; |
Line 144 sub publish {
|
Line 145 sub publish {
|
} |
} |
# -------------------------------------------------- Parse content for metadata |
# -------------------------------------------------- Parse content for metadata |
|
|
my $allmeta=Apache::lonxml::xmlparse('meta',$content); |
my $allmeta=''; |
|
if ($source=~/\.problem$/) { |
|
$allmeta=Apache::lonhomework::subhandler('meta',$content); |
|
} else { |
|
$allmeta=Apache::lonxml::xmlparse('meta',$content); |
|
} |
|
|
# DEBUG: |
# DEBUG: |
|
|
Line 169 sub publish {
|
Line 175 sub publish {
|
|
|
# DEBUG: |
# DEBUG: |
|
|
$scrout=join('<br>',sort keys %keywords); |
$scrout.=join('<br>',sort keys %keywords); |
|
|
} |
} |
|
|