--- loncom/interface/londocs.pm 2004/01/29 00:50:44 1.100 +++ loncom/interface/londocs.pm 2004/02/01 21:28:49 1.101 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.100 2004/01/29 00:50:44 www Exp $ +# $Id: londocs.pm,v 1.101 2004/02/01 21:28:49 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -933,6 +933,21 @@ function makebulboard() { } } +function makeabout() { + var user=prompt("Enter user\@domain for User's 'About Me' Page"); + if (user) { + var comp=new Array(); + comp=user.split('\@'); + if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) { + if ((comp[0]) && (comp[1])) { + this.document.forms.newaboutsomeone.importdetail.value= + 'About '+user+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme'; + this.document.forms.newaboutsomeone.submit(); + } + } + } +} + function finishpick() { var title=this.document.forms.extimport.title.value; var url=this.document.forms.extimport.url.value; @@ -990,6 +1005,7 @@ ENDNEWSCRIPT 'scuf' => 'Score Upload Form', 'bull' => 'Bulletin Board', 'mypi' => 'My Personal Info', + 'abou' => 'About User', 'file' => 'File', 'title' => 'Title', 'comment' => 'Comment' @@ -1174,6 +1190,15 @@ value="$plainname=/adm/$udom/$uname/abou $help{'My Personal Info'} +
+ + + + + + +
ENDFORM