[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm
banghart
lon-capa-cvs@mail.lon-capa.org
Fri, 26 Aug 2005 18:57:43 -0000
banghart Fri Aug 26 14:57:43 2005 EDT
Modified files:
/loncom/interface lonparmset.pm
Log:
Add framework for instructor interface for defining metadata.
(saving work, doesn't do anything yet.)
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.239 loncom/interface/lonparmset.pm:1.240
--- loncom/interface/lonparmset.pm:1.239 Tue Jul 19 12:42:02 2005
+++ loncom/interface/lonparmset.pm Fri Aug 26 14:57:42 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.239 2005/07/19 16:42:02 raeburn Exp $
+# $Id: lonparmset.pm,v 1.240 2005/08/26 18:57:42 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2677,6 +2677,10 @@
action => 'crsenv',
permission => $parm_permission,
},
+ { text => 'Set Instructor Defined Metadata',
+ action => 'setinstmeta',
+ permission => $parm_permission,
+ },
{ text => 'Set/Modify Resource Parameters - Helper Mode',
url => '/adm/helper/parameter.helper',
permission => $parm_permission,
@@ -2720,8 +2724,23 @@
$r->print($menu_html);
return;
}
-
-
+### Set instructor defined metadata
+sub setinstmeta {
+ my ($r)=@_;
+ my $setoutput='';
+ $r->print(&Apache::lonxml::xmlbegin());
+ $r->print('<head>
+ <title>LON-CAPA Set Instructor Metadata</title>
+ </head>');
+
+ $r->print(&Apache::loncommon::bodytag('Set Instructor Metadata'));
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
+ 'Set Instructor Metadata'));
+ my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+ $r->print('Set instructor metadata here');
+ return 'ok';
+}
##################################################
sub defaultsetter {
@@ -2954,6 +2973,10 @@
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
text=>"Overview Mode"});
&overview($r);
+ } elsif ($env{'form.action'} eq 'setinstmeta' && $parm_permission) {
+ &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setinstmeta',
+ text=>"Instructor Metadata"});
+ &setinstmeta($r);
} elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
text=>"Overview Mode"});