version 1.202, 2006/08/04 18:56:19
|
version 1.203, 2006/08/14 09:11:55
|
Line 52 use vars qw(@desklines $readdesk);
|
Line 52 use vars qw(@desklines $readdesk);
|
|
|
my @inlineremote; |
my @inlineremote; |
|
|
|
|
|
|
# ================================================================ Little texts |
# ================================================================ Little texts |
|
|
sub initlittle { |
sub initlittle { |
Line 471 s&7&1&del.gif&delete[_1]&resource[_2]&go
|
Line 473 s&7&1&del.gif&delete[_1]&resource[_2]&go
|
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document |
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document |
ENDMENUITEMS |
ENDMENUITEMS |
} |
} |
} elsif (defined($env{'request.course.id'}) && |
} elsif ( defined($env{'request.course.id'}) && |
$env{'request.symb'} ne '') { |
$env{'request.symb'} ne '' ) { |
$menuitems=(<<ENDMENUITEMS); |
$menuitems=(<<ENDMENUITEMS); |
c&3&1 |
c&3&1 |
s&2&1&back.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&1 |
s&2&1&back.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&1 |
Line 492 s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&
|
Line 494 s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&
|
ENDREALRES |
ENDREALRES |
} |
} |
} |
} |
|
if ($env{'request.uri'} =~ /^\/res/) { |
|
$menuitems .= (<<ENDMENUITEMS); |
|
s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document |
|
ENDMENUITEMS |
|
} |
|
&Apache::lonnet::logthis("Menu items:\n$menuitems\n"); |
my $buttons=''; |
my $buttons=''; |
foreach (split(/\n/,$menuitems)) { |
foreach (split(/\n/,$menuitems)) { |
my ($command,@rest)=split(/\&/,$_); |
my ($command,@rest)=split(/\&/,$_); |
Line 501 ENDREALRES
|
Line 509 ENDREALRES
|
$buttons.=&clear(@rest); |
$buttons.=&clear(@rest); |
} |
} |
} |
} |
|
&Apache::lonnet::logthis("buttons = $buttons"); |
|
|
if ($textual) { |
if ($textual) { |
my $addremote=0; |
my $addremote=0; |
Line 522 ENDREALRES
|
Line 531 ENDREALRES
|
ENDINLINE |
ENDINLINE |
} |
} |
} |
} |
|
&Apache::lonnet::logthis("Inline:\n $inlinebuttons \n"); |
$result =(<<ENDREGTEXT); |
$result =(<<ENDREGTEXT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |