loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.44, 2005/11/09 12:05:56	version 1.46, 2006/01/17 17:47:24
Line 69 sub start_displayduedate {	Line 69 sub start_displayduedate {
my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval);	my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval);
my $format = &Apache::lonxml::get_param('format', $parstack, $safeeval);	my $format = &Apache::lonxml::get_param('format', $parstack, $safeeval);
if (!$format) {	if (!$format) {
$format = '%c';	$format = undef;
}	}
if (($status =~ /CAN.*_ANSWER/)) {	if (($status =~ /CAN.*_ANSWER/)) {
my $id = $Apache::inputtags::part;	my $id = $Apache::inputtags::part;
Line 169 sub end_displaytitle {	Line 169 sub end_displaytitle {
sub multipart {	sub multipart {
my ($uri)=@_;	my ($uri)=@_;
if (!defined($uri)) { $uri=$env{'request.uri'}; }	if (!defined($uri)) { $uri=$env{'request.uri'}; }
	my ($symb)=&Apache::lonxml::whichuser();

my @parts;	my @parts;
my $metadata = &Apache::lonnet::metadata($uri,'packages');	my $metadata = &Apache::lonnet::metadata($uri,'packages');
foreach (split(/\,/,$metadata)) {	foreach (split(/\,/,$metadata)) {
if ($_ =~ /^part_(.*)$/) {	if ($_ =~ /^part_(.*)$/) {
my $part = $1;	my $part = $1;
if ($part ne '0') { push(@parts,$part); }	if ($part ne '0'
	&& !&Apache::loncommon::check_if_partid_hidden($part,
	$symb)) {
	push(@parts,$part);
	}
}	}
}	}
return @parts;	return @parts;