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.448 and 1.454

version 1.448, 2006/08/30 19:36:49	version 1.454, 2006/09/13 19:42:06
Line 257 of the element the selection from the se	Line 257 of the element the selection from the se
sub browser_and_searcher_javascript {	sub browser_and_searcher_javascript {
my ($mode)=@_;	my ($mode)=@_;
if (!defined($mode)) { $mode='edit'; }	if (!defined($mode)) { $mode='edit'; }
my $resurl=&lastresurl();	my $resurl=&escape_single(&lastresurl());
return <<END;	return <<END;
// <!-- BEGIN LON-CAPA Internal	// <!-- BEGIN LON-CAPA Internal
var editbrowser = null;	var editbrowser = null;
Line 729 sub update_help_link {	Line 729 sub update_help_link {
my $banner_link = "/adm/helpmenu?page=banner&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp&stayonpage=$stayOnPage";	my $banner_link = "/adm/helpmenu?page=banner&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp&stayonpage=$stayOnPage";
my $output .= <<"ENDOUTPUT";	my $output .= <<"ENDOUTPUT";
<script type="text/javascript">	<script type="text/javascript">
// <!-- BEGIN LON-CAPA Internal
banner_link = '$banner_link';	banner_link = '$banner_link';
// END LON-CAPA Internal -->
</script>	</script>
ENDOUTPUT	ENDOUTPUT
return $output;	return $output;
Line 2113 sub aboutmewrapper {	Line 2111 sub aboutmewrapper {
return;	return;
}	}
return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.	return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.
($target?' target="$target"':'').' title="'.&mt('View this users personal page').'">'.$link.'</a>';	($target?' target="$target"':'').' title="'.&mt("View this user's personal page").'">'.$link.'</a>';
}	}

# ------------------------------------------------------------ Syllabus Wrapper	# ------------------------------------------------------------ Syllabus Wrapper
Line 3371 table.LC_aboutme_port tr.LC_even_row td	Line 3369 table.LC_aboutme_port tr.LC_even_row td
table.LC_data_table tr.LC_data_table_highlight td {	table.LC_data_table tr.LC_data_table_highlight td {
background-color: $data_table_darker;	background-color: $data_table_darker;
}	}
table.LC_data_table tr.LC_empty_row td {	table.LC_data_table tr.LC_empty_row td,
	table.LC_whatsnew tr.LC_empty_row td {
background-color: #FFFFFF;	background-color: #FFFFFF;
font-weight: bold;	font-weight: bold;
font-style: italic;	font-style: italic;
Line 3379 table.LC_data_table tr.LC_empty_row td {	Line 3378 table.LC_data_table tr.LC_empty_row td {
padding: 8px;	padding: 8px;
}	}

	table.LC_whatsnew {
	}

	table.LC_whatsnew tr th,
	table.LC_whatsnew tr.LC_info_row td {
	background-color: #CCC;
	font-weight: bold;
	font-size: small;
	text-align: right;
	}
	table.LC_whatsnew tr td {
	background-color: #FFF;
	font-size: small;
	text-align: right;
	}
	table.LC_whatsnew tr td.LC_first_item {
	text-align: left;
	}

	table.LC_whatsnew tr.LC_odd_row td {
	background-color: #EEE;
	}

table.LC_calendar {	table.LC_calendar {
border: 1px solid #000000;	border: 1px solid #000000;
border-collapse: collapse;	border-collapse: collapse;
Line 3705 sub headtag {	Line 3727 sub headtag {
my $bgcolor = $args->{'bgcolor'} \|\| &designparm($function.'.pgbg',$domain);	my $bgcolor = $args->{'bgcolor'} \|\| &designparm($function.'.pgbg',$domain);
my $url = join(':',$env{'user.name'},$env{'user.domain'},	my $url = join(':',$env{'user.name'},$env{'user.domain'},
#time(),	#time(),
	$Apache::lonnet::perlvar{'lonVersion'},
$env{'environment.color.timestamp'},	$env{'environment.color.timestamp'},
$function,$domain,$bgcolor);	$function,$domain,$bgcolor);

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

Removed from v.1.448
changed lines
	Added in v.1.454