OpenACS

darior
committed
MAIN:darior:20061124111312
on 24 Nov 06
fix bug for display pretty time remaining
/tcl/as-assessment-procs.tcl (+1 -2)
445 445     return $error_list
446 446 }
447 447
448 448 ad_proc as::assessment::pretty_time {
449 449     {-seconds}
450 450     {-hours:boolean}
451 451 } {
452 452     @author Timo Hentschel (timo@timohentschel.de)
453 453     @creation-date 2004-12-14
454 454
455 455     Returns a pretty string of min:sec
456 456 } {
457 457     if {$seconds eq "0" || $seconds eq ""} {
458 458         return $seconds
459 459     }
460 460     set time ""
461 461     if {![empty_string_p $seconds]} {
462 462         if {$hours_p} {
463 463             set time_hour [expr $seconds / 3600]
464 464             set seconds [expr $seconds - ($time_hour * 3600)]
465              
  465          }
466 466             set time_min [expr $seconds / 60]
467 467             set time_sec [expr $seconds - ($time_min * 60)]
468 468             set pad "00"
469 469             if {$hours_p} {
470 470                 append time "[string range $pad [string length $time_hour] end]$time_hour\:"
471 471             }
472 472             append time "[string range $pad [string length $time_min] end]$time_min\:[string range $pad [string length $time_sec] end]$time_sec min"
473 473     }
474       }
475 474     return $time
476 475 }
477 476
478 477 ad_proc as::assessment::folder_id {
479 478     -package_id:required
480 479 } {
481 480     @author Timo Hentschel (timo@timohentschel.de)
482 481     @creation-date 2005-01-06
483 482
484 483     Returns the folder_id of the package instance. Cached
485 484 } {
486 485     ns_log notice "assessment folder id  package_id = '${package_id}'"
487 486     return [content::folder::get_folder_from_package -package_id $package_id]
488 487 }
489 488
490 489 ad_proc as::assessment::unique_name {
491 490     {-name ""}
492 491     {-new_p 1}
493 492     {-item_id ""}
494 493 } {