--- loncom/interface/lonwhatsnew.pm 2005/07/10 02:31:30 1.23
+++ loncom/interface/lonwhatsnew.pm 2005/07/15 05:30:06 1.25
@@ -1,5 +1,5 @@
#
-# $Id: lonwhatsnew.pm,v 1.23 2005/07/10 02:31:30 albertel Exp $
+# $Id: lonwhatsnew.pm,v 1.25 2005/07/15 05:30:06 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -38,6 +38,7 @@ use Apache::lonnavmaps();
use Apache::lonuserstate;
use Apache::Constants qw(:common :http);
use Time::Local;
+use GDBM_File;
#----------------------------
# handler
@@ -190,10 +191,12 @@ sub display_actions_box() {
$r->print('
You are accessing an invalid course.
');
return;
}
-
- my ($furl,$ferr)=
- &Apache::lonuserstate::readmap($cdom.'/'.$crs);
- $r->print('Go to first resource
Change your preferences to suppress display of this screen when accessing courses as Course Coordinator in the future.
');
+ if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db',
+ &GDBM_READER(),0640)) {
+ my $furl=$bighash{'first_url'};
+ $r->print('Go to first resource
Change your preferences to suppress display of this screen when accessing courses as Course Coordinator in the future.
');
+ untie(%bighash);
+ }
my $result;
@@ -561,11 +564,12 @@ sub getitems {
if ($resource->is_problem()) {
my $ctr = 0;
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
- my ($partlist,$handgrade,$responseType) =
- &Apache::grades::response_type($url,$symb);
+ my $partlist=$resource->parts();
my $handgradeable;
- foreach my $value (values(%{$handgrade})) {
- if ($value eq 'yes') { $handgradeable=1; last; }
+ foreach my $part (@$partlist) {
+ if ($resource->handgrade($part) eq 'yes') {
+ $handgradeable=1; last;
+ }
}
if ($handgradeable) {
foreach my $student (keys(%$classlist)) {