[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface londocs.pm
From: raeburn via LON-CAPA-cvs <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2023-01-19 16:43:49
Message-ID: cvsraeburn1674146629 () cvsserver
[Download RAW message or body]
raeburn Thu Jan 19 16:43:49 2023 EDT
Modified files:
/loncom/interface londocs.pm
Log:
- If no title attribute is assigned to a resource, display filename instead in
"After" column when showing a parameter change (hidden, urlhidden, randompick
or randomorder) in Course Editor History.
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.692 loncom/interface/londocs.pm:1.693
--- loncom/interface/londocs.pm:1.692 Wed Jan 18 18:10:26 2023
+++ loncom/interface/londocs.pm Thu Jan 19 16:43:49 2023
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.692 2023/01/18 18:10:26 raeburn Exp $
+# $Id: londocs.pm,v 1.693 2023/01/19 16:43:49 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1207,7 +1207,11 @@
}
$r->print('</ul>');
if ($docslog{$id}{'logentry'}{'parameter_res'}) {
- $r->print(&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'}))[0]).':<ul>');
+ my ($title,$url) = \
split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'},3); + if ($title eq \
'') { + ($title) = ($url =~ m{/([^/]+)$});
+ }
+ $r->print(&LONCAPA::map::qtescape($title).':<ul>');
foreach my $parameter \
('randompick','hiddenresource','encrypturl','randomorder','gradable') { if \
($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) { # FIXME: \
internationalization seems wrong here
_______________________________________________
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