version 1.113, 2005/10/17 21:36:44
|
version 1.114, 2005/10/19 21:53:16
|
Line 238 sub diffgraph {
|
Line 238 sub diffgraph {
|
sub fieldnames { |
sub fieldnames { |
my $file_type=shift; |
my $file_type=shift; |
my %fields; |
my %fields; |
|
%fields = |
|
(%fields, |
|
'title' => 'Title', |
|
'author' =>'Author(s)', |
|
'authorspace' => 'Author Space', |
|
'modifyinguser' => 'Last Modifying User', |
|
'subject' => 'Subject', |
|
'keywords' => 'Keyword(s)', |
|
'notes' => 'Notes', |
|
'abstract' => 'Abstract', |
|
'lowestgradelevel' => 'Lowest Grade Level', |
|
'highestgradelevel' => 'Highest Grade Level'); |
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |
%fields = |
%fields = |
(%fields, |
(%fields, |
Line 1021 ENDEDIT
|
Line 1033 ENDEDIT
|
$r->print('<script language="JavaScript">'. |
$r->print('<script language="JavaScript">'. |
&Apache::loncommon::browser_and_searcher_javascript(). |
&Apache::loncommon::browser_and_searcher_javascript(). |
'</script>'); |
'</script>'); |
|
if (($file_type eq 'portfolio') && $env{'form.metacourse'}) { |
|
$file_type = 'restrictedportfolio'; |
|
} |
my %lt=&fieldnames($file_type); |
my %lt=&fieldnames($file_type); |
my $output; |
my $output; |
my @fields; |
my @fields; |
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |
@fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel', |
@fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel', |
'highestgradelevel'); |
'highestgradelevel'); |
|
} elsif ($file_type eq 'restrictedportfolio') { |
|
@fields = ('metadata.author','metadata.title','metadata.subject','metadata.keywords','metadata.abstract','metadata.notes','metadata.lowestgradelevel', |
|
'metadata.highestgradelevel'); |
} else { |
} else { |
@fields = ('author','title','subject','keywords','abstract','notes', |
@fields = ('author','title','subject','keywords','abstract','notes', |
'copyright','customdistributionfile','language', |
'copyright','customdistributionfile','language', |
Line 1047 ENDEDIT
|
Line 1065 ENDEDIT
|
&prettyinput($_, |
&prettyinput($_, |
$Apache::lonpublisher::metadatafields{$_}, |
$Apache::lonpublisher::metadatafields{$_}, |
'new_'.$_,'defaultmeta').'</p>'); |
'new_'.$_,'defaultmeta').'</p>'); |
if ($env{'form.metacourse'}) { |
|
$r->print('This is the instructor metadata area<br />'); |
|
# have to find all the metadata items, so we'll loop through and find them |
|
$r->print('<form method="post" action="" size="3" >'); |
|
$r->print('The course is: '.$env{'form.metacourse'}.'<br>'); |
|
foreach my $key (sort keys %env) { |
|
if ($key=~m/^($env{'form.metacourse'}\.metadata\.)(\d+)\.title/) { |
|
my $key_base = $1; |
|
my $item_num = $2; |
|
# found one, so let's display it |
|
my $title = $env{$key_base.$item_num.'.title'}; |
|
my $type = $env{$key_base.$item_num.'.type'}; |
|
my @choices = sort(split /, /,$env{$key_base.$item_num.'.values'}); |
|
$r->print($title.'<br />'); |
|
$r->print($type.'<br />'); |
|
|
|
foreach my $word (@choices) { |
|
my $checked; |
|
if ($Apache::lonpublisher::metadatafields{'coursekeyword'}=~ m/$word/) { |
|
$checked = 1; |
|
} else { |
|
undef($checked); |
|
} |
|
$r->print(&Apache::lonhtmlcommon::checkbox('instmeta_'.$env{'form.metacourse'}.'_'.$item_num,$checked,$word).$word.'<br />'); |
|
} |
|
} |
|
} |
|
$r->print('<br /><input type="submit" name="store" value="Assign Meta-data" />'); |
|
$r->print('</form>'); |
|
return 'ok'; |
|
} |
|
} |
} |
if ($env{'form.store'}) { |
if ($env{'form.store'}) { |
my $mfh; |
my $mfh; |