version 1.176, 2006/04/21 20:45:42
|
version 1.188, 2006/06/29 18:43:33
|
Line 44 use Apache::lonhtmlcommon();
|
Line 44 use Apache::lonhtmlcommon();
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonenc(); |
use Apache::lonenc(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
use vars qw(@desklines $readdesk); |
use vars qw(@desklines $readdesk); |
|
|
Line 61 sub initlittle {
|
Line 63 sub initlittle {
|
'docs' => 'Course Documents', |
'docs' => 'Course Documents', |
'exit' => 'Exit', |
'exit' => 'Exit', |
'launch' => 'Launch Remote Control', |
'launch' => 'Launch Remote Control', |
'groups' => 'Groups'); |
'groups' => 'Groups', |
|
'gdoc' => 'Group Documents', |
|
'teams' => 'Teams', |
|
); |
} |
} |
|
|
sub get_colors { |
|
my ($font,$pgbg,$tabbg); |
|
if ($env{'browser.interface'} eq 'textual') { |
|
$pgbg='#FFFFFF'; |
|
$tabbg='#FFFFFF'; |
|
$font='#000000'; |
|
} else { |
|
my $domain =&Apache::loncommon::determinedomain(); |
|
my $function =&Apache::loncommon::get_users_function(); |
|
|
|
$pgbg =&Apache::loncommon::designparm($function.'.pgbg', $domain); |
|
$tabbg =&Apache::loncommon::designparm($function.'.tabbg',$domain); |
|
$font =&Apache::loncommon::designparm($function.'.font', $domain); |
|
} |
|
return ($font,$pgbg,$tabbg); |
|
} |
|
# ============================= This gets called at the top of the body section |
# ============================= This gets called at the top of the body section |
|
|
sub menubuttons { |
sub menubuttons { |
Line 99 sub menubuttons {
|
Line 88 sub menubuttons {
|
my $docs=''; |
my $docs=''; |
my $groups=''; |
my $groups=''; |
my $showgroups=0; |
my $showgroups=0; |
my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'})); |
my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'})); |
my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); |
my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); |
|
|
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { |
if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { |
my $returnurl = $env{'request.filename'}; |
my $returnurl = $env{'request.filename'}; |
$returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:; |
$returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:; |
$escurl = &Apache::lonnet::escape($returnurl); |
$escurl = &escape($returnurl); |
} |
} |
} |
} |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
my %coursegroups; |
my %coursegroups; |
my $viewgrps_permission = |
my $viewgrps_permission = |
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}); |
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}); |
if (!$viewgrps_permission) { |
if (!$viewgrps_permission) { |
%coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'}); |
%coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'}); |
} |
} |
if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) { |
if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) { |
$showgroups = 1; |
$showgroups = 1; |
} |
} |
Line 125 sub menubuttons {
|
Line 114 sub menubuttons {
|
# Textual display only |
# Textual display only |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a> |
<a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a> |
ENDNAV |
ENDNAV |
if (($env{'request.noversionuri'}=~/^\/adm\//) && |
if (($env{'request.noversionuri'}=~/^\/adm\//) && |
($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) && |
($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) && |
($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { |
($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { |
my $escreload=&Apache::lonnet::escape('return:'); |
my $escreload=&escape('return:'); |
$reloadlink=(<<ENDRELOAD); |
$reloadlink=(<<ENDRELOAD); |
<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a> |
<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a> |
ENDRELOAD |
ENDRELOAD |
Line 186 ENDMAINMENU
|
Line 175 ENDMAINMENU
|
<td> |
<td> |
<a href="/adm/logout" target="_top">$lt{'exit'}</a> |
<a href="/adm/logout" target="_top">$lt{'exit'}</a> |
</td> |
</td> |
<td align="right"> |
<td "LC_top_nav_logo">LON-CAPA<img src="$logo" alt="Logo" /></td> |
<img align="right" src="$logo" alt="Logo" /> |
|
<b>LON-CAPA</b> |
|
</td> |
|
</tr> |
</tr> |
</table> |
</table> |
</font> |
</font> |
Line 205 ENDINLINEMENU
|
Line 191 ENDINLINEMENU
|
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<td><a href="$link" target="_top">$lt{'nav'}</a></td> |
<td><a href="$link" target="_top">$lt{'nav'}</a></td> |
ENDNAV |
ENDNAV |
|
my $is_group = (&Apache::loncommon::course_type() eq 'Group'); |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
|
my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'}; |
$docs=(<<ENDDOCS); |
$docs=(<<ENDDOCS); |
<td><a href="/adm/coursedocs" target="_top">$lt{'docs'}</a></td> |
<td><a href="/adm/coursedocs" target="_top">$text</a></td> |
ENDDOCS |
ENDDOCS |
} |
} |
if ($showgroups) { |
if ($showgroups) { |
|
my $text = ($is_group) ? $lt{'teams'} : $lt{'groups'}; |
$groups =(<<ENDGROUPS); |
$groups =(<<ENDGROUPS); |
<td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td> |
<td><a href="/adm/coursegroups" target="_top">$text</a></td> |
ENDGROUPS |
ENDGROUPS |
} |
} |
if ( |
if ( |
Line 225 ENDGROUPS
|
Line 214 ENDGROUPS
|
m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)]) |
m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)]) |
) |
) |
) { |
) { |
my $escreload=&Apache::lonnet::escape('return:'); |
my $escreload=&escape('return:'); |
$reloadlink=(<<ENDRELOAD); |
$reloadlink=(<<ENDRELOAD); |
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> |
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> |
ENDRELOAD |
ENDRELOAD |
} |
} |
} |
} |
if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) { |
if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) { |
my $escreload=&Apache::lonnet::escape('return:'); |
my $escreload=&escape('return:'); |
$reloadlink=(<<ENDCRELOAD); |
$reloadlink=(<<ENDCRELOAD); |
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> |
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> |
ENDCRELOAD |
ENDCRELOAD |
Line 244 ENDCRELOAD
|
Line 233 ENDCRELOAD
|
my $form=&serverform(); |
my $form=&serverform(); |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
|
my $remote; |
|
if ($env{'user.adv'}) { |
|
$remote = '<td><a href="/adm/remote?action=launch&url='.$escurl.'" target="_top">'.$lt{'launch'}.'</a></td>' |
|
} |
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
Line 259 $reloadlink
|
Line 251 $reloadlink
|
$navmaps |
$navmaps |
$docs |
$docs |
$groups |
$groups |
<td><a href="/adm/remote?action=launch&url=$escurl" target="_top">$lt{'launch'}</td> |
$remote |
<td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td> |
<td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td> |
<td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td> |
<td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td> |
<td><img align="right" src="$logo" alt="Logo" /><b>LON-CAPA</b></td> |
<td class="LC_top_nav_logo">LON-CAPA<img src="$logo" alt="Logo" /></td> |
</tr> |
</tr> |
</table> |
</table> |
$form |
$form |
Line 290 sub registerurl {
|
Line 282 sub registerurl {
|
($env{'environment.remote'} eq 'off') || |
($env{'environment.remote'} eq 'off') || |
((($env{'request.publicaccess'}) || |
((($env{'request.publicaccess'}) || |
(!&Apache::lonnet::is_on_map( |
(!&Apache::lonnet::is_on_map( |
&Apache::lonnet::unescape($env{'request.noversionuri'})))) && |
&unescape($env{'request.noversionuri'})))) && |
(!$forcereg))) { |
(!$forcereg))) { |
return $result. |
return $result. |
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title; |
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title; |
Line 320 sub innerregister {
|
Line 312 sub innerregister {
|
|
|
my $textual=($textinter || $noremote); |
my $textual=($textinter || $noremote); |
|
|
@inlineremote=(); |
undef(@inlineremote); |
undef @inlineremote; |
|
|
|
my $reopen=&Apache::lonmenu::reopenmenu(); |
my $reopen=&Apache::lonmenu::reopenmenu(); |
|
|
my ($font,$pgbg,$tabbg) = &get_colors(); |
|
|
|
my $newmail=''; |
my $newmail=''; |
if ($noremote) { |
if ($noremote) { |
$newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'"><font face="Arial,Helvetica,sans-serif">'; |
$newmail='<table id="LC_nav_location"><tr>'; |
} |
} |
if (($textual) && ($env{'request.symb'}) && ($env{'request.course.id'})) { |
if (&Apache::lonmsg::newmail()) { |
|
if ($textual) { |
|
$newmail.= '<td class="LC_new_mail"> |
|
<a href="/adm/communicate" target="_top">'. |
|
&mt('You have new messages').'</a></td>'; |
|
} else { |
|
$newmail= 'swmenu.setstatus("you have","messages");'; |
|
} |
|
} elsif (($textual) |
|
&& ($env{'request.symb'}) |
|
&& ($env{'request.course.id'})) { |
|
$newmail.= '<td class="LC_current_location">'; |
my ($mapurl,$rid,$resurl)= |
my ($mapurl,$rid,$resurl)= |
&Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
&Apache::lonnet::decode_symb(&Apache::lonnet::symbread()); |
$newmail.=$env{'course.'.$env{'request.course.id'}.'.description'}; |
$newmail.=$env{'course.'.$env{'request.course.id'}.'.description'}; |
Line 343 sub innerregister {
|
Line 343 sub innerregister {
|
if ($restitle) { |
if ($restitle) { |
$newmail.=': '.$restitle; |
$newmail.=': '.$restitle; |
} |
} |
$newmail.=' '; |
$newmail.=' </td>'; |
} |
|
if (&Apache::lonmsg::newmail()) { |
|
$newmail=($textual? |
|
'<b><a href="/adm/communicate" target="_top">You have new messages</a></b><br />': |
|
'swmenu.setstatus("you have","messages");'); |
|
} |
} |
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
$newmail = $titletable; |
$newmail = $titletable; |
} else { |
} else { |
if ($noremote) { |
if ($noremote) { |
$newmail.='</font></td></tr></table>'; |
$newmail.='</tr></table>'; |
} |
} |
} |
} |
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); |
my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');'); |
my $tablestart=($noremote?'<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%">':'').($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':''); |
my $tablestart=($noremote?'<table id="LC_menubuttons">':''). |
my $tableend=($noremote?'</table></font>':'').($textinter?'<a name="content" />':''); |
($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':''); |
|
my $tableend=($noremote?'</table>':'').($textinter?'<a name="content" />':''); |
# ============================================================================= |
# ============================================================================= |
# ============================ This is for URLs that actually can be registered |
# ============================ This is for URLs that actually can be registered |
if (($env{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) { |
if (($env{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) { |
Line 540 ENDREGTEXT
|
Line 536 ENDREGTEXT
|
# Registered, graphical output |
# Registered, graphical output |
} else { |
} else { |
my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
$requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri)); |
$requri=&Apache::lonenc::check_encrypt(&unescape($requri)); |
my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); |
my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); |
my $navstatus=&get_nav_status(); |
my $navstatus=&get_nav_status(); |
my $clearcstr; |
my $clearcstr; |
Line 655 sub startupremote {
|
Line 651 sub startupremote {
|
# The Remote actually gets launched! |
# The Remote actually gets launched! |
# |
# |
my $configmenu=&rawconfig(); |
my $configmenu=&rawconfig(); |
my $esclowerurl=&Apache::lonnet::escape($lowerurl); |
my $esclowerurl=&escape($lowerurl); |
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited'); |
my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited'); |
return(<<ENDREMOTESTARTUP); |
return(<<ENDREMOTESTARTUP); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 738 sub load_remote_msg {
|
Line 734 sub load_remote_msg {
|
if (($env{'browser.interface'} eq 'textual') || |
if (($env{'browser.interface'} eq 'textual') || |
($env{'environment.remote'} eq 'off')) { return ''; } |
($env{'environment.remote'} eq 'off')) { return ''; } |
|
|
my $esclowerurl=&Apache::lonnet::escape($lowerurl); |
my $esclowerurl=&escape($lowerurl); |
my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode', |
my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode', |
"/adm/remote?action=collapse?url=$esclowerurl"); |
"/adm/remote?action=collapse&url=$esclowerurl"); |
return(<<ENDREMOTEFORM); |
return(<<ENDREMOTEFORM); |
<p> |
<p> |
<form name="wheel"> |
<form name="wheel"> |
Line 814 sub switch {
|
Line 810 sub switch {
|
$desc=&mt($desc); |
$desc=&mt($desc); |
$img=&mt($img); |
$img=&mt($img); |
|
|
my ($font,$pgbg,$tabbg) = &get_colors(); |
|
|
|
unless (($env{'browser.interface'} eq 'textual') || |
unless (($env{'browser.interface'} eq 'textual') || |
($env{'environment.remote'} eq 'off')) { |
($env{'environment.remote'} eq 'off')) { |
# Remote |
# Remote |
Line 842 sub switch {
|
Line 836 sub switch {
|
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'}; |
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'}; |
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; } |
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; } |
my $pic= |
my $pic= |
'<img border="0" alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}. |
'<img alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}. |
':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'. |
':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'. |
($nobreak==3?'right':'left').'" />'; |
($nobreak==3?'right':'left').'" />'; |
if (($env{'browser.interface'} eq 'textual') || ($env{'browser.interface'} eq 'faketextual')) { |
if ($env{'browser.interface'} eq 'faketextual') { |
# Accessibility |
# Accessibility |
if ($nobreak==3) { |
if ($nobreak==3) { |
$inlineremote[10*$row+$col]="\n". |
$inlineremote[10*$row+$col]="\n". |
'<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text. |
'<td class="LC_menubuttons_text" align="right">'.$text. |
'</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'. |
'</td><td class="LC_menubuttons_img" align="left">'. |
'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>'; |
'<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>'; |
} elsif ($nobreak) { |
} elsif ($nobreak) { |
$inlineremote[10*$row+$col]="\n<tr>". |
$inlineremote[10*$row+$col]="\n<tr>". |
'<td width="10%" align="left" bgcolor="'.$tabbg.'">'. |
'<td class="LC_menubuttons_img" align="left">'. |
'<a href="javascript:'.$act.';">'.$pic. |
'<a href="javascript:'.$act.';">'.$pic.'</a></td> |
'</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>'; |
<td class="LC_menubuttons_text" align="left">'.$text.'</td>'; |
} else { |
} else { |
$inlineremote[10*$row+$col]="\n<tr>". |
$inlineremote[10*$row+$col]="\n<tr>". |
'<td width="10%" align="left" bgcolor="'.$tabbg.'">'. |
'<td class="LC_menubuttons_img" align="left">'. |
'<a href="javascript:'.$act.';">'.$pic. |
'<a href="javascript:'.$act.';">'.$pic. |
'</a></td><td colspan="3"><font color="'.$font.'">'.$desc. |
'</a></td><td class="LC_menubuttons_text" colspan="3">'. |
'</font></td></tr>'; |
$desc.'</td></tr>'; |
} |
} |
} else { |
} else { |
# Inline Menu |
# Inline Menu |
$inlineremote[10*$row+$col]= |
$inlineremote[10*$row+$col]= |
'<a href="javascript:'.$act.';">'.$pic. |
'<a href="javascript:'.$act.';">'.$pic. |
'</a><font color="'.$font.'" size="2">'.$desc. |
'</a><span class="LC_menubuttons_inline_text">'.$desc.'</span>'; |
'</font>'; |
|
} |
} |
} |
} |
return ''; |
return ''; |
Line 931 sub rawconfig {
|
Line 924 sub rawconfig {
|
my $con=($env{'request.state'} eq 'construct'); |
my $con=($env{'request.state'} eq 'construct'); |
my $rol=$env{'request.role'}; |
my $rol=$env{'request.role'}; |
my $requested_domain = $env{'request.role.domain'}; |
my $requested_domain = $env{'request.role.domain'}; |
foreach (@desklines) { |
foreach my $line (@desklines) { |
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$_); |
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$line); |
$prt=~s/\$uname/$uname/g; |
$prt=~s/\$uname/$uname/g; |
$prt=~s/\$udom/$udom/g; |
$prt=~s/\$udom/$udom/g; |
$prt=~s/\$crs/$crs/g; |
$prt=~s/\$crs/$crs/g; |
$prt=~s/\$requested_domain/$requested_domain/g; |
$prt=~s/\$requested_domain/$requested_domain/g; |
|
my $type = &Apache::loncommon::course_type(); |
|
if ($type eq 'Group') { |
|
$desc = &convert_menu_function($desc,$type); |
|
} |
if ($pro eq 'clear') { |
if ($pro eq 'clear') { |
$output.=&clear($row,$col); |
$output.=&clear($row,$col); |
} elsif ($pro eq 'any') { |
} elsif ($pro eq 'any') { |
Line 1057 sub utilityfunctions {
|
Line 1054 sub utilityfunctions {
|
unless (($env{'browser.interface'} eq 'textual') || |
unless (($env{'browser.interface'} eq 'textual') || |
($env{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; } |
($env{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; } |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
$currenturl=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($currenturl)); |
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl)); |
|
|
my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); |
my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); |
my $nav_control=&nav_control_js(); |
my $nav_control=&nav_control_js(); |
Line 1195 function annotate() {
|
Line 1192 function annotate() {
|
+"<form name='goannotate' target='Annotator' method='post' " |
+"<form name='goannotate' target='Annotator' method='post' " |
+"action='/adm/annotations'>" |
+"action='/adm/annotations'>" |
+"<input type='hidden' name='urlnew' value='"+currentURL+"' />" |
+"<input type='hidden' name='urlnew' value='"+currentURL+"' />" |
+"</form>" |
+"<\\/form>" |
+'$end_page'); |
+'$end_page'); |
annotator.document.close(); |
annotator.document.close(); |
} |
} |
Line 1211 function set_bookmark() {
|
Line 1208 function set_bookmark() {
|
+"<center><form method='post'" |
+"<center><form method='post'" |
+" name='newlink' action='/adm/bookmarks' target='bmquery' " |
+" name='newlink' action='/adm/bookmarks' target='bmquery' " |
+">\\n <table width=340 height=150 " |
+">\\n <table width=340 height=150 " |
+"bgcolor='ffffff' align=center><tr><td>Link Name:<br><input " |
+"bgcolor='ffffff' align=center><tr><td>Link Name:<br /><input " |
+"type='text' name='title' size=45 value='"+clienttitle+"'>" |
+"type='text' name='title' size=45 value='"+clienttitle+"' />" |
+"<br>Address:<br><input type='text' name='address' size='45' " |
+"<br />Address:<br /><input type='text' name='address' size='45' " |
+"value='"+clienthref+"'><br><center><input type='submit' " |
+"value='"+clienthref+"' /><br /><center><input type='submit' " |
+"value='Save'> <input type='button' value='Close (no save)' " |
+"value='Save' /> <input type='button' value='Close (no save)' " |
+"onclick='javascript:window.close();'></center></td>" |
+"onclick='javascript:window.close();' /><\\/center><\\/td>" |
+"</tr></table></form></center>" |
+"<\\/tr><\\/table><\\/form><\\/center>" |
+'$end_page' ); |
+'$end_page' ); |
bmquery.document.close(); |
bmquery.document.close(); |
} |
} |
Line 1227 ENDUTILITY
|
Line 1224 ENDUTILITY
|
|
|
sub serverform { |
sub serverform { |
return(<<ENDSERVERFORM); |
return(<<ENDSERVERFORM); |
<form name="server" action="/adm/logout" method="POST" target="_top"> |
<form name="server" action="/adm/logout" method="post" target="_top"> |
<input type="hidden" name="postdata" value="none" /> |
<input type="hidden" name="postdata" value="none" /> |
<input type="hidden" name="command" value="none" /> |
<input type="hidden" name="command" value="none" /> |
<input type="hidden" name="url" value="none" /> |
<input type="hidden" name="url" value="none" /> |
Line 1238 ENDSERVERFORM
|
Line 1235 ENDSERVERFORM
|
|
|
sub constspaceform { |
sub constspaceform { |
return(<<ENDCONSTSPACEFORM); |
return(<<ENDCONSTSPACEFORM); |
<form name="constspace" action="/adm/logout" method="POST" target="_top"> |
<form name="constspace" action="/adm/logout" method="post" target="_top"> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
</form> |
</form> |
<form name="cstrdelete" action="/adm/cfile" method="POST" target="_top"> |
<form name="cstrdelete" action="/adm/cfile" method="post" target="_top"> |
<input type="hidden" name="action" value="delete" /> |
<input type="hidden" name="action" value="delete" /> |
<input type="hidden" name="filename" value="" /> |
<input type="hidden" name="filename" value="" /> |
</form> |
</form> |
<form name="cstrprint" action="/adm/printout" target="_parent" method="POST"> |
<form name="cstrprint" action="/adm/printout" target="_parent" method="post"> |
<input type="hidden" name="postdata" value="" /> |
<input type="hidden" name="postdata" value="" /> |
<input type="hidden" name="curseed" value="" /> |
<input type="hidden" name="curseed" value="" /> |
<input type="hidden" name="problemtype" value="" /> |
<input type="hidden" name="problemtype" value="" /> |
Line 1265 sub get_nav_status {
|
Line 1262 sub get_nav_status {
|
return $navstatus; |
return $navstatus; |
} |
} |
|
|
|
#FIXME this needs to move into mydesktab and the other locations |
|
# the text is generated |
|
sub convert_menu_function { |
|
my ($rolename,$type) = @_; |
|
if ($type eq 'Group') { |
|
$rolename =~ s/student/member/g; |
|
$rolename =~ s/group/team/g; |
|
$rolename =~ s/course/group/g; |
|
$rolename =~ s/Course/Group/g; |
|
} |
|
return $rolename; |
|
} |
|
|
|
|
# ================================================================ Main Program |
# ================================================================ Main Program |
|
|
BEGIN { |
BEGIN { |