--- loncom/interface/lonmeta.pm 2005/04/07 06:56:23 1.96
+++ loncom/interface/lonmeta.pm 2005/08/09 00:24:55 1.104
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.96 2005/04/07 06:56:23 albertel Exp $
+# $Id: lonmeta.pm,v 1.104 2005/08/09 00:24:55 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -17,7 +17,7 @@
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License
+# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
@@ -33,7 +33,7 @@ use LONCAPA::lonmetadata();
use Apache::Constants qw(:common);
use Apache::lonnet;
use Apache::loncommon();
-use Apache::lonhtmlcommon();
+use Apache::lonhtmlcommon();
use Apache::lonmsg;
use Apache::lonpublisher;
use Apache::lonlocal;
@@ -288,6 +288,36 @@ sub fieldnames {
return &Apache::lonlocal::texthash(%fields);
}
+sub select_course {
+ my ($r)=@_;
+ $r->print('
Instructor Selected Meta-Data
');
+ $r->print('
+ENDCLEAR
my %brokenurls =
&Apache::lonmsg::all_url_author_res_msg($author,$domain);
foreach (sort(keys(%brokenurls))) {
@@ -873,6 +921,31 @@ sub print_dynamic_metadata {
$r->print("");
return;
}
+sub save_instructor_metadata {
+ my ($r) = @_;
+ $r->print('This is the save instructor metadata area ');
+ my @words = &Apache::loncommon::get_env_multiple('form.keywords');
+ foreach my $word (@words) {
+ $r->print('You entered:'.$word.' ');
+ }
+ return 'ok';
+}
+sub present_instructor_metadata {
+ my ($r,$uri, $file_type) = @_;
+ $r->print('This is the instructor metadata area ');
+ my @keywords = sort(split /, /,$env{$env{'form.metacourse'}.'.metadata.keywords'});
+ $r->print($env{'form.metacourse'}.' ');
+ $r->print('