loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2001/02/08 21:47:44	version 1.15, 2001/09/21 19:56:45
Line 9	Line 9
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,	# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer)	# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer)
#	#
# 3/1/1,6/1,17/1,29/1,30/1,2/8 Gerd Kortemeyer	# 3/1/1,6/1,17/1,29/1,30/1,2/8,9/21 Gerd Kortemeyer

package Apache::lonnavmaps;	package Apache::lonnavmaps;

Line 153 sub astatus {	Line 153 sub astatus {
$rid=~/(\d+)\.(\d+)/;	$rid=~/(\d+)\.(\d+)/;
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.	my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.
&Apache::lonnet::declutter($hash{'src_'.$rid});	&Apache::lonnet::declutter($hash{'src_'.$rid});

	my %duedate=();
	my %opendate=();
	my %answerdate=();
	map {
	if ($_=~/^parameter\_(.*)\_opendate$/) {
	my $part=$1;
	$duedate{$part}=&parmval($part.'.duedate',$symb);
	$opendate{$part}=&parmval($part.'.opendate',$symb);
	$answerdate{$part}=&parmval($part.'.answerdate',$symb);
	}
	} sort split(/\,/,&Apache::lonnet::metadata($hash{'src_'.$rid},'keys'));

my $duedate=&parmval('0.duedate',$symb);	my $duedate=&parmval('0.duedate',$symb);
my $opendate=&parmval('0.opendate',$symb);	my $opendate=&parmval('0.opendate',$symb);
my $answerdate=&parmval('0.answerdate',$symb);	my $answerdate=&parmval('0.answerdate',$symb);