loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.18 and 1.21

version 1.18, 2002/05/14 23:17:06	version 1.21, 2002/05/27 00:24:05
Line 31	Line 31
# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei	# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei
# YEAR=2002	# YEAR=2002
# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei	# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei
# 5/12, 5/14 Behrouz Minaei	# 5/12,5/14,5/15,5/19,5/26 Behrouz Minaei
#	#
###	###

Line 86 my %Header = (0,"Homework Sets Order",1,	Line 86 my %Header = (0,"Homework Sets Order",1,
9,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd");	9,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd");
my %Answer = ();	my %Answer = ();


	sub unescape {
	my $str=shift;
	$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	return $str;
	}

	sub Activity {
	my $file="/home/minaeibi/minaei";
	my $userid='billskat';
	$r->print("<br>Using $file");
	$r->rflush();
	open(FILEID, "<$file");
	my $line;
	my @allaccess;
	while ($line=<FILEID>) {
	my ($time,$machine,$what)=split(':',$line);
	#$r->print("time=$time machine=$machine:-> $what\n");
	#$r->rflush();
	$what=&unescape($what);
	my @accesses=split('&',$what);
	foreach my $access (@accesses) {
	my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access);
	if ($who ne $userid) { next; }
	#if (!$resource) { next; }
	push (@allaccess,unescape($access));
	#print $machine;
	}
	}
	@allaccess=sort(@allaccess);
	my $Count=0;
	foreach my $access (@allaccess) {
	my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access);
	$Count++;
	# $r->print("$Count ".localtime($date)." $who $resource\n");
	$r->print("<br>$Count) $date: $who --> $resource");
	$r->rflush();
	if ($post) {
	$r->print("<br><b>Sent data ".join(':',unescape(@posts)).'</b>');
	}
	}
	}



