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

Diff for /loncom/interface/lonviewcoauthors.pm between versions 1.3 and 1.6

version 1.3, 2023/11/04 01:56:04 version 1.6, 2024/08/31 21:00:44
Line 96  sub handler { Line 96  sub handler {
   
     # Print page header      # Print page header
     my $args = { 'bread_crumbs' => $brcrum };      my $args = { 'bread_crumbs' => $brcrum };
     $r->print(&Apache::loncommon::start_page('Co-authors listing',undef,      $r->print(&Apache::loncommon::start_page('Co-author listing',undef,
                                              $args));                                               $args));
   
     if (($canedit) && ($env{'form.forceedit'})) {      if (($canedit) && ($env{'form.forceedit'})) {
Line 218  sub edit_settings { Line 218  sub edit_settings {
                                                    'coauthorlist','coauthoroptin');                                                     'coauthorlist','coauthoroptin');
     my %titles = &Apache::lonlocal::texthash (      my %titles = &Apache::lonlocal::texthash (
                    coauthorlist => 'List availability',                     coauthorlist => 'List availability',
                    coauthoroptin => 'User agreement needed for listing',                     coauthoroptin => "Co-author's agreement needed for listing",
                  );                   );
     my %options = &Apache::lonlocal::texthash (      my %options = &Apache::lonlocal::texthash (
                     role => "List only same type of co-author role as viewer",                      role => "List only same type of co-author role as viewer",
Line 397  sub print_coauthors { Line 397  sub print_coauthors {
             @showroles = ('ca','aa');              @showroles = ('ca','aa');
         }          }
         my %coauthors = &Apache::lonnet::get_my_roles($auname,$audom,undef,undef,          my %coauthors = &Apache::lonnet::get_my_roles($auname,$audom,undef,undef,
                                                       \@showroles,[$audom]);                                                        \@showroles);
         my (%userinfo,%showuser);          my (%userinfo,%showuser);
         foreach my $item (keys(%coauthors)) {          foreach my $item (keys(%coauthors)) {
             my ($username,$domain,$userrole) = split(/:/,$item);              my ($username,$domain,$userrole) = split(/:/,$item);
               next if (($username eq '') && ($domain eq''));
             my ($start,$end) = split(/:/,$coauthors{$item});              my ($start,$end) = split(/:/,$coauthors{$item});
             next if ($start eq '-1' && $end eq '-1');              next if ($start eq '-1' && $end eq '-1');
             if (ref($userinfo{$username.':'.$domain}) eq 'HASH') {              if (ref($userinfo{$username.':'.$domain}) eq 'HASH') {
Removed from v.1.3  
changed lines
  Added in v.1.6

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