version 1.12, 2001/04/16 13:48:14
|
version 1.13, 2001/04/16 20:32:20
|
Line 81 foreach my $m (@metalist) {
|
Line 81 foreach my $m (@metalist) {
|
'"'.delete($ref->{'abstract'}).'"'.','. |
'"'.delete($ref->{'abstract'}).'"'.','. |
'"'.delete($ref->{'mime'}).'"'.','. |
'"'.delete($ref->{'mime'}).'"'.','. |
'"'.delete($ref->{'language'}).'"'.','. |
'"'.delete($ref->{'language'}).'"'.','. |
'"'.delete($ref->{'creationdate'}).'"'.','. |
'"'.sqltime(delete($ref->{'creationdate'})).'"'.','. |
'"'.delete($ref->{'lastrevisiondate'}).'"'.','. |
'"'.sqltime(delete($ref->{'lastrevisiondate'})).'"'.','. |
'"'.delete($ref->{'owner'}).'"'.','. |
'"'.delete($ref->{'owner'}).'"'.','. |
'"'.delete($ref->{'copyright'}).'"'.')'); |
'"'.delete($ref->{'copyright'}).'"'.')'); |
$sth->execute(); |
$sth->execute(); |
Line 183 sub propath {
|
Line 183 sub propath {
|
my $proname="$perlvar{'lonUsersDir'}/$udom/$subdir/$uname"; |
my $proname="$perlvar{'lonUsersDir'}/$udom/$subdir/$uname"; |
return $proname; |
return $proname; |
} |
} |
|
|
|
# ---------------------------- convert 'time' format into a datetime sql format |
|
sub sqltime { |
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = |
|
localtime(@_[0]); |
|
$year+=1900; |
|
return "$year-$mon-$mday $hour:$min:$sec"; |
|
} |