version 1.15, 2000/12/23 15:53:26
|
version 1.18, 2001/03/22 22:41:01
|
Line 15 use File::Copy;
|
Line 15 use File::Copy;
|
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::structuretags; |
use Apache::lonhomework; |
use Apache::inputtags; |
|
use Apache::response; |
|
|
|
my %addid; |
my %addid; |
my %nokey; |
my %nokey; |
Line 291 sub publish {
|
Line 289 sub publish {
|
# -------------------------------------------------- Parse content for metadata |
# -------------------------------------------------- Parse content for metadata |
|
|
my $allmeta=Apache::lonxml::xmlparse('meta',$content); |
my $allmeta=Apache::lonxml::xmlparse('meta',$content); |
&metaeval($allmeta); |
# &metaeval($allmeta); |
|
|
# ---------------- Find and document discrepancies in the parameters and stores |
# ---------------- Find and document discrepancies in the parameters and stores |
|
|
Line 790 ENDOPEN
|
Line 788 ENDOPEN
|
$i++; |
$i++; |
} |
} |
} |
} |
} |
|
closedir(DIR); |
closedir(DIR); |
$r->print('</script>'); |
$r->print('</script>'); |
|
|