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

Diff for /loncom/publisher/lonrights.pm between versions 1.35 and 1.36

version 1.35, 2013/06/04 22:20:16 version 1.36, 2023/07/13 22:21:26
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;
   
     my $text = 'Authoring Space';
     my $href = &Apache::loncommon::authorspace($r->uri);
     my ($crsauthor,$cdom,$cnum);
     if ($env{'request.course.id'}) {
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         if ($href eq "/priv/$cdom/$cnum/") {
             $crsauthor = 1;
             $text = 'Course Authoring Space';
         }
     }
   # Breadcrumbs    # Breadcrumbs
   &Apache::lonhtmlcommon::clear_breadcrumbs();    &Apache::lonhtmlcommon::clear_breadcrumbs();
   &Apache::lonhtmlcommon::add_breadcrumb({    &Apache::lonhtmlcommon::add_breadcrumb({
       'text'  => 'Authoring Space',        'text'  => $text,
       'href'  => &Apache::loncommon::authorspace($r->uri),        'href'  => $href,
       });        });
   &Apache::lonhtmlcommon::add_breadcrumb({    if ($crsauthor) {
       'text'  => 'Custom Rights Editor',        &Apache::lonhtmlcommon::add_breadcrumb({
       'title' => 'Custom Distribution Rights Editor',            'text'  => 'Custom Rights',
       'href'  => '',});            'title' => 'Custom Distribution Rights',
             'href'  => '',});
     } else {
         &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();
Line 79  sub handler { Line 97  sub handler {
   my $fn=&Apache::lonnet::filelocation('',$uri);    my $fn=&Apache::lonnet::filelocation('',$uri);
   my $contents='';    my $contents='';
   my $constructmode=($uri=~ m{^/priv/});    my $constructmode=($uri=~ m{^/priv/});
     if ($constructmode) {
         if (($crsauthor) && ($uri eq "/priv/$cdom/$cnum/default.rights")) {
             undef($constructmode);
         }
     }
   
 # ============================================================ Modify and store  # ============================================================ Modify and store
   if ($constructmode && $env{'form.store'}) {    if ($constructmode && $env{'form.store'}) {
Removed from v.1.35  
changed lines
  Added in v.1.36

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