[BACK]Return to assesscalc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / spreadsheet

Diff for /loncom/interface/spreadsheet/assesscalc.pm between versions 1.15 and 1.17.2.1

version 1.15, 2003/06/23 20:47:00 version 1.17.2.1, 2003/09/23 01:52:57
Line 247  this user and course. Line 247  this user and course.
 ##################################################  ##################################################
 sub parmval {  sub parmval {
     my $self = shift;      my $self = shift;
     my ($what,$symb,$uname,$udom,$csec)=@_;      my ($what,$symb,$uname,$udom,$csec,$recurse)=@_;
     $uname = $self->{'name'}    if (! defined($uname));      $uname = $self->{'name'}    if (! defined($uname));
     $udom  = $self->{'domain'}  if (! defined($udom));      $udom  = $self->{'domain'}  if (! defined($udom));
     $csec  = $self->{'section'} if (! defined($csec));      $csec  = $self->{'section'} if (! defined($csec));
Line 312  sub parmval { Line 312  sub parmval {
  if ($part eq '') { $part='0'; }   if ($part eq '') { $part='0'; }
  my $newwhat=$rwhat;   my $newwhat=$rwhat;
  $newwhat=~s/\Q$space\E/$part/;   $newwhat=~s/\Q$space\E/$part/;
  my $partgeneral=$self->parmval($newwhat,$symb,$uname,$udom,$csec);   my $partgeneral=$self->parmval($newwhat,$symb,$uname,$udom,$csec,1);
  if (defined($partgeneral)) { return $partgeneral; }   if (defined($partgeneral)) { return $partgeneral; }
     }      }
       if ($recurse) { return undef; }
       my $pack_def=&Apache::lonnet::packages_tab_default($fn,'resource.'.$what);
       if (defined($pack_def)) { return $pack_def; }
     #nothing defined      #nothing defined
     return '';      return '';
 }  }
Line 334  sub get_html_title { Line 337  sub get_html_title {
 sub get_title {  sub get_title {
     my $self = shift;      my $self = shift;
     my @title = ();      my @title = ();
     if (($self->{'usymb'} eq '_feedback') ||      if (($self->{'symb'} eq '_feedback') ||
         ($self->{'usymb'} eq '_evaluation') ||          ($self->{'symb'} eq '_evaluation') ||
         ($self->{'usymb'} eq '_discussion') ||          ($self->{'symb'} eq '_discussion') ||
         ($self->{'usymb'} eq '_tutoring')) {          ($self->{'symb'} eq '_tutoring')) {
         my $assess_title = ucfirst($self->{'usymb'});          my $assess_title = ucfirst($self->{'symb'});
         $assess_title =~ s/^_//;          $assess_title =~ s/^_//;
         push(@title,$assess_title);          push(@title,$assess_title);
     } else {      } else {
Line 591  sub compute { Line 594  sub compute {
         while (my ($parm,$value) = each(%parameters)) {          while (my ($parm,$value) = each(%parameters)) {
             last if ($self->blackout());              last if ($self->blackout());
             next if ($parm !~ /^(parameter_.*)_problemstatus$/);              next if ($parm !~ /^(parameter_.*)_problemstatus$/);
             next if ($parameters{$1.'_answerdate'}<time);      if ($parameters{$1.'_answerdate'} ne '' &&
    $parameters{$1.'_answerdate'} < time) {
    next;
       }
             if (lc($value) eq 'no') {              if (lc($value) eq 'no') {
                 # We must blackout this sheet                  # We must blackout this sheet
                 $self->blackout(1);                  $self->blackout(1);
Removed from v.1.15  
changed lines
  Added in v.1.17.2.1

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>