version 1.347, 2005/11/10 19:19:26
|
version 1.349, 2005/11/17 11:32:30
|
Line 171 sub real_handler {
|
Line 171 sub real_handler {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
} |
} |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
|
|
|
my %toplinkitems=(); |
my %toplinkitems=(); |
&add_linkitem(\%toplinkitems,'blank','',"Select Action"); |
&add_linkitem(\%toplinkitems,'blank','',"Select Action"); |
Line 194 MENU
|
Line 193 MENU
|
$navstatus |
$navstatus |
MENU |
MENU |
} |
} |
|
$r->send_http_header; |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<"ENDSUBM"); |
$r->print(<<"ENDSUBM"); |
$html |
$html |
Line 209 MENU
|
Line 209 MENU
|
<body bgcolor="#FFFFFF" onLoad="submitthis()"></body> |
<body bgcolor="#FFFFFF" onLoad="submitthis()"></body> |
</html> |
</html> |
ENDSUBM |
ENDSUBM |
return; |
return OK; |
} |
} |
if ($ENV{QUERY_STRING} =~ /^launchExternal/) { |
if ($ENV{QUERY_STRING} =~ /^launchExternal/) { |
&Apache::lonnet::put('environment',{'remotenavmap' => 'on'}); |
&Apache::lonnet::put('environment',{'remotenavmap' => 'on'}); |
Line 238 MENU
|
Line 238 MENU
|
$env{'user.error.msg'} = "$requrl:bre:0:0:Course not initialized"; |
$env{'user.error.msg'} = "$requrl:bre:0:0:Course not initialized"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
|
$r->send_http_header; |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
$r->print("$html<head>\n"); |
$r->print("$html<head>\n"); |
$r->print("<title>".&mt('Navigate Course Contents')."</title>"); |
$r->print("<title>".&mt('Navigate Course Contents')."</title>"); |
Line 1064 sub render_resource {
|
Line 1065 sub render_resource {
|
# it will be quoted with ' in the href. |
# it will be quoted with ' in the href. |
|
|
my ($left,$right) = split(/\?/, $link); |
my ($left,$right) = split(/\?/, $link); |
$left =~ s/'/\\'/g; |
|
$link = $left.'?'.$right; |
$link = $left.'?'.$right; |
|
|
my $src = $resource->src(); |
my $src = $resource->src(); |
Line 1084 sub render_resource {
|
Line 1084 sub render_resource {
|
# links to open and close the folder |
# links to open and close the folder |
|
|
|
|
my $linkopen = "<a href='$link'>"; |
my $linkopen = "<a href=\"$link\">"; |
|
|
|
|
my $linkclose = "</a>"; |
my $linkclose = "</a>"; |
Line 1117 sub render_resource {
|
Line 1117 sub render_resource {
|
$icon = "<img src='$location/$icon' alt='". |
$icon = "<img src='$location/$icon' alt='". |
($nowOpen ? 'Open Folder' : 'Close Folder')."' border='0' />"; |
($nowOpen ? 'Open Folder' : 'Close Folder')."' border='0' />"; |
|
|
$linkopen = "<a href='" . $params->{'url'} . '?' . |
$linkopen = "<a href=\"" . $params->{'url'} . '?' . |
$params->{'queryString'} . '&filter='; |
$params->{'queryString'} . '&filter='; |
$linkopen .= ($nowOpen xor $it->{CONDITION}) ? |
$linkopen .= ($nowOpen xor $it->{CONDITION}) ? |
addToFilter($filter, $mapId) : |
addToFilter($filter, $mapId) : |
Line 1127 sub render_resource {
|
Line 1127 sub render_resource {
|
&Apache::lonnet::escape($params->{'here'}) . |
&Apache::lonnet::escape($params->{'here'}) . |
'&jump=' . |
'&jump=' . |
&Apache::lonnet::escape($resource->symb()) . |
&Apache::lonnet::escape($resource->symb()) . |
"&folderManip=1'>"; |
"&folderManip=1\">"; |
|
|
} else { |
} else { |
# Don't allow users to manipulate folder |
# Don't allow users to manipulate folder |
Line 1191 sub render_resource {
|
Line 1191 sub render_resource {
|
$target=' target="loncapaclient" '; |
$target=' target="loncapaclient" '; |
} |
} |
if (!$params->{'resource_nolink'} && !$resource->is_sequence() && !$resource->is_empty_sequence) { |
if (!$params->{'resource_nolink'} && !$resource->is_sequence() && !$resource->is_empty_sequence) { |
$result .= " $curMarkerBegin<a $target href='$link'>$title$partLabel</a>$curMarkerEnd $nonLinkedText</td>"; |
$result .= " $curMarkerBegin<a $target href=\"$link\">$title$partLabel</a>$curMarkerEnd $nonLinkedText</td>"; |
} else { |
} else { |
$result .= " $curMarkerBegin$title$partLabel$curMarkerEnd $nonLinkedText</td>"; |
$result .= " $curMarkerBegin$title$partLabel$curMarkerEnd $nonLinkedText</td>"; |
} |
} |
Line 1208 sub render_communication_status {
|
Line 1208 sub render_communication_status {
|
if ($env{'environment.remotenavmap'} eq 'on') { |
if ($env{'environment.remotenavmap'} eq 'on') { |
$target=' target="loncapaclient" '; |
$target=' target="loncapaclient" '; |
} |
} |
my $linkopen = "<a $target href='$link'>"; |
my $linkopen = "<a $target href=\"$link\">"; |
my $linkclose = "</a>"; |
my $linkclose = "</a>"; |
my $location=&Apache::loncommon::lonhttpdurl("/adm/lonMisc"); |
my $location=&Apache::loncommon::lonhttpdurl("/adm/lonMisc"); |
if ($resource->hasDiscussion()) { |
if ($resource->hasDiscussion()) { |
Line 1262 sub render_quick_status {
|
Line 1262 sub render_quick_status {
|
if ($env{'environment.remotenavmap'} eq 'on') { |
if ($env{'environment.remotenavmap'} eq 'on') { |
$target=' target="loncapaclient" '; |
$target=' target="loncapaclient" '; |
} |
} |
my $linkopen = "<a $target href='$link'>"; |
my $linkopen = "<a $target href=\"$link\">"; |
my $linkclose = "</a>"; |
my $linkclose = "</a>"; |
|
|
if ($resource->is_problem() && |
if ($resource->is_problem() && |