[LON-CAPA-cvs] cvs: rat / lonuserstate.pm loncom/homework imageresponse.pm structuretags.pm loncom/imspackages imsprocessor.pm loncom/interface domainprefs.pm lonblockingmenu.pm lonbulletin.pm loncommon.pm loncreateuser.pm lonparmset.pm lonrequestcourse.pm lonwishlist.pm loncom/interface/spreadsheet studentcalc.pm loncom/interface/statistics lonproblemstatistics.pm loncom/xml londefdef.pm
raeburn
raeburn at source.lon-capa.org
Wed Dec 24 13:36:10 EST 2025
raeburn Wed Dec 24 18:36:10 2025 EDT
Modified files:
/loncom/interface domainprefs.pm lonblockingmenu.pm lonbulletin.pm
loncommon.pm loncreateuser.pm lonparmset.pm
lonrequestcourse.pm lonwishlist.pm
/loncom/interface/statistics lonproblemstatistics.pm
/loncom/interface/spreadsheet studentcalc.pm
/loncom/homework structuretags.pm imageresponse.pm
/loncom/xml londefdef.pm
/loncom/imspackages imsprocessor.pm
/rat lonuserstate.pm
Log:
- Coding style.
Replace double semi-colon at end of line with a single semi-colon.
-------------- next part --------------
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.454 loncom/interface/domainprefs.pm:1.455
--- loncom/interface/domainprefs.pm:1.454 Tue Dec 9 02:29:03 2025
+++ loncom/interface/domainprefs.pm Wed Dec 24 18:36:07 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: domainprefs.pm,v 1.454 2025/12/09 02:29:03 raeburn Exp $
+# $Id: domainprefs.pm,v 1.455 2025/12/24 18:36:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -15949,7 +15949,7 @@
$errors .= '<li>'.$proterror.'</li>';
}
- my (%delsuggested,%suggids, at suggested);;
+ my (%delsuggested,%suggids, at suggested);
if (ref($currltisec{'suggested'}) eq 'HASH') {
my $maxnum = $env{'form.linkprot_suggested_maxnum'};
my @todelete = &Apache::loncommon::get_env_multiple('form.linkprot_suggested_del');
Index: loncom/interface/lonblockingmenu.pm
diff -u loncom/interface/lonblockingmenu.pm:1.34 loncom/interface/lonblockingmenu.pm:1.35
--- loncom/interface/lonblockingmenu.pm:1.34 Mon Dec 15 03:08:53 2025
+++ loncom/interface/lonblockingmenu.pm Wed Dec 24 18:36:07 2025
@@ -2,7 +2,7 @@
# Routines for configuring blocking of access to collaborative functions,
# and specific resources during an exam
#
-# $Id: lonblockingmenu.pm,v 1.34 2025/12/15 03:08:53 raeburn Exp $
+# $Id: lonblockingmenu.pm,v 1.35 2025/12/24 18:36:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -839,7 +839,7 @@
}
foreach my $key (keys(%adds)) {
unless ( defined($cancels{$key}) ) {
- my ($newkey,$status,$needsrelease);;
+ my ($newkey,$status,$needsrelease);
if ($env{'form.firstaccess_'.$key}) {
my $interval =
&HTML::Entities::decode($env{'form.firstaccess_'.$key});
Index: loncom/interface/lonbulletin.pm
diff -u loncom/interface/lonbulletin.pm:1.70 loncom/interface/lonbulletin.pm:1.71
--- loncom/interface/lonbulletin.pm:1.70 Tue Jan 28 19:49:20 2025
+++ loncom/interface/lonbulletin.pm Wed Dec 24 18:36:07 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Bulletin Board Handler
#
-# $Id: lonbulletin.pm,v 1.70 2025/01/28 19:49:20 raeburn Exp $
+# $Id: lonbulletin.pm,v 1.71 2025/12/24 18:36:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -226,7 +226,7 @@
# ---------------------------------------------------------------- Get discussion board
if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
#Print Topic as Heading
- my $titletext=&HTML::Entities::encode($syllabus{'aaa_title'},'<>&"');;
+ my $titletext=&HTML::Entities::encode($syllabus{'aaa_title'},'<>&"');
if ($target ne 'tex') {
$r->print('<h2>'.$titletext.'</h2>');
} else {
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1492 loncom/interface/loncommon.pm:1.1493
--- loncom/interface/loncommon.pm:1.1492 Wed Dec 24 14:44:24 2025
+++ loncom/interface/loncommon.pm Wed Dec 24 18:36:07 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.1492 2025/12/24 14:44:24 raeburn Exp $
+# $Id: loncommon.pm,v 1.1493 2025/12/24 18:36:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -11266,7 +11266,7 @@
sub end_data_table {
&end_data_table_count();
- return '</table>'."\n";;
+ return '</table>'."\n";
}
sub start_data_table_row {
@@ -11287,16 +11287,16 @@
}
sub end_data_table_row {
- return '</tr>'."\n";;
+ return '</tr>'."\n";
}
sub start_data_table_empty_row {
# $row_count[0]++;
- return '<tr class="LC_empty_row" >'."\n";;
+ return '<tr class="LC_empty_row" >'."\n";
}
sub end_data_table_empty_row {
- return '</tr>'."\n";;
+ return '</tr>'."\n";
}
sub start_data_table_header_row {
@@ -11308,7 +11308,7 @@
}
sub end_data_table_header_row {
- return '</tr>'."\n";;
+ return '</tr>'."\n";
}
sub data_table_caption {
@@ -18210,8 +18210,8 @@
#
# Use new Randomseed
#
- $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
- $cenv{'receiptalg'}=&Apache::lonnet::latest_receipt_algorithm_id();;
+ $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();
+ $cenv{'receiptalg'}=&Apache::lonnet::latest_receipt_algorithm_id();
#
# The encryption code and receipt prefix for this course
#
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.489 loncom/interface/loncreateuser.pm:1.490
--- loncom/interface/loncreateuser.pm:1.489 Mon Dec 15 19:17:39 2025
+++ loncom/interface/loncreateuser.pm Wed Dec 24 18:36:07 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.489 2025/12/15 19:17:39 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.490 2025/12/24 18:36:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2476,8 +2476,8 @@
$r->print(&mt("Assigning a co-author or assistant co-author role to an Authoring Space's author is not permitted"));
}
}
- return $addrolesdisplay;;
-}
+ return $addrolesdisplay;
+
sub new_domain_roles {
my ($r,$ccdomain) = @_;
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.632 loncom/interface/lonparmset.pm:1.633
--- loncom/interface/lonparmset.pm:1.632 Sat Dec 13 13:33:33 2025
+++ loncom/interface/lonparmset.pm Wed Dec 24 18:36:07 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.632 2025/12/13 13:33:33 raeburn Exp $
+# $Id: lonparmset.pm,v 1.633 2025/12/24 18:36:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -7324,7 +7324,7 @@
my $idx = 1;
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
- my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};;
+ my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
$r->print(&Apache::loncommon::start_page('Order Metadata Fields'));
&Apache::lonhtmlcommon::add_breadcrumb(
{href=>'/adm/parmset?action=addmetadata',
Index: loncom/interface/lonrequestcourse.pm
diff -u loncom/interface/lonrequestcourse.pm:1.119 loncom/interface/lonrequestcourse.pm:1.120
--- loncom/interface/lonrequestcourse.pm:1.119 Tue Mar 18 19:32:43 2025
+++ loncom/interface/lonrequestcourse.pm Wed Dec 24 18:36:07 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Request a course
#
-# $Id: lonrequestcourse.pm,v 1.119 2025/03/18 19:32:43 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.120 2025/12/24 18:36:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -711,7 +711,7 @@
}
my %personnelhash = (%{$elements{'new'}{'personnel'}},%people);
%{$elements{'new'}{'personnel'}} = %personnelhash;
- return (\%elements,$instcredits);;
+ return (\%elements,$instcredits);
}
sub onload_action {
Index: loncom/interface/lonwishlist.pm
diff -u loncom/interface/lonwishlist.pm:1.27 loncom/interface/lonwishlist.pm:1.28
--- loncom/interface/lonwishlist.pm:1.27 Sat Apr 14 02:29:44 2018
+++ loncom/interface/lonwishlist.pm Wed Dec 24 18:36:07 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Utility-routines for wishlist
#
-# $Id: lonwishlist.pm,v 1.27 2018/04/14 02:29:44 raeburn Exp $
+# $Id: lonwishlist.pm,v 1.28 2025/12/24 18:36:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -964,7 +964,7 @@
}
else {
row.className = 'LC_odd_row';
- note.className = 'LC_odd_row'+note.className;;
+ note.className = 'LC_odd_row'+note.className;
}
LC_class = !LC_class;
}
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.129 loncom/interface/statistics/lonproblemstatistics.pm:1.130
--- loncom/interface/statistics/lonproblemstatistics.pm:1.129 Wed Dec 24 14:44:23 2025
+++ loncom/interface/statistics/lonproblemstatistics.pm Wed Dec 24 18:36:08 2025
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonproblemstatistics.pm,v 1.129 2025/12/24 14:44:23 raeburn Exp $
+# $Id: lonproblemstatistics.pm,v 1.130 2025/12/24 18:36:08 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1620,7 +1620,7 @@
($data->{'num_solved'}+0.1);
#
# Get the due date for research purposes (commented out most of the time)
-# my $duedate = &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb);;
+# my $duedate = &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb);
# my $opendate = &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb);
# my $maxtries = &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb);
# my $hinttries = &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb);
Index: loncom/interface/spreadsheet/studentcalc.pm
diff -u loncom/interface/spreadsheet/studentcalc.pm:1.47 loncom/interface/spreadsheet/studentcalc.pm:1.48
--- loncom/interface/spreadsheet/studentcalc.pm:1.47 Sun Dec 31 15:27:03 2017
+++ loncom/interface/spreadsheet/studentcalc.pm Wed Dec 24 18:36:09 2025
@@ -1,5 +1,5 @@
#
-# $Id: studentcalc.pm,v 1.47 2017/12/31 15:27:03 raeburn Exp $
+# $Id: studentcalc.pm,v 1.48 2025/12/24 18:36:09 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -506,7 +506,7 @@
$title =~ s/&\#058;/:/g;
if (@Rows) {
$data .= 'push(@{$Sequence_Rows{"'.quotemeta($title).'"}},'.
- '('.join(',', at Rows).'));'."\n";;
+ '('.join(',', at Rows).'));'."\n";
}
}
my $new_code = $data.<<'END';
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.596 loncom/homework/structuretags.pm:1.597
--- loncom/homework/structuretags.pm:1.596 Sat Dec 13 05:56:03 2025
+++ loncom/homework/structuretags.pm Wed Dec 24 18:36:09 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.596 2025/12/13 05:56:03 raeburn Exp $
+# $Id: structuretags.pm,v 1.597 2025/12/24 18:36:09 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -244,7 +244,7 @@
} elsif ( $target eq "modified" ) {
return $token->[4].&Apache::edit::modifiedfield("/tex",$parser);
}
- return $result;;
+ return $result;
}
sub end_tex {
Index: loncom/homework/imageresponse.pm
diff -u loncom/homework/imageresponse.pm:1.106 loncom/homework/imageresponse.pm:1.107
--- loncom/homework/imageresponse.pm:1.106 Fri Jul 1 19:59:15 2016
+++ loncom/homework/imageresponse.pm Wed Dec 24 18:36:09 2025
@@ -2,7 +2,7 @@
# The LearningOnline Network with CAPA
# image click response style
#
-# $Id: imageresponse.pm,v 1.106 2016/07/01 19:59:15 raeburn Exp $
+# $Id: imageresponse.pm,v 1.107 2025/12/24 18:36:09 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -691,7 +691,7 @@
$safeeval,'name');
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
}
- return $result;;
+ return $result;
}
sub end_foil {
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.476 loncom/xml/londefdef.pm:1.477
--- loncom/xml/londefdef.pm:1.476 Mon Dec 22 20:50:26 2025
+++ loncom/xml/londefdef.pm Wed Dec 24 18:36:09 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Tags Default Definition Module
#
-# $Id: londefdef.pm,v 1.476 2025/12/22 20:50:26 raeburn Exp $
+# $Id: londefdef.pm,v 1.477 2025/12/24 18:36:09 raeburn Exp $
#
#
# Copyright Michigan State University Board of Trustees
@@ -3279,7 +3279,7 @@
my $currentstring = '';
if ($target eq 'web' || $target eq 'webgrade') {
my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval,undef,1);
- $currentstring .= '<b>'.$display.'</b>';;
+ $currentstring .= '<b>'.$display.'</b>';
}
return $currentstring;
}
@@ -3299,7 +3299,7 @@
my $currentstring = '';
if ($target eq 'web' || $target eq 'webgrade') {
my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval,undef,1);
- $currentstring .= '<b>'.$display.'</b>';;
+ $currentstring .= '<b>'.$display.'</b>';
}
return $currentstring;
}
Index: loncom/imspackages/imsprocessor.pm
diff -u loncom/imspackages/imsprocessor.pm:1.58 loncom/imspackages/imsprocessor.pm:1.59
--- loncom/imspackages/imsprocessor.pm:1.58 Wed May 2 19:34:58 2018
+++ loncom/imspackages/imsprocessor.pm Wed Dec 24 18:36:10 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Processor for IMS Packages
#
-# $Id: imsprocessor.pm,v 1.58 2018/05/02 19:34:58 raeburn Exp $
+# $Id: imsprocessor.pm,v 1.59 2025/12/24 18:36:10 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4792,7 +4792,7 @@
$tol = 5;
$numans = $$settings{$id}{correctanswer}[0];
} else {
- my $min = $$settings{$id}{correctanswer}[0];;
+ my $min = $$settings{$id}{correctanswer}[0];
my $max = $min;
for (my $k=1; $k<@{$$settings{$id}{correctanswer}}; $k++) {
if ($$settings{$id}{correctanswer}[$k] <= $min) {
Index: rat/lonuserstate.pm
diff -u rat/lonuserstate.pm:1.172 rat/lonuserstate.pm:1.173
--- rat/lonuserstate.pm:1.172 Sat Sep 6 18:16:16 2025
+++ rat/lonuserstate.pm Wed Dec 24 18:36:10 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Construct and maintain state and binary representation of course for user
#
-# $Id: lonuserstate.pm,v 1.172 2025/09/06 18:16:16 raeburn Exp $
+# $Id: lonuserstate.pm,v 1.173 2025/12/24 18:36:10 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1512,7 +1512,7 @@
unless ($uri=$cenv{'url'}) {
&Apache::lonnet::logthis('<font color="blue">WARNING: '.
"Could not load course $short.</font>");
- return ('',&mt('No course data available.'));;
+ return ('',&mt('No course data available.'));
}
@cond=('true:normal');
More information about the LON-CAPA-cvs
mailing list