--- loncom/homework/inputtags.pm	2005/08/02 18:15:27	1.174
+++ loncom/homework/inputtags.pm	2005/10/18 21:46:42	1.176
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.174 2005/08/02 18:15:27 albertel Exp $
+# $Id: inputtags.pm,v 1.176 2005/10/18 21:46:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -306,9 +306,10 @@ sub end_hiddenline {
 # $which -> 'uploadedonly'  -> only newly uploaded files
 #           'portfolioonly' -> only allow files from portfolio
 #           'both' -> allow files from either location
+# $extratext -> additional text to go between the link and the input box
 # returns a table row <tr> 
 sub file_selector {
-    my ($part,$id,$uploadedfiletypes,$which)=@_;
+    my ($part,$id,$uploadedfiletypes,$which,$extratext)=@_;
     if (!$uploadedfiletypes) { return ''; }
 
     my $jspart=$part;
@@ -329,7 +330,7 @@ sub file_selector {
 
 	if ($uploadedfile) {
 	    my $url=$Apache::lonhomework::history{"resource.$part.$id.uploadedurl"};
-	    push (@Apache::lonxml::extlinks,$url);
+	    &Apache::lonxml::extlink($url);
 	    &Apache::lonnet::allowuploaded('/adm/essayresponse',$url);
 	    my $icon=&Apache::loncommon::icon($url);
 	    my $curfile='<a href="'.$url.'"><img src="'.$icon.
@@ -343,7 +344,7 @@ sub file_selector {
 	$result.='<br />'.'<strong>'.&mt('OR:').'</strong><br />';
     }
     if ($which eq 'portfolioonly' || $which eq 'both') { 
-	$result.='<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&amp;fieldname=HWPORT'.$jspart.'_'.$id.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>'.
+	$result.=$extratext.'<a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&amp;fieldname=HWPORT'.$jspart.'_'.$id.'","cat","height=600,width=800,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>'.
 	    &mt('Select Portfolio Files').'</a><br />'.
 	    '<input type="text" size="50" name="HWPORT'.$jspart.'_'.$id.'" value="" />'.
 	    '<br />';