version 1.120, 2004/10/29 18:40:40
|
version 1.128, 2004/11/11 23:45:36
|
Line 43 use Apache::lonnet();
|
Line 43 use Apache::lonnet();
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonnavmaps(); |
use Apache::lonenc(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
use vars qw(@desklines $readdesk); |
use vars qw(@desklines $readdesk); |
Line 75 sub menubuttons {
|
Line 75 sub menubuttons {
|
|
|
my $navmaps=''; |
my $navmaps=''; |
my $reloadlink=''; |
my $reloadlink=''; |
my $escurl=&Apache::lonnet::escape($ENV{'request.noversionuri'}); |
my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'})); |
my $escsymb=&Apache::lonnet::escape($ENV{'request.symb'}); |
my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.symb'})); |
if ($ENV{'browser.interface'} eq 'textual') { |
if ($ENV{'browser.interface'} eq 'textual') { |
# Textual display only |
# Textual display only |
my %lt=&initlittle(); |
my %lt=&initlittle(); |
Line 227 sub innerregister {
|
Line 227 sub innerregister {
|
my $target = shift; |
my $target = shift; |
my $result = ''; |
my $result = ''; |
my ($uname,$thisdisfn); |
my ($uname,$thisdisfn); |
my $const_space = 0; |
my $const_space = ($ENV{'request.state'} eq 'construct'); |
if ($ENV{'request.filename'} =~ /^\/home\/([^\/]+)\/public_html\/(.*)/) { |
|
$const_space = 1; |
|
$uname = $1; |
|
$thisdisfn = $2; |
|
} |
|
|
|
if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; } |
if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; } |
|
|
Line 252 sub innerregister {
|
Line 247 sub innerregister {
|
if ($noremote) { |
if ($noremote) { |
$newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">'; |
$newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">'; |
} |
} |
if ($textual && $const_space) { |
|
my $formaction='/priv/'.$uname.'/'.$thisdisfn; |
|
$formaction=~s/\/+/\//g; |
|
$newmail .= ('<form name="dirs" method="post" action="'.$formaction |
|
.'" target="_top">'. |
|
&Apache::lonhtmlcommon::crumbs($uname.'/'.$thisdisfn,'_top','/priv','','-1'). |
|
&Apache::lonhtmlcommon::select_recent('construct','recent', |
|
'this.form.action=this.form.recent.value;this.form.submit()'). |
|
'</form>'); |
|
&Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction); |
|
} |
|
if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) { |
if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) { |
my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'}); |
my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'}); |
$newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
$newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
Line 380 sub innerregister {
|
Line 364 sub innerregister {
|
# Prepare the rest of the buttons |
# Prepare the rest of the buttons |
my $menuitems; |
my $menuitems; |
if ($const_space) { |
if ($const_space) { |
my $dir_catalog = '/priv/'.$uname.'/'.$thisdisfn.'/default.meta'; |
my ($uname,$thisdisfn) = |
|
($ENV{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|); |
|
my $currdir = '/priv/'.$uname.'/'.$thisdisfn; |
|
$currdir =~ s#[^/]+$##; |
$menuitems=(<<ENDMENUITEMS); |
$menuitems=(<<ENDMENUITEMS); |
s&2&1&mcrs.gif&list[_1]&dir[_1]&gopost('/adm/pubdir',currentURL)&List current directory |
s&6&1&list.gif&list[_1]&dir[_1]&go('$currdir')&List current directory |
s&2&3&mcrs.gif&retrieve[_1]&version[_1]&gopost('/adm/retrieve',currentURL)&Retreive old version |
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$thisdisfn')&Retreive old version |
s&6&1&mcrs.gif&publish[_1]&resource[_1]&gopost('/adm/publish',currentURL)&Publish this resource |
s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$thisdisfn')&Publish this resource |
s&6&3&mcrs.gif&delete[_1]&resource[_2]&gopost('/adm/cfile?action=delete',currentURL)&Delete this resource |
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$thisdisfn')&Delete this resource |
s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document |
s&7&2&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout','/~$uname/$thisdisfn')&Prepare a printable document |
ENDMENUITEMS |
ENDMENUITEMS |
} else { |
} else { |
$menuitems=(<<ENDMENUITEMS); |
$menuitems=(<<ENDMENUITEMS); |
Line 452 ENDREGTEXT
|
Line 439 ENDREGTEXT
|
# Registered, graphical output |
# Registered, graphical output |
} else { |
} else { |
my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0]; |
my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0]; |
$requri=&Apache::lonnet::unescape($requri); |
$requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri)); |
|
my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); |
my $navstatus=&get_nav_status(); |
my $navstatus=&get_nav_status(); |
$result = (<<ENDREGTHIS); |
$result = (<<ENDREGTHIS); |
|
|
Line 468 var swmenu=null;
|
Line 456 var swmenu=null;
|
$buttons |
$buttons |
swmenu.currentURL="$requri"; |
swmenu.currentURL="$requri"; |
swmenu.reloadURL=swmenu.currentURL+window.location.search; |
swmenu.reloadURL=swmenu.currentURL+window.location.search; |
swmenu.currentSymb="$ENV{'request.symb'}"; |
swmenu.currentSymb="$cursymb"; |
swmenu.reloadSymb="$ENV{'request.symb'}"; |
swmenu.reloadSymb="$cursymb"; |
swmenu.currentStale=0; |
swmenu.currentStale=0; |
$navstatus |
$navstatus |
$hwkadd |
$hwkadd |
Line 864 sub rawconfig {
|
Line 852 sub rawconfig {
|
if ($ENV{'request.course.fn'}) { |
if ($ENV{'request.course.fn'}) { |
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); |
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); |
} |
} |
|
} elsif ($pro =~ /^courseenv_(.*)$/) { |
|
my $key = $1; |
|
if ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$key}) { |
|
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc); |
|
} |
} elsif ($pro =~ /^course_(.*)$/) { |
} elsif ($pro =~ /^course_(.*)$/) { |
# Check for permissions inside of a course |
# Check for permissions inside of a course |
if (($ENV{'request.course.id'}) && |
if (($ENV{'request.course.id'}) && |
Line 899 sub rawconfig {
|
Line 892 sub rawconfig {
|
unless (($ENV{'browser.interface'} eq 'textual') || |
unless (($ENV{'browser.interface'} eq 'textual') || |
($ENV{'environment.remote'} eq 'off')) { |
($ENV{'environment.remote'} eq 'off')) { |
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';"; |
$output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';"; |
|
if (&Apache::lonmsg::newmail()) { |
|
$output.='swmenu.setstatus("you have","messages");'; |
|
} |
} |
} |
|
|
return $output; |
return $output; |
} |
} |
|
|
Line 930 sub footer {
|
Line 927 sub footer {
|
|
|
} |
} |
|
|
|
sub nav_control_js { |
|
my $nav=($ENV{'environment.remotenavmap'} eq 'on'); |
|
return (<<NAVCONTROL); |
|
var w_loncapanav_flag="$nav"; |
|
|
|
|
|
function gonav(url) { |
|
if (w_loncapanav_flag != 1) { |
|
gopost(url,''); |
|
} else { |
|
navwindow=window.open(url, |
|
"loncapanav","height=600,width=400,scrollbars=1"); |
|
} |
|
} |
|
NAVCONTROL |
|
} |
|
|
sub utilityfunctions { |
sub utilityfunctions { |
unless (($ENV{'browser.interface'} eq 'textual') || |
unless (($ENV{'browser.interface'} eq 'textual') || |
($ENV{'environment.remote'} eq 'off')) { return ''; } |
($ENV{'environment.remote'} eq 'off')) { return ''; } |
my $currenturl=$ENV{'request.noversionuri'}; |
my $currenturl=&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}); |
my $currentsymb=$ENV{'request.symb'}; |
|
my $nav_control=&Apache::lonnavmaps::nav_control_js(); |
my $currentsymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); |
|
my $nav_control=&nav_control_js(); |
return (<<ENDUTILITY) |
return (<<ENDUTILITY) |
|
|
var currentURL="$currenturl"; |
var currentURL="$currenturl"; |
Line 974 function gocmd(url,cmd) {
|
Line 989 function gocmd(url,cmd) {
|
} |
} |
} |
} |
|
|
|
function gocstr(url,filename) { |
|
if (url == '/adm/cfile?action=delete') { |
|
this.document.cstrdelete.filename.value = filename |
|
this.document.cstrdelete.submit(); |
|
return; |
|
} |
|
if (url !='') { |
|
this.document.constspace.filename.value = filename; |
|
this.document.constspace.action = url; |
|
this.document.constspace.submit(); |
|
} |
|
} |
|
|
|
|
function catalog_info() { |
function catalog_info() { |
loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'); |
loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'); |
} |
} |
Line 996 sub serverform {
|
Line 1025 sub serverform {
|
ENDSERVERFORM |
ENDSERVERFORM |
} |
} |
|
|
|
sub constspaceform { |
|
return(<<ENDCONSTSPACEFORM); |
|
<form name="constspace" action="/adm/logout" method="post" target="_top"> |
|
<input type="hidden" name="filename" value="" /> |
|
</form> |
|
<form name="cstrdelete" action="/adm/cfile" method="post" target="_top"> |
|
<input type="hidden" name="action" value="delete" /> |
|
<input type="hidden" name="filename" value="" /> |
|
</form> |
|
ENDCONSTSPACEFORM |
|
} |
|
|
|
|
sub get_nav_status { |
sub get_nav_status { |
my $navstatus="swmenu.w_loncapanav_flag="; |
my $navstatus="swmenu.w_loncapanav_flag="; |
if ($ENV{'environment.remotenavmap'} eq 'on') { |
if ($ENV{'environment.remotenavmap'} eq 'on') { |