loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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);

}	}