sub InitAnalysis {	sub InitAnalysis {
my ($rid, $student)=@_;	my ($rid, $student)=@_;
my ($uname,$udom)=split(/\:/,$student);	my ($uname,$udom)=split(/\:/,$student);
Line 119 sub InitAnalysis {	Line 164 sub InitAnalysis {
foreach my $concept (@{$Answer{"$parts.concepts"}}) {	foreach my $concept (@{$Answer{"$parts.concepts"}}) {
foreach my $foil (@{$Answer{"$parts.concept.$concept"}}) {	foreach my $foil (@{$Answer{"$parts.concept.$concept"}}) {
$foil_to_concept{$foil} = $concept;	$foil_to_concept{$foil} = $concept;
	#$ConceptData{$foil} = $Answer{"$parts.foil.value.$foil"};
}	}
}	}
return $symb;	return $symb;
Line 150 sub ShowOpGraph {	Line 196 sub ShowOpGraph {
my ($InpStr, $Int_No)=@_;	my ($InpStr, $Int_No)=@_;
my ($rid,$part)=split(/\:/,substr($InpStr,8));	my ($rid,$part)=split(/\:/,substr($InpStr,8));
$ConceptData{"Interval"}=$Int_No;	$ConceptData{"Interval"}=$Int_No;
	#Initialize the option response true answers
my $symb=&InitAnalysis($rid,$students[0]);	my $symb=&InitAnalysis($rid,$students[0]);
	#compute the intervals
&Interval($rid,$part,$symb);	&Interval($rid,$part,$symb);
my $URI = $hash{'src_'.$rid};	my $URI = $hash{'src_'.$rid};
my $Src = $hash{'title_'.$rid};	my $Src = $hash{'title_'.$rid};
Line 158 sub ShowOpGraph {	Line 206 sub ShowOpGraph {
$r->print('<br><b>'.$URI.'</b>');	$r->print('<br><b>'.$URI.'</b>');
$r->rflush();	$r->rflush();

	#Java script Progress window
&Create_PrgWin();	&Create_PrgWin();
&Update_PrgWin("Starting to analyze problem");	&Update_PrgWin("Starting to analyze problem");
for (my $index=0;$index<=$#students;$index++) {	for (my $index=0;$index<=$#students;$index++) {
Line 166 sub ShowOpGraph {	Line 215 sub ShowOpGraph {
}	}
&Close_PrgWin();	&Close_PrgWin();

	$r->print('<br>');
for (my $k=0; $k<$Int_No; $k++ ) {	for (my $k=0; $k<$Int_No; $k++ ) {
&DrawGraph($k,$Src);	&DrawGraph($k,$Src);
}	}
	for (my $k=0; $k<$Int_No; $k++ ) {
	&DrawTable($k);
	}
#$Apache::lonxml::debug=1;	#$Apache::lonxml::debug=1;
#&Apache::lonhomework::showhash(%ConceptData);	#&Apache::lonhomework::showhash(%ConceptData);
#$Apache::lonxml::debug=0;	#$Apache::lonxml::debug=0;
Line 177 sub ShowOpGraph {	Line 230 sub ShowOpGraph {
}	}


sub DrawGraph {	sub DrawTable {
my ($k,$Src)=@_;	my $k=shift;
my $Max=0;	my $Max=0;
my @data1;	my @data1;
my @data2;	my @data2;
my $Correct=0;	my $Correct=0;
my $Wrong=0;	my $Wrong=0;
# Adjust Data and find the Max
for (my $n=0; $n<=$#Concepts; $n++ ) {	for (my $n=0; $n<=$#Concepts; $n++ ) {
my $tmp=$Concepts[$n];	my $tmp=$Concepts[$n];
$data1[$n]=$ConceptData{"$tmp.$k.true"};	$data1[$n]=$ConceptData{"$tmp.$k.true"};
Line 218 sub DrawGraph {	Line 270 sub DrawGraph {
"\n"."<td bgcolor=#FFDDDD> ".$data2[$n]." </td>".	"\n"."<td bgcolor=#FFDDDD> ".$data2[$n]." </td>".
"\n"."</tr>";	"\n"."</tr>";
}	}
$Str.='<td></td><td><b>From:['.localtime($ConceptData{'Int.'.($k-1)}).	$Str.='<td></td><td><b>From:['.localtime($ConceptData{'Int.'.$k}).
'] To: ['.localtime($ConceptData{"Int.$k"}).	'] To: ['.localtime($ConceptData{'Int.'.($k+1)}-1).
"]</b></td><td>$Correct</td><td>$Wrong</td>";	"]</b></td><td>$Correct</td><td>$Wrong</td>";

$Str .= "\n".'</table>';	$Str .= "\n".'</table>';

$r->print($Str);	$r->print($Str);
	#$Apache::lonxml::debug=1;
	#&Apache::lonhomework::showhash(%ConceptData);
	#$Apache::lonxml::debug=0;
	}

if ( $Max > 1 ) {
$Max += (10 - $Max % 10);	sub DrawGraph {
$Max = int($Max);	my ($k,$Src)=@_;
} else { $Max = 1; }	my $Max=0;
	my @data1;
	my @data2;

	# Adjust Data and find the Max
	for (my $n=0; $n<=$#Concepts; $n++ ) {
	my $tmp=$Concepts[$n];
	$data1[$n]=$ConceptData{"$tmp.$k.true"};
	$data2[$n]=$ConceptData{"$tmp.$k.false"};
	my $Sum=$data1[$n]+$data2[$n];
	if ( $Max<$Sum ) {$Max=$Sum;}
	}
	for (my $n=0; $n<=$#Concepts; $n++ ) {
	if ($data1[$n]+$data2[$n]<$Max) {
	$data2[$n]+=$Max-($data1[$n]+$data2[$n]);
	}
	}
	my $P_No = $#data1+1;

if ( $Max > 1 ) {	if ( $Max > 1 ) {
$Max += (10 - $Max % 10);	$Max += (10 - $Max % 10);
$Max = int($Max);	$Max = int($Max);
} else { $Max = 1; }	} else { $Max = 1; }
my $Titr=($ConceptData{'Interval'}>1) ? $Src.'_interval_'.$k : $Src;

	my $Titr=($ConceptData{'Interval'}>1) ? $Src.'_interval_'.($k+1) : $Src;
# $GData=$Titr.'&Concepts'.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2;	# $GData=$Titr.'&Concepts'.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2;
$GData="$Titr&Concepts&Answers&$Max&$P_No&".	$GData="$Titr&Concepts&Answers&$Max&$P_No&".
(join(',',@data1)).'&'.(join(',',@data2));	(join(',',@data1)).'&'.(join(',',@data2));

$r->print('<br><IMG src="/cgi-bin/graph.gif?'.$GData.'" />');	$r->print('<IMG src="/cgi-bin/graph.gif?'.$GData.'" border=1/>');
}	}


sub AnalyzeProblem {	sub AnalyzeProblem {
# -------------------------------- Selecting the number of intervals	# selecting the number of intervals
my $OpSel='';	my $OpSel='';
my $CurInt = $ENV{'form.interval'};	my $CurInt = $ENV{'form.interval'};
if ($CurInt eq '') {$CurMap = '1';}	if ($CurInt eq '') {$CurMap = '1';}
my $Ptr = '<b>Select number of intervals</b>'."\n".	my $Ptr = '<br><b>Select number of intervals</b>'."\n".
'<select name="interval">'."\n";	'<select name="interval">'."\n";
for (my $n=1;$n<=7;$n++) {	for (my $n=1;$n<=7;$n++) {
$Ptr .= '<option';	$Ptr .= '<option';
Line 259 sub AnalyzeProblem {	Line 334 sub AnalyzeProblem {
$Ptr .= '</select>'."\n";	$Ptr .= '</select>'."\n";
$r->print( $Ptr );	$r->print( $Ptr );

	#the table of option response problems
$r->print('<br><b> Option Response Problems in this course:</b><br><br>');	$r->print('<br><b> Option Response Problems in this course:</b><br><br>');
my $Str = "\n".'<table border=2>'.	my $Str = "\n".'<table border=2>'.
"\n".'<tr>'.	"\n".'<tr>'.
"\n".'<th> # </th>'.	"\n".'<th> # </th>'.
"\n".'<th> Problem Title </th>'.	"\n".'<th> Problem Title </th>'.
"\n".'<th> Resouse </th>'.	"\n".'<th> Resource </th>'.
"\n".'<th> Address </th>'.	"\n".'<th> Address </th>'.
"\n".'</tr>';	"\n".'</tr>';

Line 289 sub AnalyzeProblem {	Line 365 sub AnalyzeProblem {


sub Decide {	sub Decide {
	#deciding the true or false answer belongs to each interval
my ($type,$foil,$time)=@_;	my ($type,$foil,$time)=@_;
my $k=0;	my $k=0;
while ($time>$ConceptData{'Int.'.($k+1)} &&	while ($time>$ConceptData{'Int.'.($k+1)} &&
Line 297 sub Decide {	Line 374 sub Decide {
}	}


	#restore the student submissions and finding the result
sub OpStatus {	sub OpStatus {
my ($rid,$student)=@_;	my ($rid,$student)=@_;
my ($uname,$udom)=split(/\:/,$student);	my ($uname,$udom)=split(/\:/,$student);
Line 538 sub StudentReport {	Line 616 sub StudentReport {

sub CreateTable {	sub CreateTable {
my ($Hd, $Hid)=@_;	my ($Hd, $Hid)=@_;
if ($ENV{'form.showcsv'}) {	if ($ENV{'form.showcsv'}) {
if ( $Hd == 1 ) {	if ( $Hd == 1 ) {
$r->print('<br>"'.$hash{'title_'.$Hid}.'","'.$hash{'src_'.$Hid}.'"');	$r->print('<br>"'.$hash{'title_'.$Hid}.'","'.$hash{'src_'.$Hid}.'"');
}	}
Line 573 sub CloseTable {	Line 651 sub CloseTable {

# ------------------------------------------- Prepare Statistics Table	# ------------------------------------------- Prepare Statistics Table
sub PreStatTable {	sub PreStatTable {

my $CacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".	my $CacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
"_$ENV{'user.domain'}_$cid\_statistics.db";	"_$ENV{'user.domain'}_$cid\_statistics.db";
my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".	my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
Line 605 sub PreStatTable {	Line 684 sub PreStatTable {
$Ptr .= '<pre>'.	$Ptr .= '<pre>'.
'<b> #Stdnts</b>: Total Number of Students opened the problem.<br>'.	'<b> #Stdnts</b>: Total Number of Students opened the problem.<br>'.
'<b> Tries </b>: Total Number of Tries for solving the problem.<br>'.	'<b> Tries </b>: Total Number of Tries for solving the problem.<br>'.
'<b> Max </b> : Maximunm Number of Tries for solving the problem.<br>'.	'<b> Mod </b>: Maximunm Number of Tries for solving the problem.<br>'.
'<b> Avg. </b>: Average Number of the tries. [ Tries / #Stdnts ]<br>'.	'<b> Mean </b>: Average Number of the tries. [ Tries / #Stdnts ]<br>'.
'<b> #YES </b>: Number of students solved the problem correctly.<br>'.	'<b> #YES </b>: Number of students solved the problem correctly.<br>'.
'<b> #yes </b>: Number of students solved the problem by override.<br>'.	'<b> #yes </b>: Number of students solved the problem by override.<br>'.
'<b> %Wrng </b>: Percentage of students tried to solve the problem but'.	'<b> %Wrng </b>: Percentage of students tried to solve the problem but'.
Line 614 sub PreStatTable {	Line 693 sub PreStatTable {
# ' DoDiff : Degree of Difficulty of the problem. [ Tries/(#YES+#yes+0.1) ]<br>'. Kashy formula	# ' DoDiff : Degree of Difficulty of the problem. [ Tries/(#YES+#yes+0.1) ]<br>'. Kashy formula
'<b> DoDiff </b>: Degree of Difficulty of the problem. [ 1 - ((#YES+#yes) / Tries) ]<br>'. #Gerd formula	'<b> DoDiff </b>: Degree of Difficulty of the problem. [ 1 - ((#YES+#yes) / Tries) ]<br>'. #Gerd formula
'<b> S.D. </b> : Standard Deviation of the tries.'.	'<b> S.D. </b> : Standard Deviation of the tries.'.
'[ sqrt(sum((Xi - Avg.)^2)) / (#Stdnts-1)'.	'[ sqrt(sum((Xi - Mean)^2)) / (#Stdnts-1)'.
' where Xi denotes every student\'s tries ]<br>'.	' where Xi denotes every student\'s tries ]<br>'.
'<b> Skew. </b>: Skewness of the students tries.'.	'<b> Skew. </b>: Skewness of the students tries.'.
' [ (sqrt( sum((Xi - Avg.)^3) / #Stdnts)) / (S.D.^3) ]<br>'.	' [ (sqrt( sum((Xi - Mean)^3) / #Stdnts)) / (S.D.^3) ]<br>'.
'<b> Dis.F. </b>: Discrimination Factor: A Standard for '.	'<b> Dis.F. </b>: Discrimination Factor: A Standard for '.
'evaluating the problem according to a Criterion<br>'.	'evaluating the problem according to a Criterion<br>'.
'<b> [Applied Criterion in %27 Upper Students - '.	'<b> [Applied Criterion in %27 Upper Students - '.
Line 848 sub ExtractStudentData {	Line 927 sub ExtractStudentData {
}	}



# ------------------------------------------------------------ Build page table	# ------------------------------------------------------------ Build page table
sub tracetable {	sub tracetable {
my ($rid,$beenhere)=@_;	my ($rid,$beenhere)=@_;
Line 995 sub Build_Statistics {	Line 1075 sub Build_Statistics {

@list = sort (@list);	@list = sort (@list);


&Discriminant();	&Discriminant();

$OpSel2='';	$OpSel2='';
Line 1135 sub Cache_Statistics {	Line 1214 sub Cache_Statistics {
my @list = ();	my @list = ();
my $Useful;	my $Useful;
my $UnUseful;	my $UnUseful;
	# $r->print('<input type="hidden" name="show" value="excel" />'."\n");
my %myHeader = reverse( %Header );	my %myHeader = reverse( %Header );
$Pos = $myHeader{$ENV{'form.sort'}};	$Pos = $myHeader{$ENV{'form.sort'}};
if ($Pos > 0) {$Pos++;}	if ($Pos > 0) {$Pos++;}
Line 1295 sub initial {	Line 1375 sub initial {
$HWN=$P_Order;	$HWN=$P_Order;
}	}

	# my $CacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
	# "_$ENV{'user.domain'}_$cid\_classlist.db";
	# if (-e "$CacheDB") {
	# if (tie(%students,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) {
	# &CachClassList();
	# }
	# else {
	# $r->print("Unable to tie hash to db file");
	# }
	# }
	# else {
	# if (tie(%students,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) {
	# &MakeClassList();
	# }
	# else {
	# $r->print("Unable to tie hash to db file");
	# }
	# }
	# untie(%students);


sub ClassList {	sub ClassList {

Line 1307 sub ClassList {	Line 1407 sub ClassList {
$firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}};	$firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}};
$lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}};	$lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}};
if (($firstres) && ($lastres)) {	if (($firstres) && ($lastres)) {
#my %result = &Apache::lonnet::dump('classlist',$sdom,$sname);	# my %students = &Apache::lonnet::dump('classlist',$cdom,$cnum);
	# $Apache::lonxml::debug=1;
	# &Apache::lonhomework::showhash(%students);
	# $Apache::lonxml::debug=0;
	# my $StudNo = 0;
	# my $now=time;
	# my ($temp)=keys(%students);
	# unless ($temp=~/^error\:/) {
	# foreach my $KeyPoint(sort keys(%students)) {


my $classlst=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.':classlist',$chome);	my $classlst=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.':classlist',$chome);

my $StudNo = 0;	my $StudNo = 0;
my $now=time;	my $now=time;
unless ($classlst=~/^error\:/) {	unless ($classlst=~/^error\:/) {
foreach (sort split(/\&/,$classlst)) {	foreach my $KeyPoint(sort split(/\&/,$classlst)) {
my ($name,$value)=split(/\=/,$_);	my ($name,$value)=split(/\=/,$KeyPoint);
my ($end,$start)=split(/\:/,&Apache::lonnet::unescape($value));	my ($end,$start)=split(/\:/,&Apache::lonnet::unescape($value));
$name=&Apache::lonnet::unescape($name);
my ($sname,$sdom)=split(/\:/,$name);
my $active=1;	my $active=1;
my $Status=$ENV{'form.status'};	my $Status=$ENV{'form.status'};
$Status = ($Status) ? $Status : 'Active';	$Status = ($Status) ? $Status : 'Active';
if ( ( ($end) && $now > $end ) &&	if ( ( ($end) && $now > $end ) &&
( ($Status eq 'Active') ) ) { $active=0; }	( ($Status eq 'Active') ) ) { $active=0; }

if ( ($Status eq 'Expired') &&	if ( ($Status eq 'Expired') &&
($end == 0 \|\| $now < $end) ) { $active=0; }	($end == 0 \|\| $now < $end) ) { $active=0; }

if ($active) {	if ($active) {
my $thisindex=$#students+1;	my $thisindex=$#students+1;
$name=&Apache::lonnet::unescape($name);	$name=&Apache::lonnet::unescape($name);
$students[$thisindex]=$name;	$students[$thisindex]=$name;
my ($sname,$sdom)=split(/\:/,$name);	my ($sname,$sdom)=split(/\:/,$name);
#my %reply=&Apache::lonnet::idrget($sdom,$sname);
#my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname.
# ':environment:lastname&generation&firstname&middlename',
# &Apache::lonnet::homeserver($sname,$sdom));
my $ssec=&usection($sdom,$sname,$cid,$Status);	my $ssec=&usection($sdom,$sname,$cid,$Status);
# if ($ssec==-1 ) {next;}
if ($ssec==-1 \|\| $ssec eq 'adm' ) {next;}	if ($ssec==-1 \|\| $ssec eq 'adm' ) {next;}
$ssec=($ssec) ? $ssec : '(none)';	$ssec=($ssec) ? $ssec : '(none)';
#$ssec=(int($ssec)) ? int($ssec) : $ssec;	#$ssec=(int($ssec)) ? int($ssec) : $ssec;
Line 1387 sub Title {	Line 1493 sub Title {
$r->rflush();	$r->rflush();
}	}


sub CreateForm {	sub CreateForm {
$r->print("\n".'<form name=stat method=post action="/adm/statistics" >');	$r->print("\n".'<form name=stat method=post action="/adm/statistics" >');
my $content = $ENV{'form.sort'};	my $content = $ENV{'form.sort'};
if (!($ENV{'form.showcsv'}) && ($content eq '' \|\| $content eq 'Return to Menu')) {	if (!($ENV{'form.showcsv'}) &&
	($content eq '' \|\| $content eq 'Return to Menu')) {
my $Ptr = '<h3>';	my $Ptr = '<h3>';
$Ptr .= '<input type=submit name=sort value="Problem Stats"/>';	$Ptr .= '<input type=submit name=sort value="Problem Stats"/>';
$Ptr .= '<br><br>';	$Ptr .= '<br><br>';
Line 1398 sub CreateForm {	Line 1506 sub CreateForm {
$Ptr .= '<br><br>';	$Ptr .= '<br><br>';
$Ptr .= '<input type=submit name=sort value="Student Assessment"/>';	$Ptr .= '<input type=submit name=sort value="Student Assessment"/>';
$Ptr .= '</h3>';	$Ptr .= '</h3>';
	#$Ptr .= '<input type=submit name=sort value="Activity Log"/>';
	#$Ptr .= '</h3>';
$r->print( $Ptr );	$r->print( $Ptr );
}	}
else {	else {
	&ClassList();
if ( $content eq 'Student Assessment' \|\|	if ( $content eq 'Student Assessment' \|\|
$content eq 'Create Student Report' ) {	$content eq 'Create Student Report' ) {
&MapSecOptions();	&MapSecOptions();
Line 1420 sub CreateForm {	Line 1531 sub CreateForm {

sub Menu {	sub Menu {
&initial();	&initial();
#$Apache::lonxml::debug=1;	# $Apache::lonxml::debug=1;
#&Apache::lonhomework::showhash(%ENV);	# &Apache::lonhomework::showhash(%ENV);
#$Apache::lonxml::debug=0;	# $Apache::lonxml::debug=0;
&Title();	&Title();
&ClassList();
my $InpStr = $ENV{'form.sort'};	my $InpStr = $ENV{'form.sort'};
if ($InpStr=~/^Analyze\_/) {	if ($InpStr eq 'Activity Log') {
	&Activity();
	}
	elsif ($InpStr=~/^Analyze\_/) {
	&ClassList();
&ShowOpGraph($InpStr,$ENV{'form.interval'});	&ShowOpGraph($InpStr,$ENV{'form.interval'});
}	}
elsif ( $InpStr eq 'DoDiff Graph' \|\| $InpStr eq '%Wrong Graph' ) {	elsif ( $InpStr eq 'DoDiff Graph' \|\| $InpStr eq '%Wrong Graph' ) {
Line 1442 sub Menu {	Line 1556 sub Menu {
$r->rflush();	$r->rflush();
}	}


sub StudentOptions {	sub StudentOptions {
my $OpSel5='';	my $OpSel5='';
$CurStu = $ENV{'form.student'};	$CurStu = $ENV{'form.student'};
Line 1497 sub GetStatus {	Line 1612 sub GetStatus {

sub MapSecOptions {	sub MapSecOptions {
# ----------------------------------- Loading the Maps Combobox	# ----------------------------------- Loading the Maps Combobox
my $Ptr = '';	my $Ptr = '<br>';
$Ptr .= '<input type="submit" name="sort" value="Return to Menu" />';	$Ptr .= '<input type="submit" name="sort" value="Return to Menu" />';
$Ptr .= '<br><b> Select   Map     </b>'."\n".	$Ptr .= '<br><b> Select   Map     </b>'."\n".
'<select name="maps">'."\n".	'<select name="maps">'."\n".

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.18
changed lines
	Added in v.1.21