loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.67 and 1.71

version 1.67, 2002/09/13 20:46:09	version 1.71, 2002/10/29 20:57:31
Line 981 sub nickname {	Line 981 sub nickname {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
my %names=&Apache::lonnet::get('environment',	my %names=&Apache::lonnet::get('environment',
['nickname','firstname','middlename','lastname','generation'],$udom,$uname);	['nickname','firstname','middlename','lastname','generation'],$udom,$uname);
my $name=&Apache::lonnet::unescape($names{'nickname'});	my $name=$names{'nickname'};
if ($name) {	if ($name) {
$name='"'.$name.'"';	$name='"'.$name.'"';
} else {	} else {
Line 1000 sub screenname {	Line 1000 sub screenname {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
my %names=	my %names=
&Apache::lonnet::get('environment',['screenname'],$udom,$uname);	&Apache::lonnet::get('environment',['screenname'],$udom,$uname);
return &Apache::lonnet::unescape($names{'screenname'});	return $names{'screenname'};
}	}

# ------------------------------------------------------------- Message Wrapper	# ------------------------------------------------------------- Message Wrapper
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;
Line 1283 sub domainlogo {	Line 1299 sub domainlogo {
my $domain = &determinedomain(shift);	my $domain = &determinedomain(shift);
# See if there is a logo	# See if there is a logo
if (-e '/home/httpd/html/adm/lonDomLogos/'.$domain.'.gif') {	if (-e '/home/httpd/html/adm/lonDomLogos/'.$domain.'.gif') {
return '<img src="/adm/lonDomLogos/'.$domain.'.gif" />';	return '<img src="http://'.$ENV{'HTTP_HOST'}.':8080/adm/lonDomLogos/'.
	$domain.'.gif" />';
} elsif(exists($Apache::lonnet::domaindescription{$domain})) {	} elsif(exists($Apache::lonnet::domaindescription{$domain})) {
return $Apache::lonnet::domaindescription{$domain};	return $Apache::lonnet::domaindescription{$domain};
} else {	} else {
Line 1387 END	Line 1404 END
$bodytag	$bodytag
<table width="100%" cellspacing="0" border="0" cellpadding="0">	<table width="100%" cellspacing="0" border="0" cellpadding="0">
<tr><td bgcolor="$font">	<tr><td bgcolor="$font">
<img src="$img" /></td>	<img src="http://$ENV{'HTTP_HOST'}:8080/$img" /></td>
<td bgcolor="$font"><font color='$sidebg'>$messages</font></td>	<td bgcolor="$font"><font color='$sidebg'>$messages</font></td>
</tr>	</tr>
<tr>	<tr>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.67
changed lines
	Added in v.1.71