--- loncom/interface/loncommon.pm 2003/02/25 21:49:45 1.84 +++ loncom/interface/loncommon.pm 2003/02/25 21:54:14 1.85 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.84 2003/02/25 21:49:45 albertel Exp $ +# $Id: loncommon.pm,v 1.85 2003/02/25 21:54:14 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1921,6 +1921,22 @@ sub csv_samples_select_table { return($i); } +=pod + +=item check_if_partid_hidden($id,$symb,$udom,$uname) + +Returns either 1 or undef + +1 if the part is to be hidden, undef if it is to be shown + +Arguments are: + +$id the id of the part to be checked +$symb, optional the symb of the resource to check +$udom, optional the domain of the user to check for +$uname, optional the username of the user to check for + +=cut sub check_if_partid_hidden { my ($id,$symb,$udom,$uname) = @_;