version 1.452, 2006/09/12 19:03:15
|
version 1.456, 2006/09/19 19:03:22
|
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 2111 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 3499 table#LC_browser tr.LC_browser_file_unpu
|
Line 3499 table#LC_browser tr.LC_browser_file_unpu
|
table#LC_browser tr.LC_browser_file_obsolete { |
table#LC_browser tr.LC_browser_file_obsolete { |
background: #AAAAAA; |
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; |
background: #FFFF77; |
} |
} |
table#LC_browser tr.LC_browser_folder { |
table#LC_browser tr.LC_browser_folder { |
Line 5950 sub lonhttpdurl {
|
Line 5951 sub lonhttpdurl {
|
return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url; |
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 { |
sub connection_aborted { |
my ($r)=@_; |
my ($r)=@_; |
$r->print(" ");$r->rflush(); |
$r->print(" ");$r->rflush(); |