print('value="'.$tempkey.'"'); if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { @@ -814,12 +916,14 @@ ENDSCRIPT } $r->print(' | ||
-Select All
-Select Standard
+Select All +Select Common Only |
-Select Dates
-Select Visibilities
-Select Part Parameters
+Add Problem Dates
+Add Content Dates +Add Discussion Settings +Add Visibilities +Add Part Parameters | Unselect All | @@ -829,7 +933,7 @@ ENDSCRIPT sub partmenu { my ($r,$allparts,$psprt)=@_; - $r->print('