[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonrequestcourse.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2015-09-01 14:11:26
Message-ID: cvsraeburn1441116686 () cvsserver
[Download RAW message or body]
raeburn Tue Sep 1 14:11:26 2015 EDT
Modified files:
/loncom/interface lonrequestcourse.pm
Log:
- Display owner and co-owners in colleagues' courses table in course request
form.
Index: loncom/interface/lonrequestcourse.pm
diff -u loncom/interface/lonrequestcourse.pm:1.93 loncom/interface/lonrequestcourse.pm:1.94
--- loncom/interface/lonrequestcourse.pm:1.93 Mon Aug 24 14:50:22 2015
+++ loncom/interface/lonrequestcourse.pm Tue Sep 1 14:11:26 2015
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Request a course
#
-# $Id: lonrequestcourse.pm,v 1.93 2015/08/24 14:50:22 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.94 2015/09/01 14:11:26 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4849,12 +4849,22 @@
my $cleantitle=&HTML::Entities::encode($title,'<>&"');
$cleantitle=~s/'/\\'/g;
$cleantitle =~ s/^\s+//;
- my ($namestr,@owners,%ownernames);
- my $singleowner = $cloneableref->{$cid}{'internal.courseowner'};
- push(@owners,$singleowner);
- if ($cloneableref->{$cid}{'co-owners'} ne '') {
- foreach my $item (split(/,/,$cloneableref->{$cid}{'internal.co-owners'})) {
- push(@owners,$item);
+ my ($namestr,$singleowner,$otherowners,@owners,%ownernames);
+ if ($name eq 'colleague') {
+ $singleowner = $cloneableref->{$cid}{'owner'};
+ $otherowners = $cloneableref->{$cid}{'co-owners'};
+ } else {
+ $singleowner = $cloneableref->{$cid}{'internal.courseowner'};
+ $otherowners = $cloneableref->{$cid}{'internal.co-owners'};
+ }
+ if ($singleowner ne '') {
+ push(@owners,$singleowner);
+ }
+ if ($otherowners ne '') {
+ foreach my $item (split(/,/,$otherowners)) {
+ if (($item ne '') && (!grep(/^\Q$item\E$/,@owners))) {
+ push(@owners,$item);
+ }
}
}
foreach my $owner (@owners) {
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic