[BACK]Return to lonrights.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonrights.pm between versions 1.25.2.1 and 1.26

version 1.25.2.1, 2010/01/27 16:18:17 version 1.26, 2009/05/26 11:21:47
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;
   
     # Breadcrumbs
     &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({
         'text'  => 'Construction Space',
         'href'  => '', # FIXME Add link to /priv/[user]
         });
     &Apache::lonhtmlcommon::add_breadcrumb({
         'text'  => 'Custom Rights Editor',
         'title' => 'Custom Distribution Rights Editor',
         'href'  => '',});
   
   my $js = &Apache::loncommon::coursebrowser_javascript().    my $js = &Apache::loncommon::coursebrowser_javascript().
       &Apache::loncommon::studentbrowser_javascript();        &Apache::loncommon::studentbrowser_javascript();
   $r->print(&Apache::loncommon::start_page('Custom Distribution Rights',$js));    $r->print(&Apache::loncommon::start_page('Custom Distribution Rights',$js)
              .&Apache::lonhtmlcommon::breadcrumbs()
              .&Apache::loncommon::head_subbox(
                   &Apache::loncommon::CSTR_pageheader())
     );
   $r->rflush();    $r->rflush();
   
   my $uri=$r->uri;    my $uri=$r->uri;
Line 196  sub handler { Line 211  sub handler {
   if ($constructmode) {    if ($constructmode) {
      $r->print(&Apache::loncommon::select_form('','action_0',       $r->print(&Apache::loncommon::select_form('','action_0',
                                   ('' => '',                                    ('' => '',
                                    'insertbelow' => &mt('Insert rule below'))));     'insertbelow' => 'Insert rule below')));
                                                                                                   
   } else {    } else {
       $r->print(' ');        $r->print(' ');
Line 205  sub handler { Line 220  sub handler {
   if ($constructmode) {    if ($constructmode) {
       $r->print(&Apache::loncommon::select_form        $r->print(&Apache::loncommon::select_form
                                  ($token->[2]->{'effect'},'effect_0',                                   ($token->[2]->{'effect'},'effect_0',
                                   &Apache::lonlocal::texthash  
                                    ('allow' => 'allow',                                     ('allow' => 'allow',
                                     'deny'  => 'deny')));                                      'deny'  => 'deny')));
   } else {    } else {
Line 228  sub handler { Line 242  sub handler {
           if ($constructmode) {            if ($constructmode) {
              $r->print(&Apache::loncommon::select_form(               $r->print(&Apache::loncommon::select_form(
                     '','action_'.$rulecounter,                      '','action_'.$rulecounter,
                     &Apache::lonlocal::texthash  
                     ('' => '',                       ('' => '', 
                      'delete' => 'Delete this rule',                       'delete' => 'Delete this rule',
                      'insertabove' => 'Insert rule above',                       'insertabove' => 'Insert rule above',
Line 243  sub handler { Line 256  sub handler {
              $r->print(&Apache::loncommon::select_form               $r->print(&Apache::loncommon::select_form
                                  ($token->[2]->{'effect'},                                   ($token->[2]->{'effect'},
                                   'effect_'.$rulecounter,                                    'effect_'.$rulecounter,
                                   &Apache::lonlocal::texthash  
                                    ('allow' => 'allow',                                     ('allow' => 'allow',
                                     'deny'  => 'deny')));                                      'deny'  => 'deny')));
           } else {            } else {
Line 256  sub handler { Line 268  sub handler {
           if ($constructmode) {            if ($constructmode) {
               $r->print(&Apache::loncommon::select_form($type,                $r->print(&Apache::loncommon::select_form($type,
  'type_'.$rulecounter,   'type_'.$rulecounter,
                             &Apache::lonlocal::texthash  
  ('course' => 'Course',   ('course' => 'Course',
  'user'   => 'User')));   'user'   => 'User')));
           } else {            } else {
Removed from v.1.25.2.1  
changed lines
  Added in v.1.26

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>