--- loncom/interface/lonhtmlcommon.pm 2003/07/11 16:07:20 1.27 +++ loncom/interface/lonhtmlcommon.pm 2003/09/03 01:53:46 1.29 @@ -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.29 2003/09/03 01:53:46 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -181,6 +181,16 @@ sub date_setter { document.$formname.$dname\_day.value = 30; } } + + function $dname\_opencalendar() { + var calwin=window.open( +"/adm/announcements?pickdate=yes&formname=$formname&element=$dname&month="+ +document.$formname.$dname\_month.value+"&year="+ +document.$formname.$dname\_year.value, + "LONCAPAcal", + "height=350,width=350,scrollbars=yes,resizable=yes,menubar=no"); + + } ENDJS $result .= " s\n"; - $result .= "\n\n"; + $result .= "Select Date\n\n"; return $result; } @@ -734,7 +744,7 @@ sub Create_PrgWin { "". "

$heading

". "
". - "
". + ''. "\');". "popwin.document.close();". ""); @@ -793,6 +803,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('');