--- loncom/interface/loncommon.pm 2006/09/12 22:13:05 1.453 +++ loncom/interface/loncommon.pm 2006/09/19 19:03:22 1.456 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.453 2006/09/12 22:13:05 albertel Exp $ +# $Id: loncommon.pm,v 1.456 2006/09/19 19:03:22 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2111,7 +2111,7 @@ sub aboutmewrapper { return; } return ''.$link.''; + ($target?' target="$target"':'').' title="'.&mt("View this user's personal page").'">'.$link.''; } # ------------------------------------------------------------ Syllabus Wrapper @@ -3499,7 +3499,8 @@ table#LC_browser tr.LC_browser_file_unpu table#LC_browser tr.LC_browser_file_obsolete { background: #AAAAAA; } -table#LC_browser tr.LC_browser_file_modified { +table#LC_browser tr.LC_browser_file_modified, +table#LC_browser tr.LC_browser_file_metamodified { background: #FFFF77; } table#LC_browser tr.LC_browser_folder { @@ -5950,15 +5951,6 @@ sub lonhttpdurl { return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url; } -sub absolute_url { - my ($host_name) = @_; - my $protocol = ($ENV{'SERVER_PORT'} == 443?'https://':'http://'); - if ($host_name eq '') { - $host_name = $ENV{'SERVER_NAME'}; - } - return $protocol.$host_name; -} - sub connection_aborted { my ($r)=@_; $r->print(" ");$r->rflush();