version 1.130, 2004/11/14 07:32:20
|
version 1.131, 2004/11/30 19:08:18
|
Line 69 sub menubuttons {
|
Line 69 sub menubuttons {
|
my $forcereg=shift; |
my $forcereg=shift; |
my $target =shift; |
my $target =shift; |
my $registration=shift; |
my $registration=shift; |
|
my $titletable=shift; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['inhibitmenu']); |
['inhibitmenu']); |
if ($ENV{'form.inhibitmenu'} eq 'yes') { return ''; } |
if ($ENV{'form.inhibitmenu'} eq 'yes') { return ''; } |
Line 153 ENDRELOAD
|
Line 154 ENDRELOAD
|
} |
} |
my $reg=''; |
my $reg=''; |
if ($registration) { |
if ($registration) { |
$reg=&innerregister($forcereg,$target); |
$reg=&innerregister($forcereg,$target,$titletable); |
} |
} |
my $form=&serverform(); |
my $form=&serverform(); |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
Line 229 sub registerurl {
|
Line 230 sub registerurl {
|
sub innerregister { |
sub innerregister { |
my $forcereg=shift; |
my $forcereg=shift; |
my $target = shift; |
my $target = shift; |
|
my $titletable = shift; |
my $result = ''; |
my $result = ''; |
my ($uname,$thisdisfn); |
my ($uname,$thisdisfn); |
my $const_space = ($ENV{'request.state'} eq 'construct'); |
my $const_space = ($ENV{'request.state'} eq 'construct'); |
|
my $is_const_dir = 0; |
|
|
if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; } |
if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; } |
|
|
Line 269 sub innerregister {
|
Line 272 sub innerregister {
|
'<b><a href="/adm/communicate" target="_top">You have new messages</a></b><br />': |
'<b><a href="/adm/communicate" target="_top">You have new messages</a></b><br />': |
'swmenu.setstatus("you have","messages");'); |
'swmenu.setstatus("you have","messages");'); |
} |
} |
|
if ($ENV{'request.state'} eq 'construct') { |
|
$newmail = $titletable; |
|
} |
if ($noremote) { |
if ($noremote) { |
$newmail.='</td></tr></table></font>'; |
$newmail.='</td></tr></table></font>'; |
} |
} |
Line 371 sub innerregister {
|
Line 377 sub innerregister {
|
my ($uname,$thisdisfn) = |
my ($uname,$thisdisfn) = |
($ENV{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|); |
($ENV{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|); |
my $currdir = '/priv/'.$uname.'/'.$thisdisfn; |
my $currdir = '/priv/'.$uname.'/'.$thisdisfn; |
$currdir =~ s#[^/]+$##; |
if ($currdir =~ m-/$-) { |
$menuitems=(<<ENDMENUITEMS); |
$is_const_dir = 1; |
s&6&1&list.gif&list[_1]&dir[_1]&go('$currdir')&List current directory |
} else { |
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$thisdisfn')&Retreive old version |
$currdir =~ s#[^/]+$##; |
|
$menuitems=(<<ENDMENUITEMS); |
|
s&6&1&list.gif&list[_1]&dir[_1]&golist('$currdir')&List current directory |
|
s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$thisdisfn')&Retrieve old version |
s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$thisdisfn')&Publish this resource |
s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$thisdisfn')&Publish this resource |
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$thisdisfn')&Delete this resource |
s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$thisdisfn')&Delete this resource |
s&7&2&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout','/~$uname/$thisdisfn')&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); |
c&3&1 |
c&3&1 |
Line 424 ENDREALRES
|
Line 434 ENDREALRES
|
<tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr> |
<tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr> |
ENDINLINE |
ENDINLINE |
} |
} |
|
if ($const_space && $is_const_dir) { |
|
$inlinebuttons = ''; |
|
} |
$result =(<<ENDREGTEXT); |
$result =(<<ENDREGTEXT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
Line 1004 function gocstr(url,filename) {
|
Line 1017 function gocstr(url,filename) {
|
} |
} |
} |
} |
|
|
|
function golist(url) { |
|
if (url!='' && url!= null) { |
|
currentURL = null; |
|
currentSymb= null; |
|
top.location.href=url; |
|
} |
|
} |
|
|
|
|
|
|
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'); |