[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[www]

www		Mon Mar  1 15:57:47 2004 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  XMLify
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.90 loncom/interface/lonmsg.pm:1.91
--- loncom/interface/lonmsg.pm:1.90	Mon Mar  1 13:30:50 2004
+++ loncom/interface/lonmsg.pm	Mon Mar  1 15:57:47 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.90 2004/03/01 18:30:50 www Exp $
+# $Id: lonmsg.pm,v 1.91 2004/03/01 20:57:47 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -857,8 +857,8 @@
        $r->print(<<"ENDCOMP");
 <tr><td>$lt{'ad'}<br /><tt>username\@domain,username\@domain, ...
 </tt></td><td>
-<input type="text" size="50" name="additionalrec"></td></tr>
-<tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub">
+<input type="text" size="50" name="additionalrec" /></td></tr>
+<tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub" />
 </td></tr></table>
 $latexHelp
 <textarea name="message" cols="80" rows="10" wrap="hard">$dismsg
@@ -869,14 +869,14 @@
 ENDCOMP
     } else { # $broadcast is 'upload'
 	$r->print(<<ENDUPLOAD);
-<input type=hidden name=sendmode value=upload>
+<input type="hidden" name="sendmode" value="upload" />
 <input type="hidden" name="send" value="on" />
 <h3>Generate messages from a file</h3>
 <p>
-Subject: <input type=text size=50 name=subject>
+Subject: <input type="text" size="50" name="subject" />
 </p>
 <p>General message text<br />
-<textarea name=message cols=60 rows=10 wrap=hard>$dismsg
+<textarea name="message" cols="60" rows="10" wrap="hard">$dismsg
 </textarea></p>
 <p>
 The file format for the uploaded portion of the message is:
@@ -890,9 +890,9 @@
 The messages will be assembled from all lines with the respective 
 <tt>username\@domain</tt>, and appended to the general message text.</p>
 <p>
-<input type=file name=upfile size=20><p>
+<input type="file" name="upfile" size="40" /></p><p>
 $dispcrit
-<input type=submit value="Upload and send">
+<input type="submit" value="Upload and send" /></p>
 ENDUPLOAD
     }
     if ($broadcast eq 'group') {
@@ -1016,6 +1016,15 @@
 ENDBFORM
     }
 }
+
+# ----------------------------------------------- Generate the text input field
+
+sub textinputarea {
+    my ($r,$name,$quote)=@_;
+    $r->print('<textarea name="'.$name.
+	      '" cols="80" rows="12" wrap="hard">'.$quote.'</textarea>');
+}
+
 # ----------------------------------------------------------- Display a message
 
 sub displaymessage {