[LON-CAPA-cvs] cvs: loncom /interface lonviewcoauthors.pm rat lonwrapper.pm

raeburn raeburn at source.lon-capa.org
Sat Aug 31 17:00:44 EDT 2024


raeburn		Sat Aug 31 21:00:44 2024 EDT

  Modified files:              
    /rat	lonwrapper.pm 
    /loncom/interface	lonviewcoauthors.pm 
  Log:
  - Bug 5273
    When listing co-authors skip display of records with no username or domain. 
  
  
Index: rat/lonwrapper.pm
diff -u rat/lonwrapper.pm:1.49.2.7.2.2 rat/lonwrapper.pm:1.49.2.7.2.3
--- rat/lonwrapper.pm:1.49.2.7.2.2	Mon Feb 17 01:31:20 2020
+++ rat/lonwrapper.pm	Sat Jul 18 20:34:58 2020
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Wrapper for external and binary files as standalone resources
 #
-# $Id: lonwrapper.pm,v 1.49.2.7.2.2 2020/02/17 01:31:20 raeburn Exp $
+# $Id: lonwrapper.pm,v 1.49.2.7.2.3 2020/07/18 20:34:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -275,7 +275,7 @@
     for ($url){
         s|^/adm/wrapper||;
         $is_ext = $_ =~ s|^/ext/|http://|;
-        s|http://https://?|https://| if ($is_ext);
+        s|http://https://|https://| if ($is_ext);
         s|:|:|g;
     }
 
Index: loncom/interface/lonviewcoauthors.pm
diff -u loncom/interface/lonviewcoauthors.pm:1.5 loncom/interface/lonviewcoauthors.pm:1.6
--- loncom/interface/lonviewcoauthors.pm:1.5	Fri May 24 15:27:59 2024
+++ loncom/interface/lonviewcoauthors.pm	Sat Aug 31 21:00:44 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to display the coauthors
 #
-# $Id: lonviewcoauthors.pm,v 1.5 2024/05/24 15:27:59 raeburn Exp $
+# $Id: lonviewcoauthors.pm,v 1.6 2024/08/31 21:00:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -401,6 +401,7 @@
         my (%userinfo,%showuser);
         foreach my $item (keys(%coauthors)) {
             my ($username,$domain,$userrole) = split(/:/,$item);
+            next if (($username eq '') && ($domain eq''));
             my ($start,$end) = split(/:/,$coauthors{$item});
             next if ($start eq '-1' && $end eq '-1');
             if (ref($userinfo{$username.':'.$domain}) eq 'HASH') {




More information about the LON-CAPA-cvs mailing list