loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.99 and 1.104

-version 1.99, 2005/07/13 22:09:11
+version 1.104, 2005/08/09 00:24:55
  Line 17
  # 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
  # along with LON-CAPA; if not, write to the Free Software
  # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  #
  Line 33  use LONCAPA::lonmetadata();
  use Apache::Constants qw(:common);
  use Apache::lonnet;
  use Apache::loncommon();
  use Apache::lonhtmlcommon();
  use Apache::lonmsg;
  use Apache::lonpublisher;
  use Apache::lonlocal;
  Line 288  sub fieldnames {
      return &Apache::lonlocal::texthash(%fields);
  }
+ sub select_course {
+     my ($r)=@_;
+     $r->print('<h3>Instructor Selected Meta-Data</h3><br />');
+     $r->print('<form action="" method="post">');
+     $r->print('Select your course<br />');
+     $r->print('<select name="metacourse" >');
+     my $meta_not_found = 1;
+     foreach my $key (keys %env) {
+         if ($key =~ /\.metadata\./) {
+             if ($meta_not_found) {
+                 undef($meta_not_found);
+                 $r->print('<h3>Instructor Selected Meta-Data</h3><br />');
+                 $r->print('<form action="" method="post">');
+                 $r->print('Select your course<br />');
+                 $r->print('<select name="metacourse" >');
+             }
+             my $course_key = $key;
+             $course_key =~ s/\.metadata\..*//;
+             $r->print('<option value="'.$course_key.'">');
+             $r->print($env{$course_key.'.description'});
+             $r->print('</option>');
+         }
+     }
+     unless ($meta_not_found) {
+         $r->print('</select><br />');
+         $r->print('<input type="submit" value="Assign Instructor Metadata" />');
+         $r->print('</form>');
+     }
+     return 'ok';
+ }
  # Pretty printing of metadata field
  sub prettyprint {
- Line 547  sub handler {
+ Line 577  sub handler {
      } elsif ($uri=~/\/portfolio\//) {
          $r->print(&Apache::loncommon::bodytag
            ('Edit Portfolio File Information','','','',$resdomain));
-         &present_editable_metadata($r,$uri,'portfolio');
+         if ($env{'form.metacourse'}) {
+             &present_instructor_metadata($r,$uri,'portfolio');
+         }
+         elsif ($env{'form.keywords'}) {
+             &save_instructor_metadata($r);
+             &select_course($r);
+         } else {
+             &present_editable_metadata($r,$uri,'portfolio');
+             &select_course($r);
+         }
      } elsif ($uri=~/^\/\~/) {
          # Construction space
- Line 882  sub print_dynamic_metadata {
+ Line 921  sub print_dynamic_metadata {
      $r->print("</table>");
      return;
  }
+ sub save_instructor_metadata {
+     my ($r) = @_;
+     $r->print('This is the save instructor metadata area<br />');
+     my @words =  &Apache::loncommon::get_env_multiple('form.keywords');
+     foreach my $word (@words) {
+         $r->print('You entered:'.$word.'<br />');
+     }
+     return 'ok';
+ }
+ sub present_instructor_metadata {
+     my ($r,$uri, $file_type) = @_;
+     $r->print('This is the instructor metadata area<br />');
+     my @keywords = sort(split /, /,$env{$env{'form.metacourse'}.'.metadata.keywords'});
+     $r->print($env{'form.metacourse'}.'<br />');
+     $r->print('<form method="post" action="" size="3" >');
+     $r->print('<select name="keywords" size="3" multiple>');
+     foreach my $word (@keywords) {
+         $r->print('<option>'.$word.'</option>');
+     }
+     $r->print('</select>');
+     $r->print('<br /><input type="submit" value="Assign Meta-data" />');
+     $r->print('</form>');
+     return 'ok';
+ }
  #####################################################
  #####################################################

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.99
changed lines
	Added in v.1.104