loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.203, 2008/12/15 16:37:44	version 1.204, 2009/01/03 19:14:19
Line 138 END	Line 138 END
.'<form method="post" action="'.$escuri.'">'	.'<form method="post" action="'.$escuri.'">'
.'<fieldset>'	.'<fieldset>'
.'<legend>'.$lt{'createdir_label'}.'</legend>'	.'<legend>'.$lt{'createdir_label'}.'</legend>'
.'<input name="newdir" type="input" />'.$groupitem	.'<input name="newdir" type="text" />'.$groupitem
.'<input type="hidden" name="currentpath" value="'.$current_path.'" />'	.'<input type="hidden" name="currentpath" value="'.$current_path.'" />'
.'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'	.'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'
.'<input type="hidden" name="fieldname" value="'.$env{"form.fieldname"}.'" />'	.'<input type="hidden" name="fieldname" value="'.$env{"form.fieldname"}.'" />'
Line 694 sub rename {	Line 694 sub rename {
} else {	} else {
&open_form($r,$url);	&open_form($r,$url);
$r->print('<p>'.&mt('Rename [_1] to [_2]?', &display_file()	$r->print('<p>'.&mt('Rename [_1] to [_2]?', &display_file()
, '<input name="filenewname" type="input" size="50" />').'</p>');	, '<input name="filenewname" type="text" size="50" />').'</p>');
&close_form($r,$url);	&close_form($r,$url);
}	}
}	}