loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.68, 2002/09/14 21:01:38	version 1.70, 2002/10/18 13:49:49
Line 1013 sub messagewrapper {	Line 1013 sub messagewrapper {
# ------------------------------------------------------------- Aboutme Wrapper	# ------------------------------------------------------------- Aboutme Wrapper

sub aboutmewrapper {	sub aboutmewrapper {
my ($link,$un,$do)=@_;	my ($link,$username,$domain)=@_;
return "<a href='/adm/$do/$un/aboutme'>$link</a>";	return "<a href='/adm/$domain/$username/aboutme'>$link</a>";
}	}

# ------------------------------------------------------------ Syllabus Wrapper	# ------------------------------------------------------------ Syllabus Wrapper
Line 1222 sub maketime {	Line 1222 sub maketime {
}	}


	#########################################
	#
	# Retro-fixing of un-backward-compatible time format

	sub unsqltime {
	my $timestamp=shift;
	if ($timestamp=~/^(\d+)\-(\d+)\-(\d+)\s+(\d+)\:(\d+)\:(\d+)$/) {
	$timestamp=&maketime(
	'year'=>$1,'month'=>$2,'day'=>$3,
	'hours'=>$4,'minutes'=>$5,'seconds'=>$6);
	}
	return $timestamp;
	}

	#########################################

sub findallcourses {	sub findallcourses {
my %courses=();	my %courses=();
my $now=time;	my $now=time;