--- loncom/interface/loncommon.pm 2006/12/11 03:43:15 1.490
+++ loncom/interface/loncommon.pm 2006/12/11 21:56:52 1.492
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.490 2006/12/11 03:43:15 raeburn Exp $
+# $Id: loncommon.pm,v 1.492 2006/12/11 21:56:52 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -515,8 +515,8 @@ function setSect(sectionlist) {
sub selectcourse_link {
my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype)=@_;
- return "".&mt('Select [_1]',$selecttype)."";
+ return "".&mt('Select Course')."";
}
sub check_uncheck_jscript {
@@ -3009,7 +3009,7 @@ sub blockcheck {
}
# if they have the evb priv and are currently not playing student
next if (($no_ownblock) &&
- ($env{'request.role'} !~ m{^st\./$cdom/$cnum}));
+ ($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));
next if ($no_userblock);
# Retrieve blocking times and identity of blocker for course
@@ -3037,11 +3037,11 @@ sub get_blocks {
if ($blocks->{$activity} eq 'on') {
push(@{$$setters{$course}{'staff'}},[$staff_name,$staff_dom]);
push(@{$$setters{$course}{'times'}}, [$start,$end]);
- if ( ($startblock == 0) || ($startblock > $1) ) {
- $startblock = $1;
+ if ( ($startblock == 0) || ($startblock > $start) ) {
+ $startblock = $start;
}
- if ( ($endblock == 0) || ($endblock < $2) ) {
- $endblock = $2;
+ if ( ($endblock == 0) || ($endblock < $end) ) {
+ $endblock = $end;
}
}
}