DataMuseum.dk

top - download

    Length: 1270 (0x4f6)
    Types: TextFile
    Notes: @(#)Form.list 13.2 (RC International) 91/08/23
    Names: »Form.list«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/add-ons/lp/printers/classes/Form.list« 

TextFile

#	@(#)Form.list	13.2 (RC International) 91/08/23

form="List Printers in Classes"

help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO

init=`indicator -w; set -l name_2="/tmp/lp.n2$VPID";
lpdata -c > $name_2;
if [ -s "$name_2" ];
then
	echo "true";
else
	echo "false";
	message -b "There are no classes available";
fi`

framemsg="Enter classes then press [SAVE] to list members"

done=`
if [ -n $F1 ];
then
	echo "$F1" | tr -s " " "," | set -l args;
	echo "OPEN TEXT $OBJ_DIR/Text.list $args";
else
	echo "close";
fi`

close=`rm -f $name_2;
	unset -l args -l do_all -l name_2 -l name_valid -l bad_one`

#F1
name="Classes:"
lininfo="list:F1"
nrow=1
ncol=1
frow=1
fcol=12
rows=1
columns=30
scroll=true
rmenu=OPEN MENU $OBJ_DIR/Menu.class.ch
valid=`indicator -w;
	unset -l bad_one;
	lpdata -c > $name_2;
	if [ -z "$F1" ];
	then
		set -l no_value=true -l name_valid=false;
	else
		echo "all" >> $name_2;
		set -l no_value=false -l name_valid=true;
	fi;
	echo "$F1" | tr  " ," "[\012*]" | regex -e '^(.*)$0$'
	'`fmlgrep "^$m0$" $name_2 || set -l bad_one="$m0" -l name_valid=false`' > /dev/null`$name_valid
invalidmsg=`if [ "$no_value" = "true" ];
	then
		echo "You must enter a value for this field.";
	else
		echo "$bad_one invalid class - press [CHOICES] for selection";
	fi`