--- loncom/homework/edit.pm 2003/06/09 22:42:49 1.54
+++ loncom/homework/edit.pm 2003/06/30 20:41:35 1.57
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# edit mode helpers
#
-# $Id: edit.pm,v 1.54 2003/06/09 22:42:49 albertel Exp $
+# $Id: edit.pm,v 1.57 2003/06/30 20:41:35 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -75,13 +75,7 @@ sub tag_end {
my ($target,$token,$description) = @_;
my $result='';
if ($target eq 'edit') {
- my $tag=$token->[1];
- if (!defined($description)) {
- $result.="
</$tag> | | ";
- } else {
- if ($description ne '') { $result.="
$description | | "; }
- }
- $result.="
".&end_table()."\n";
+ $result.="".&end_table()."\n";
}
return $result;
}
@@ -524,7 +518,7 @@ sub text_arg {
my $arg=$token->[2]{$name};
$result=$description.' ';
- return $result;
+ return ''.$result.'';
}
sub select_arg {
@@ -546,10 +540,10 @@ sub select_arg {
$optionlist.="\n";
}
}
- $result.=$description.' ';
return $result;
}
@@ -583,7 +577,7 @@ sub select_or_text_arg {
} else {
$result.=&text_arg($description,$name,$token,$size);
}
- return $result;
+ return ''.$result.'';
}
#----------------------------------------------------- image coordinates
@@ -657,7 +651,7 @@ sub browse {
$Apache::lonxml::curdepth);
}
my $result = <<"ENDBUTTON";
-Browse
+Select
ENDBUTTON
return $result;
}