loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2002/09/11 15:01:43	version 1.8, 2003/04/30 15:49:45
Line 31 package Apache::lonannounce;	Line 31 package Apache::lonannounce;
use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon;	use Apache::loncommon;
	use Apache::lonhtmlcommon();

sub readcalendar {	sub readcalendar {
my $courseid=shift;	my $courseid=shift;
Line 120 sub handler {	Line 121 sub handler {
'dlsav' => $todayhash{'dlsav'} ));	'dlsav' => $todayhash{'dlsav'} ));
my $weekday=$firstday{'weekday'};	my $weekday=$firstday{'weekday'};
# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
	my $pjump_function = &Apache::lonhtmlcommon::pjump_javascript_definition();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
<head>	<head>
Line 131 sub handler {	Line 133 sub handler {
parmwin.close();	parmwin.close();
}	}

function pjump(type,dis,value,marker,ret,call) {	$pjump_function
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)
+"&value="+escape(value)+"&marker="+escape(marker)
+"&return="+escape(ret)
+"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",
"height=350,width=350,scrollbars=no,menubar=no");

}

function dateset() {	function dateset() {
if (document.anno.pres_marker.value=='end') {	if (document.anno.pres_marker.value=='end') {