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

Diff for /loncom/interface/londocs.pm between versions 1.707 and 1.708

version 1.707, 2023/12/28 19:29:38 version 1.708, 2024/01/08 18:17:50
Line 6503  sub handler { Line 6503  sub handler {
   
   if ($allowed && $toolsflag) {    if ($allowed && $toolsflag) {
       $r->print(&startContentScreen('tools'));        $r->print(&startContentScreen('tools'));
       $r->print(&generate_admin_menu($crstype,$canedit));        $r->print(&generate_admin_menu($crstype,$canedit,$coursenum,$coursedom));
       $r->print(&endContentScreen());        $r->print(&endContentScreen());
   } elsif ((!$showdoc) && (!$uploadphase)) {    } elsif ((!$showdoc) && (!$uploadphase)) {
 # -----------------------------------------------------------------------------  # -----------------------------------------------------------------------------
Line 7597  sub remove_archive { Line 7597  sub remove_archive {
 }  }
   
 sub generate_admin_menu {  sub generate_admin_menu {
     my ($crstype,$canedit) = @_;      my ($crstype,$canedit,$coursenum,$coursedom) = @_;
     my $lc_crstype = lc($crstype);      my $lc_crstype = lc($crstype);
     my ($home,$other,%outhash)=&authorhosts();      my ($home,$other,%outhash)=&authorhosts();
     my %lt= ( # do not translate here      my %lt= ( # do not translate here
Line 7605  sub generate_admin_menu { Line 7605  sub generate_admin_menu {
                                          'cv'   => 'Check/Set Resource Versions',                                           'cv'   => 'Check/Set Resource Versions',
                                          'ls'   => 'List Resource Identifiers',                                           'ls'   => 'List Resource Identifiers',
                                          'ct'   => 'Display/Set Shortened URLs for Deep-linking',                                           'ct'   => 'Display/Set Shortened URLs for Deep-linking',
                                            'ca'   => "Enter $crstype Authoring Space",
                                          'imse' => 'Export contents to IMS Archive',                                           'imse' => 'Export contents to IMS Archive',
                                          'dcd'  => "Copy $crstype Content to Authoring Space",                                           'dcd'  => "Copy $crstype Content to Authoring Space",
             );              );
Line 7665  sub generate_admin_menu { Line 7666  sub generate_admin_menu {
                 ]                  ]
         });          });
     if ($canedit) {      if ($canedit) {
           my ($crsauname,$crsaudom,$crshome);
           if (($coursenum ne '') && ($coursedom ne '')) {
               my $crsauthorurl = "/priv/$coursedom/$coursenum/";
               ($crsauname,$crsaudom,$crshome) = &Apache::lonnet::constructaccess($crsauthorurl);
               if (($crsauname eq $coursenum) && ($crsaudom eq $coursedom)) {
                   my @ids=&Apache::lonnet::current_machine_ids();
                   my $linkurl;
                   if (grep(/^\Q$crshome\E$/,@ids)) {
                       $linkurl = $crsauthorurl;
                   } else {
                       $linkurl =
                           &Apache::lonhtmlcommon::jump_to_editres($crsauthorurl,$crshome,1);
                   }
                   if ((ref($menu[0]) eq 'HASH') && (ref($menu[0]->{'items'}) eq 'ARRAY')) {
                        push(@{$menu[0]->{items}},
                        {   linktext   => $lt{'ca'},
                            url        => $linkurl,
                            permission => 'F',
                            help       => 'Docs_Course_Authorspace',
                            icon       => 'impcrsau.png',
                            linktitle  => $lt{'ca'},
                        });
                   }
               }
           }
         push(@menu,          push(@menu,
         {   categorytitle=>'Export',          {   categorytitle=>'Export',
             items =>[              items =>[
Removed from v.1.707  
changed lines
  Added in v.1.708

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