version 1.142, 2003/11/01 17:38:58
|
version 1.143, 2003/11/04 16:15:56
|
Line 816 sub store_metadata {
|
Line 816 sub store_metadata {
|
|
|
sub parseformeta { |
sub parseformeta { |
my ($source,$style)=@_; |
my ($source,$style)=@_; |
|
my $allmeta=''; |
if (($style eq 'ssi') || ($style eq 'prv')) { |
if (($style eq 'ssi') || ($style eq 'prv')) { |
my $dir=$source; |
my $dir=$source; |
$dir=~s-/[^/]*$--; |
$dir=~s-/[^/]*$--; |
my $file=$source; |
my $file=$source; |
$file=(split('/',$file))[-1]; |
$file=(split('/',$file))[-1]; |
$source=&Apache::lonnet::hreflocation($dir,$file); |
$source=&Apache::lonnet::hreflocation($dir,$file); |
my $allmeta=&Apache::lonnet::ssi_body($source,('grade_target' => 'meta')); |
$allmeta=&Apache::lonnet::ssi_body($source,('grade_target' => 'meta')); |
&metaeval($allmeta); |
&metaeval($allmeta); |
} |
} |
|
return $allmeta; |
} |
} |
|
|
######################################### |
######################################### |
Line 1007 sub publish {
|
Line 1009 sub publish {
|
} |
} |
# ------------------------------------------ See if anything new in file itself |
# ------------------------------------------ See if anything new in file itself |
|
|
&parseformeta($source,$style); |
$allmeta=&parseformeta($source,$style); |
|
|
# ---------------- Find and document discrepancies in the parameters and stores |
# ---------------- Find and document discrepancies in the parameters and stores |
|
|