[WWcvs] webwork-modperl: Allow basic types to specify the width of their input

[jj v. a. <we...@ma...>]

Log Message:
-----------
Allow basic types to specify the width of their input fields, and changed the handling of the long doc strings.  The long string is no longer sent as a parameter where it might be truncated.

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
        Config.pm

Revision Data
-------------
Index: Config.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Config.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -Llib/WeBWorK/ContentGenerator/Instructor/Config.pm -Llib/WeBWorK/ContentGenerator/Instructor/Config.pm -u -r1.3 -r1.4
--- lib/WeBWorK/ContentGenerator/Instructor/Config.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/Config.pm
@@ -83,10 +83,11 @@
 # A widget to interact with the user
 sub entry_widget {
 	my ($self, $name, $default) = @_;
+	my $width = $self->{width} || 15;
 	return CGI::textfield(
 		-name => $name,
 		-value => $default,
-		-size => '15',
+		-size => $width,
 	);
 }
 
@@ -99,7 +100,7 @@
 		CGI::a({href=>$self->{Module}->systemLink(
 			$r->urlpath->new(type=>'instructor_config',
 				args=>{courseID => $r->urlpath->arg("courseID")}),
-				params=>{show_long_doc=>$self->{doc2} || $self->{doc}, 
+				params=>{show_long_doc=>1,
 					var_name=>"$self->{var}"}),
 			target=>"_blank"},
 			CGI::img({src=>$r->{ce}->{webworkURLs}->{htdocs}.
@@ -501,9 +502,18 @@
 	}
 
 	if ($r->param('show_long_doc')) {
+		my $docstring;
+		for my $consec (@$ConfigValues) {
+			my @configSectionArray = @$consec;
+			shift @configSectionArray;
+			for my $con (@configSectionArray) {
+				$docstring = $con->{doc2} || $con->{doc}
+					if($con->{var} eq $r->param('var_name'));
+			}
+		}
 		print CGI::h2("Variable Documentation: ". CGI::code('$'.$r->param('var_name'))),
 			CGI::p(),
-			CGI::blockquote( $r->param('show_long_doc'));
+			CGI::blockquote( $docstring );
 		return "";
 	}