version 1.17, 2005/04/07 06:56:27
|
version 1.20, 2006/11/09 22:48:50
|
Line 55 sub handler {
|
Line 55 sub handler {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
$r->print( |
my $js = &Apache::loncommon::coursebrowser_javascript(); |
'<html><head><title>LON-CAPA Custom Distribution Rights</title>'. |
|
&Apache::loncommon::coursebrowser_javascript().'</head>'); |
|
|
|
$r->print(&Apache::loncommon::bodytag('Custom Distribution Rights')); |
$r->print(&Apache::loncommon::start_page('Custom Distribution Rights',$js)); |
$r->rflush(); |
$r->rflush(); |
|
|
my $uri=$r->uri; |
my $uri=$r->uri; |
Line 177 sub handler {
|
Line 175 sub handler {
|
my %lt=&Apache::lonlocal::texthash('ef' => 'Effect', |
my %lt=&Apache::lonlocal::texthash('ef' => 'Effect', |
'do' => 'Domain', |
'do' => 'Domain', |
'co' => 'Course', |
'co' => 'Course', |
'se' => 'Section/Group', |
'se' => 'Section', |
'ro' => 'Role'); |
'ro' => 'Role'); |
# ---------------------------------------------------------- Start table output |
# ---------------------------------------------------------- Start table output |
$r->print(<<ENDSTARTTABLE); |
$r->print(<<ENDSTARTTABLE); |
Line 291 ENDSTARTTABLE
|
Line 289 ENDSTARTTABLE
|
$r->print('</td></tr><tr><td colspan="3" align="right">'); |
$r->print('</td></tr><tr><td colspan="3" align="right">'); |
if ($rcourse) { |
if ($rcourse) { |
my %descript= |
my %descript= |
&Apache::lonnet::coursedescription($rdom.'_'.$rcourse); |
&Apache::lonnet::coursedescription($rdom.'_'.$rcourse, |
|
{'one_time' => 1}); |
$r->print($descript{'description'}.' '); |
$r->print($descript{'description'}.' '); |
} |
} |
if ($constructmode) { |
if ($constructmode) { |
Line 307 ENDSTARTTABLE
|
Line 306 ENDSTARTTABLE
|
if ($constructmode) { |
if ($constructmode) { |
$r->print('<input type="submit" name="store" value="'.&mt('Store').'" /></form>'); |
$r->print('<input type="submit" name="store" value="'.&mt('Store').'" /></form>'); |
} |
} |
$r->print('</body></html>'); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|