--- loncom/interface/lonnavmaps.pm 2001/09/24 19:16:51 1.16
+++ loncom/interface/lonnavmaps.pm 2001/10/31 17:44:42 1.19
@@ -9,13 +9,14 @@
# 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)
#
-# 3/1/1,6/1,17/1,29/1,30/1,2/8,9/21,9/24 Gerd Kortemeyer
+# 3/1/1,6/1,17/1,29/1,30/1,2/8,9/21,9/24,9/25 Gerd Kortemeyer
package Apache::lonnavmaps;
use strict;
use Apache::Constants qw(:common :http);
use Apache::lonnet();
+use Apache::loncommon();
use HTML::TokeParser;
use GDBM_File;
@@ -211,7 +212,8 @@ sub astatus {
} elsif ($status eq 'incorrect_attempted') {
$code=2;
$ctext.=' ('.
- $returnhash{'resource.'.$_.'.tries'}.'/'.
+ ($returnhash{'resource.'.$_.'.tries'}?
+ $returnhash{'resource.'.$_.'.tries'}:'0').'/'.
&parmval($_.'.maxtries',$symb).' tries)';
} elsif ($status eq 'incorrect_by_override') {
$code=2;
@@ -221,7 +223,7 @@ sub astatus {
$ctext.=' excused';
}
- } keys %opendate;
+ } sort keys %opendate;
return 'p'.$code.$tcode.'"'.$ctext.'"';
}
@@ -442,10 +444,11 @@ sub handler {
# ---------------------------------------------------------------- Send headers
$r->content_type('text/html');
+ &Apache::loncommon::no_cache($r);
$r->send_http_header;
+ my $date=localtime;
$r->print(
- 'Navigate LON-CAPA Maps');
-
+ 'Navigate LON-CAPA Maps');
$r->print('