[BACK]Return to bridgetask.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/bridgetask.pm between versions 1.1 and 1.3

version 1.1, 2005/03/16 19:09:44 version 1.3, 2005/03/17 21:56:04
Line 64  sub start_Task { Line 64  sub start_Task {
  if (( $status eq 'CLOSED' ) ||   if (( $status eq 'CLOSED' ) ||
     ( $status eq 'BANNED') ||      ( $status eq 'BANNED') ||
     ( $status eq 'UNAVAILABLE') ||      ( $status eq 'UNAVAILABLE') ||
       ( $status eq 'NOT_IN_A_SLOT') ||
     ( $status eq 'INVALID_ACCESS')) {      ( $status eq 'INVALID_ACCESS')) {
     my $bodytext=&Apache::lonxml::get_all_text("/task",$parser);      my $bodytext=&Apache::lonxml::get_all_text("/task",$parser);
     if ( $target eq "web" ) {      if ( $target eq "web" ) {
Line 71  sub start_Task { Line 72  sub start_Task {
  my $msg=$body_tag_start;   my $msg=$body_tag_start;
  if ($status eq 'UNAVAILABLE') {   if ($status eq 'UNAVAILABLE') {
     $msg.='<h1>'.&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'</h1>';      $msg.='<h1>'.&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'</h1>';
    } elsif ($status eq 'NOT_IN_A_SLOT') {
       $msg.='<h1>'.&mt('You are not currently signed up to work at this time and/or place.').'</h1>';
    } elsif ($status eq 'IN_A_SLOT') {
       $msg.='<h1>'.&mt('You need the Proctor to validate you.').'</h1>';
  } elsif ($status ne 'NOT_YET_VIEWED') {   } elsif ($status ne 'NOT_YET_VIEWED') {
     $msg.='<h1>'.&mt('Not open to be viewed').'</h1>';      $msg.='<h1>'.&mt('Not open to be viewed').'</h1>';
  }   }
Line 125  sub end_Task { Line 130  sub end_Task {
     #&finalize_storage();      #&finalize_storage();
  }   }
     } elsif ($target eq 'meta') {      } elsif ($target eq 'meta') {
  #$result=&Apache::response::mandatory_part_meta;   $result.='<parameter part="0" package="Task"></parameter>'."\n";
  #$result.=&Apache::response::meta_part_order();   #$result.=&Apache::response::meta_part_order();
  #$result.=&Apache::response::meta_response_order();   #$result.=&Apache::response::meta_response_order();
     }      }
Line 167  sub end_Dimension { Line 172  sub end_Dimension {
  #to randomly pick one until all have been seen   #to randomly pick one until all have been seen
  #then start repicking   #then start repicking
  my $instance=$dimension{'instances'}->[0];   my $instance=$dimension{'instances'}->[0];
  my $result=$dimension{'intro'}.   $result=$dimension{'intro'}.
     $dimension{$instance.'.text'}.      $dimension{$instance.'.text'}.
     '<table border="1"><tr><td>Criteria</td></tr><tr><td>';      '<table border="1"><tr><td>Criteria</td></tr><tr><td>';
  foreach my $id (@{$dimension{$instance.'.criterias'}}) {   foreach my $id (@{$dimension{$instance.'.criterias'}}) {
Removed from v.1.1  
changed lines
  Added in v.1.3

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