version 1.369.2.20, 2012/08/07 01:35:47
|
version 1.369.2.21, 2012/08/07 13:15:29
|
Line 758 sub innerregister {
|
Line 758 sub innerregister {
|
### |
### |
### |
### |
# Prepare the rest of the buttons |
# Prepare the rest of the buttons |
my ($menuitems,$got_prt,$got_wishlist); |
my ($menuitems,$got_prt,$got_wishlist,$cstritems); |
if ($const_space) { |
if ($const_space) { |
# |
# |
# We are in construction space |
# We are in construction space |
Line 778 sub innerregister {
|
Line 778 sub innerregister {
|
# Probably should be in mydesk.tab |
# Probably should be in mydesk.tab |
# |
# |
$menuitems=(<<ENDMENUITEMS); |
$menuitems=(<<ENDMENUITEMS); |
s&6&1&list.png&$swtext{'list'}&dir[_1]&golist('$esc_currdir')&List current directory |
s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory |
s&6&2&rtrv.png&$swtext{'rtrv'}&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version |
s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version |
s&6&3&pub.png&$swtext{'pub'}&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource |
s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource |
s&7&1&del.png&$swtext{'del'}&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource |
s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource |
s&7&2&prt.png&$swtext{'prt'}&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document |
s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document |
ENDMENUITEMS |
ENDMENUITEMS |
|
unless ($noremote) { |
|
$cstritems = $menuitems; |
|
undef($menuitems); |
|
} |
} |
} |
if (ref($bread_crumbs) eq 'ARRAY') { |
if (ref($bread_crumbs) eq 'ARRAY') { |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
Line 933 ENDMENUITEMS
|
Line 937 ENDMENUITEMS
|
. &Apache::lonhtmlcommon::scripttag('', 'end'); |
. &Apache::lonhtmlcommon::scripttag('', 'end'); |
|
|
} else { |
} else { |
|
my $cstrcrumbs; |
|
if ($const_space) { |
|
foreach (split(/\n/,$cstritems)) { |
|
my ($command,@rest)=split(/\&/,$_); |
|
my $idx=10*$rest[0]+$rest[1]; |
|
&switch('','',@rest); |
|
} |
|
&Apache::lonhtmlcommon::add_breadcrumb_tool('advtools', |
|
@inlineremote[63,61,71,72]); |
|
|
|
$cstrcrumbs = &Apache::lonhtmlcommon::scripttag('', 'start') |
|
.&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0) |
|
.&Apache::lonhtmlcommon::scripttag('', 'end'); |
|
} |
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(&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'}); |
Line 981 var swmenu=null;
|
Line 999 var swmenu=null;
|
// END LON-CAPA Internal |
// END LON-CAPA Internal |
// ]]> |
// ]]> |
</script> |
</script> |
|
|
|
$cstrcrumbs |
ENDREGTHIS |
ENDREGTHIS |
} |
} |
} else { |
} else { |
Line 1031 sub get_inline_text {
|
Line 1051 sub get_inline_text {
|
pparm => 'Content Settings', |
pparm => 'Content Settings', |
docs => 'Folder/Page Content', |
docs => 'Folder/Page Content', |
pcstr => 'Edit', |
pcstr => 'Edit', |
list => 'Directory', |
|
rtrv => 'Retrieve', |
|
pub => 'Publish', |
|
del => 'Delete', |
|
prt => 'Print', |
prt => 'Print', |
alnk => 'Stored Links', |
alnk => 'Stored Links', |
anot => 'Notes', |
anot => 'Notes', |
Line 1051 sub get_rc_text {
|
Line 1067 sub get_rc_text {
|
subm => 'view sub-[_1]', |
subm => 'view sub-[_1]', |
pparm => 'problem[_2]', |
pparm => 'problem[_2]', |
pcstr => 'edit[_1]', |
pcstr => 'edit[_1]', |
list => 'list[_1]', |
|
rtrv => 'retrieve[_1]', |
|
pub => 'publish[_1]', |
|
del => 'delete[_1]', |
|
prt => 'prepare[_1]', |
prt => 'prepare[_1]', |
back => 'backward[_1]', |
back => 'backward[_1]', |
forw => 'forward[_1]', |
forw => 'forward[_1]', |
Line 1302 sub switch {
|
Line 1314 sub switch {
|
|
|
if ($env{'environment.remote'} eq 'on') { |
if ($env{'environment.remote'} eq 'on') { |
if (($row<1) || ($row>13)) { return ''; } |
if (($row<1) || ($row>13)) { return ''; } |
|
if ($env{'request.state'} eq 'construct') { |
|
my $text = $top.' '.$bot; |
|
$text=~s/\s*\-\s*//gs; |
|
my $pic = '<img alt="'.$text.'" src="'. |
|
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img). |
|
'" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />'; |
|
$inlineremote[$idx] = |
|
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'. |
|
$pic.'<span class="LC_menubuttons_inline_text">'.$top.' </span></a>'; |
|
} |
# Remote |
# Remote |
$img=~s/\.png$/\.gif/; |
$img=~s/\.png$/\.gif/; |
return "\n". |
return "\n". |