--- loncom/homework/structuretags.pm	2004/05/27 04:32:19	1.251
+++ loncom/homework/structuretags.pm	2004/05/28 19:26:05	1.253
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.251 2004/05/27 04:32:19 albertel Exp $
+# $Id: structuretags.pm,v 1.253 2004/05/28 19:26:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -334,6 +334,20 @@ sub checkout_msg {
 ENDCHECKOUT
 }
 
+sub firstaccess_msg {
+    my ($time,$symb)=@_;
+    my ($map)=&Apache::lonnet::decode_symb($symb);
+    my $foldertitle=&Apache::lonnet::gettitle($map);
+    &Apache::lonxml::debug("map is $map title is $foldertitle");
+    return (<<ENDCHECKOUT);
+<h2>The resources in "$foldertitle" are open for a limited time. Once you click the 'Show Resource' button below you have $time to complete all resources "$foldertitle".</h2>
+<form name="markaccess" method="POST" action="$ENV{'request.uri'}">
+<input type="hidden" name="markaccess" value="yes" />
+<input type="button" name="accessbutton" value="Show Resource" onClick="javascript:if (confirm('Start Timer?')) { document.markaccess.submit(); }" />
+</form>
+ENDCHECKOUT
+}
+
 sub init_problem_globals {
     my ($type)=@_;
     #initialize globals
@@ -458,7 +472,9 @@ sub start_problem {
 	    }
 	    $body_tag_start.=&Apache::lonxml::printtokenheader($target,$token);
 	}
-
+	if ($ENV{'form.markaccess'}) {
+	    &Apache::lonnet::set_first_access('map');
+	}
 	#handle rand seed in construction space
 	my $rndseed=&setup_rndseed($safeeval);
 	my ($symb)=&Apache::lonxml::whichuser();
@@ -478,6 +494,7 @@ sub start_problem {
 	&Apache::lonxml::debug("Got $status");
 	if (( $status eq 'CLOSED' ) ||
 	    ( $status eq 'UNCHECKEDOUT') ||
+	    ( $status eq 'NOT_YET_VIEWED') ||
 	    ( $status eq 'BANNED') ||
 	    ( $status eq 'UNAVAILABLE') ||
 	    ( $status eq 'INVALID_ACCESS')) {
@@ -487,13 +504,15 @@ sub start_problem {
 		my $msg=$body_tag_start;
 		if ($status eq 'UNAVAILABLE') {
 		    $msg.='<h1>'.&mt('Unable to determine if this resource is open due to network problems. Please try again later.').'</h1>';
-		} else {
+		} elsif ($status ne 'NOT_YET_VIEWED') {
 		    $msg.='<h1>'.&mt('Not open to be viewed').'</h1>';
 		}
 		if ($status eq 'CLOSED' || $status eq 'INVALID_ACCESS') {
 		    $msg.='The problem '.$accessmsg;
 		} elsif ($status eq 'UNCHECKEDOUT') {
 		    $msg.=&checkout_msg;
+		} elsif ($status eq 'NOT_YET_VIEWED') {
+		    $msg.=&firstaccess_msg($accessmsg,$symb);
 		}
 		$result.=$msg.'<br />';
 	    } elsif ($target eq 'tex') {
@@ -603,7 +622,7 @@ sub end_problem {
 	    }
 	} elsif ( ($target eq 'web' || $target eq 'tex') &&
 		  $Apache::inputtags::part eq '0' &&
-		  $status ne 'UNCHECKEDOUT') {
+		  $status ne 'UNCHECKEDOUT' && $status ne 'NOT_YET_VIEWED') {
 	    # if part is zero, no <part>s existed, so we need show the current
 	    # grading status
 	    my $gradestatus = &Apache::inputtags::gradestatus($Apache::inputtags::part,$target);
@@ -1037,6 +1056,7 @@ sub start_part {
 	    }
 	    if (( $status eq 'CLOSED' ) ||
 		( $status eq 'UNCHECKEDOUT') ||
+		( $status eq 'NOT_YET_VIEWED') ||
 		( $status eq 'BANNED') ||
 		( $status eq 'UNAVAILABLE') ||
 		( $status eq 'INVALID_ACCESS')) {