loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.99, 2004/03/31 05:24:00
+version 1.100, 2004/05/04 20:43:21
  Line 452  END
  				(($ENV{'form.catalogmode'} eq 'groupimport')?
  				 'document.forms.fileattr':'')).
  		  &Apache::lonhtmlcommon::select_recent('residx','resrecent',
- 'this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();').
+ 'this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();'));
- 		  '</form>');
+ # -------------------------------------------------------- Resource Home Button
+ 	my $reshome=$ENV{'course.'.$ENV{'request.course.id'}.'.reshome'};
+ 	if ($reshome) {
+ 	    $r->print("<font size='+2'><a href='");
+ 	    if ($ENV{'form.catalogmode'} eq 'groupimport') {
+ 		$r->print('javascript:document.forms.fileattr.action="'.$reshome.'";document.forms.fileattr.submit();');
+ 	    } else {
+ 		$r->print($reshome);
+ 	    }
+ 	    $r->print("'>".&mt('Home').'</a></font>');
+ 	}
+ 	$r->print('</form>');
  # ------------------------------------------------------ Remember where we were
  	&Apache::loncommon::storeresurl($storeuri);
  	&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri);