loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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