--- loncom/interface/lonhtmlcommon.pm 2003/07/11 16:07:20 1.27 +++ loncom/interface/lonhtmlcommon.pm 2003/07/25 19:56:37 1.28 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.27 2003/07/11 16:07:20 matthew Exp $ +# $Id: lonhtmlcommon.pm,v 1.28 2003/07/25 19:56:37 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -734,7 +734,7 @@ sub Create_PrgWin { "". "

$heading

". "
". - "
". + ''. "\');". "popwin.document.close();". ""); @@ -793,6 +793,16 @@ sub Increment_PrgWin { } else { $lasttime = '('.$lasttime.' seconds for '.$extraInfo.')'; } + # + my $user_browser = $ENV{'browser.type'} if (exists($ENV{'browser.type'})); + my $user_os = $ENV{'browser.os'} if (exists($ENV{'browser.os'})); + if (! defined($user_browser) || ! defined($user_os)) { + (undef,$user_browser,undef,undef,undef,$user_os) = + &Apache::loncommon::decode_user_agent(); + } + if ($user_browser eq 'explorer' && $user_os =~ 'mac') { + $lasttime = ''; + } $r->print('');