--- loncom/interface/lonnavmaps.pm 2005/10/07 17:57:39 1.343
+++ loncom/interface/lonnavmaps.pm 2005/11/10 19:19:26 1.347
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.343 2005/10/07 17:57:39 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.347 2005/11/10 19:19:26 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -602,8 +602,11 @@ sub advancedUser {
# print "Answer available $timestring"
# Very, very, very, VERY English-only... goodness help a localizer on
# this func...
+
+
sub timeToHumanString {
- my ($time,$type) = @_;
+ my ($time,$type,$format) = @_;
+
# zero, '0' and blank are bad times
if (!$time) {
return &mt('never');
@@ -674,14 +677,22 @@ sub timeToHumanString {
return "$prefix$hourString$minuteString$tense";
}
+ # If there's a caller supplied format, use it.
+
+ if($format ne '') {
+ my $timeStr = strftime($format, localtime($time));
+ return $timeStr.&Apache::lonlocal::gettimezone();
+ }
+
# Less then 5 days away, display day of the week and
# HH:MM
+
if ( $delta < $day * 5 ) {
my $timeStr = strftime("%A, %b %e at %I:%M %P", localtime($time));
$timeStr =~ s/12:00 am/00:00/;
$timeStr =~ s/12:00 pm/noon/;
return ($inPast ? "last " : "this ") .
- $timeStr;
+ $timeStr.&Apache::lonlocal::gettimezone();
}
my $conjunction='on';
@@ -696,14 +707,14 @@ sub timeToHumanString {
my $timeStr = strftime("$conjunction %A, %b %e at %I:%M %P", localtime($time));
$timeStr =~ s/12:00 am/00:00/;
$timeStr =~ s/12:00 pm/noon/;
- return $timeStr;
+ return $timeStr.&Apache::lonlocal::gettimezone();
}
# Not this year, so show the year
my $timeStr = strftime("$conjunction %A, %b %e %Y at %I:%M %P", localtime($time));
$timeStr =~ s/12:00 am/00:00/;
$timeStr =~ s/12:00 pm/noon/;
- return $timeStr;
+ return $timeStr.&Apache::lonlocal::gettimezone();
}
}
@@ -1158,7 +1169,7 @@ sub render_resource {
# Is this the current resource?
if (!$params->{'displayedHereMarker'} &&
$resource->symb() eq $params->{'here'} ) {
- $curMarkerBegin = '> ';
+ $curMarkerBegin = '>';
$curMarkerEnd = '<';
$params->{'displayedHereMarker'} = 1;
}
@@ -1847,10 +1858,6 @@ END
$args->{'multipart'} = $curRes->multipart();
if ($condenseParts) { # do the condensation
- if (!$curRes->opendate("0")) {
- @parts = ();
- $args->{'condensed'} = 1;
- }
if (!$args->{'condensed'}) {
# Decide whether to condense based on similarity
my $status = $curRes->status($parts[0]);