[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Fri, 04 Jun 2004 22:54:38 -0000
albertel Fri Jun 4 18:54:38 2004 EDT
Modified files:
/loncom/interface lonfeedback.pm
Log:
- remove debug spew
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.92 loncom/interface/lonfeedback.pm:1.93
--- loncom/interface/lonfeedback.pm:1.92 Fri Jun 4 15:27:33 2004
+++ loncom/interface/lonfeedback.pm Fri Jun 4 18:54:36 2004
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.92 2004/06/04 19:27:33 albertel Exp $
+# $Id: lonfeedback.pm,v 1.93 2004/06/04 22:54:36 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -42,15 +42,12 @@
if (defined($status) &&
!($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER'
|| $status eq 'OPEN')) {
- &Apache::lonnet::logthis(" no open due to status $status");
return 0;
}
my $close=&Apache::lonnet::EXT('resource.0.discussend');
if (defined($close) && $close ne '' && $close < time) {
- &Apache::lonnet::logthis(" no open due to time ");
return 0;
}
- &Apache::lonnet::logthis(" open ");
return 1;
}
@@ -59,11 +56,9 @@
if (not &discussion_open($status)) {
my $hidden=&Apache::lonnet::EXT('resource.0.discusshide');
if (lc($hidden) eq 'yes' or $hidden eq '' or !defined($hidden)) {
- &Apache::lonnet::logthis(" hidden ");
return 0;
}
}
- &Apache::lonnet::logthis(" visible ");
return 1;
}