version 1.134, 2005/12/05 20:30:16
|
version 1.136, 2005/12/09 23:49:45
|
Line 302 sub select_course {
|
Line 302 sub select_course {
|
$courses{$coursekey} = $value; |
$courses{$coursekey} = $value; |
} |
} |
} |
} |
$r->print('<h3>Course Related Meta-Data</h3><br />'); |
$r->print('<h3>Associate resource with a course</h3><br />'); |
$r->print('<form action="" method="post">'); |
$r->print('<form action="" method="post">'); |
$r->print('Select course restrictions<br />'); |
$r->print('Select course <br />'); |
$r->print('<select name="metacourse" >'); |
$r->print('<select name="metacourse" >'); |
my $meta_not_found = 1; |
my $meta_not_found = 1; |
foreach my $key (keys (%courses)) { |
foreach my $key (keys (%courses)) { |
Line 322 sub select_course {
|
Line 322 sub select_course {
|
} |
} |
unless ($meta_not_found) { |
unless ($meta_not_found) { |
$r->print('</select><br />'); |
$r->print('</select><br />'); |
$r->print('<input type="submit" value="Assign Portfolio Metadata" />'); |
$r->print('<input type="submit" value="Associate" />'); |
$r->print('</form>'); |
$r->print('</form>'); |
} |
} |
return 'ok'; |
return 'ok'; |
Line 603 sub prettyinput {
|
Line 603 sub prettyinput {
|
",'rights')\">".&mt('Select').'</a>'. |
",'rights')\">".&mt('Select').'</a>'. |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
} |
} |
|
if ($type eq 'courserestricted') { |
|
return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />'); |
|
} |
|
|
# Dates |
# Dates |
if (($type eq 'creationdate') || |
if (($type eq 'creationdate') || |
($type eq 'lastrevisiondate')) { |
($type eq 'lastrevisiondate')) { |
Line 1097 ENDEDIT
|
Line 1101 ENDEDIT
|
'default'; |
'default'; |
} |
} |
if ($metacourse ne 'none') { |
if ($metacourse ne 'none') { |
$r->print('Document metadata restricted by :<strong> '.$env{$metacourse.".description"}."</strong><br />"); |
$r->print('Using: <strong> '.$env{$metacourse.".description"}."</strong> metadata framework<br />"); |
} |
} |
foreach my $field_name(@fields) { |
foreach my $field_name(@fields) { |
|
|
Line 1152 ENDEDIT
|
Line 1156 ENDEDIT
|
$Apache::lonpublisher::metadatakeys{$unikey}) |
$Apache::lonpublisher::metadatakeys{$unikey}) |
) { |
) { |
my $value= |
my $value= |
$Apache::lonpublisher::metadatafields{$unikey.'.'.$_}; |
$Apache::lonpublisher::metadatafields{$unikey.'.'.$_}; |
$value=~s/\"/\'\'/g; |
$value=~s/\"/\'\'/g; |
$file_content.=' '.$_.'="'.$value.'"' ; |
$file_content.=' '.$_.'="'.$value.'"' ; |
# print $mfh ' '.$_.'="'.$value.'"'; |
# print $mfh ' '.$_.'="'.$value.'"'; |
Line 1166 ENDEDIT
|
Line 1170 ENDEDIT
|
if ($fn =~ /\/portfolio\//) { |
if ($fn =~ /\/portfolio\//) { |
$fn =~ /\/portfolio\/(.*)$/; |
$fn =~ /\/portfolio\/(.*)$/; |
my $new_fn = '/'.$1; |
my $new_fn = '/'.$1; |
$env{'form.'.$formname}=$file_content; |
$env{'form.'.$formname}=$file_content."\n"; |
$env{'form.'.$formname.'.filename'}=$new_fn; |
$env{'form.'.$formname.'.filename'}=$new_fn; |
&Apache::lonnet::userfileupload('uploaddoc','', |
&Apache::lonnet::userfileupload('uploaddoc','', |
'portfolio'.$env{'form.currentpath'}); |
'portfolio'.$env{'form.currentpath'}); |