[LON-CAPA-cvs] cvs: loncom /homework randomlabel.pm /xml scripttag.pm

[albertel]

albertel		Fri Mar 22 17:06:06 2002 EDT

  Modified files:              
    /loncom/homework	randomlabel.pm 
    /loncom/xml	scripttag.pm 
  Log:
  - editline doesn't need a 5th parameter
  - label text should be a single line
  
  
Index: loncom/homework/randomlabel.pm
diff -u loncom/homework/randomlabel.pm:1.21 loncom/homework/randomlabel.pm:1.22
--- loncom/homework/randomlabel.pm:1.21	Fri Mar 22 17:04:39 2002
+++ loncom/homework/randomlabel.pm	Fri Mar 22 17:06:06 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # random labelling tool
 #
-# $Id: randomlabel.pm,v 1.21 2002/03/22 22:04:39 albertel Exp $
+# $Id: randomlabel.pm,v 1.22 2002/03/22 22:06:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -317,7 +317,7 @@
     $result.=&Apache::edit::tag_start($target,$token);
     my $text=&Apache::lonxml::get_all_text("/label",$$parser[-1]);
     $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row().
-      &Apache::edit::editfield('',$text,'',20,1).
+      &Apache::edit::editline('',$text,'',20).
 	&Apache::edit::end_table();
   } elsif ($target eq 'modified') {
     my $text=$$parser[-1]->get_text("/label");
Index: loncom/xml/scripttag.pm
diff -u loncom/xml/scripttag.pm:1.67 loncom/xml/scripttag.pm:1.68
--- loncom/xml/scripttag.pm:1.67	Fri Mar 22 15:05:19 2002
+++ loncom/xml/scripttag.pm	Fri Mar 22 17:06:06 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
 #
-# $Id: scripttag.pm,v 1.67 2002/03/22 20:05:19 albertel Exp $
+# $Id: scripttag.pm,v 1.68 2002/03/22 22:06:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -161,7 +161,7 @@
   if ($target eq "edit" ) {
     $result=
       &Apache::edit::tag_start($target,$token,'New Script Functions').
-	&Apache::edit::editline($token->[1],$bodytext,'',40,1).
+	&Apache::edit::editline($token->[1],$bodytext,'',40).
 	  $error.'</td></tr>'.
 	    &Apache::edit::end_table();
   }
@@ -206,7 +206,7 @@
   if ($target eq "edit" ) {
     $result=
       &Apache::edit::tag_start($target,$token,'New Tag Definitions').
-	&Apache::edit::editline($token->[1],$bodytext,'',40,1).
+	&Apache::edit::editline($token->[1],$bodytext,'',40).
 	  $error.'</td></tr>'.
 	    &Apache::edit::end_table();
   }
@@ -277,7 +277,7 @@
     &Apache::lonxml::newparser($parser,\$file,$dir);
   } elsif ($target eq "edit" ) {
     $result.=&Apache::edit::tag_start($target,$token);
-    $result.=&Apache::edit::editline($token->[1],$bodytext,'',40,1);
+    $result.=&Apache::edit::editline($token->[1],$bodytext,'',40);
     #FIXME this need to convert $bodytext to be a contruction space reference
     #my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);
     #$result.="Click<a href=\"$location\">here</a> to edit<br />"